[elpa] externals/greader b984183 14/76: greader-espeak.el:

[Stefan Monnier]

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

    greader-espeak.el:
    
    handling of commands executable, lang and rate added to greader-espeak 
function, that shall be the back-end interface to greader.
---
 greader-espeak.el | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/greader-espeak.el b/greader-espeak.el
index 77c97c2..d687721 100644
--- a/greader-espeak.el
+++ b/greader-espeak.el
@@ -28,6 +28,7 @@ espeak --list-languages
 this variable determines authomatically if espeak is present in your PATH 
environment, then if this variable is nil, it means that you must first install 
espeak."
 :tag "espeak executable"
 :type 'string)
+
 ;;; code
 (defun greader-espeak-set-rate
     (&optional rate)
@@ -47,3 +48,18 @@ this variable determines authomatically if espeak is present 
in your PATH enviro
   "tries to find espeak executable in PATH.
 If it's present, returns absolute path of espeak, else returns nil."
 (locate-file "espeak" exec-path))
+(defun greader-espeak (command &optional arg &rest args)
+  "back-end main function of greader-espeak."
+  (pcase command
+    ('executable
+     (if greader-espeak-executable-name
+        greader-espeak-executable-name
+       nil))
+    ('lang
+     (if (not arg)
+        (greader-espeak-set-language)
+       (greader-espeak-set-language arg)))
+    ('rate
+     (if (not arg)
+       (greader-espeak-set-rate)
+       (greader-espeak-set-rate arg)))))