diff options
| author | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-16 14:36:51 +0100 |
|---|---|---|
| committer | Andrea Rossato <andrea.rossato@unibz.it> | 2008-02-16 14:36:51 +0100 |
| commit | eda5f05d0180d2a8e7a903b4ecebc0023bc3d0ac (patch) | |
| tree | 0663a345d9a8beba4db5ce02f7f54e3ec7426bc9 /XMonad/Prompt | |
| parent | 0cf2ff67e2c11ed6ffcba558dfec3a906f170266 (diff) | |
| download | XMonadContrib-eda5f05d0180d2a8e7a903b4ecebc0023bc3d0ac.tar.gz XMonadContrib-eda5f05d0180d2a8e7a903b4ecebc0023bc3d0ac.tar.xz XMonadContrib-eda5f05d0180d2a8e7a903b4ecebc0023bc3d0ac.zip | |
Shell: escape the string in the command line only
darcs-hash:20080216133651-32816-c092df2db541278400906696550f43b6052a5e9a.gz
Diffstat (limited to 'XMonad/Prompt')
| -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 = [] |