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

menu channel,query,status {
  -
  $iif($cb(1),Search for $qt($mid($v1,1,15) $+ $iif($len($v1) > 15, ...)))
  .Amazon:am
  .Bing:bi
  .DuckDuckGo:du
  .Ebay:e
  .Firefox Addons:f
  .$f Google
  ..Google:g
  ..Google Images:gi
  ..Google Define:gd
  ..Google Play:gp
  ..Google Shopping:gs
  .Grooveshark:groo
  .Ip Info:ipi
  .Metacritic:m
  .$f mIR $+ $chr(5607) related
  ..Hawkee:h
  ..mIR $+ $chr(5607) Forums:mirc
  .Spotify $chr(55357) $+ $chr(56571):spo
  .$f Subtitles
  ..Legendas.tv:l
  .Reddit:re
  .Start Page:spage
  .Twitter:tw
  .Urban Dictionary:ub
  .-
  .$f Torrents
  ..HD-Torrents:hdt
  ..KickassTorrents:ka
  ..Manicomio Share:ma
  ..The Pirate Bay:pi
  ..TorrentDay:td
  ..RuTracker:rut
  ..YIFY:yf
  .$f Movies Info
  ..IMDB:im
  ..Rotten Tomatoes:rt
  ..TMDb:tm
  .$f Videos
  ..Youtube:y
  ..LiveLeak:ll
  ..Vimeo:vm
  -
}

; If any value is specified to third parameter, dots will be replaced by +, which become a space in search string. Usefull for some websites like hdts.ru
alias am $run($1-, http://www.amazon.com/s?field-keywords={key})
alias bi $run($1-, http://www.bing.com/search?q={key})
alias du $run($1-, https://duckduckgo.com/?q={key})
alias e $run($1-, http://www.ebay.com/sch/i.html?_nkw={key})
alias f $run($1-, https://addons.mozilla.org/en-US/firefox/search?q={key}&cat=all)
alias g $run($1-, https://www.google.com/?#q={key})
alias gi $run($1-, https://www.google.com/search?tbm=isch&q={key})
alias gd $run($1-, http://www.google.com/webhp?hl=en#sclient=psy&hl=en&site=webhp&source=hp&q={key}&tbs=dfn:1)
alias gp $run($1-, https://play.google.com/store/search?q={key})
alias gs $run($1-, http://google.com/products?q={key}&btnG=Search+Products&show=dd&scoring=p)
alias groo $run($1-, http://grooveshark.com/#/search?q={key})
alias h $run($1-, http://hawkee.com/search/{key}/)
alias m $run($1-, http://www.metacritic.com/search/all/{key}/results)
alias re $run($1-, http://www.reddit.com/search?q={key})
alias spage $run($1-, https://startpage.com/do/search/?query={key})
alias tw $run($1-, https://twitter.com/search?q={key})
alias ub $run($1-, http://www.urbandictionary.com/define.php?term={key})
alias pi $run($1-, http://thepiratebay.se/search/{key}/0/99/0)
alias im $run($1-, http://www.imdb.com/find?q={key}&s=all)
alias rt $run($1-, http://www.rottentomatoes.com/search/?search={key})
alias tm $run($1-, http://www.themoviedb.org/search?query={key})
alias y $run($1-, http://www.youtube.com/results?search_query={key})
alias ll $run($1-, http://www.liveleak.com/browse?q={key})
alias vm $run($1-, http://vimeo.com/search?q={key})
alias hdt $run($1-, https://hdts.ru/torrents.php?search={key}, 1)
alias l $run($1-, http://legendas.tv/busca/{key})
alias ka $run($1-, https://kickass.to/torrents/usearch/?q={key})
alias ma $run($1-, http://www.manicomio-share.com/pesquisa.php?busca={key})
alias rut $run($1-, http://rutracker.org/forum/tracker.php?nm={key})
alias td $run($1-, http://www.torrentday.com/browse.php?#/browse.php?&search={key}&cata=yes)
alias yf $run($1-, https://yts.re/browse-movies/{key})
alias spo $run($1-, https://play.spotify.com/search/{key})
alias ipi $run($1-, http://ip-api.com/{key})

alias -l run { if (!$1) && (!$cb(1)) { return } | run $replacex($2,{key},$sp1($iif($1,$1,$cb(1)),$3))) }

; replace space by +
alias -l sp1 return $regsubex($iif($2,$plus($1),$1),/(\40)/g, $chr(43))

; folder icon
alias -l f return $chr(55357) $+ $chr(56514)

; replace dot by +
alias -l plus return $regsubex($1-,/(\.)/g, +)

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