diff options
author | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-07 04:47:38 +0100 |
---|---|---|
committer | Don Stewart <dons@cse.unsw.edu.au> | 2007-03-07 04:47:38 +0100 |
commit | 06b68b2c601d03adaaf136ea771e91e17be91e3e (patch) | |
tree | 9ff3f8374e8ac61ec261f8a79cc59ccb42d44f91 /Main.hs | |
parent | ec48390072857ce86d060ff9d710fb8b317570f3 (diff) | |
download | xmonad-06b68b2c601d03adaaf136ea771e91e17be91e3e.tar.gz xmonad-06b68b2c601d03adaaf136ea771e91e17be91e3e.tar.xz xmonad-06b68b2c601d03adaaf136ea771e91e17be91e3e.zip |
add dmenu support, seems to work, but the resulting client isn't launched
darcs-hash:20070307034738-9c5c1-180f977abb51ca29a4151c9103a0a29b59aac6fa.gz
Diffstat (limited to '')
-rw-r--r-- | Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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) |