[elpa] externals/greader 2d6f70a 11/76: greader-espeak.el:

[Stefan Monnier]

branch: externals/greader
commit 2d6f70a7d41e87cf49a6541d3df89b72bc871297
Author: Michelangelo Rodriguez <address@hidden>
Commit: Michelangelo Rodriguez <address@hidden>

    greader-espeak.el:
    greader-espeak-set-rate function added.
    It does'nt set nothing, but i decided to call that function in that way 
because it returns the espeak parameter that serves to set speech rate.
---
 greader-espeak.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/greader-espeak.el b/greader-espeak.el
index 5a1db3e..f7e24ab 100644
--- a/greader-espeak.el
+++ b/greader-espeak.el
@@ -21,3 +21,9 @@ espeak --list-languages
   "Specifies the rate os speech in words per minute."
   :tag "greader espeak rate"
   :type 'integer)
+(defun greader-espeak-set-rate
+    (&optional rate)
+  "returns a string suitable for setting espeak rate."
+  (if (not rate)
+      (concat "-s" (number-to-string greader-espeak-rate))
+    (concat "-s" (number-to-string rate))))