fix: go-translate on GUI

seagle0128 · Jul 15, 2024 · 2235edb · 2235edb
1 parent 82c584d
commit 2235edb
Showing 1 changed file with 7 additions and 4 deletions.
diff --git a/lisp/init-dict.el b/lisp/init-dict.el
@@ -73,14 +73,17 @@
  :taker (list (gt-taker :pick nil :if 'selection)
  (gt-taker :text 'paragraph :if (lambda (&rest _) (derived-mode-p 'Info-mode)))
  (gt-taker :text 'buffer :pick 'fresh-word :if 'read-only)
- (gt-taker))
+ (gt-taker :langs '(en zh)))
  :engines (if (display-graphic-p)
- (gt-youdao-dict-engine :if 'word)
- (list (gt-bing-engine :if 'no-word)
+ (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-posframe-pop-render :if (lambda (&rest _) (display-graphic-p))
+ :render (list (gt-posframe-pop-render :if (lambda (&rest _) (and (display-graphic-p)
+ (not (derived-mode-p 'Info-mode))
+ (not buffer-read-only)))
  :frame-params (list :accept-focus nil
  :width 70
  :height 15