[elpa] externals/greader 55cc804 27/76: greader-speechd.el:

[Stefan Monnier]

branch: externals/greader
commit 55cc804ffcc4442d40b64ec49cab01b25d440006
Author: Michelangelo Rodriguez <address@hidden>
Commit: Michelangelo Rodriguez <address@hidden>

    greader-speechd.el:
    function greader-speechd added, and implemented commands.
---
 greader-speechd.el | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/greader-speechd.el b/greader-speechd.el
index 320b23f..843ea7d 100644
--- a/greader-speechd.el
+++ b/greader-speechd.el
@@ -77,3 +77,22 @@ punct must be a numeric value, 0 for no punctuation, 1 for 
some and 2 or >2 for
         (throw 'return (concat "-p some")))
      (if (>= punct 2)
         (throw 'return (concat "-p all")))))))
+(defun greader-speechd (command &optional arg &rest ignore)
+  "greader speech-dispatcher back-end."
+  (pcase command
+    ('executable
+     greader-speechd-executable-path)
+    ('lang
+     (if (not arg)
+        (greader-speechd-set-language)
+       (greader-speechd-set-language arg)))
+    ('rate
+     (if (not arg)
+        (greader-speechd-set-rate)
+       (greader-speechd-set-rate arg)))
+    ('punct
+     (if (not arg)
+        (greader-speechd-set-punctuation)
+       (greader-speechd-set-punctuation arg)))
+    (not-implemented
+     'not-implemented)))