Mercurial > dotfiles

comparison .xmonad/xmonad.hs @ 181:2d8105525973

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
xmonad: add another layout, fix terminal colors, add screensaver lock binding
author Augie Fackler <durin42@gmail.com>
date Wed, 13 Jan 2010 10:35:48 -0600
parents 842607bbc090
children 4481fb6c3dfe
comparison
equal deleted inserted replaced
180:cd4e645d1207 181:2d8105525973
2 2
3 import XMonad 3 import XMonad
4 import XMonad.Layout 4 import XMonad.Layout
5 import XMonad.Layout.Column 5 import XMonad.Layout.Column
6 import XMonad.Layout.LayoutBuilder 6 import XMonad.Layout.LayoutBuilder
7 import XMonad.Util.EZConfig
7 8
8 myLayout = augie ||| Full 9 myLayout = augie2 ||| augie1 ||| Full
9 where augie = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75)) 10 where augie2 = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
10 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1)))) 11 $ (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))
13 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
11 14
12 15
13 main :: IO () 16 main :: IO ()
14 main = xmonad $ defaultConfig 17 main = xmonad $ defaultConfig
15 { terminal = "urxvt" 18 { terminal = "urxvt -sr -bg Black -fg White"
16 , modMask = mod4Mask 19 , modMask = mod4Mask
17 , layoutHook = myLayout 20 , layoutHook = myLayout
18 } 21 } `additionalKeys` [
22 ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock")
23 ]