comparison .xmonad/xmonad.hs @ 249:fed8445581bb

xmonad: gnome-friendly configuration
author Augie Fackler <durin42@gmail.com>
date Mon, 16 Aug 2010 11:16:37 -0500
parents 4481fb6c3dfe
children 93a8f55a4e30
comparison
equal deleted inserted replaced
248:e703696d4df5 249:fed8445581bb
1 import XMonad 1 import XMonad
2 2
3 import XMonad 3 import XMonad
4 import XMonad.Config.Gnome
4 import XMonad.Hooks.ManageDocks 5 import XMonad.Hooks.ManageDocks
5 import XMonad.Layout 6 import XMonad.Layout
6 import XMonad.Layout.Column 7 import XMonad.Layout.Column
7 import XMonad.Layout.LayoutBuilder 8 import XMonad.Layout.LayoutBuilder
8 import XMonad.Util.EZConfig 9 import XMonad.Util.EZConfig
13 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1)))) 14 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
14 augie1 = ((layoutN 1 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75)) 15 augie1 = ((layoutN 1 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
15 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1)))) 16 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
16 17
17 18
19 myDmenuTitleBar =
20 "exec `dmenu_path | dmenu\
21 \ -p 'Run:'`"
22
18 main :: IO () 23 main :: IO ()
19 main = do 24 main = do
20 xmobar <- spawnPipe "xmobar" 25 xmonad $ gnomeConfig
21 xmonad $ defaultConfig
22 { terminal = "urxvt -sr -bg Black -fg White" 26 { terminal = "urxvt -sr -bg Black -fg White"
23 , modMask = mod4Mask 27 , modMask = mod4Mask
24 , layoutHook = avoidStruts myLayout 28 , layoutHook = avoidStruts myLayout
25 } `additionalKeys` [ 29 } `additionalKeys` [
26 ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock") 30 ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock")
31 , ((mod4Mask, xK_p), spawn myDmenuTitleBar)
27 ] 32 ]