[elpa] externals/greader e600bbda79 3/3: Merge branch 'personal'

[ELPA Syncer]

branch: externals/greader
commit e600bbda798f2c71f3c3ef55dba1e98f123e7815
Merge: ddb8b4cc61 be91730a18
Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>

    Merge branch 'personal'
---
 greader-dict.el    | 12 +++++-------
 greader-espeak.el  |  7 +++++--
 greader-mac.el     |  4 +---
 greader-speechd.el |  2 +-
 greader.el         | 26 +++++++++++++++-----------
 5 files changed, 27 insertions(+), 24 deletions(-)

diff --git a/greader-dict.el b/greader-dict.el
index fed8a1e11a..3583fa56de 100644
--- a/greader-dict.el
+++ b/greader-dict.el
@@ -110,7 +110,8 @@
 ;; 
 ;;; Code:
 (require 'greader)
-
+(defgroup greader-dict nil "String substitution module for greader"
+  :group 'greader)
 ;; THanks to the loved and alwais useful elisp reference.
 (defun string-hash-ignore-case (a)
   (sxhash-equal (upcase a)))
@@ -244,7 +245,7 @@ Return nil if KEY is not present in `greader-dictionary'."
       (let ((key nil))
        (catch 'matched
          (maphash
-          (lambda (k v)
+          (lambda (k _v)
             (let* ((result (string-remove-suffix
                             greader-dict-match-indicator k))
                    (candidate-matches (string-split result "\\W" t)))
@@ -279,10 +280,7 @@ Return nil if KEY is not present in `greader-dictionary'."
       (while (not (eobp))
        (let*
            ((key (greader-dict--get-key-from-word (thing-at-point
-                                                   'word)))
-            (modified-word
-             (concat (thing-at-point 'word)
-                     greader-dict-match-indicator)))
+                                                   'word))))
          (cond
           ((equal (greader-dict-item-type key) 'word)
            (greader-dict-substitute-word (string-remove-suffix
@@ -644,7 +642,7 @@ as a word definition."
 If TYPE is `all', all items in the current dictionary will be included."
   (let ((matches nil))
     (maphash
-     (lambda (k v)
+     (lambda (k _v)
        (cond
        ((equal (greader-dict-item-type k) type)
         (let ((match (string-remove-suffix greader-dict-match-indicator k)))
diff --git a/greader-espeak.el b/greader-espeak.el
index 541fc63faa..a90fe9a6b6 100644
--- a/greader-espeak.el
+++ b/greader-espeak.el
@@ -1,4 +1,4 @@
-; greader-espeak.el
+;; greader-espeak.el  -*- lexical-binding: t; -*-
 ;; Copyright (C) 2017-2024  Free Software Foundation, Inc.
 (defgroup greader-espeak
   nil
@@ -20,7 +20,10 @@ type in a terminal: espeak --list-languages"
 
 (defcustom greader-espeak-executable-name "espeak"
   "File name of espeak executable.
-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."
+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)
 
diff --git a/greader-mac.el b/greader-mac.el
index a79a339abc..0aee5d223b 100644
--- a/greader-mac.el
+++ b/greader-mac.el
@@ -1,6 +1,4 @@
-;;; greader.el --- gnamù reader, send buffer contents to a speech engine. -*- 
lexical-binding: t; -*-
-;; FIXME: The above line is not right for this file :-(
-
+;;; greader-mac.el --- a back-end for Mac-Os tts. -*- lexical-binding: t; -*-
 ;; Copyright (C) 2017-2024  Free Software Foundation, Inc.
 
 ;;; Code:
diff --git a/greader-speechd.el b/greader-speechd.el
index 07abe1df02..23bcf34c35 100644
--- a/greader-speechd.el
+++ b/greader-speechd.el
@@ -94,7 +94,7 @@ or >2 for all punctuation."
 (defun greader-speechd-stop ()
   "Stops speech-dispatcher client."
   (start-process "speechd-client" nil greader-speechd-executable "-S")
-  (sleep-for 0 100))
+  (sleep-for 0.100))
 ;;;###autoload
 (defun greader-speechd (command &optional arg &rest _)
   "greader speech-dispatcher back-end."
diff --git a/greader.el b/greader.el
index 5990d8271d..cb9b9f78ec 100644
--- a/greader.el
+++ b/greader.el
@@ -6,7 +6,7 @@
 ;; Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
 ;; Keywords: tools, accessibility
 
-;; Version: 0.9.8
+;; Version: 0.9.9
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -1269,7 +1269,7 @@ while timer is in effect, you go back by one sentence."
 
 (defvar-local greader-queue nil
   "This is the variable that contains the queue.
-each element is formed by a cons, whose form is 'start-position
+each element is formed by a cons, whose form is `start-position
 . end-position'.")
 
 (defvar-local greader-queue-current-element nil
@@ -1391,7 +1391,7 @@ If the current element is the first, it returns it."
 
 ;; This function will act as a sentinel for the tts when invoked
 ;; by the `greader-queue-read' function.
-(defun greader-queue-next-action (&optional process string)
+(defun greader-queue-next-action (&optional _process _string)
   "Sentinel process for greader-queue-mode."
   (setq greader-queue-current-element (1+
                                       greader-queue-current-element))
@@ -1463,10 +1463,12 @@ before.")
 
 ;;;###autoload
 (define-minor-mode greader-queue-mode
-  "In this mode, text reading occurs via blocks.
-normally greader reads the text of a buffer sequentially; in queue-mode you 
add blocks of text to a queue, so you can choose only certain parts of the 
buffer.
-As reading progresses, further blocks can be added,
-or you can add the blocks and then start reading."
+  "Read buffers as blocks of text.
+In this mode, text reading occurs via blocks.  normally greader
+reads the text of a buffer sequentially; in queue-mode you add blocks
+of text to a queue, so you can choose only certain parts of the
+buffer.  As reading progresses, further blocks can be added, or you
+can add the blocks and then start reading."
   :lighter " greader-q"
   (cond
    (greader-queue-mode
@@ -1488,12 +1490,12 @@ If it is a function, it must return a string."
   "Return the value of `greader-enriched-tag'."
   (pcase greader-enriched-tag
     ((pred functionp)
-     (funcall #'greader-enriched-tag))
+     (with-no-warnings (funcall #'greader-enriched-tag)))
     ((pred stringp)
      greader-enriched-tag)))
 
 (defun greader-scrap-links (input-string)
-  "Modify the INPUT-STRING string to precede each link with 'link: '"
+  "Modify the INPUT-STRING string to precede each link with `link: '"
   (let ((pos 0)
         (modified nil)
         (result (copy-sequence input-string)))
@@ -1556,8 +1558,10 @@ guessing."
   :type 'string)
 
 (defun greader-continuous-guess-function ()
-  "Guess the function for greader-continuous mode based on 
GREADER-CONTINUOUS-KEY.
-If GREADER-CONTINUOUS-KEY is nil, checks against 
`greader-continuous-excluded-modes'
+  "Guess the function for greader-continuous mode.
+this guessing is based on GREADER-CONTINUOUS-KEY.
+If GREADER-CONTINUOUS-KEY is nil, checks against
+`greader-continuous-excluded-modes'
 and `greader-continuous-modes' to determine the appropriate function."
   (cond
    ((member major-mode greader-continuous-excluded-modes)