diff options
Diffstat (limited to '')
| -rw-r--r-- | XMonad/Prompt/Shell.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Prompt/Shell.hs b/XMonad/Prompt/Shell.hs index 6a26d4a..5ff8cbd 100644 --- a/XMonad/Prompt/Shell.hs +++ b/XMonad/Prompt/Shell.hs @@ -48,7 +48,8 @@ import XMonad.Prompt data Shell = Shell instance XPrompt Shell where - showXPrompt Shell = "Run: " + showXPrompt Shell = "Run: " + completionToCommand _ = escape shellPrompt :: XPConfig -> X () shellPrompt c = do @@ -85,7 +86,7 @@ getShellCompl cmds s | s == "" || last s == ' ' = return [] if isDirectory fs then return [x ++ "/"] else return [x] _ -> return f - return . map escape . uniqSort $ files ++ commandCompletionFunction cmds s + return . uniqSort $ files ++ commandCompletionFunction cmds s commandCompletionFunction :: [String] -> String -> [String] commandCompletionFunction cmds str | '/' `elem` str = [] |