diff options
Diffstat (limited to 'src/Internal/Keys.hs')
| -rw-r--r-- | src/Internal/Keys.hs | 23 |
1 files changed, 18 insertions, 5 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index 748aae2..40ad0af 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -46,6 +46,7 @@ import XMonad.Actions.SpawnOn as SpawnOn import qualified Data.Map as Map import qualified XMonad.StackSet as W +import Internal.LayoutZipper import Internal.MouseMotion import Internal.Windows import Internal.Lib @@ -401,13 +402,25 @@ keymap = runKeys $ do altMod $ spawnX "sudo -A systemctl suspend && xsecurelock" bind xK_space $ do - justMod $ sendMessage NextLayout - shiftMod $ sendMessage NextLayout + justMod $ + doc "Use the next layout in the layout list." $ sendMessage ToNextLayout + + altMod $ + doc "Reset the layout to the default layout." $ sendMessage (SetLayout 0) + + shiftMod $ + doc "Use the previous layout in the layout list." $ + sendMessage ToPreviousLayout bind xK_t $ do - justMod $ spawnX (terminal config) - shiftMod $ withFocused $ windows . W.sink - altMod $ spawnX (terminal config ++ " -t Floating\\ Term") + justMod $ + doc "Spawn a terminal." $ spawnX (terminal config) + + shiftMod $ + doc "Sink the current window into the tiling." $ withFocused $ windows . W.sink + + altMod $ + doc "Spawn a floating terminal" $ spawnX (terminal config ++ " -t Floating\\ Term") bind xK_v $ -- Allows repeated strokes of M-h and M-l to reduce and increase volume |