branch: externals/greader
commit 55cc804ffcc4442d40b64ec49cab01b25d440006
Author: Michelangelo Rodriguez <[email protected]>
Commit: Michelangelo Rodriguez <[email protected]>
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)))
