From a7e24a7bb846c5daf712b633effae7907b8ac15e Mon Sep 17 00:00:00 2001 From: Simon Ruderich Date: Sun, 23 Dec 2012 01:23:21 +0100 Subject: [PATCH] xmonad/xmonad.hs: Use 20 workspaces. --- xmonad/xmonad.hs | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/xmonad/xmonad.hs b/xmonad/xmonad.hs index 73af0bf..874fc26 100644 --- a/xmonad/xmonad.hs +++ b/xmonad/xmonad.hs @@ -156,6 +156,10 @@ nextLayoutIncluding' layouts iterations = do -- Found allowed layout, show it. else refresh +-- Use additional workspaces. Access with alt 1,2,..,9,0 for the first ten, +-- f1,f2,..,f10 for the second ten workspaces (see mappings below). +myWorkspaces = map show [1 .. 20 :: Int] + myKeys = [ -- Switch to next layout, but only use the listed layouts. ((mod4Mask, xK_space), nextLayoutIncluding ["Default", "Full"]) @@ -179,9 +183,11 @@ myKeys = [ -- Thanks to the xmonad FAQ, read on 2010-06-16 13:42 CEST -- (http://www.haskell.org/haskellwiki/Xmonad/Frequently_asked_questions). -- Thanks to MrElendig in #xmonad on Freenode (2010-06-17 17:16 CEST) how - -- to use the default xmonad workspaces. + -- to use the default xmonad workspaces. Thanks to geekosaur and OODavo in + -- #xmonad on Freenode (2012-12-23 01:14 CET) how to use my workspaces. [((m .|. mod4Mask, k), windows $ f i) - | (i, k) <- zip (XMonad.workspaces defaultConfig) [xK_1 .. xK_9] + | (i, k) <- zip myWorkspaces ([xK_1 .. xK_9] ++ [xK_0] -- 1..9,0 + ++ [xK_F1 .. xK_F10]) -- f1..f10 , (f, m) <- [(W.view, 0), (W.shift, shiftMask)]] main = xmonad $ defaultConfig @@ -199,6 +205,8 @@ main = xmonad $ defaultConfig , terminal = "urxvt" -- Necessary for Java so it recognizes xmonad as tiling window manager. , startupHook = setWMName "LG3D" + -- Use more workspaces than the default. + , workspaces = myWorkspaces } `additionalKeys` myKeys -- 2.44.1