From 0d2c0b4e7b44b306c5c994a51fd196541b9955a3 Mon Sep 17 00:00:00 2001
From: brian <brian@lorf.org>
Date: Tue, 1 Jul 2008 11:01:42 +0200
Subject: adding thesaurus.reference.com and Google Labs Code Search searches

darcs-hash:20080701090142-8cb90-179047a6b8aa7c55d60c5adfb138b50a4a103b28.gz
---
 XMonad/Actions/Search.hs | 14 +++++++++++---
 1 file changed, 11 insertions(+), 3 deletions(-)

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

diff --git a/XMonad/Actions/Search.hs b/XMonad/Actions/Search.hs
index b64c625..3878969 100644
--- a/XMonad/Actions/Search.hs
+++ b/XMonad/Actions/Search.hs
@@ -21,6 +21,7 @@ module XMonad.Actions.Search (    -- * Usage
                                selectSearchBrowser,
 
                                amazon,
+                               codesearch,
                                dictionary,
                                google,
                                hoogle,
@@ -28,6 +29,7 @@ module XMonad.Actions.Search (    -- * Usage
                                maps,
                                mathworld,
                                scholar,
+                               thesaurus,
                                wayback,
                                wikipedia,
                                youtube
@@ -71,7 +73,9 @@ import XMonad.Util.XSelection (getSelection)
 
 * 'amazon' -- Amazon keyword search.
 
-* 'dictionary' -- dictionary.com search.
+* 'codesearch' -- Google Labs Code Search search.
+
+* 'dictionary' -- dictionary.reference.com search.
 
 * 'google' -- basic Google search.
 
@@ -85,6 +89,8 @@ import XMonad.Util.XSelection (getSelection)
 
 * 'scholar' -- Google scholar academic search.
 
+* 'thesaurus' -- thesaurus.reference.com search.
+
 * 'wayback' -- the Wayback Machine.
 
 * 'wikipedia' -- basic Wikipedia search.
@@ -190,9 +196,10 @@ searchEngine :: Name -> Site -> SearchEngine
 searchEngine name site = SearchEngine name site
 
 -- The engines.
-amazon, dictionary, google, hoogle, imdb, maps, mathworld,
-  scholar, wayback, wikipedia, youtube :: SearchEngine
+amazon, codesearch, dictionary, google, hoogle, imdb, maps, mathworld,
+  scholar, thesaurus, wayback, wikipedia, youtube :: SearchEngine
 amazon     = searchEngine "amazon"     "http://www.amazon.com/exec/obidos/external-search?index=all&keyword="
+codesearch = searchEngine "codesearch" "http://www.google.com/codesearch?q="
 dictionary = searchEngine "dictionary" "http://dictionary.reference.com/browse/"
 google     = searchEngine "google"     "http://www.google.com/search?num=100&q="
 hoogle     = searchEngine "hoogle"     "http://www.haskell.org/hoogle/?q="
@@ -200,6 +207,7 @@ imdb       = searchEngine "imdb"       "http://www.imdb.com/Find?select=all&for=
 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="
+thesaurus  = searchEngine "thesaurus"  "http://thesaurus.reference.com/search?q="
 wikipedia  = searchEngine "wikipedia"  "https://secure.wikimedia.org/wikipedia/en/wiki/Special:Search?go=Go&search="
 youtube    = searchEngine "youtube"    "http://www.youtube.com/results?search_type=search_videos&search_query="
 {- This doesn't seem to work, but nevertheless, it seems to be the official
-- 
cgit v1.2.3