emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Use powerthesaurus-lookup-word-dwim in +lookup/word-synonyms

Browse source
This commit is contained in:
Henrik Lissner 2020-01-02 19:52:10 -05:00
parent a9763fe76b
commit 56ef4d8800
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 1 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

16
modules/tools/lookup/autoload/lookup.el
View file

@ -353,18 +353,4 @@ Otherwise, falls back on `find-file-at-point'."
(unless +lookup-dictionary-enable-online
;; TODO Implement offline synonyms backend
(user-error "No offline dictionary implemented yet"))
(require 'request)
(require 'powerthesaurus)
(request
(powerthesaurus-compose-url identifier)
:parser (lambda () (libxml-parse-html-region (point) (point-max)))
:headers '(("User-Agent" . "Chrome/74.0.3729.169"))
:success (cl-function
(lambda (&key data &allow-other-keys)
;; in order to allow users to quit powerthesaurus prompt
;; with C-g, we need to wrap callback with this
(with-local-quit
(funcall (powerthesaurus-choose-callback
(region-beginning) (region-end))
(powerthesaurus-pick-synonym data)
identifier))))))
(powerthesaurus-lookup-word-dwim))