ADD workspace cycling

This commit is contained in:
Nathan Dwarshuis 2020-03-26 21:41:56 -04:00
parent ab6ceb4297
commit ae5a1f3553
1 changed files with 16 additions and 8 deletions

View File

@ -574,18 +574,26 @@ mkKeys hs client c =
mkNamedSubmap c "Workspaces" mkNamedSubmap c "Workspaces"
-- ASSUME standard workspaces only use numbers 0-9 (otherwise we won't get -- ASSUME standard workspaces only use numbers 0-9 (otherwise we won't get
-- valid keysyms) -- valid keysyms)
[ (mods ++ n, msg ++ n, windows $ f n) | n <- myWorkspaces ([ (mods ++ n, msg ++ n, f n) | n <- myWorkspaces
, (mods, msg, f) <- [ ("M-", "switch to workspace ", W.view) , (mods, msg, f) <-
, ("M-S-", "move client to workspace ", W.shift)] [ ("M-", "switch to workspace ", windows . W.view)
, ("M-S-", "move client to workspace ", windows . W.shift)
, ("M-C-", "follow client to workspace ", \n' -> do
windows $ W.shift n'
windows $ W.view n')
]
] ++ ] ++
[ ("M-M1-l", "move up workspace", moveTo Next HiddenNonEmptyWS)
, ("M-M1-h", "move down workspace", moveTo Prev HiddenNonEmptyWS)
]) ++
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", "follow client up screen", shiftNextScreen >> nextScreen)
, ("M-C-h", "move client down screen", shiftPrevScreen >> prevScreen) , ("M-C-h", "follow client down screen", shiftPrevScreen >> prevScreen)
, ("M-S-l", "shift up screen", swapNextScreen >> nextScreen) , ("M-S-l", "shift workspace up screen", swapNextScreen >> nextScreen)
, ("M-S-h", "shift down screen", swapPrevScreen >> prevScreen) , ("M-S-h", "shift workspace down screen", swapPrevScreen >> prevScreen)
] ++ ] ++
mkNamedSubmap c "Actions" mkNamedSubmap c "Actions"