From ffbc75017407dd47569c61119a8c74703f3cfe13 Mon Sep 17 00:00:00 2001 From: Zedhugh Chen Date: Thu, 2 Jan 2025 08:47:43 +0800 Subject: [PATCH] add pronounce function for sdcv --- lisp/init-sdcv.el | 19 ++++++++++++++++--- 1 file changed, 16 insertions(+), 3 deletions(-) diff --git a/lisp/init-sdcv.el b/lisp/init-sdcv.el index 87e623e..88650fb 100644 --- a/lisp/init-sdcv.el +++ b/lisp/init-sdcv.el @@ -6,10 +6,20 @@ (require 'lazy-load) - (require 'init-keybindings) + +(autoload 'sdcv-say-word "sdcv" "") +(defun sdcv-say-word-dwim () + "If region active, say the region text, otherwise say the word at point." + (interactive) + (sdcv-say-word + (if (region-active-p) + (buffer-substring-no-properties (region-beginning) (region-end)) + (word-at-point t)))) + (lazy-load-local-keys - '(("s" . sdcv-search-pointer)) + '(("s" . sdcv-search-pointer) + ("p" . sdcv-say-word-dwim)) creature/map "sdcv") (with-eval-after-load 'sdcv @@ -21,7 +31,10 @@ (setq sdcv-dictionary-complete-list '("牛津英汉双解美化版" "朗道英汉字典5.0" - "朗道汉英字典5.0"))) + "朗道汉英字典5.0")) + (lazy-load-set-keys + '(("P" . sdcv-say-word-dwim)) + sdcv-mode-map)) (provide 'init-sdcv)