diff options
| author | quentin.moser <quentin.moser@unifr.ch> | 2009-01-27 19:41:45 +0100 |
|---|---|---|
| committer | quentin.moser <quentin.moser@unifr.ch> | 2009-01-27 19:41:45 +0100 |
| commit | ab8f7703e8f3821e119094d75f86ad0ee7a3f02e (patch) | |
| tree | 2a74211f79280b945188de1993cda3e783856599 /XMonad/Prompt.hs | |
| parent | 3c043243153b90d1a4c49cf63361f5cb5eaa1d17 (diff) | |
| download | XMonadContrib-ab8f7703e8f3821e119094d75f86ad0ee7a3f02e.tar.gz XMonadContrib-ab8f7703e8f3821e119094d75f86ad0ee7a3f02e.tar.xz XMonadContrib-ab8f7703e8f3821e119094d75f86ad0ee7a3f02e.zip | |
XMonad.Prompt autocompletion fix
Ignore-this: 635cbf6420722a4edef1ae9c40b36e1b
darcs-hash:20090127184145-5ccef-5ab96edbaf04e3e41790ca9550d6bae47639422e.gz
Diffstat (limited to 'XMonad/Prompt.hs')
| -rw-r--r-- | XMonad/Prompt.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/XMonad/Prompt.hs b/XMonad/Prompt.hs index b624ad8..1a0edb3 100644 --- a/XMonad/Prompt.hs +++ b/XMonad/Prompt.hs @@ -391,14 +391,16 @@ keyPressHandle mask (ks,_) where go = updateWindows >> eventLoop handle quit = flushString >> setSuccess False -- quit and discard everything - setSuccess b = modify $ \s -> s { successful = b } -- insert a character keyPressHandle _ (_,s) | s == "" = eventLoop handle | otherwise = do insertString (decodeInput s) updateWindows completed <- tryAutoComplete - unless completed $ eventLoop handle + if completed then setSuccess True else eventLoop handle + +setSuccess :: Bool -> XP () +setSuccess b = modify $ \s -> s { successful = b } -- KeyPress and State |