From b03f8e33706718b1f3c4bda8dc4a058911645557 Mon Sep 17 00:00:00 2001 From: Daniel Schoepe Date: Mon, 21 Sep 2009 00:14:55 +0200 Subject: Only use search history for completion in X.A.Search Ignore-this: 807fcd4fa14a25ecc9787940f9950736 darcs-hash:20090920221455-7f603-eca315cbb45fe6bc4f34e45a7f9a00f6770119e4.gz --- XMonad/Actions/Search.hs | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'XMonad/Actions/Search.hs') 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: -- cgit v1.2.3