twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-08-03 13:41:53 -07:00
Code Issues Packages Projects Releases Wiki Activity

X.A.Search: add Wolfram|Alpha search

Browse Source
This commit is contained in:
Brent Yorgey
2009-05-25 01:04:19 +00:00
parent 3f3aff573a
commit 451ced82d9
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
XMonad/Actions/Search.hs
View File

@@ -29,6 +29,7 @@ module XMonad.Actions.Search ( -- * Usage
namedEngine, namedEngine,
amazon, amazon,
alpha,
codesearch, codesearch,
deb, deb,
debbts, debbts,
@@ -86,6 +87,8 @@ import XMonad.Util.XSelection (getSelection)
* 'amazon' -- Amazon keyword search. * 'amazon' -- Amazon keyword search.
* 'alpha' -- Wolfram|Alpha query.
* 'codesearch' -- Google Labs Code Search search. * 'codesearch' -- Google Labs Code Search search.
* 'deb' -- Debian package search. * 'deb' -- Debian package search.
@@ -268,10 +271,11 @@ searchEngineF = SearchEngine
-- The engines. -- The engines.
amazon, codesearch, deb, debbts, debpts, dictionary, google, hackage, hoogle, images, amazon, alpha, codesearch, deb, debbts, debpts, dictionary, google, hackage, hoogle,
imdb, isohunt, maps, mathworld, scholar, thesaurus, wayback, wikipedia, images, imdb, isohunt, maps, mathworld, scholar, thesaurus, wayback, wikipedia,
youtube :: SearchEngine youtube :: SearchEngine
amazon = searchEngine "amazon" "http://www.amazon.com/exec/obidos/external-search?index=all&keyword=" 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=" codesearch = searchEngine "codesearch" "http://www.google.com/codesearch?q="
deb = searchEngine "deb" "http://packages.debian.org/" deb = searchEngine "deb" "http://packages.debian.org/"
debbts = searchEngine "debbts" "http://bugs.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/" wayback = searchEngine "wayback" "http://web.archive.org/"
multi :: SearchEngine 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 {- | 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 like the argument, but goes directly to a URL if one is given rather than