[elpa] externals/greader 489d211 28/76: greader-speechd.el:

[Stefan Monnier]

branch: externals/greader
commit 489d211aeb3b4356ded592767387cef2c8b66118
Author: Michelangelo Rodriguez <address@hidden>
Commit: Michelangelo Rodriguez <address@hidden>

    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)))