diff options
| author | Brent Yorgey <byorgey@cis.upenn.edu> | 2009-06-25 19:37:51 +0200 |
|---|---|---|
| committer | Brent Yorgey <byorgey@cis.upenn.edu> | 2009-06-25 19:37:51 +0200 |
| commit | 27fc990db7a030a11354e036919d134b5500b6be (patch) | |
| tree | 5cb4250d7b7366a3eb7629b5af30ee197c162f7d /XMonad/Actions/Search.hs | |
| parent | e62878d9389b449f5b6eccc19fc69346c4d694d5 (diff) | |
| download | XMonadContrib-27fc990db7a030a11354e036919d134b5500b6be.tar.gz XMonadContrib-27fc990db7a030a11354e036919d134b5500b6be.tar.xz XMonadContrib-27fc990db7a030a11354e036919d134b5500b6be.zip | |
X.A.Search: add Google "I'm feeling lucky" search
Ignore-this: 98bbdd4fbf12d7cd9fad6645653cb84b
darcs-hash:20090625173751-1e371-12b3cd5bf16ea72ea98a3b0db485f4642bc88e37.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 c2c2a05..2bfe8b6 100644 --- a/XMonad/Actions/Search.hs +++ b/XMonad/Actions/Search.hs @@ -41,6 +41,7 @@ module XMonad.Actions.Search ( -- * Usage images, imdb, isohunt, + lucky, maps, mathworld, scholar, @@ -111,6 +112,8 @@ import XMonad.Util.XSelection (getSelection) * 'isohunt' -- isoHunt search. +* 'lucky' -- Google "I'm feeling lucky" search. + * 'maps' -- Google maps. * 'mathworld' -- Wolfram MathWorld search. @@ -271,8 +274,8 @@ searchEngineF = SearchEngine -- The engines. -amazon, alpha, 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, lucky, 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=" @@ -287,6 +290,7 @@ hoogle = searchEngine "hoogle" "http://www.haskell.org/hoogle/?q=" images = searchEngine "images" "http://images.google.fr/images?q=" imdb = searchEngine "imdb" "http://www.imdb.com/Find?select=all&for=" isohunt = searchEngine "isohunt" "http://isohunt.com/torrents/?ihq=" +lucky = searchEngine "lucky" "http://www.google.com/search?btnI&q=" maps = searchEngine "maps" "http://maps.google.com/maps?q=" mathworld = searchEngine "mathworld" "http://mathworld.wolfram.com/search/?query=" scholar = searchEngine "scholar" "http://scholar.google.com/scholar?q=" @@ -299,7 +303,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, alpha, 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, lucky, 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 |