From cdb59b0a3d3e20f37df6fdb5a68c7c8090c9c25d Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 27 Sep 2021 21:27:55 +0200 Subject: [PATCH] fix(lookup): wordnik dict backend returning nothing Ref abo-abo/define-word#31 --- modules/tools/lookup/config.el | 9 +++++++++ 1 file changed, 9 insertions(+) diff --git a/modules/tools/lookup/config.el b/modules/tools/lookup/config.el index cb795022d..8a273f876 100644 --- a/modules/tools/lookup/config.el +++ b/modules/tools/lookup/config.el @@ -215,6 +215,15 @@ Dictionary.app behind the scenes to get definitions.") :unless IS-MAC :defer t :config + ;; REVIEW Temporarily fix abo-abo/define-word#31 + (defadvice! +lookup--fix-define-word-a (fn &rest args) + "Fix `define-word' backends that require a user agent (like wordnik)." + :around #'define-word + (let ((url-request-extra-headers + '(("User-Agent" . + "Mozilla/5.0 (Macintosh; Intel Mac OS X 11_5_2) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/93.0.4577.63 Safari/537.36")))) + (apply fn args))) + (setq define-word-displayfn-alist (cl-loop for (service . _) in define-word-services collect (cons service #'+eval-display-results-in-popup))))