diff options
| author | glasser <glasser@mit.edu> | 2007-06-01 18:13:51 +0200 |
|---|---|---|
| committer | glasser <glasser@mit.edu> | 2007-06-01 18:13:51 +0200 |
| commit | c792abc18b5c395e40755c3c3c25ccbb7ad0471c (patch) | |
| tree | 6389e0e07625c5a01dbbe407109773f5dfc7b952 | |
| parent | 08f32fb84c270635de6d532a432fa9e54d5897c5 (diff) | |
| download | XMonadContrib-c792abc18b5c395e40755c3c3c25ccbb7ad0471c.tar.gz XMonadContrib-c792abc18b5c395e40755c3c3c25ccbb7ad0471c.tar.xz XMonadContrib-c792abc18b5c395e40755c3c3c25ccbb7ad0471c.zip | |
XMonadContrib.Commands: for workspace and screen commands, leave out W/S tag
darcs-hash:20070601161351-64353-36f70f65c7a6d2b99d981b3b93a31ae33f9aebdb.gz
Diffstat (limited to '')
| -rw-r--r-- | Commands.hs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/Commands.hs b/Commands.hs index 0e56e86..e9b5452 100644 --- a/Commands.hs +++ b/Commands.hs @@ -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-")] ] |