Project

General

Profile

[script] Context Menu Search v0.3.1 » Context Menu Search v0.2.ini

Mr. BS, 05/07/2014 02:28 AM

 
; http://dev.adiirc.com/boards/5/topics/181
; Context Menu Search
; v0.2 by pereba

menu channel,query,status {
-
$iif($cb(1),Search for " $+ $left($cb(1),200) $+ ")
.Amazon:am
.Bing:bi
.DuckDuckGo:du
.Ebay:e
.Firefox Addons:f
.Google:g
.Google Images:gi
.Grooveshark:groo
.Hawkee:h
.Metacritic:m
.Reddit:re
.Start Page:sp
.Twitter:tw
.Urban Dictionary:ub
.-
.Torrents
..The Pirate Bay:pi
.Movies
..IMDB:im
..Rotten Tomatoes:rt
..TMDb:tm
.Videos
..Youtube:y
..LiveLeak:ll
..Vimeo:vm
-
}

alias am {
$run($sp($1-), http://www.amazon.com/s?field-keywords={key})
}
alias bi {
$run($sp($1-), http://www.bing.com/search?q={key})
}
alias du {
$run($sp($1-), https://duckduckgo.com/?q={key})
}
alias e {
$run($sp($1-), http://www.ebay.com/sch/i.html?_nkw={key})
}
alias f {
$run($sp($1-), https://addons.mozilla.org/en-US/firefox/search?q={key}&cat=all)
}
alias g {
$run($sp($1-), https://www.google.com/?#q={key})
}
alias gi {
$run($sp($1-), https://www.google.com/search?tbm=isch&q={key})
}
alias groo {
$run($sp($1-), http://grooveshark.com/#/search?q={key})
}
alias h {
$run($sp($1-), http://hawkee.com/search/{key}/)
}
alias m {
$run($sp($1-), http://www.metacritic.com/search/all/{key}/results)
}
alias re {
$run($sp($1-), http://www.reddit.com/search?q={key})
}
alias sp {
$run($sp($1-), https://startpage.com/do/search/?query={key})
}
alias tw {
$run($sp($1-), https://twitter.com/search?q={key})
}
alias ub {
$run($sp($1-), http://www.urbandictionary.com/define.php?term={key})
}
alias pi {
$run($sp($1-), http://thepiratebay.se/search/{key}/0/99/0)
}
alias im {
$run($sp($1-), http://www.imdb.com/find?q={key}&s=all)
}
alias rt {
$run($sp($1-), http://www.rottentomatoes.com/search/?search={key})
}
alias tm {
$run($sp($1-), http://www.themoviedb.org/search?query={key})
}
alias y {
$run($sp($1-), http://www.youtube.com/results?search_query={key})
}
alias ll {
$run($sp($1-), http://www.liveleak.com/browse?q={key})
}
alias vm {
$run($sp($1-), http://vimeo.com/search?q={key})
}

alias -l run { if (!$1) && (!$cb(1)) { return } run $replace($2-,{key},$iif($1,$1,$sp($cb(1)))) }

; replace space by +
alias -l sp {
return $regsubex($1-,/(\s)/g, $chr(43))
}

; replace space by %20
alias -l sp2 {
return $regsubex($1-,/(\s)/g, % $+ 20)
}
(4-4/8)