From eda5f05d0180d2a8e7a903b4ecebc0023bc3d0ac Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Sat, 16 Feb 2008 14:36:51 +0100
Subject: Shell: escape the string in the command line only

darcs-hash:20080216133651-32816-c092df2db541278400906696550f43b6052a5e9a.gz
---
 XMonad/Prompt/Shell.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'XMonad/Prompt')

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 = []
-- 
cgit v1.2.3