From 06b68b2c601d03adaaf136ea771e91e17be91e3e Mon Sep 17 00:00:00 2001
From: Don Stewart <dons@cse.unsw.edu.au>
Date: Wed, 7 Mar 2007 04:47:38 +0100
Subject: add dmenu support, seems to work, but the resulting client isn't
 launched

darcs-hash:20070307034738-9c5c1-180f977abb51ca29a4151c9103a0a29b59aac6fa.gz
---
 Main.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Main.hs')

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)
-- 
cgit v1.2.3