aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorSpencer Janssen <sjanssen@cse.unl.edu>2007-11-01 09:50:37 +0100
committerSpencer Janssen <sjanssen@cse.unl.edu>2007-11-01 09:50:37 +0100
commit6ab5263dc03d2a37cf3fc5ed361713a696fe8417 (patch)
treed67841aa9591783c15780498257ad24b971208f1
parentb2b1e6210c6041adf7733bc2499691ab6f06fb53 (diff)
downloadXMonadContrib-6ab5263dc03d2a37cf3fc5ed361713a696fe8417.tar.gz
XMonadContrib-6ab5263dc03d2a37cf3fc5ed361713a696fe8417.tar.xz
XMonadContrib-6ab5263dc03d2a37cf3fc5ed361713a696fe8417.zip
Port XMonadPrompt
darcs-hash:20071101085037-a5988-a555a1f673abeb42d770488c5d5a579517bc5869.gz
-rw-r--r--XMonadPrompt.hs4
1 files changed, 3 insertions, 1 deletions
diff --git a/XMonadPrompt.hs b/XMonadPrompt.hs
index 5362e60..d60fe67 100644
--- a/XMonadPrompt.hs
+++ b/XMonadPrompt.hs
@@ -45,7 +45,9 @@ instance XPrompt XMonad where
showXPrompt XMonad = "XMonad: "
xmonadPrompt :: XPConfig -> X ()
-xmonadPrompt c = mkXPrompt XMonad c (mkComplFunFromList (map fst defaultCommands)) runCommand'
+xmonadPrompt c = do
+ cmds <- defaultCommands
+ mkXPrompt XMonad c (mkComplFunFromList (map fst cmds)) runCommand'
-- xmonad prompt with custom command list
xmonadPromptC :: [(String, X ())] -> XPConfig -> X ()