diff options
Diffstat (limited to 'src/Internal')
| -rw-r--r-- | src/Internal/Keys.hs | 26 | ||||
| -rw-r--r-- | src/Internal/KeysM.hs | 2 |
2 files changed, 14 insertions, 14 deletions
diff --git a/src/Internal/Keys.hs b/src/Internal/Keys.hs index fcf233e..24495ff 100644 --- a/src/Internal/Keys.hs +++ b/src/Internal/Keys.hs @@ -134,7 +134,7 @@ keymap = runKeys $ do subkeys $ do bind xK_apostrophe $ (noMod -|- justMod) $ - doc "Jumps to the last window." $ + doc "Jumps to the last window." jumpToLast mapAlpha 0 jumpToMark @@ -174,13 +174,13 @@ keymap = runKeys $ do sendKey (0, xK_a) w justMod $ - doc "Print this documentation" $ + doc "Print this documentation" (safeSpawn "gxmessage" [ "-fn", "Source Code Pro", documentation (keymap config)] :: X ()) bind xK_F7 $ - + justMod $ doc "Print this documentation." $ logs (documentation (keymap config)) @@ -210,7 +210,7 @@ keymap = runKeys $ do doc ("Switch focus to screen " ++ show idx) $ withScreen W.view idx -- Swap the current screen with the one given - altMod $ + altMod $ doc ("Swap the current screen with screen " ++ show idx) $ withScreen W.greedyView idx -- Move the current window to the select screen. @@ -225,9 +225,9 @@ keymap = runKeys $ do justMod $ doc "Increase the gaps between windows." $ sendMessage $ modifyWindowBorder 5 - + bind xK_bracketleft $ do - justMod $ + justMod $ doc "Decrease the gaps between windows." $ sendMessage $ modifyWindowBorder (-5) @@ -337,7 +337,7 @@ keymap = runKeys $ do relativeWorkspaceShift prev bind xK_plus $ do - justMod $ + justMod $ doc "Increase the number of windows in the master region." $ sendMessage (IncMasterN 1) @@ -350,7 +350,7 @@ keymap = runKeys $ do doc "Recompile and restart XMonad" $ spawnX "xmonad --recompile && xmonad --restart" - justMod $ + justMod $ doc "Experimental Bindings" $ subkeys $ do @@ -375,7 +375,7 @@ keymap = runKeys $ do if abs (y' - y) > abs (x' - x) - then + then if (y' - y) < 0 then logs "up" else logs "down" @@ -411,16 +411,16 @@ keymap = runKeys $ do repeatable $ do bind xK_h $ justMod $ - doc "Decrease volume." $ + doc "Decrease volume." decreaseVolumeDoc bind xK_l $ justMod $ - doc "Increase volume." $ + doc "Increase volume." increaseVolumeDoc bind xK_v $ - justMod $ (return () :: X ()) + justMod (return () :: X ()) bind xK_w $ do justMod $ doc "Jump to a window (via rofi)" windowJump @@ -489,7 +489,7 @@ keymap = runKeys $ do bind xK_s $ (justMod -|- noMod) $ - doc "Toggle the ability for terminals to swallow child windows." $ + doc "Toggle the ability for terminals to swallow child windows." toggleSwallowEnabled bind xK_v $ do diff --git a/src/Internal/KeysM.hs b/src/Internal/KeysM.hs index fa9b49f..e490b89 100644 --- a/src/Internal/KeysM.hs +++ b/src/Internal/KeysM.hs @@ -377,7 +377,7 @@ altgrMod = maskMod altgrMask {- Can combine two or more of the functions above to apply the same action to - multiple masks. -} -(-|-) :: (Binding k b) => +(-|-) :: (Binding k b) => (k -> BindingBuilder b ()) -> (k -> BindingBuilder b ()) -> k -> BindingBuilder b () |