From 27fc990db7a030a11354e036919d134b5500b6be Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@cis.upenn.edu>
Date: Thu, 25 Jun 2009 19:37:51 +0200
Subject: X.A.Search: add Google "I'm feeling lucky" search

Ignore-this: 98bbdd4fbf12d7cd9fad6645653cb84b

darcs-hash:20090625173751-1e371-12b3cd5bf16ea72ea98a3b0db485f4642bc88e37.gz
---
 XMonad/Actions/Search.hs | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

(limited to 'XMonad/Actions/Search.hs')

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
-- 
cgit v1.2.3