]> ruderich.org/simon Gitweb - config/dotfiles.git/commitdiff
xmonad.hs: Use default workspaces.
authorSimon Ruderich <simon@ruderich.org>
Thu, 17 Jun 2010 15:20:38 +0000 (17:20 +0200)
committerSimon Ruderich <simon@ruderich.org>
Thu, 17 Jun 2010 15:20:38 +0000 (17:20 +0200)
xmonad.hs

index e73e1c56debe1f6ff528bbc47212e4f8efd0499b..4ac62bdd3c9ec90c0aab7082cd65cb6c5c6ec44d 100644 (file)
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -71,9 +71,6 @@ myManageHook = composeOne
     , return True -?> doF W.focusDown
     ]
 
--- My workspaces, same as default ones. Used below in myKeys.
-myWorkspaces = ["1", "2", "3", "4", "5", "6", "7", "8", "9"]
-
 myKeys = [
         -- Switch to additional layout (vertical tiled) defined by
         -- toggleLayouts above.
@@ -88,8 +85,10 @@ myKeys = [
     --
     -- 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 myWorkspaces [xK_1 .. xK_9]
+        | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_1 .. xK_9]
         , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]]
 
 main = xmonad $ defaultConfig