aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Prompt/Shell.hs
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--XMonad/Prompt/Shell.hs5
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 = []