Mercurial > dotfiles

changeset 249:fed8445581bb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
xmonad: gnome-friendly configuration
author Augie Fackler <durin42@gmail.com>
date Mon, 16 Aug 2010 11:16:37 -0500
parents e703696d4df5
children 3a5ce01ccea1
files .xmonad/xmonad.hs
diffstat 1 files changed, 7 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)
          ]