Update go-translate package settings

This commit is contained in:
Marcus Kammer 2024-06-06 12:03:22 +02:00
parent 8958131216
commit 2bf5a7dd90

View file

@ -1,6 +1,22 @@
;; PACKAGE ;; PACKAGE
(require 'package) (require 'package)
(defun get-auth-key (host)
"Retrieve the Anthropics API key using 'auth-source'."
(require 'auth-source)
(let* ((auth-source-creation-prompts
'((secret . "API key for %u@%h: ")))
(found (nth 0 (auth-source-search
:max 1
:host host
:user "apikey"
:require '(:secret)
:create t)))
(secret (plist-get found :secret)))
(if (functionp secret)
(funcall secret)
secret)))
(use-package htmlize) (use-package htmlize)
(use-package tramp (use-package tramp
@ -190,11 +206,10 @@
(use-package go-translate (use-package go-translate
:defer t :defer t
:config :config
(setq gt-translate-list '(("en" "de") ("de" "en")))
(setq gt-default-translator (setq gt-default-translator
(gt-translator :taker (gt-taker :langs '(en de)) (gt-translator :taker (gt-taker :langs '(en de))
:engines (list (gt-bing-engine) (gt-google-engine)) :engines (gt-google-engine)
:render (gt-buffer-render)))) :render (gt-buffer-render))))
(use-package magit (use-package magit
:bind ("C-x g" . magit-status) :bind ("C-x g" . magit-status)
@ -352,6 +367,7 @@
;; :defer t ;; :defer t
;; :after json-mode) ;; :after json-mode)
(defun get-anthropic-key () (defun get-anthropic-key ()
"Retrieve the Anthropics API key using 'auth-source'." "Retrieve the Anthropics API key using 'auth-source'."
(require 'auth-source) (require 'auth-source)