「第一版完成了」打算写个辅助英语学习的包，发帖立个flag在此

Jousimies · 2023 年3 月 11 日 02:16

谢谢，去看看。

popweb的单词发音很好用。

czqhurricane · 2023 年3 月 11 日 02:25

manateelazycat/popweb/blob/751e66eed0b863f86b9f9641ffd7d354aef6590a/extension/dict/popweb-dict.el#L95


      
          ;;; Code:
          
          
(setq popweb-dict-module-path (concat (file-name-directory load-file-name) "popweb-dict.py"))
          (setq popweb-dict-audio-process nil)
          
          
(defcustom popweb-dict-say-word-p t
             "Whether play voice when search words.
          Default value is t."
            :type 'boolean)
          
          
(defun popweb-dict-say-word (&optional word)
            (interactive)
            (unless word
              (setq word (popweb-dict-region-or-word))
              (message "Saying %s ..." word))
            (if (featurep 'cocoa)
                (call-process-shell-command
                 (format "say %s" word) nil 0)
              (let ((player (or (executable-find "mpv")
                                (executable-find "mplayer")
                                (executable-find "mpg123"))))

github.com

xuchunyang/youdao-dictionary.el/blob/8a4815a43565b9bfd257246e4895b8bfafb9d573/youdao-dictionary.el#L283


      
                                   :right-fringe 8
                                   :internal-border-color (face-foreground 'default)
                                   :internal-border-width 1)
                    (unwind-protect
                        (push (read-event) unread-command-events)
                      (progn
                        (posframe-delete buffer-name)
                        (other-frame 0))))
                (message "Nothing to look up"))))
          
          
(defun play-voice-of-current-word ()
            "Play voice of current word shown in *Youdao Dictionary*."
            (interactive)
            (if (local-variable-if-set-p 'youdao-dictionary-current-buffer-word)
                (-play-voice current-buffer-word)))
          
          
(define-derived-mode mode org-mode "Youdao-dictionary"
            "Major mode for viewing Youdao dictionary result.
          \\{youdao-dictionary-mode-map}"
            (read-only-mode 1)
            (define-key mode-map "q" 'quit-window)

以上两个都可以读单词发音。还有其他包，太多了。