Emacs 中的文本转语音

Question

我不是瞎子，我只是想有一种方法让我的 Windows 机器大声读取缓冲区的内容。以下是基本要求：

• 读取任何英文文本缓冲区。
• 随时暂停阅读并随时恢复（而不是当有人走进我的办公室时等待几分钟等待大缓冲区完成）。
• 调整播放时的读回速度。
• 突出显示当前正在阅读的文本（可选）

我发现了一些可能的解决方案：

• Emacspeak：专为盲人设计。看起来像一个独立的程序，而不是 Emacs 插件
• festival.el：需要节日。我找不到 Festival 的 Windows 二进制文件。有人有吗？
• 我也可以自己写。如今，文本转语音 (TTS) 库非常多。交互式暂停功能可能是最大的技巧，但一定有一些库可以做到这一点。

哪个选项是最好的计划？我不想在这里进行为期一周的项目。在 Windows 中编译 Festival 是一个痛苦的实验。对于我想要的东西来说，Emacspeak 看起来有点矫枉过正。

Answer 1

适用于 Windows 的 Festival 可在此处获取。我不能保证 Festival.el 可以使用这些二进制文件。不过，我确实有使用这些二进制文件的经验，因此，如果您在使它们在 Emacs 之外工作时遇到问题，我也许可以提供帮助。

我不认为你可以控制节日的播放速度，尽管我可能是错的。至于保持对它的控制，我想说你最好的选择是对其进行编程，以便它一次只向节日发送一小部分。否则，确实没有任何方法可以阻止它在完成之前读取。

基本上，我认为没有任何东西可以在不做一些工作的情况下满足您的最低要求。

编辑：回顾您的要求后，我想说最好的方法是破解 Festival.el 一次向 Festival 发送一句话。然后你可以编写一个击键来杀死它，这样它就只会完成当前的句子。同时，您的脚本可以突出显示当前发送到 Festival 的句子。

Answer 2

我有一个基于 Python pyttsx 模块的简单解决方案。这将启动一个 python 脚本作为 emacs 进程并向其发送要读取的字符串。

(defvar tts nil "text to speech process")

(defun tts-up ()
  (interactive)
  (and (not (null tts))
       (eq (process-status tts) 'run)))

(defun tts-start ()
  (interactive)
  (if (not (tts-up))
      (setq tts
            (start-process "tts-python"
                           "*tts-python*"
                           "python" "speak.py"))))

(defun tts-end ()
  (interactive)
  (delete-process tts)
  (setq tts nil))

(defun tts-say (text)
  (interactive)
  (tts-start)
  (process-send-string tts (concat text "\n")))

python文件speak.py：

import pyttsx

engine = pyttsx.init()

def say(data):
    engine.say(data)
    engine.runAndWait()

while True:
    say(raw_input())