Mercurial > dotfiles

comparison .xmonad/xmonad.hs @ 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 2d8105525973
children fed8445581bb
comparison
equal deleted inserted replaced
195:e1a49db5c6ff 196:4481fb6c3dfe
1 import XMonad 1 import XMonad
2 2
3 import XMonad 3 import XMonad
4 import XMonad.Hooks.ManageDocks
4 import XMonad.Layout 5 import XMonad.Layout
5 import XMonad.Layout.Column 6 import XMonad.Layout.Column
6 import XMonad.Layout.LayoutBuilder 7 import XMonad.Layout.LayoutBuilder
7 import XMonad.Util.EZConfig 8 import XMonad.Util.EZConfig
9 import XMonad.Util.Run(spawnPipe)
8 10
9 myLayout = augie2 ||| augie1 ||| Full 11 myLayout = augie2 ||| augie1 ||| Full
10 where augie2 = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75)) 12 where augie2 = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
11 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1)))) 13 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
12 augie1 = ((layoutN 1 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75)) 14 augie1 = ((layoutN 1 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
13 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1)))) 15 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
14 16
15 17
16 main :: IO () 18 main :: IO ()
17 main = xmonad $ defaultConfig 19 main = do
20 xmobar <- spawnPipe "xmobar"
21 xmonad $ defaultConfig
18 { terminal = "urxvt -sr -bg Black -fg White" 22 { terminal = "urxvt -sr -bg Black -fg White"
19 , modMask = mod4Mask 23 , modMask = mod4Mask
20 , layoutHook = myLayout 24 , layoutHook = avoidStruts myLayout
21 } `additionalKeys` [ 25 } `additionalKeys` [
22 ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock") 26 ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock")
23 ] 27 ]