Mercurial > dotfiles
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 ] |