summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Main.hs3
-rw-r--r--README2
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: