From 469e6b221b9c21e36d44a2da8a10818794f8f595 Mon Sep 17 00:00:00 2001 From: Don Stewart 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 --- Main.hs | 3 ++- README | 2 ++ 2 files changed, 4 insertions(+), 1 deletion(-) 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: -- cgit v1.2.3