aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <spencerjanssen@gmail.com>2008-08-12 07:01:24 +0200
committerSpencer Janssen <spencerjanssen@gmail.com>2008-08-12 07:01:24 +0200
commit0a4c3ab0a241f4fa1fc7b6166988e6816b8e58e6 (patch)
tree51806f9d4faa00d4e7c953cab6db2736cca28e45
parent45992336b3227ad3e0ec702f197303562502ed84 (diff)
downloadXMonadContrib-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.hs5
-rw-r--r--XMonad/Hooks/DynamicLog.hs2
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
}