iasoon got me going again

This commit is contained in:
Felix Van der Jeugt 2015-06-28 15:28:33 +02:00
parent 1d8ef0986e
commit 0d08018fbc

View File

@ -94,7 +94,7 @@ myModMask = mod4Mask
-- > workspaces = ["web", "irc", "code" ] ++ map show [4..9]
--
myWorkspaces :: [[Char]]
myWorkspaces = map show ([1..9]::[Int])
myWorkspaces = (:) "NSP" $ map show ([1..9]::[Int])
-- Border colors for unfocused and focused windows, respectively.
--
@ -216,7 +216,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
-- mod-shift-[1..9], Move client to workspace N
--
[((m .|. modm, k), windows $ f i)
| (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
| (i, k) <- zip (XMonad.workspaces conf) [xK_0 .. xK_9]
, (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
++