aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorintrigeri <intrigeri@boum.org>2009-12-22 12:45:45 +0100
committerintrigeri <intrigeri@boum.org>2009-12-22 12:45:45 +0100
commit462195411860b5ae85587529280aadde89a31cdf (patch)
treedb31d1b05ab1c623725e740d2f3ac7f6c07a6869
parent506a524dbb57a9f7fc9c43f989b8cff4bd595cac (diff)
downloadXMonadContrib-462195411860b5ae85587529280aadde89a31cdf.tar.gz
XMonadContrib-462195411860b5ae85587529280aadde89a31cdf.tar.xz
XMonadContrib-462195411860b5ae85587529280aadde89a31cdf.zip
Actions/Search: added openstreetmap
Ignore-this: fafc4680c8b59b7a044d995c1dacec9a darcs-hash:20091222114545-35915-57fbeafca9c63e2cc182b0fc57728a9b0590cd50.gz
-rw-r--r--XMonad/Actions/Search.hs52
1 files changed, 28 insertions, 24 deletions
diff --git a/XMonad/Actions/Search.hs b/XMonad/Actions/Search.hs
index 482d6cd..d71b892 100644
--- a/XMonad/Actions/Search.hs
+++ b/XMonad/Actions/Search.hs
@@ -44,6 +44,7 @@ module XMonad.Actions.Search ( -- * Usage
lucky,
maps,
mathworld,
+ openstreetmap,
scholar,
thesaurus,
wayback,
@@ -120,6 +121,8 @@ import XMonad.Util.XSelection (getSelection)
* 'mathworld' -- Wolfram MathWorld search.
+* 'openstreetmap' -- OpenStreetMap free wiki world map.
+
* 'scholar' -- Google scholar academic search.
* 'thesaurus' -- thesaurus.reference.com search.
@@ -276,33 +279,34 @@ searchEngineF = SearchEngine
-- The engines.
amazon, alpha, codesearch, deb, debbts, debpts, dictionary, google, hackage, hoogle,
- images, imdb, isohunt, lucky, maps, mathworld, scholar, thesaurus, wayback, wikipedia, wiktionary,
+ images, imdb, isohunt, lucky, maps, mathworld, openstreetmap, scholar, thesaurus, wayback, wikipedia, wiktionary,
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/"
-debpts = searchEngine "debpts" "http://packages.qa.debian.org/"
-dictionary = searchEngine "dict" "http://dictionary.reference.com/browse/"
-google = searchEngine "google" "http://www.google.com/search?num=100&q="
-hackage = searchEngine "hackage" "http://hackage.haskell.org/package/"
-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?s=all&q="
-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="
-thesaurus = searchEngine "thesaurus" "http://thesaurus.reference.com/search?q="
-wikipedia = searchEngine "wiki" "http://en.wikipedia.org/wiki/Special:Search?go=Go&search="
-wiktionary = searchEngine "wikt" "http://en.wiktionary.org/wiki/Special:Search?go=Go&search="
-youtube = searchEngine "youtube" "http://www.youtube.com/results?search_type=search_videos&search_query="
-wayback = searchEngineF "wayback" ("http://web.archive.org/web/*/"++)
+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/"
+debpts = searchEngine "debpts" "http://packages.qa.debian.org/"
+dictionary = searchEngine "dict" "http://dictionary.reference.com/browse/"
+google = searchEngine "google" "http://www.google.com/search?num=100&q="
+hackage = searchEngine "hackage" "http://hackage.haskell.org/package/"
+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?s=all&q="
+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="
+openstreetmap = searchEngine "openstreetmap" "http://gazetteer.openstreetmap.org/namefinder/?find="
+scholar = searchEngine "scholar" "http://scholar.google.com/scholar?q="
+thesaurus = searchEngine "thesaurus" "http://thesaurus.reference.com/search?q="
+wikipedia = searchEngine "wiki" "http://en.wikipedia.org/wiki/Special:Search?go=Go&search="
+wiktionary = searchEngine "wikt" "http://en.wiktionary.org/wiki/Special:Search?go=Go&search="
+youtube = searchEngine "youtube" "http://www.youtube.com/results?search_type=search_videos&search_query="
+wayback = searchEngineF "wayback" ("http://web.archive.org/web/*/"++)
multi :: SearchEngine
-multi = namedEngine "multi" $ foldr1 (!>) [amazon, alpha, codesearch, deb, debbts, debpts, dictionary, google, hackage, hoogle, images, imdb, isohunt, lucky, maps, mathworld, scholar, thesaurus, wayback, wikipedia, wiktionary, (prefixAware google)]
+multi = namedEngine "multi" $ foldr1 (!>) [amazon, alpha, codesearch, deb, debbts, debpts, dictionary, google, hackage, hoogle, images, imdb, isohunt, lucky, maps, mathworld, openstreetmap, scholar, thesaurus, wayback, wikipedia, wiktionary, (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