aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/Rahm/Desktop/Keys.hs48
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 $