twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

XMonadContrib.Commands: for workspace and screen commands, leave out W/S tag

Browse Source
This commit is contained in:
glasser 2007-06-01 16:13:51 +00:00
parent c3385c2f85
commit b4aaff532a
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
Commands.hs
View File

@ -51,14 +51,14 @@ commandMap :: M.Map String (X ())
commandMap = M.fromList commands commandMap = M.fromList commands
workspaceCommands :: [(String, X ())] workspaceCommands :: [(String, X ())]
workspaceCommands = [((m ++ show i), f i) workspaceCommands = [((m ++ show i), f (fromIntegral i))
| i <- [0 .. fromIntegral workspaces - 1] | i <- [0 .. workspaces - 1]
, (f, m) <- [(view, "view"), (shift, "shift")] , (f, m) <- [(view, "view"), (shift, "shift")]
] ]
screenCommands :: [(String, X ())] screenCommands :: [(String, X ())]
screenCommands = [((m ++ show sc), screenWorkspace sc >>= f) screenCommands = [((m ++ show sc), screenWorkspace (fromIntegral sc) >>= f)
| sc <- [0, 1] -- TODO: adapt to screen changes | sc <- [0, 1]::[Int] -- TODO: adapt to screen changes
, (f, m) <- [(view, "screen"), (shift, "screen-to-")] , (f, m) <- [(view, "screen"), (shift, "screen-to-")]
] ]