emacs-nano-tts-minor-mode

commit 9bdbeea061e8e043aa50cd791778126ed938ae6c
parent fb324a04088fc097d47d34bd4a3336ed4ffe7f10
Author: Yuval Langer <yuval.langer@gmail.com>
Date:   Fri,  7 Jul 2023 18:45:28 +0300

Now keybindings work, sort of.

Diffstat:
M
nano-tts.el
 | 
21
+++++++++++++++++++++

1 file changed, 21 insertions(+), 0 deletions(-)
diff --git a/nano-tts.el b/nano-tts.el
@@ -0,0 +1,21 @@
+;; -*- lexical-binding: t -*-
+
+(defun nano-tts-speak ()
+  (interactive)
+  (let ((start (min (mark) (point)))
+        (end (max (mark) (point))))
+    (call-process-region start
+                         end
+                         "espeak")))
+
+(define-minor-mode nano-tts
+  "A very small text to speech thingimajig."
+  :init-value nil
+  :lighter " ntts"
+  :keymap
+  (list (cons (kbd "C-c c")
+              'nano-tts-speak)
+        (cons (kbd "C-c C-c")
+              'nano-tts-speak)))
+
+(provide 'nano-tts)