ambevar-dotfiles/.emacs.d/lisp/init-engine.el

;;; Engine mode

;; REVIEW: Fix initial input default property:
;; https://github.com/hrs/engine-mode/issues/43.
(defun engine/prompted-search-term (engine-name)
  (read-string (engine/search-prompt engine-name) (thing-at-point 'symbol 'no-properties)))

(engine-mode)
(require 'eww)

(defun ambrevar/engine-eww-function (url &optional _)
  (interactive)
  (eww url))

(defengine arch-aur
  "https://aur.archlinux.org/packages.php?O=0&K=%s&do_Search=Go"
  :keybinding "aa")

(defengine arch-packages
  "https://www.archlinux.org/packages/?sort=&q=%s&maintainer=&flagged="
  :keybinding "ap")

(defengine arch-wiki
  "http://wiki.archlinux.org/index.php?title=Special%%3ASearch&search=%s&go=Go"
  :keybinding "aw"
  :browser 'ambrevar/engine-eww-function)

(defengine ctan
  "http://www.ctan.org/search?phrase=%s"
  :keybinding "c")

(defengine devdocs
  "http://devdocs.io/#q=%s"
  :keybinding "dd")

(defengine duckduckgo
  "https://duckduckgo.com/?q=%s"
  :keybinding "dg")

(defengine emacs-debbugs
  "https://debbugs.gnu.org/cgi/pkgreport.cgi?package=emacs;include=subject%3A%s;repeatmerged=on;archive=both"
  :keybinding "eb"
  :browser 'ambrevar/engine-eww-function)

(defengine emacs-devel
  "https://lists.gnu.org/archive/cgi-bin/namazu.cgi?idxname=emacs-devel&submit=Search&query=%s"
  :keybinding "ed"
  :browser 'ambrevar/engine-eww-function)

(defengine emms-help
  "https://lists.gnu.org/archive/cgi-bin/namazu.cgi?idxname=emms-help&submit=Search!&query=%s"
  :keybinding "ee"
  :browser 'ambrevar/engine-eww-function)

(defengine gentoo
  "https://wiki.gentoo.org/index.php?title=Special%3ASearch&search=%s&go=Go"
  :keybinding "ge")

(defengine github
  "https://github.com/search?ref=simplesearch&q=%s"
  :keybinding "gh")

(defengine goodreads
  "https://www.goodreads.com/search?q=%s"
  :keybinding "gr")

(defengine google-maps
  "https://maps.google.com/maps?q=%s"
  :keybinding "gm")

(defengine guix-devel
  "https://lists.gnu.org/archive/cgi-bin/namazu.cgi?idxname=guix-devel&submit=Search&query=%s"
  :keybinding "gud"
  :browser 'ambrevar/engine-eww-function)

(defengine guix-help
  "https://lists.gnu.org/archive/cgi-bin/namazu.cgi?idxname=help-guix&submit=Search!&query=%s"
  :keybinding "guh"
  :browser 'ambrevar/engine-eww-function)

(defengine guix-packages
  "https://guix-hpc.bordeaux.inria.fr/package/%s"
  :keybinding "gup")

(defengine imdb
  "http://www.imdb.com/find?q=%s&s=all"
  :keybinding "i")

(defengine musicbrainz-artists
  "http://musicbrainz.org/search?query=%s&type=artist&method=indexed"
  :keybinding "mba")

(defengine musicbrainz-releases
  "http://musicbrainz.org/search?query=%s&type=release&method=indexed"
  :keybinding "mbr")

(defengine openstreetmap
  "https://www.openstreetmap.org/search?query=%s"
  :keybinding "osm")

(defengine quickdocs
  "http://quickdocs.org/search?q=%s"
  :keybinding "q")

(defengine stackoverflow
  "http://stackoverflow.com/search?q=%s"
  :keybinding "s")

(defengine torrent-kickass
  "https://kickass.unblocked.live/search.php?q=%s"
  :keybinding "tk")

(defengine torrent-piratebay
  "https://ukpirate.click/s/?q=%s"
  :keybinding "tp")

(defengine wikipedia
  "http://www.wikipedia.org/search-redirect.php?language=en&go=Go&search=%s"
  :keybinding "wp"
  :docstring "Search Wikipedia!")

(defengine wikibooks
  "http://en.wikibooks.org/wiki/Special:Search?search=%s"
  :keybinding "wb")

(defengine wiktionary
  "http://en.wiktionary.org/wiki/Special:Search?search=%s"
  :keybinding "wk")

(defengine wine-appdb
  "http://www.winehq.org/search/?q=%s"
  :keybinding "wa")

(defengine youtube
  "http://www.youtube.com/results?search_query=%s"
  :keybinding "y")

(load "~/personal/bookmarks/engines.el" t)

(provide 'init-engine)