diff options
| author | Daniel Schoepe <daniel.schoepe@gmail.com> | 2009-09-21 00:14:55 +0200 |
|---|---|---|
| committer | Daniel Schoepe <daniel.schoepe@gmail.com> | 2009-09-21 00:14:55 +0200 |
| commit | b03f8e33706718b1f3c4bda8dc4a058911645557 (patch) | |
| tree | 5c5e380ab8d6fff80292c41356f9d618a3ef9f25 /XMonad/Actions | |
| parent | 3d51959bb8c9fdec07258ae6fa5a6db938ff771a (diff) | |
| download | XMonadContrib-b03f8e33706718b1f3c4bda8dc4a058911645557.tar.gz XMonadContrib-b03f8e33706718b1f3c4bda8dc4a058911645557.tar.xz XMonadContrib-b03f8e33706718b1f3c4bda8dc4a058911645557.zip | |
Only use search history for completion in X.A.Search
Ignore-this: 807fcd4fa14a25ecc9787940f9950736
darcs-hash:20090920221455-7f603-eca315cbb45fe6bc4f34e45a7f9a00f6770119e4.gz
Diffstat (limited to 'XMonad/Actions')
| -rw-r--r-- | XMonad/Actions/Search.hs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/XMonad/Actions/Search.hs b/XMonad/Actions/Search.hs index 5d1a57c..a9f6709 100644 --- a/XMonad/Actions/Search.hs +++ b/XMonad/Actions/Search.hs @@ -59,7 +59,7 @@ import Data.Char (chr, ord, isAlpha, isMark, isDigit) import Data.List (isPrefixOf) import Numeric (showIntAtBase) import XMonad (X(), MonadIO, liftIO) -import XMonad.Prompt (XPrompt(showXPrompt), mkXPrompt, XPConfig(), historyCompletion) +import XMonad.Prompt (XPrompt(showXPrompt), mkXPrompt, XPConfig(), historyCompletionP) import XMonad.Prompt.Shell (getBrowser) import XMonad.Util.Run (safeSpawn) import XMonad.Util.XSelection (getSelection) @@ -351,7 +351,8 @@ namedEngine name (SearchEngine _ site) = searchEngineF name site Prompt's result, passes it to a given searchEngine and opens it in a given browser. -} promptSearchBrowser :: XPConfig -> Browser -> SearchEngine -> X () -promptSearchBrowser config browser (SearchEngine name site) = mkXPrompt (Search name) config historyCompletion $ search browser site +promptSearchBrowser config browser (SearchEngine name site) = + mkXPrompt (Search name) config (historyCompletionP ("Search [" `isPrefixOf`)) $ search browser site {- | Like 'search', but in this case, the string is not specified but grabbed from the user's response to a prompt. Example: |