From aff9f48b358d3f656ca29f46ecf8f8a0bd9decbf Mon Sep 17 00:00:00 2001
From: Brent Yorgey <byorgey@cis.upenn.edu>
Date: Mon, 25 May 2009 03:04:19 +0200
Subject: X.A.Search: add Wolfram|Alpha search

darcs-hash:20090525010419-1e371-ca55ed1b4c67c68e551b170d1db82270eb06341b.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 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
-- 
cgit v1.2.3