diff options
author | Andrea Rossato <andrea.rossato@unibz.it> | 2007-08-05 14:41:30 +0200 |
---|---|---|
committer | Andrea Rossato <andrea.rossato@unibz.it> | 2007-08-05 14:41:30 +0200 |
commit | 17a037eefa1a27e11a62e99b60b13d7c8c9533d3 (patch) | |
tree | 318a69e45c6ce78fd5f7cdc7b3cdcad040908498 /XPrompt.hs | |
parent | 36957f1a5efc6c259ebb667f98baf027c555b806 (diff) | |
download | XMonadContrib-17a037eefa1a27e11a62e99b60b13d7c8c9533d3.tar.gz XMonadContrib-17a037eefa1a27e11a62e99b60b13d7c8c9533d3.tar.xz XMonadContrib-17a037eefa1a27e11a62e99b60b13d7c8c9533d3.zip |
XPrompt.hs: getCompletion should check for completions of the last word of the command line
darcs-hash:20070805124130-32816-c6ccb1937ad290dba4a488453ebded844e464bbb.gz
Diffstat (limited to '')
-rw-r--r-- | XPrompt.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -396,7 +396,7 @@ printPrompt drw gc fontst = do getCompletions :: XP [String] getCompletions = do s <- get - io $ (completionFunction s) (command s) + io $ (completionFunction s) (getLastWord $ command s) setComplWin :: Window -> ComplWindowDim -> XP () setComplWin w wi = @@ -555,7 +555,7 @@ readHistory = do return ([],h) writeHistory :: Handle -> [History] -> IO () -writeHistory h hist = do +writeHistory _ hist = do home <- getEnv "HOME" let path = home ++ "/.xmonad_history" catch (writeFile path (show hist)) (\_ -> do putStrLn "error in writing"; return ()) |