add youtube to search engines

This commit is contained in:
zhen.sydow 2008-05-13 21:25:08 +00:00
parent 8a646c9983
commit 0140d63947

View File

@ -30,7 +30,8 @@ module XMonad.Actions.Search ( -- * Usage
mathworld, mathworld,
scholar, scholar,
wayback, wayback,
wikipedia wikipedia,
youtube
-- * Use case: searching with a submap -- * Use case: searching with a submap
-- $tip -- $tip
@ -89,6 +90,8 @@ import XMonad.Util.XSelection (getSelection)
* 'wikipedia' -- basic Wikipedia search. * 'wikipedia' -- basic Wikipedia search.
* 'youtube' -- Youtube video search.
Feel free to add more! -} Feel free to add more! -}
{- $tip {- $tip
@ -186,7 +189,7 @@ simpleEngine site query = site ++ escape query
-- The engines. -- The engines.
amazon, dictionary, google, hoogle, imdb, maps, mathworld, amazon, dictionary, google, hoogle, imdb, maps, mathworld,
scholar, wayback, wikipedia :: SearchEngine scholar, wayback, wikipedia, youtube :: SearchEngine
amazon = simpleEngine "http://www.amazon.com/exec/obidos/external-search?index=all&keyword=" amazon = simpleEngine "http://www.amazon.com/exec/obidos/external-search?index=all&keyword="
dictionary = simpleEngine "http://dictionary.reference.com/browse/" dictionary = simpleEngine "http://dictionary.reference.com/browse/"
google = simpleEngine "http://www.google.com/search?num=100&q=" google = simpleEngine "http://www.google.com/search?num=100&q="
@ -196,6 +199,7 @@ maps = simpleEngine "http://maps.google.com/maps?q="
mathworld = simpleEngine "http://mathworld.wolfram.com/search/?query=" mathworld = simpleEngine "http://mathworld.wolfram.com/search/?query="
scholar = simpleEngine "http://scholar.google.com/scholar?q=" scholar = simpleEngine "http://scholar.google.com/scholar?q="
wikipedia = simpleEngine "https://secure.wikimedia.org/wikipedia/en/wiki/Special:Search?go=Go&search=" wikipedia = simpleEngine "https://secure.wikimedia.org/wikipedia/en/wiki/Special:Search?go=Go&search="
youtube = simpleEngine "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
method at <http://web.archive.org/collections/web/advanced.html> to get the method at <http://web.archive.org/collections/web/advanced.html> to get the
latest backup. -} latest backup. -}