.emacs.d

commit 70846e6cbeb213dc8c89dce7753350a1049ed39c
parent db46aa9dbf048372851ac2ff13a9e764538d1f15
Author: andsy10 <andsy1016@gmail.com>
Date:   Mon, 31 Aug 2026 04:39:24 +0800

Add synosaurus thesaurus integration

Diffstat:
M
lisp/init-completion.el
 | 
4
+++-
M
lisp/init-kbd.el
 | 
5
+++--
M
lisp/init-package.el
 | 
15
+++++++++++++++
M
lisp/init-window.el
 | 
1
+

4 files changed, 22 insertions(+), 3 deletions(-)
diff --git a/lisp/init-completion.el b/lisp/init-completion.el
@@ -114,7 +114,9 @@ value of the selected COLOR."
                     "\\*gptel-log\\*"
                     "\\*pi-coding-agent-input:"
                     "\\*pi-coding-agent-sessions:"
-                    "\\*pi-coding-agent-tree:")
+                    "\\*pi-coding-agent-tree:"
+                    "\\*Synonyms List\\*"
+                    "\\*Wordnet\\*")
                   :test 'equal)))
 
 ;; right-click
diff --git a/lisp/init-kbd.el b/lisp/init-kbd.el
@@ -171,10 +171,11 @@
   "p" #'proced
   "b" #'benchmark-init/show-durations-tree
   "B" #'benchmark-init/show-durations-tabulated
-  "s" #'syncthing
+  "S" #'syncthing
   "f" #'elfeed
   "k" #'pass
-  "g" #'gt-translate)
+  "g" #'gt-translate
+  "s" #'my-synosaurus-lookup)
 
 ;; r for replacement
 (general-def
diff --git a/lisp/init-package.el b/lisp/init-package.el
@@ -348,5 +348,20 @@ Like normal Emacs `C-k'.  Kill to end of line and put content in kill-ring."
          :taker (gt-taker :text 'word :langs '(en zh))
          :render (gt-posframe-pin-render))))
 
+;; thesaurus
+(use-package synosaurus
+  :autoload my-synosaurus-lookup
+  :config
+  (defun my-synosaurus-lookup (arg)
+    "Lookup word in thesaurus.
+With a prefix ARG replace the word under the cursor by a synonym."
+    (interactive "P")
+    (if arg
+        (call-interactively #'synosaurus-choose-and-replace)
+      (call-interactively #'synosaurus-lookup)))
+
+  (setq synosaurus-prefix nil
+        synosaurus-choose-method 'default))
+
 (provide 'init-package)
 ;;; init-package.el ends here
diff --git a/lisp/init-window.el b/lisp/init-window.el
@@ -44,6 +44,7 @@
           "^\\*pi-coding-agent-input"
           "^\\*sly"
           "\\*discomfort\\*"
+          "\\*Synonyms List\\*"
           bookmark-bmenu-mode
           lsp-bridge-ref-mode
           comint-mode