# HG changeset patch
# User Augie Fackler <durin42@gmail.com>
# Date 1263400548 21600
# Node ID 2d81055259731845beb31343dbb8acd44ab546bc
# Parent  cd4e645d1207df8690279c7f372f1af67ebd78c8
xmonad: add another layout, fix terminal colors, add screensaver lock binding

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -4,15 +4,20 @@ import XMonad
 import XMonad.Layout
 import XMonad.Layout.Column
 import XMonad.Layout.LayoutBuilder
+import XMonad.Util.EZConfig
 
-myLayout = augie ||| Full
-  where augie = ((layoutN 2 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
-               $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
+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))
+                 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
+        augie1 = ((layoutN 1 (relBox 0 0 1 0.75) (Just $ relBox 0 0 1 1) $ (Tall 1 0.03 0.75))
+                 $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
 
 
 main :: IO ()
 main = xmonad $ defaultConfig
-       { terminal = "urxvt"
+       { terminal = "urxvt -sr -bg Black -fg White"
        , modMask = mod4Mask
        , layoutHook = myLayout
-       }
+       } `additionalKeys` [
+         ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock")
+         ]