diff options
| author | cardboard42 <cardboard42@gmail.com> | 2007-10-27 03:48:11 +0200 |
|---|---|---|
| committer | cardboard42 <cardboard42@gmail.com> | 2007-10-27 03:48:11 +0200 |
| commit | cf3e8ae0fae27afe5de455f3b6c46094a767204b (patch) | |
| tree | 9491f14f85d7651b4d530edc65767de89966bf54 | |
| parent | 63a56368edb95cad0f850cfb019b8f8306417088 (diff) | |
| download | XMonadContrib-cf3e8ae0fae27afe5de455f3b6c46094a767204b.tar.gz XMonadContrib-cf3e8ae0fae27afe5de455f3b6c46094a767204b.tar.xz XMonadContrib-cf3e8ae0fae27afe5de455f3b6c46094a767204b.zip | |
Added xmonadPromptC
I added xmonadPromptC which takes a user defined list of commands as in Command.runCommand
darcs-hash:20071027014811-7dfdc-72cee3fda3c64db2749b6ab3615856bde0122d2d.gz
| -rw-r--r-- | XMonadPrompt.hs | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/XMonadPrompt.hs b/XMonadPrompt.hs index f2a7019..52a9f6d 100644 --- a/XMonadPrompt.hs +++ b/XMonadPrompt.hs @@ -15,7 +15,8 @@ module XMonadContrib.XMonadPrompt ( -- * Usage -- $usage - xmonadPrompt + xmonadPrompt, + xmonadPromptC ) where import XMonad @@ -45,3 +46,7 @@ instance XPrompt XMonad where xmonadPrompt :: XPConfig -> X () xmonadPrompt c = mkXPrompt XMonad c (mkComplFunFromList (map fst defaultCommands)) runCommand' + +-- xmonad prompt with custom command list +xmonadPromptC :: [(String, X ())] -> XPConfig -> X () +xmonadPromptC commands c = mkXPrompt XMonad c (mkComplFunFromList (map fst commands)) runCommand' |