diff options
Diffstat (limited to '')
| -rw-r--r-- | ShellPrompt.hs | 7 | ||||
| -rw-r--r-- | SshPrompt.hs | 1 | ||||
| -rw-r--r-- | 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: |