twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 11:30:22 -07:00
Code Issues Packages Projects Releases Wiki Activity

adding thesaurus.reference.com and Google Labs Code Search searches

Browse Source
This commit is contained in:
brian 2008-07-01 09:01:42 +00:00
parent 60e02bb08a
commit 23588c09ae
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
XMonad/Actions/Search.hs
View File

@ -21,6 +21,7 @@ module XMonad.Actions.Search ( -- * Usage
selectSearchBrowser, selectSearchBrowser,
amazon, amazon,
codesearch,
dictionary, dictionary,
google, google,
hoogle, hoogle,
@ -28,6 +29,7 @@ module XMonad.Actions.Search ( -- * Usage
maps, maps,
mathworld, mathworld,
scholar, scholar,
thesaurus,
wayback, wayback,
wikipedia, wikipedia,
youtube youtube
@ -71,7 +73,9 @@ import XMonad.Util.XSelection (getSelection)
* 'amazon' -- Amazon keyword search. * 'amazon' -- Amazon keyword search.
* 'dictionary' -- dictionary.com search. * 'codesearch' -- Google Labs Code Search search.
* 'dictionary' -- dictionary.reference.com search.
* 'google' -- basic Google search. * 'google' -- basic Google search.
@ -85,6 +89,8 @@ import XMonad.Util.XSelection (getSelection)
* 'scholar' -- Google scholar academic search. * 'scholar' -- Google scholar academic search.
* 'thesaurus' -- thesaurus.reference.com search.
* 'wayback' -- the Wayback Machine. * 'wayback' -- the Wayback Machine.
* 'wikipedia' -- basic Wikipedia search. * 'wikipedia' -- basic Wikipedia search.
@ -190,9 +196,10 @@ searchEngine :: Name -> Site -> SearchEngine
searchEngine name site = SearchEngine name site searchEngine name site = SearchEngine name site
-- The engines. -- The engines.
amazon, dictionary, google, hoogle, imdb, maps, mathworld, amazon, codesearch, dictionary, google, hoogle, imdb, maps, mathworld,
scholar, wayback, wikipedia, youtube :: SearchEngine scholar, thesaurus, wayback, wikipedia, youtube :: SearchEngine
amazon = searchEngine "amazon" "http://www.amazon.com/exec/obidos/external-search?index=all&keyword=" 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/" dictionary = searchEngine "dictionary" "http://dictionary.reference.com/browse/"
google = searchEngine "google" "http://www.google.com/search?num=100&q=" google = searchEngine "google" "http://www.google.com/search?num=100&q="
hoogle = searchEngine "hoogle" "http://www.haskell.org/hoogle/?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=" maps = searchEngine "maps" "http://maps.google.com/maps?q="
mathworld = searchEngine "mathworld" "http://mathworld.wolfram.com/search/?query=" mathworld = searchEngine "mathworld" "http://mathworld.wolfram.com/search/?query="
scholar = searchEngine "scholar" "http://scholar.google.com/scholar?q=" 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=" 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=" 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 {- This doesn't seem to work, but nevertheless, it seems to be the official