sqrtminusone/reverso.el
1
0
Fork 0
mirror of https://github.com/SqrtMinusOne/reverso.el.git synced 2025-12-10 15:53:02 +03:00
Code Issues Projects Releases Packages Wiki Activity Actions

fix: synomym -> synonym (lmao)

Browse source
This commit is contained in:
Pavel Korytov 2022-08-28 12:46:20 +03:00
parent 6bf3a4c5cd
commit 8fa0e6fbc3
1 changed files with 14 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

28
reverso.el
View file

@ -239,7 +239,7 @@ This one is used for the synonym queries.")
'((translation . "https://api.reverso.net/translate/v1/translation") '((translation . "https://api.reverso.net/translate/v1/translation")
(context . "https://context.reverso.net/translation/") (context . "https://context.reverso.net/translation/")
(grammar . "https://orthographe.reverso.net/api/v1/Spelling") (grammar . "https://orthographe.reverso.net/api/v1/Spelling")
(synomyms . "https://synonyms.reverso.net/synonym/")) (synonyms . "https://synonyms.reverso.net/synonym/"))
"URLs with reverso endpoints.") "URLs with reverso endpoints.")
(defconst reverso--user-agents (defconst reverso--user-agents
@ -448,8 +448,8 @@ DATA is an html string."
`((:source . ,(reverso--convert-string src)) `((:source . ,(reverso--convert-string src))
(:target . ,(reverso--convert-string trg)))))))) (:target . ,(reverso--convert-string trg))))))))
(defun reverso--get-synomyms (text language cb) (defun reverso--get-synonyms (text language cb)
"Get synomyms for TEXT in LANGUAGE. "Get synonyms for TEXT in LANGUAGE.
CB is called with the result. CB is called with the result.
@ -463,7 +463,7 @@ The result is a list of alists with the following keys:
- `:antonym': word" - `:antonym': word"
(unless (alist-get language reverso--language-mapping-1) (unless (alist-get language reverso--language-mapping-1)
(error "Wrong language: %s" language)) (error "Wrong language: %s" language))
(request (concat (alist-get 'synomyms reverso--urls) (request (concat (alist-get 'synonyms reverso--urls)
(symbol-name (alist-get language reverso--language-mapping-1)) "/" (symbol-name (alist-get language reverso--language-mapping-1)) "/"
(url-hexify-string text)) (url-hexify-string text))
:type "GET" :type "GET"
@ -475,13 +475,13 @@ The result is a list of alists with the following keys:
:success (cl-function :success (cl-function
(lambda (&key data &allow-other-keys) (lambda (&key data &allow-other-keys)
(funcall cb (reverso--alist-remove-empty-values (funcall cb (reverso--alist-remove-empty-values
(reverso--get-synomyms-parse data))))) (reverso--get-synonyms-parse data)))))
:error (cl-function :error (cl-function
(lambda (&key error-thrown &allow-other-keys) (lambda (&key error-thrown &allow-other-keys)
(message "Error!: %S" error-thrown))))) (message "Error!: %S" error-thrown)))))
(defun reverso--get-synomyms-parse (html) (defun reverso--get-synonyms-parse (html)
"Parse the reverso synomyms page. "Parse the reverso synonyms page.
HTML is a string." HTML is a string."
(let* ((dom (with-temp-buffer (let* ((dom (with-temp-buffer
@ -750,7 +750,7 @@ source languages."
"Render synonym search results. "Render synonym search results.
INPUT is the input string. DATA is a list as defined in INPUT is the input string. DATA is a list as defined in
`reverso--get-synomyms'." `reverso--get-synonyms'."
(setq-local reverso--input input) (setq-local reverso--input input)
(dolist (datum data) (dolist (datum data)
(when (alist-get :kind datum) (when (alist-get :kind datum)
@ -761,7 +761,7 @@ INPUT is the input string. DATA is a list as defined in
"\n")) "\n"))
(when (alist-get :synonyms datum) (when (alist-get :synonyms datum)
(insert (propertize (insert (propertize
"Synomyms: " "Synonyms: "
'face 'reverso-heading-face) 'face 'reverso-heading-face)
"\n") "\n")
(dolist (synonym (alist-get :synonyms datum)) (dolist (synonym (alist-get :synonyms datum))
@ -1393,16 +1393,16 @@ inputs."
:key "e" :key "e"
:description "Find synonyms" :description "Find synonyms"
(interactive (transient-args transient-current-command)) (interactive (transient-args transient-current-command))
(reverso--get-synomyms (reverso--get-synonyms
input source input source
(lambda (data) (lambda (data)
(reverso--with-buffer (reverso--with-buffer
(reverso--synonyms-render input data) (reverso--synonyms-render input data)
(setq-local reverso--data data))))) (setq-local reverso--data data)))))
;;;###autoload (autoload 'reverso-synomyms "reverso" nil t) ;;;###autoload (autoload 'reverso-synonyms "reverso" nil t)
(transient-define-prefix reverso-synonyms () (transient-define-prefix reverso-synonyms ()
"Find synomyms." "Find synonyms."
["Input" ["Input"
("i" "Input" reverso--transient-input-infix)] ("i" "Input" reverso--transient-input-infix)]
["Parameters" ["Parameters"
@ -1534,13 +1534,13 @@ region. Otherwise, use the entire buffer."
The following features are implemented as nested transient buffers: The following features are implemented as nested transient buffers:
- `reverso-translate': translation - `reverso-translate': translation
- `reverso-context': context (bilingual concordances) - `reverso-context': context (bilingual concordances)
- `reverso-synonyms': synomyms - `reverso-synonyms': synonyms
- `reverso-grammar': grammar check - `reverso-grammar': grammar check
- `reverso-grammar-buffer': grammar check in buffer" - `reverso-grammar-buffer': grammar check in buffer"
["Commands" ["Commands"
("t" "Translation" reverso-translate) ("t" "Translation" reverso-translate)
("c" "Context" reverso-context) ("c" "Context" reverso-context)
("s" "Synomyms" reverso-synonyms) ("s" "Synonyms" reverso-synonyms)
("g" "Grammar check" reverso-grammar) ("g" "Grammar check" reverso-grammar)
("b" "Grammar check in buffer" reverso-grammar-buffer)] ("b" "Grammar check in buffer" reverso-grammar-buffer)]
["Actions" ["Actions"