; 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)
}