Rely on webjump for dictionaries; zap CNTRL, since eww chokes on it

This commit is contained in:
Gerard Vermeulen 2022-05-07 17:43:18 +02:00
parent 75e7f8b3f4
commit ad5c15f5e6

View File

@ -3639,21 +3639,6 @@ Listing [[lst:configure-browse-url]] configures =browse-url=.
#+name: lst:configure-eww-urls
#+begin_src emacs-lisp
(when (fboundp 'eww-browse-url)
(defmacro defun-dictionary (name where how)
`(defun ,name (word)
,(format "Look up WORD at '%s' in Emacs." where)
(interactive
(list (if (use-region-p)
(buffer-substring (region-beginning) (region-end))
(read-string ,(format "Search '%s' for: " where)
(thing-at-point 'word)))))
(eww-browse-url (concat ,(format "%s%s" where how) word))))
(defun-dictionary eww-dict-en "www.thefreedictionary.com" "/")
(defun-dictionary eww-dict-fr "www.cntrl.fr" "/definition/")
(defun-dictionary eww-dict-nl "www.woorden.org" "/woord/")
(defun-dictionary eww-webster "webster-dictionary.org" "/definition/")
(defun eww-subreddit ()
"Read a subreddit in Emacs."
(interactive)
@ -3717,7 +3702,6 @@ initializes a list of =webjump-sites=.
(custom-set-variables
'(webjump-sites
'(("CS 325 AI Programming" . "courses.cs.northwestern.edu/325")
;; ("Emacs Git Repositories" . "savannah.gnu.org/git/?group=emacs")
("Emacs Git Repository" . "git.savannah.gnu.org/cgit/emacs.git")
("Emacs News" . "sachachua.com/blog/category/emacs-news")
("GNU ELPA Git Repository" . "git.savannah.gnu.org/cgit/emacs/elpa.git")
@ -3730,8 +3714,9 @@ initializes a list of =webjump-sites=.
("Counterpunch" . "www.counterpunch.org")
("Dictionary EN" . [simple-query "thefreedictionary.com"
"thefreedictionary.com/" ""])
("Dictionary FR" . [simple-query "www.cntrl.fr"
"www.cntrl.fr/definition/" ""])
;; CNTRL refuses http, accepts https, and lets Eww hang.
;; ("Dictionary FR" . [simple-query "www.cntrl.fr"
;; "https://www.cntrl.fr/definition/" ""])
("Dictionary NL" . [simple-query "www.woorden.org"
"www.woorden.org/woord/" ""])
("Dictionary Webster" . [simple-query