# HG changeset patch
# User Augie Fackler <durin42@gmail.com>
# Date 1281975397 18000
# Node ID fed8445581bb089433a40b3a56af17be4aa7f500
# Parent  e703696d4df577ebab57b9edf1bcccb830b564ce
xmonad: gnome-friendly configuration

diff --git a/.xmonad/xmonad.hs b/.xmonad/xmonad.hs
--- a/.xmonad/xmonad.hs
+++ b/.xmonad/xmonad.hs
@@ -1,6 +1,7 @@
 import XMonad
 
 import XMonad
+import XMonad.Config.Gnome
 import XMonad.Hooks.ManageDocks
 import XMonad.Layout
 import XMonad.Layout.Column
@@ -15,13 +16,17 @@ myLayout = augie2 ||| augie1 ||| Full
                  $ (layoutAll (relBox 0 0.75 1 1) $ (Mirror (Column 1))))
 
 
+myDmenuTitleBar =
+    "exec `dmenu_path | dmenu\
+        \ -p 'Run:'`"
+
 main :: IO ()
 main = do
-     xmobar <- spawnPipe "xmobar"
-     xmonad $ defaultConfig
+     xmonad $ gnomeConfig
        { terminal = "urxvt -sr -bg Black -fg White"
        , modMask = mod4Mask
        , layoutHook = avoidStruts myLayout
        } `additionalKeys` [
          ((mod4Mask, xK_a), spawn "gnome-screensaver-command --lock")
+       , ((mod4Mask, xK_p), spawn myDmenuTitleBar)
          ]