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

feat: translation API works

Browse source
This commit is contained in:
Pavel Korytov 2022-08-15 21:48:48 +05:00
parent 8d48d70667
commit c292ee6a9d
1 changed files with 88 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

88
reverso.el
View file

@ -31,6 +31,94 @@
(require 'request)
(require 'transient)
(defconst reverso--languages
'((translation . (arabic chinese dutch english french german hebrew
italian japanese korean polish portugese
romanian russian spanish swedish turkish
ukrainian))
(context . (arabic german english spanish french hebrew italian
japanese dutch polish portugese romanian
russian swedish turkish ukrainian chinese))
(grammar . (english french))
(synonims . (arabic german english spanish french hebrew italian
japanese dutch polish portugese romanian
russian)))
"Available languages for diferent operations.")
(defconst reverso--language-mapping
'((arabic . ara)
(german . ger)
(spanish . spa)
(french . fra)
(hebrew . heb)
(italian . ita)
(japanese . jpn)
(dutch . dut)
(polish . pol)
(portuguese . por)
(romanian . rum)
(russian . rus)
(ukrainian . ukr)
(turkish . tur)
(chinese . chi)
(english . eng)))
(defconst reverso--urls
'((translation . "https://api.reverso.net/translate/v1/translation")
(context . "https://context.reverso.net/translation/")
(grammar . "https://orthographe.reverso.net/api/v1/Spelling")
(synomyms . "https://synonyms.reverso.net/synonym/"))
"URLs with reverso endpoints.")
(defconst reverso--user-agents
'("Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/104.0.0.0 Safari/537.36"
"Mozilla/5.0 (X11; Linux x86_64; rv:103.0) Gecko/20100101 Firefox/103.0"
"Mozilla/5.0 (Windows NT 10.0; Win64; x64; rv:103.0) Gecko/20100101 Firefox/103.0"
"Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/104.0.0.0 Safari/537.36"
"Mozilla/5.0 (Windows NT 10.0; rv:103.0) Gecko/20100101 Firefox/103.0"
"Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/103.0.0.0 Safari/537.36"
"Mozilla/5.0 (Macintosh; Intel Mac OS X 10_15_7) AppleWebKit/605.1.15 (KHTML, like Gecko) Version/15.6 Safari/605.1.15"
"Mozilla/5.0 (Macintosh; Intel Mac OS X 10.15; rv:103.0) Gecko/20100101 Firefox/103.0")
"User-Agents to use for reverso.el requests.
A random one is be picked at package initialization.")
(defvar reverso--user-agent
(nth (random (length reverso--user-agents))
reverso--user-agents)
"User-Agent to use for reverse.el requests.")
(defun reverso--translate (text source target cb)
(unless (alist-get source reverso--language-mapping)
(error "Wrong language: %s" source))
(unless (alist-get target reverso--language-mapping)
(error "Wrong language: %s" target))
(request (alist-get 'translation reverso--urls)
:type "POST"
:data (json-encode
`((format . "text")
(from . ,(alist-get source reverso--language-mapping))
(input . ,text)
(options . ((contextResults . t)
(languageDetection . t)
(origin . "reversomobile")
(sentenceSpliiter . :json-false)))
(to . ,(alist-get target reverso--language-mapping))))
:headers `(("Content-Type" . "application/json")
("Accept" . "*/*")
("Connection" . "keep-alive")
("User-Agent" . ,reverso--user-agent))
:parser 'json-read
:encoding 'utf-8
:success (cl-function
(lambda (&key data &allow-other-keys)
(funcall cb data)))
:error (cl-function
(lambda (&key error-thrown &allow-other-keys)
(message "Error!: %S" error-thrown)))))
;; (reverso--translate "Your god is war" 'english 'german (lambda (&rest kek) (setq my/test kek)))
(provide 'reverso)
;;; reverso.el ends here