ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH clean up keymaps

This commit is contained in:
Nathan Dwarshuis 2020-03-26 21:03:34 -04:00
parent 2d9d5dcefe
commit d3c91f3831
1 changed files with 25 additions and 27 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
bin/xmonad.hs
View File

@ -556,41 +556,39 @@ mkNamedSubmap c sectionName bindings =
mkKeys :: [ProcessID] -> Client -> XConfig Layout -> [((KeyMask, KeySym), NamedAction)] mkKeys :: [ProcessID] -> Client -> XConfig Layout -> [((KeyMask, KeySym), NamedAction)]
mkKeys hs client c = mkKeys hs client c =
mkNamedSubmap c "Window Layouts" mkNamedSubmap c "Window Layouts"
[ ("M-j", "focus down", windows W.focusDown) [ ("M-j", "focus down", windows W.focusDown)
, ("M-k", "focus up", windows W.focusUp) , ("M-k", "focus up", windows W.focusUp)
, ("M-m", "focus master", windows W.focusMaster) , ("M-m", "focus master", windows W.focusMaster)
, ("M-S-j", "swap down", windows W.swapDown) , ("M-S-j", "swap down", windows W.swapDown)
, ("M-S-k", "swap up", windows W.swapUp) , ("M-S-k", "swap up", windows W.swapUp)
, ("M-S-m", "swap master", windows W.swapMaster) , ("M-S-m", "swap master", windows W.swapMaster)
-- TODO this will decrement past 0? , ("M-<Return>", "next layout", sendMessage NextLayout)
, ("M-C-j", "remove master window", sendMessage (IncMasterN (-1))) , ("M-S-<Return>", "reset layout", setLayout $ XMonad.layoutHook c)
, ("M-C-k", "add master window", sendMessage (IncMasterN 1)) , ("M-t", "sink tiling", withFocused $ windows . W.sink)
, ("M-<Return>", "next layout", sendMessage NextLayout) , ("M--", "shrink", sendMessage Shrink)
, ("M-S-<Return>", "reset layout", setLayout $ XMonad.layoutHook c) , ("M-=", "expand", sendMessage Expand)
, ("M-t", "sink tiling", withFocused $ windows . W.sink) , ("M-S--", "remove master window", sendMessage (IncMasterN (-1)))
, ("M--", "shrink", sendMessage Shrink) , ("M-S-=", "add master window", sendMessage (IncMasterN 1))
, ("M-=", "expand", sendMessage Expand)
] ++ ] ++
mkNamedSubmap c "Workspaces" mkNamedSubmap c "Workspaces"
-- NOTE this assumes that there are workspaces bound to numbers -- ASSUME standard workspaces include numbers 0-9 (otherwise we won't get
([ (mods ++ show i, msg ++ " " ++ show i, windows $ f w) -- valid keysyms)
| (w, i) <- zip (XMonad.workspaces c) [1..] :: [(String, Int)] [ (mods ++ n, msg ++ n, windows $ f n) | n <- myWorkspaces
, (mods, msg, f) <- , (mods, msg, f) <- [ ("M-", "switch to workspace ", W.view)
[ ("M-", "switch to workspace", W.view) , ("M-S-", "move client to workspace ", W.shift)]
, ("M-S-", "move client to workspace", W.shift)]
] ++ ] ++
[ ("M-v", "switch to VM workspace", showWorkspace myVMWorkspace) -- [ ("M-v", "switch to VM workspace", showWorkspace myVMWorkspace)
, ("M-M1-g", "switch to Gimp workspace", showWorkspace myGimpWorkspace) -- , ("M-g", "switch to Gimp workspace", showWorkspace myGimpWorkspace)
]) ++ -- ]) ++
mkNamedSubmap c "Screens" mkNamedSubmap c "Screens"
[ ("M-l", "move up screen", nextScreen) [ ("M-l", "move up screen", nextScreen)
, ("M-h", "move down screen", prevScreen) , ("M-h", "move down screen", prevScreen)
, ("M-C-l", "move client up screen", shiftNextScreen >> nextScreen) , ("M-C-l", "move client up screen", shiftNextScreen >> nextScreen)
, ("M-C-h", "move client down screen", shiftPrevScreen >> prevScreen) , ("M-C-h", "move client down screen", shiftPrevScreen >> prevScreen)
, ("M-S-l", "shift up screen", swapNextScreen >> nextScreen) , ("M-S-l", "shift up screen", swapNextScreen >> nextScreen)
, ("M-S-h", "shift down screen", swapPrevScreen >> prevScreen) , ("M-S-h", "shift down screen", swapPrevScreen >> prevScreen)
] ++ ] ++
mkNamedSubmap c "Actions" mkNamedSubmap c "Actions"