diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/Rahm/Desktop/Keys.hs | 48 |
1 files changed, 24 insertions, 24 deletions
diff --git a/src/Rahm/Desktop/Keys.hs b/src/Rahm/Desktop/Keys.hs index 3655e3c..5801808 100644 --- a/src/Rahm/Desktop/Keys.hs +++ b/src/Rahm/Desktop/Keys.hs @@ -703,23 +703,12 @@ bindings = do altMod $ spawnX "sudo -A systemctl suspend && xsecurelock" bind xK_x $ do - shiftMod $ - doc "Reset the holes" $ do - logs Debug "reset hole" - sendMessage resetHole - logs Debug "/reset hole" - justMod $ - doc "Add hole next to the current window" $ do - logs Debug "Add hole" - withFocused $ \foc -> - withWindowSet $ \ws -> do - logs Debug "/Add hole at %s" (show foc) - whenJust (W.windowTilePosition foc ws) $ \tp -> do - logs Debug "Tile position: %s" (show tp) - (X.broadcastMessage . addHole) tp - refresh - logs Debug "/Add hole" + doc "Toggles respect for struts." $ + sendMessage ToggleStruts + shiftMod $ + doc "Remove the border from the focused window" $ + withFocused $ setBorderWidth 0 . (: []) bind xK_space $ do justMod $ @@ -765,14 +754,6 @@ bindings = do doc "Jump to the middle layout." $ sendMessage (toIndexedLayout (nLayouts `div` 2)) - bind xK_x $ do - justMod $ - doc "Toggles respect for struts." $ - sendMessage ToggleStruts - shiftMod $ - doc "Remove the border from the focused window" $ - withFocused $ setBorderWidth 0 . (: []) - bind xK_g $ (noMod -|- justMod) $ doc @@ -793,6 +774,25 @@ bindings = do [' '] -> restoreTheater Nothing _ -> return () + bind xK_x $ do + shiftMod $ + doc "Reset the holes" $ do + logs Debug "reset hole" + sendMessage resetHole + logs Debug "/reset hole" + + justMod $ + doc "Add hole next to the current window" $ do + logs Debug "Add hole" + withFocused $ \foc -> + withWindowSet $ \ws -> do + logs Debug "/Add hole at %s" (show foc) + whenJust (W.windowTilePosition foc ws) $ \tp -> do + logs Debug "Tile position: %s" (show tp) + (X.broadcastMessage . addHole) tp + refresh + logs Debug "/Add hole" + let spaceResize = repeatable $ do bind xK_bracketright $ do noMod $ |