[elpa] externals/greader 08b0ebb 25/76: greader-speechd.el:

[Stefan Monnier]

branch: externals/greader
commit 08b0ebb6097cafbf912ae55d867646dabe3e0374
Author: Michelangelo Rodriguez <address@hidden>
Commit: Michelangelo Rodriguez <address@hidden>

    greader-speechd.el:
    function greader-speechd-set-rate added.
---
 greader-speechd.el | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/greader-speechd.el b/greader-speechd.el
index a608b19..3d3310a 100644
--- a/greader-speechd.el
+++ b/greader-speechd.el
@@ -53,3 +53,10 @@ if lang is omitted, it looks in variable 
greader-speechd-language and retrieves
     (concat "-l " greader-speechd-language)
     (concat "-l " lang)))
 
+(defun greader-speechd-set-rate
+    (&optional rate)
+  "returns parameter suitable for spd-say to set speech rate.
+for further documentation, see the documentation for greader-speechd-rate 
variable."
+  (if (not rate)
+      (concat "-r " (number-to-string greader-speechd-rate))
+    (concat "-r " (number-to-string rate))))