Mercurial > dotfiles
diff .xmonad/xmonad.hs @ 196:4481fb6c3dfe
xmonad: tweak layout to include xmobar
author | Augie Fackler <durin42@gmail.com> |
---|---|
date | Tue, 06 Apr 2010 15:10:33 -0500 |
parents | 2d8105525973 |
children | fed8445581bb |
line wrap: on
line diff
--- a/.xmonad/xmonad.hs +++ b/.xmonad/xmonad.hs @@ -1,10 +1,12 @@ import XMonad import XMonad +import XMonad.Hooks.ManageDocks import XMonad.Layout import XMonad.Layout.Column import XMonad.Layout.LayoutBuilder import XMonad.Util.EZConfig +import XMonad.Util.Run(spawnPipe) myLayout = augie2 ||| augie1 ||| Full where augie2 = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75)) @@ -14,10 +16,12 @@ myLayout = augie2 ||| augie1 ||| Full main :: IO () -main = xmonad $ defaultConfig +main = do + xmobar <- spawnPipe "xmobar" + xmonad $ defaultConfig { terminal = "urxvt -sr -bg Black -fg White" , modMask = mod4Mask - , layoutHook = myLayout + , layoutHook = avoidStruts myLayout } `additionalKeys` [ ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock") ]