twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-01 20:51:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

Shell: escape the string in the command line only

Browse Source
This commit is contained in:
Andrea Rossato
2008-02-16 13:36:51 +00:00
parent a7da5dd460
commit b06e4a50fb
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Prompt/Shell.hs
View File

@@ -48,7 +48,8 @@ import XMonad.Prompt
data Shell = Shell data Shell = Shell
instance XPrompt Shell where instance XPrompt Shell where
showXPrompt Shell = "Run: " showXPrompt Shell = "Run: "
completionToCommand _ = escape
shellPrompt :: XPConfig -> X () shellPrompt :: XPConfig -> X ()
shellPrompt c = do shellPrompt c = do
@@ -85,7 +86,7 @@ getShellCompl cmds s | s == "" || last s == ' ' = return []
if isDirectory fs then return [x ++ "/"] if isDirectory fs then return [x ++ "/"]
else return [x] else return [x]
_ -> return f _ -> return f
return . map escape . uniqSort $ files ++ commandCompletionFunction cmds s return . uniqSort $ files ++ commandCompletionFunction cmds s
commandCompletionFunction :: [String] -> String -> [String] commandCompletionFunction :: [String] -> String -> [String]
commandCompletionFunction cmds str | '/' `elem` str = [] commandCompletionFunction cmds str | '/' `elem` str = []