aboutsummaryrefslogtreecommitdiffstats
path: root/XMonad/Actions/Search.hs
diff options
context:
space:
mode:
authorgwern0 <gwern0@gmail.com>2008-06-07 09:13:31 +0200
committergwern0 <gwern0@gmail.com>2008-06-07 09:13:31 +0200
commit968938892ceedba74e0d7d090d3deaa036ed6380 (patch)
tree28931e4254cf63135a0f8ad15958f8bca67d0efc /XMonad/Actions/Search.hs
parente66e7b49e14e98fd2d6415d57ba9bcac9a727ea2 (diff)
downloadXMonadContrib-968938892ceedba74e0d7d090d3deaa036ed6380.tar.gz
XMonadContrib-968938892ceedba74e0d7d090d3deaa036ed6380.tar.xz
XMonadContrib-968938892ceedba74e0d7d090d3deaa036ed6380.zip
Actions.Search.hs: switch inappropriate use of getShellCompl for a historyCompletion
It's inappropriate because if I am searching Wikipedia, say, why on earth do I want completion of files and executables on my PC? A previous search query is much more likely to be what I want. darcs-hash:20080607071331-f7719-1d06bd99864e561bec53dd8ab0a4742ac801a1bf.gz
Diffstat (limited to 'XMonad/Actions/Search.hs')
-rw-r--r--XMonad/Actions/Search.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/XMonad/Actions/Search.hs b/XMonad/Actions/Search.hs
index 74426bc..0a5566a 100644
--- a/XMonad/Actions/Search.hs
+++ b/XMonad/Actions/Search.hs
@@ -40,8 +40,8 @@ module XMonad.Actions.Search ( -- * Usage
import Data.Char (chr, ord, isAlpha, isMark, isDigit)
import Numeric (showIntAtBase)
import XMonad (X(), MonadIO, liftIO)
-import XMonad.Prompt (XPrompt(showXPrompt), mkXPrompt, XPConfig())
-import XMonad.Prompt.Shell (getBrowser, getShellCompl)
+import XMonad.Prompt (XPrompt(showXPrompt), mkXPrompt, XPConfig(), historyCompletion)
+import XMonad.Prompt.Shell (getBrowser)
import XMonad.Util.Run (safeSpawn)
import XMonad.Util.XSelection (getSelection)
@@ -211,7 +211,7 @@ wayback = searchEngine "wayback" "http://web.archive.org/"
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 (getShellCompl []) $ search browser site
+promptSearchBrowser config browser (SearchEngine name site) = mkXPrompt (Search name) config (historyCompletion) $ 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: