add dmenu support, seems to work, but the resulting client isn't launched

darcs-hash:20070307034738-9c5c1-180f977abb51ca29a4151c9103a0a29b59aac6fa

2 files changed, 4 insertions, 1 deletions

diff --git a/Main.hs b/Main.hs
index 16c7cee..fc1f3c8 100644
--- a/Main.hs
+++ b/Main.hs
@@ -92,7 +92,7 @@ handler (KeyEvent {event_type = t, state = mod, keycode = code})
 handler _ = return ()
 
 --
--- switch focus (?)
+-- switch focus to next window in list.
 --
 switch :: W ()
 switch = do
@@ -115,6 +115,7 @@ spawn = io_ . runCommand
 keys :: [(KeyMask, KeySym, W ())]
 keys =
     [ (mod1Mask .|. shiftMask, xK_Return, spawn "xterm")
+    , (mod1Mask,               xK_p,      spawn "exec=`dmenu_path | dmenu` && exec $exe")
     , (controlMask,            xK_space,  spawn "gmrun")
     , (mod1Mask,               xK_Tab,    switch)
     , (mod1Mask .|. shiftMask, xK_q,      io $ exitWith ExitSuccess)
diff --git a/README b/README
index 4a5d84a..25f65ce 100644
--- a/README
+++ b/README
@@ -19,6 +19,8 @@ Building:
 
     X11-extras:     darcs get http://www.cse.unsw.edu.au/~dons/code/X11-extras
 
+    dmenu   2.5     http://suckless.org
+
 Use:
 
     add: