branch: externals/greader
commit 4ef8c7df9d1a70e4438df55efe14616caee30044
Author: Michelangelo Rodriguez <[email protected]>
Commit: Michelangelo Rodriguez <[email protected]>
work on punctuation completed.
---
greader-espeak.el | 13 ++++++-------
greader.el | 6 +++---
2 files changed, 9 insertions(+), 10 deletions(-)
diff --git a/greader-espeak.el b/greader-espeak.el
index 604dbd5..cac7780 100644
--- a/greader-espeak.el
+++ b/greader-espeak.el
@@ -3,11 +3,11 @@
-;Copyright (C) 2019 by Michelangelo Rodriguez
+ ;Copyright (C) 2019 by Michelangelo
Rodriguez
(defgroup greader-espeak
-nil
+ nil
"back-end of espeak for greader."
:group 'greader
)
@@ -39,7 +39,7 @@ this variable determines authomatically if espeak is present
in your PATH enviro
"espeak punctuation switch."
:tag "espeak punctuation"
:type 'boolean)
-
+
;;; code
(defun greader-espeak-set-rate
(&optional rate)
@@ -92,9 +92,8 @@ this function accepts only nil or t."
greader-espeak-rate)))
('punctuation
(cond
-
(
- (or (equal arg 'yes) arg)
+ (equal arg 'yes)
(setq-local greader-espeak-punctuation t)
"--punct")
(
@@ -104,8 +103,8 @@ this function accepts only nil or t."
((not arg)
(if greader-espeak-punctuation
"--punct"
- greader-espeak-punctuation))))
-
+ nil))))
+
(command-not-implemented
'not-implemented)))
(put 'greader-espeak 'greader-backend-name "greader-espeak")
diff --git a/greader.el b/greader.el
index 6894d61..06ef1ea 100644
--- a/greader.el
+++ b/greader.el
@@ -467,15 +467,15 @@ This function sets the language of tts local for current
buffer, so if you want
(defun greader-toggle-punctuation ()
"Toggles punctuation locally for current buffer."
(interactive)
- (if (equal (greader-call-backend 'punctuation) "")
+ (if (not (greader-call-backend 'punctuation))
(progn
(greader-stop)
- (greader-set-punctuation t)
+ (greader-set-punctuation 'yes)
(message "punctuation enabled in current buffer")
(greader-read))
(progn
(greader-stop)
- (greader-set-punctuation nil)
+ (greader-set-punctuation 'no)
(message "punctuation disabled in current buffer")
(greader-read))))
