ENH clean up keymaps
This commit is contained in:
parent
2d9d5dcefe
commit
d3c91f3831
|
@ -562,27 +562,25 @@ mkKeys hs client c =
|
|||
, ("M-S-j", "swap down", windows W.swapDown)
|
||||
, ("M-S-k", "swap up", windows W.swapUp)
|
||||
, ("M-S-m", "swap master", windows W.swapMaster)
|
||||
-- TODO this will decrement past 0?
|
||||
, ("M-C-j", "remove master window", sendMessage (IncMasterN (-1)))
|
||||
, ("M-C-k", "add master window", sendMessage (IncMasterN 1))
|
||||
, ("M-<Return>", "next layout", sendMessage NextLayout)
|
||||
, ("M-S-<Return>", "reset layout", setLayout $ XMonad.layoutHook c)
|
||||
, ("M-t", "sink tiling", withFocused $ windows . W.sink)
|
||||
, ("M--", "shrink", sendMessage Shrink)
|
||||
, ("M-=", "expand", sendMessage Expand)
|
||||
, ("M-S--", "remove master window", sendMessage (IncMasterN (-1)))
|
||||
, ("M-S-=", "add master window", sendMessage (IncMasterN 1))
|
||||
] ++
|
||||
|
||||
mkNamedSubmap c "Workspaces"
|
||||
-- NOTE this assumes that there are workspaces bound to numbers
|
||||
([ (mods ++ show i, msg ++ " " ++ show i, windows $ f w)
|
||||
| (w, i) <- zip (XMonad.workspaces c) [1..] :: [(String, Int)]
|
||||
, (mods, msg, f) <-
|
||||
[ ("M-", "switch to workspace", W.view)
|
||||
-- ASSUME standard workspaces include numbers 0-9 (otherwise we won't get
|
||||
-- valid keysyms)
|
||||
[ (mods ++ n, msg ++ n, windows $ f n) | n <- myWorkspaces
|
||||
, (mods, msg, f) <- [ ("M-", "switch to workspace ", W.view)
|
||||
, ("M-S-", "move client to workspace ", W.shift)]
|
||||
] ++
|
||||
[ ("M-v", "switch to VM workspace", showWorkspace myVMWorkspace)
|
||||
, ("M-M1-g", "switch to Gimp workspace", showWorkspace myGimpWorkspace)
|
||||
]) ++
|
||||
-- [ ("M-v", "switch to VM workspace", showWorkspace myVMWorkspace)
|
||||
-- , ("M-g", "switch to Gimp workspace", showWorkspace myGimpWorkspace)
|
||||
-- ]) ++
|
||||
|
||||
mkNamedSubmap c "Screens"
|
||||
[ ("M-l", "move up screen", nextScreen)
|
||||
|
|
Loading…
Reference in New Issue