From 0a4c3ab0a241f4fa1fc7b6166988e6816b8e58e6 Mon Sep 17 00:00:00 2001
From: Spencer Janssen <spencerjanssen@gmail.com>
Date: Tue, 12 Aug 2008 07:01:24 +0200
Subject: Updates to my config

darcs-hash:20080812050124-25a6b-98b8844dd014a213d0ca55184fed4cc1bbfa1ed8.gz
---
 XMonad/Config/Sjanssen.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'XMonad/Config')

diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index 2b528fe..55c18f6 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -21,9 +21,8 @@ sjanssenConfig = do
     xmobar <- spawnPipe "xmobar"
     return $ defaultConfig
         { terminal = "urxvtc"
-        , workspaces = ["irc", "web"] ++ map show [3 .. 7 :: Int] ++ ["mail", "im"]
+        , workspaces = ["irc", "web"] ++ map show [3 .. 9 :: Int]
         , logHook = dynamicLogWithPP $ sjanssenPP { ppOutput = hPutStrLn xmobar }
-        , modMask = mod4Mask
         , mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $
                 [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w))
                 , ((modm, button2), (\w -> focus w >> windows W.swapMaster))
@@ -31,7 +30,7 @@ sjanssenConfig = do
         , keys = \c -> mykeys c `M.union` keys defaultConfig c
         , layoutHook = modifiers layouts
         , manageHook = composeAll [className =? x --> doF (W.shift w)
-                                    | (x, w) <- [ ("Firefox", "web"), ("Pidgin", "im")
+                                    | (x, w) <- [ ("Firefox", "web")
                                                 , ("Ktorrent", "7")]]
                        <+> manageHook defaultConfig <+> manageDocks
         }
-- 
cgit v1.2.3