branch: externals/greader
commit 489d211aeb3b4356ded592767387cef2c8b66118
Author: Michelangelo Rodriguez <[email protected]>
Commit: Michelangelo Rodriguez <[email protected]>
greader-speechd.el:
function greader-speechd-stop added, and command stop implemented.
---
greader-speechd.el | 5 +++++
1 file changed, 5 insertions(+)
diff --git a/greader-speechd.el b/greader-speechd.el
index 843ea7d..9808f65 100644
--- a/greader-speechd.el
+++ b/greader-speechd.el
@@ -77,6 +77,9 @@ 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-stop ()
+ "stops speech-dispatcher client."
+ (start-process "speechd-client" nil greader-speechd-executable-path "-s"))
(defun greader-speechd (command &optional arg &rest ignore)
"greader speech-dispatcher back-end."
(pcase command
@@ -94,5 +97,7 @@ punct must be a numeric value, 0 for no punctuation, 1 for
some and 2 or >2 for
(if (not arg)
(greader-speechd-set-punctuation)
(greader-speechd-set-punctuation arg)))
+ ('stop
+ (greader-speechd-stop))
(not-implemented
'not-implemented)))
