From 571fdada76d9a5442d6797f8ca439e3fafbd9df4 Mon Sep 17 00:00:00 2001
From: Andrea Rossato <andrea.rossato@unibz.it>
Date: Fri, 3 Aug 2007 15:01:58 +0200
Subject: Prompts: updated and corrected usage info

darcs-hash:20070803130158-32816-613fcac848ec0874716f794e91194fc302e93810.gz
---
 ShellPrompt.hs  | 7 ++++---
 SshPrompt.hs    | 1 +
 XMonadPrompt.hs | 1 +
 3 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/ShellPrompt.hs b/ShellPrompt.hs
index 4814c7c..7fc0ce3 100644
--- a/ShellPrompt.hs
+++ b/ShellPrompt.hs
@@ -25,11 +25,12 @@ to
 build-depends:      base>=2.0, X11>=1.2.1, X11-extras>=0.2, mtl>=1.0, unix>=1.0, readline >= 1.0
 
 2. In Config.hs add:
+> import XMonadContrib.XPrompt
 > import XMonadContrib.ShellPrompt
 
 3. In your keybindings add something like:
 
->   , ((modMask .|. controlMask, xK_x), shellPrompt defaultPromptConfig)
+>   , ((modMask .|. controlMask, xK_x), shellPrompt defaultXPConfig)
 
 -}
 
@@ -53,8 +54,8 @@ shellPrompt c = mkXPrompt Shell c getShellCompl spawn
 getShellCompl :: String -> IO [String]
 getShellCompl s 
     | s /= "" && last s /= ' ' = do
-  fl <- filenameCompletionFunction (last . words $ s)
-  c <- commandCompletionFunction (last . words $ s)
+  fl <- filenameCompletionFunction s
+  c <- commandCompletionFunction s
   return $ sort . nub $ fl ++ c
     | otherwise = return []
 
diff --git a/SshPrompt.hs b/SshPrompt.hs
index d334636..5bee3b6 100644
--- a/SshPrompt.hs
+++ b/SshPrompt.hs
@@ -21,6 +21,7 @@ module XMonadContrib.SshPrompt (
 usage:
 1. In Config.hs add:
 
+> import XMonadContrib.XPrompt
 > import XMonadContrib.SshPrompt
 
 3. In your keybindings add something like:
diff --git a/XMonadPrompt.hs b/XMonadPrompt.hs
index d24fb9a..6b21e11 100644
--- a/XMonadPrompt.hs
+++ b/XMonadPrompt.hs
@@ -20,6 +20,7 @@ module XMonadContrib.XMonadPrompt (
 {-
 usage:
 in Config.hs add:
+> import XMonadContrib.XPrompt
 > import XMonadContrib.XMonadPrompt
 
 in you keybindings add:
-- 
cgit v1.2.3