diff options
| -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" |