From 845009506911568f1883b90c66816f4862c56498 Mon Sep 17 00:00:00 2001
From: Pierre Neidhardt <mail@ambrevar.xyz>
Date: Fri, 7 May 2021 12:28:35 +0200
Subject: [PATCH] Engine: Remove old engines, make some keybindings / shortcuts
 more explicit.

---
 .emacs.d/lisp/init-engine.el | 45 +++++++++++-------------------------
 1 file changed, 14 insertions(+), 31 deletions(-)

diff --git a/.emacs.d/lisp/init-engine.el b/.emacs.d/lisp/init-engine.el
index 68171ad7..7c14e9f2 100644
--- a/.emacs.d/lisp/init-engine.el
+++ b/.emacs.d/lisp/init-engine.el
@@ -9,15 +9,15 @@
 
 (defengine arch-aur
   "https://aur.archlinux.org/packages.php?O=0&K=%s&do_Search=Go"
-  :keybinding "aa")
+  :keybinding "aur")
 
 (defengine arch-packages
   "https://www.archlinux.org/packages/?sort=&q=%s&maintainer=&flagged="
-  :keybinding "ap")
+  :keybinding "archp")
 
 (defengine arch-wiki
   "https://wiki.archlinux.org/index.php?title=Special%%3ASearch&search=%s&go=Go"
-  :keybinding "aw"
+  :keybinding "archw"
   :browser 'ambrevar/engine-eww-function)
 
 (defengine cookbook
@@ -26,34 +26,25 @@
 
 (defengine ctan
   "https://www.ctan.org/search?phrase=%s"
-  :keybinding "c")
+  :keybinding "ctan")
 
 (defengine devdocs
   "https://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"
+  :keybinding "emacsb"
   :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"
+  :keybinding "emacsd"
   :browser 'ambrevar/engine-eww-function)
 
 (defengine gentoo
   "https://wiki.gentoo.org/index.php?title=Special%3ASearch&search=%s&go=Go"
-  :keybinding "ge")
+  :keybinding "gentoo")
 
 (defengine github
   "https://github.com/search?ref=simplesearch&q=%s"
@@ -63,31 +54,27 @@
   "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"
+  :keybinding "guixd"
   :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"
+  :keybinding "guixh"
   :browser 'ambrevar/engine-eww-function)
 
 (defengine guix-issues
   "https://issues.guix.info/search?query=%s"
-  :keybinding "gui")
+  :keybinding "guix")
 
 (defengine guix-packages
   "http://data.guix.gnu.org/repository/1/branch/master/package/%s"
-  :keybinding "gup")
+  :keybinding "guixp")
 
 (defengine imdb
   "http://www.imdb.com/find?q=%s&s=all"
-  :keybinding "i")
+  :keybinding "imdb")
 
 (defengine musicbrainz-artists
   "https://musicbrainz.org/search?query=%s&type=artist&method=indexed"
@@ -107,7 +94,7 @@
 
 (defengine stackoverflow
   "https://stackoverflow.com/search?q=%s"
-  :keybinding "s")
+  :keybinding "so")
 
 (defengine wikipedia
   "https://www.wikipedia.org/search-redirect.php?language=en&go=Go&search=%s"
@@ -124,11 +111,7 @@
 
 (defengine wine-appdb
   "https://www.winehq.org/search/?q=%s"
-  :keybinding "wa")
-
-(defengine youtube
-  "https://www.youtube.com/results?search_query=%s"
-  :keybinding "yt")
+  :keybinding "wine")
 
 (load (expand-file-name "bookmarks/engines.el" (getenv "PERSONAL")) t)