Skip to content

Commit

Permalink
refactor: update go-translate to the latest
Browse files Browse the repository at this point in the history
  • Loading branch information
seagle0128 committed Jul 16, 2024
1 parent fa5394b commit 2ebbce6
Showing 1 changed file with 17 additions and 15 deletions.
32 changes: 17 additions & 15 deletions lisp/init-dict.el
Original file line number Diff line number Diff line change
Expand Up @@ -71,32 +71,34 @@
(setq gt-preset-translators
`((default . ,(gt-translator
:taker (list (gt-taker :pick nil :if 'selection)
(gt-taker :text 'paragraph :if (lambda (&rest _) (derived-mode-p 'Info-mode)))
(gt-taker :text 'paragraph :if '(Info-mode help-mode helpful-mode))
(gt-taker :text 'buffer :pick 'fresh-word :if 'read-only)
(gt-taker :langs '(en zh)))
(gt-taker :text 'word))
:engines (if (display-graphic-p)
(list (gt-bing-engine :if 'not-word)
(gt-youdao-dict-engine :if 'word))
(list (gt-bing-engine :if 'not-word)
(gt-youdao-dict-engine :if 'word)
(gt-youdao-suggest-engine :if 'word)
(gt-google-engine :if 'word)))
:render (list (gt-overlay-render :if 'read-only)
(gt-insert-render :if (lambda (&rest _) (member (buffer-name) '("COMMIT_EDITMSG"))))
(gt-posframe-pop-render :if (lambda (&rest _) (and (display-graphic-p)
(not (derived-mode-p 'Info-mode))))
:frame-params (list :accept-focus nil
:width 70
:height 15
:left-fringe 16
:right-fringe 16
:border-width 1
:border-color gt-pin-posframe-bdcolor))
(gt-buffer-render))))
:render (list (gt-posframe-pop-render :if (lambda (translator)
(and (display-graphic-p)
(not (derived-mode-p 'Info-mode 'help-mode 'helpful-mode))
(not (member (buffer-name) '("COMMIT_EDITMSG")))))
:frame-params (list :accept-focus nil
:width 70
:height 15
:left-fringe 16
:right-fringe 16
:border-width 1
:border-color gt-pin-posframe-bdcolor))
(gt-overlay-render :if 'read-only)
(gt-insert-render :if (lambda (translator) (member (buffer-name) '("COMMIT_EDITMSG"))))
(gt-buffer-render))))
(multi-dict . ,(gt-translator :taker (gt-taker :langs '(en zh) :prompt t)
:engines (list (gt-bing-engine)
(gt-youdao-dict-engine)
(gt-youdao-suggest-engine)
(gt-youdao-suggest-engine :if 'word)
(gt-google-engine))
:render (gt-buffer-render)))
(Text-Utility . ,(gt-text-utility :taker (gt-taker :pick nil)
Expand Down

0 comments on commit 2ebbce6

Please sign in to comment.