diff options
| -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 () |