Webjump and hyperspace for easier searching the web

1 files changed, 47 insertions, 0 deletions

diff --git a/emacs/init.el b/emacs/init.el
index bd74923..2ee3a1a 100644
--- a/emacs/init.el
+++ b/emacs/init.el
@@ -875,3 +875,50 @@ The misspelled word is taken from OVERLAY.  WORD is the corrected word."
 (use-package pdf-tools
   :ensure t)
 
+(use-package webjump
+  :custom
+  (webjump-sites '(("Instagram direct messages" . "https://www.instagram.com/direct/")
+                   ("Lute" . "http://localhost:5000/")
+                   ("SJTU Canvas" . "https://oc.sjtu.edu.cn/")
+                   ("Zdic" .
+                    [simple-query "www.zdic.net" "https://www.zdic.net/search/?sclb=tm&q=" ""])
+                   ("Marginalia search" .
+                    [simple-query "search.marginalia.nu" "https://search.marginalia.nu/search?query=" ""])
+                   ("Langcorrect" . "https://www.langcorrect.com/journals/")
+                   ("Emacs Wiki" .
+                    [simple-query "www.emacswiki.org" "www.emacswiki.org/cgi-bin/wiki/" #1=""])
+                   ("DuckDuckGo" .
+                    [simple-query "duckduckgo.com" "duckduckgo.com/lite?q=" #1#])
+                   ("Wikipedia" .
+                    [simple-query "wikipedia.org" "wikipedia.org/wiki/" #1#]))))
+
+(use-package hyperspace
+  :ensure t
+  :bind ("C-c s" . hyperspace)
+  :custom (hyperspace-actions
+           '(("z" . "https://www.zdic.net/search/?sclb=tm&q=%s")
+             ("ddg" . "https://duckduckgo.com/lite?q=%s")
+             ("dis" . "https://duckduckgo.com/?q=%s&iax=images&ia=images")
+             ("gg" . "https://www.google.com/search?q=%s")
+             ("ggm" . "https://www.google.com/maps/search/%s")
+             ("gis" . "https://www.google.com/search?tbm=isch&q=%s")
+             ("osm" . "https://www.openstreetmap.org/search?query=%s")
+             ("az" . "https://www.amazon.com/s?k=%s")
+             ("eb" . "https://www.ebay.com/sch/i.html?_nkw=%s")
+             ("alix" . "https://www.aliexpress.com/wholesale?SearchText=%s")
+             ("wp" . "https://en.wikipedia.org/w/index.php?search=%s&title=Special:Search&go=Go")
+             ("pg" . "https://www.gutenberg.org/ebooks/search/?query=%s")
+             ("bc" . "https://bandcamp.com/search?q=%s")
+             ("dgs" . "https://www.discogs.com/search/?q=%s&type=all")
+             ("imdb" . "https://www.imdb.com/find?q=%s&s=all")
+             ("iv" . "https://invidio.us/search?q=%s")
+             ("yt" . "https://www.youtube.com/results?search_query=%s")
+             ("dp" . "https://packages.debian.org/%s")
+             ("ac" . apropos-command)
+             ("af" lambda
+              (query)
+              (apropos-command query t))
+             ("av" . apropos-variable)
+             ("bb" . bbdb-search-name)
+             ("el" apply-partially #'hyperspace-action->info "(elisp)Top"))))
+