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

tools/lookup: fix missing libs for dictionary/thesaurus lookup

Browse source
This commit is contained in:
Henrik Lissner 2019-12-24 21:24:06 -05:00
parent 55f0be7074
commit d00a0af925
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 18 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -335,7 +335,7 @@ Otherwise, falls back on `find-file-at-point'."
current-prefix-arg)) current-prefix-arg))
(unless (featurep! +dictionary) (unless (featurep! +dictionary)
(user-error "The +dictionary feature hasn't be enabled on :tools lookup module")) (user-error "The +dictionary feature hasn't be enabled on :tools lookup module"))
(cond (IS-MAC (cond ((and IS-MAC (require 'osx-dictionary nil t))
(osx-dictionary--view-result identifier)) (osx-dictionary--view-result identifier))
(+lookup-dictionary-enable-online (+lookup-dictionary-enable-online
(define-word identifier nil arg)) (define-word identifier nil arg))
@ -350,19 +350,21 @@ Otherwise, falls back on `find-file-at-point'."
current-prefix-arg)) current-prefix-arg))
(unless (featurep! +dictionary) (unless (featurep! +dictionary)
(user-error "The +dictionary feature hasn't be enabled on :tools lookup module")) (user-error "The +dictionary feature hasn't be enabled on :tools lookup module"))
(if +lookup-dictionary-enable-online (unless +lookup-dictionary-enable-online
(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)))))
;; TODO Implement offline synonyms backend ;; TODO Implement offline synonyms backend
(user-error "No offline dictionary implemented yet"))) (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))))))