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

darcs-hash:20070307034738-9c5c1-180f977abb51ca29a4151c9103a0a29b59aac6fa.gz

1 files changed, 2 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)