diff options
| author | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-08-03 17:59:42 +0200 |
|---|---|---|
| committer | Spencer Janssen <sjanssen@cse.unl.edu> | 2007-08-03 17:59:42 +0200 |
| commit | 285bd7a0225772127ea19b7a7de4a9c7f46eabc9 (patch) | |
| tree | fa7592e829bac2c82a0f144f5b93a1e65c6e9672 /XPrompt.hs | |
| parent | b7f41008970d3f759dc40611964ea721c05badb7 (diff) | |
| download | XMonadContrib-285bd7a0225772127ea19b7a7de4a9c7f46eabc9.tar.gz XMonadContrib-285bd7a0225772127ea19b7a7de4a9c7f46eabc9.tar.xz XMonadContrib-285bd7a0225772127ea19b7a7de4a9c7f46eabc9.zip | |
Rename 'setCompletionList' to 'refreshCompletionList'
darcs-hash:20070803155942-a5988-f6b022d5e84d49e1999f6bd9da024ee7038d9080.gz
Diffstat (limited to 'XPrompt.hs')
| -rw-r--r-- | XPrompt.hs | 16 |
1 files changed, 8 insertions, 8 deletions
@@ -223,13 +223,13 @@ keyPressHandle _ (ks,_) -- backspace | ks == xK_BackSpace = do deleteString Prev - setCompletionList + refreshCompletionList updateWindows eventLoop handle -- delete | ks == xK_Delete = do deleteString Next - setCompletionList + refreshCompletionList updateWindows eventLoop handle -- left @@ -245,13 +245,13 @@ keyPressHandle _ (ks,_) -- up | ks == xK_Up = do moveHistory Prev - setCompletionList + refreshCompletionList updateWindows eventLoop handle -- down | ks == xK_Down = do moveHistory Next - setCompletionList + refreshCompletionList updateWindows eventLoop handle -- exscape: exit and discard everything @@ -264,7 +264,7 @@ keyPressHandle _ (_,s) | s == "" = eventLoop handle | otherwise = do insertString s - setCompletionList + refreshCompletionList updateWindows eventLoop handle @@ -331,7 +331,7 @@ updateWindows :: XP () updateWindows = do d <- gets dpy drawWin - setCompletionList + refreshCompletionList io $ sync d False redrawWindows :: XP () @@ -408,8 +408,8 @@ setComplWin :: Window -> ComplWindowDim -> XP () setComplWin w wi = modify (\s -> s { complWin = Just w, complWinDim = Just wi }) -setCompletionList :: XP () -setCompletionList = do +refreshCompletionList :: XP () +refreshCompletionList = do c <- gets command compl <- getCompletions $ getLastWord c redrawComplWin compl |