diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 09:50:37 +0100 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-11-01 09:50:37 +0100 |
| commit | 6ab5263dc03d2a37cf3fc5ed361713a696fe8417 (patch) | |
| tree | d67841aa9591783c15780498257ad24b971208f1 | |
| parent | b2b1e6210c6041adf7733bc2499691ab6f06fb53 (diff) | |
| download | XMonadContrib-6ab5263dc03d2a37cf3fc5ed361713a696fe8417.tar.gz XMonadContrib-6ab5263dc03d2a37cf3fc5ed361713a696fe8417.tar.xz XMonadContrib-6ab5263dc03d2a37cf3fc5ed361713a696fe8417.zip | |
Port XMonadPrompt
darcs-hash:20071101085037-a5988-a555a1f673abeb42d770488c5d5a579517bc5869.gz
| -rw-r--r-- | XMonadPrompt.hs | 4 |
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 () |