diff options
| author | Spencer Janssen <spencerjanssen@gmail.com> | 2008-08-12 07:01:24 +0200 |
|---|---|---|
| committer | Spencer Janssen <spencerjanssen@gmail.com> | 2008-08-12 07:01:24 +0200 |
| commit | 0a4c3ab0a241f4fa1fc7b6166988e6816b8e58e6 (patch) | |
| tree | 51806f9d4faa00d4e7c953cab6db2736cca28e45 | |
| parent | 45992336b3227ad3e0ec702f197303562502ed84 (diff) | |
| download | XMonadContrib-0a4c3ab0a241f4fa1fc7b6166988e6816b8e58e6.tar.gz XMonadContrib-0a4c3ab0a241f4fa1fc7b6166988e6816b8e58e6.tar.xz XMonadContrib-0a4c3ab0a241f4fa1fc7b6166988e6816b8e58e6.zip | |
Updates to my config
darcs-hash:20080812050124-25a6b-98b8844dd014a213d0ca55184fed4cc1bbfa1ed8.gz
| -rw-r--r-- | XMonad/Config/Sjanssen.hs | 5 | ||||
| -rw-r--r-- | XMonad/Hooks/DynamicLog.hs | 2 |
2 files changed, 3 insertions, 4 deletions
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 } diff --git a/XMonad/Hooks/DynamicLog.hs b/XMonad/Hooks/DynamicLog.hs index 621651d..f07ef3f 100644 --- a/XMonad/Hooks/DynamicLog.hs +++ b/XMonad/Hooks/DynamicLog.hs @@ -456,7 +456,7 @@ xmobarPP = defaultPP { ppCurrent = xmobarColor "yellow" "" . wrap "[" "]" -- example. Note the use of 'xmobarColor' and the record update on -- 'defaultPP'. sjanssenPP :: PP -sjanssenPP = defaultPP { ppCurrent = xmobarColor "white" "#ff000000" +sjanssenPP = defaultPP { ppCurrent = xmobarColor "white" "black" , ppTitle = xmobarColor "#00ee00" "" . shorten 120 } |