xmonad.hs: Use default workspaces.

[config/dotfiles.git] / xmonad.hs

diff --git a/xmonad.hs b/xmonad.hs
index f4465775c4df2295c2c405428652a16cd1d2f833..4ac62bdd3c9ec90c0aab7082cd65cb6c5c6ec44d 100644 (file)
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -71,6 +71,26 @@ myManageHook = composeOne
     , return True -?> doF W.focusDown
     ]
 
+myKeys = [
+        -- Switch to additional layout (vertical tiled) defined by
+        -- toggleLayouts above.
+        ((mod4Mask, xK_v), sendMessage ToggleLayout)
+    ]
+    ++
+    -- When using multiple screens, switching to another workspace causes
+    -- Xmonad to pull the workspace to the current screen if it was also
+    -- displayed on another one. This is confusing for me so the following
+    -- code changes it to just switch to the screen where the workspace is
+    -- already displayed.
+    --
+    -- Thanks to the Xmonad FAQ, read on 2010-06-16 13:42
+    -- (http://www.haskell.org/haskellwiki/Xmonad/Frequently_asked_questions).
+    -- Thanks to MrElendig in #xmonad on Freenode (2010-06-17 17:16) to use
+    -- the default XMonad workspaces.
+    [((m .|. mod4Mask, k), windows $ f i)
+        | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_1 .. xK_9]
+        , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
+
 main = xmonad $ defaultConfig
     -- Use Windows key as main key so it doesn't conflict with any other key
     -- bindings.
@@ -85,8 +105,6 @@ main = xmonad $ defaultConfig
     -- Use unicode rxvt as my terminal.
     , terminal = "urxvt"
     }
-    `additionalKeys` [
-        -- Switch to additional layout (vertical tiled) defined by
-        -- toggleLayouts above.
-        ((mod4Mask, xK_v), sendMessage ToggleLayout)
-    ]
+    `additionalKeys` myKeys
+
+-- vim: nospell