branch: externals/greader
commit b984183b22da5923d786e6f2b7429e9a299c2b37
Author: Michelangelo Rodriguez <[email protected]>
Commit: Michelangelo Rodriguez <[email protected]>
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)))))
