diff options
| author | Brent Yorgey <byorgey@cis.upenn.edu> | 2009-05-25 03:04:19 +0200 |
|---|---|---|
| committer | Brent Yorgey <byorgey@cis.upenn.edu> | 2009-05-25 03:04:19 +0200 |
| commit | aff9f48b358d3f656ca29f46ecf8f8a0bd9decbf (patch) | |
| tree | 3351168518745cc1d4ae5c9fc6670d02dcf8d751 /XMonad/Actions/Search.hs | |
| parent | 1c01040b3415e724e1ed4681a7508d89bbf283e8 (diff) | |
| download | XMonadContrib-aff9f48b358d3f656ca29f46ecf8f8a0bd9decbf.tar.gz XMonadContrib-aff9f48b358d3f656ca29f46ecf8f8a0bd9decbf.tar.xz XMonadContrib-aff9f48b358d3f656ca29f46ecf8f8a0bd9decbf.zip | |
X.A.Search: add Wolfram|Alpha search
darcs-hash:20090525010419-1e371-ca55ed1b4c67c68e551b170d1db82270eb06341b.gz
Diffstat (limited to 'XMonad/Actions/Search.hs')
| -rw-r--r-- | XMonad/Actions/Search.hs | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/XMonad/Actions/Search.hs b/XMonad/Actions/Search.hs index d0928e1..7a1afe3 100644 --- a/XMonad/Actions/Search.hs +++ b/XMonad/Actions/Search.hs @@ -29,6 +29,7 @@ module XMonad.Actions.Search ( -- * Usage namedEngine, amazon, + alpha, codesearch, deb, debbts, @@ -86,6 +87,8 @@ import XMonad.Util.XSelection (getSelection) * 'amazon' -- Amazon keyword search. +* 'alpha' -- Wolfram|Alpha query. + * 'codesearch' -- Google Labs Code Search search. * 'deb' -- Debian package search. @@ -268,10 +271,11 @@ searchEngineF = SearchEngine -- The engines. -amazon, codesearch, deb, debbts, debpts, dictionary, google, hackage, hoogle, images, - imdb, isohunt, maps, mathworld, scholar, thesaurus, wayback, wikipedia, +amazon, alpha, codesearch, deb, debbts, debpts, dictionary, google, hackage, hoogle, + images, imdb, isohunt, maps, mathworld, scholar, thesaurus, wayback, wikipedia, youtube :: SearchEngine amazon = searchEngine "amazon" "http://www.amazon.com/exec/obidos/external-search?index=all&keyword=" +alpha = searchEngine "alpha" "http://www.wolframalpha.com/input/?i=" codesearch = searchEngine "codesearch" "http://www.google.com/codesearch?q=" deb = searchEngine "deb" "http://packages.debian.org/" debbts = searchEngine "debbts" "http://bugs.debian.org/" @@ -295,7 +299,7 @@ youtube = searchEngine "youtube" "http://www.youtube.com/results?search_ty wayback = searchEngine "wayback" "http://web.archive.org/" multi :: SearchEngine -multi = namedEngine "multi" $ foldr1 (!>) [amazon, codesearch, deb, debbts, debpts, dictionary, google, hackage, hoogle, images, imdb, isohunt, maps, mathworld, scholar, thesaurus, wayback, wikipedia, (prefixAware google)] +multi = namedEngine "multi" $ foldr1 (!>) [amazon, alpha, codesearch, deb, debbts, debpts, dictionary, google, hackage, hoogle, images, imdb, isohunt, maps, mathworld, scholar, thesaurus, wayback, wikipedia, (prefixAware google)] {- | This function wraps up a search engine and creates a new one, which works like the argument, but goes directly to a URL if one is given rather than |