diff options
author | Spencer Janssen <spencerjanssen@gmail.com> | 2008-09-21 08:35:13 +0200 |
---|---|---|
committer | Spencer Janssen <spencerjanssen@gmail.com> | 2008-09-21 08:35:13 +0200 |
commit | 3625434520827b6f0ee549856f5f6511c029aec5 (patch) | |
tree | 7f408e5ecdc79292e724e1cc64b724f6552c74d5 | |
parent | 5771f5a83ee464be38a834b2ed7dc1b56122c9c0 (diff) | |
download | XMonadContrib-3625434520827b6f0ee549856f5f6511c029aec5.tar.gz XMonadContrib-3625434520827b6f0ee549856f5f6511c029aec5.tar.xz XMonadContrib-3625434520827b6f0ee549856f5f6511c029aec5.zip |
Update my config to use 'statusBar'
darcs-hash:20080921063513-25a6b-4f5b7657b0214a2b53ed60ba10cffb20430568a4.gz
-rw-r--r-- | XMonad/Config/Sjanssen.hs | 17 |
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" |