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
workspaceCommands :: [(String, X ())]
workspaceCommands = [((m ++ show i), f i)
| i <- [0 .. fromIntegral workspaces - 1]
workspaceCommands = [((m ++ show i), f (fromIntegral i))
| i <- [0 .. workspaces - 1]
, (f, m) <- [(view, "view"), (shift, "shift")]
]
screenCommands :: [(String, X ())]
screenCommands = [((m ++ show sc), screenWorkspace sc >>= f)
| sc <- [0, 1] -- TODO: adapt to screen changes
screenCommands = [((m ++ show sc), screenWorkspace (fromIntegral sc) >>= f)
| sc <- [0, 1]::[Int] -- TODO: adapt to screen changes
, (f, m) <- [(view, "screen"), (shift, "screen-to-")]
]