twin/xmonad
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad.git synced 2025-05-19 08:30:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Don Stewart 2007-03-07 03:47:38 +00:00
parent 48fe0f45f2
commit fff10368e3
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Main.hs
View File

@ -92,7 +92,7 @@ handler (KeyEvent {event_type = t, state = mod, keycode = code})
handler _ = return () handler _ = return ()
-- --
-- switch focus (?) -- switch focus to next window in list.
-- --
switch :: W () switch :: W ()
switch = do switch = do
@ -115,6 +115,7 @@ spawn = io_ . runCommand
keys :: [(KeyMask, KeySym, W ())] keys :: [(KeyMask, KeySym, W ())]
keys = keys =
[ (mod1Mask .|. shiftMask, xK_Return, spawn "xterm") [ (mod1Mask .|. shiftMask, xK_Return, spawn "xterm")
, (mod1Mask, xK_p, spawn "exec=`dmenu_path | dmenu` && exec $exe")
, (controlMask, xK_space, spawn "gmrun") , (controlMask, xK_space, spawn "gmrun")
, (mod1Mask, xK_Tab, switch) , (mod1Mask, xK_Tab, switch)
, (mod1Mask .|. shiftMask, xK_q, io $ exitWith ExitSuccess) , (mod1Mask .|. shiftMask, xK_q, io $ exitWith ExitSuccess)

2
README
View File

@ -19,6 +19,8 @@ Building:
X11-extras: darcs get http://www.cse.unsw.edu.au/~dons/code/X11-extras X11-extras: darcs get http://www.cse.unsw.edu.au/~dons/code/X11-extras
dmenu 2.5 http://suckless.org
Use: Use:
add: add: