xmonad: add keybinding for tiling all floating windows

This commit is contained in:
Serĉanto de Scio 2023-09-27 20:25:11 +10:00
parent 4257d846c5
commit dfd242eb18
Signed by: sercanto
GPG key ID: 7DBA9F5689EFB6AA

View file

@ -2,6 +2,7 @@ import XMonad
import XMonad.Actions.CopyWindow import XMonad.Actions.CopyWindow
import XMonad.Actions.DynamicProjects import XMonad.Actions.DynamicProjects
import XMonad.Actions.Navigation2D import XMonad.Actions.Navigation2D
import XMonad.Actions.SinkAll
import XMonad.Actions.SpawnOn import XMonad.Actions.SpawnOn
import XMonad.Hooks.DynamicLog import XMonad.Hooks.DynamicLog
import XMonad.Hooks.EwmhDesktops import XMonad.Hooks.EwmhDesktops
@ -236,6 +237,7 @@ myKeybinds =
("M-C-d", setLayout $ Layout (layoutHook myConfig)), ("M-C-d", setLayout $ Layout (layoutHook myConfig)),
("M-C-w", shiftToProjectPrompt promptTheme), ("M-C-w", shiftToProjectPrompt promptTheme),
("M-w", switchProjectPrompt promptTheme), ("M-w", switchProjectPrompt promptTheme),
("M-S-f", sinkAll), -- re-tile all floating windows
-- Environment controls -- Environment controls
("<XF86AudioLowerVolume>", spawn volumeDown), ("<XF86AudioLowerVolume>", spawn volumeDown),
("<XF86AudioMute>", spawn volumeMute), ("<XF86AudioMute>", spawn volumeMute),