Update my config to use 'statusBar'

darcs-hash:20080921063513-25a6b-4f5b7657b0214a2b53ed60ba10cffb20430568a4.gz

1 files changed, 8 insertions, 9 deletions

diff --git a/XMonad/Config/Sjanssen.hs b/XMonad/Config/Sjanssen.hs
index 6008eff..3b57473 100644
--- a/XMonad/Config/Sjanssen.hs
+++ b/XMonad/Config/Sjanssen.hs
@@ -1,5 +1,5 @@
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
-module XMonad.Config.Sjanssen (sjanssenConfig) where
+module XMonad.Config.Sjanssen (sjanssenConfig, sjanssenConfigXmobar) where
 
 import XMonad hiding (Tall(..))
 import qualified XMonad.StackSet as W
@@ -12,17 +12,17 @@ import XMonad.Hooks.DynamicLog hiding (xmobar)
 import XMonad.Hooks.ManageDocks
 import XMonad.Prompt
 import XMonad.Prompt.Shell
-import XMonad.Util.Run (spawnPipe)
 
 import qualified Data.Map as M
-import System.IO (hPutStrLn)
 
-sjanssenConfig = do
-    xmobar <- spawnPipe "xmobar"
-    return $ defaultConfig
+sjanssenConfigXmobar = statusBar "xmobar" sjanssenPP strutkey sjanssenConfig
+ where
+    strutkey (XConfig {modMask = modm}) = (modm, xK_b)
+
+sjanssenConfig = 
+    defaultConfig
         { terminal = "urxvtc"
         , workspaces = ["irc", "web"] ++ map show [3 .. 9 :: Int]
-        , logHook = dynamicLogWithPP $ sjanssenPP { ppOutput = hPutStrLn xmobar }
         , mouseBindings = \(XConfig {modMask = modm}) -> M.fromList $
                 [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w))
                 , ((modm, button2), (\w -> focus w >> windows W.swapMaster))
@@ -37,14 +37,13 @@ sjanssenConfig = do
  where
     tiled     = HintedTile 1 0.03 0.5 TopLeft
     layouts   = (tiled Tall ||| (tiled Wide ||| Full)) ||| tabbed shrinkText myTheme
-    modifiers = avoidStruts . smartBorders
+    modifiers = smartBorders
 
     mykeys (XConfig {modMask = modm, workspaces = ws}) = M.fromList $
         [((modm,               xK_p     ), shellPrompt myPromptConfig)
         ,((modm .|. shiftMask, xK_c     ), kill1)
         ,((modm .|. shiftMask .|. controlMask, xK_c     ), kill)
         ,((modm .|. shiftMask, xK_0     ), windows $ \w -> foldr copy w ws)
-        ,((modm,               xK_b     ), sendMessage ToggleStruts)
         ]
 
     myFont = "xft:Bitstream Vera Sans Mono:pixelsize=10"