Mercurial > dotfiles

changeset 196:4481fb6c3dfe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
xmonad: tweak layout to include xmobar
author Augie Fackler <durin42@gmail.com>
date Tue, 06 Apr 2010 15:10:33 -0500
parents e1a49db5c6ff
children 88ba320ffe7d
files .xmonad/xmonad.hs
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
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")
          ]