[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/greader c926c9d48a 11/23: Changed `actual-backend' defi
From: |
ELPA Syncer |
Subject: |
[elpa] externals/greader c926c9d48a 11/23: Changed `actual-backend' definitions to `current-backend'. |
Date: |
Wed, 26 Oct 2022 05:57:48 -0400 (EDT) |
branch: externals/greader
commit c926c9d48a604cfb9b645b7488ebc87a88afda9e
Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Changed `actual-backend' definitions to `current-backend'.
---
greader.el | 27 +++++++++++++++------------
1 file changed, 15 insertions(+), 12 deletions(-)
diff --git a/greader.el b/greader.el
index 9982fa8dda..59ebf92316 100644
--- a/greader.el
+++ b/greader.el
@@ -84,8 +84,8 @@
:tag "greader back-ends"
:type '(repeat function))
(defcustom
- greader-actual-backend
- 'greader-espeak
+ greader-current-backend
+ #'greader-espeak
"Greader back-end to use."
:tag "greader actual back-end"
:type
@@ -240,8 +240,8 @@ if set to t, when you call function `greader-read', that
function sets a
\(internal use!\)."
(if arg
- (funcall greader-actual-backend command arg)
- (funcall greader-actual-backend command)))
+ (funcall greader-current-backend command arg)
+ (funcall greader-current-backend command)))
(defvar
greader-backend-filename
(greader-call-backend 'executable))
@@ -249,6 +249,7 @@ if set to t, when you call function `greader-read', that
function sets a
(defvar greader-orig-buffer nil)
(defvar greader-dissoc-buffer "*Dissociation*")
(defvar greader-temp-function nil)
+
(defun greader-change-backend (&optional backend)
"Change BACKEND used for actually read the buffer.
If backend is
@@ -260,7 +261,7 @@ backends."
(completing-read"back-end:" (greader--get-backends)))))
(if (functionp backend)
(if (memq backend greader-backends)
- (setq-local greader-actual-backend backend)
+ (setq-local greader-current-backend backend)
(error "%s" "The function you have specified is not a greader's
back-end.")))
(if (stringp backend)
(progn
@@ -271,17 +272,19 @@ backends."
(get elem 'greader-backend-name) backend)
(setq result elem)))
(if result
- (setq-local greader-actual-backend result)
+ (setq-local greader-current-backend result)
(error "%s" "the function name you have specified is not a
greader's back-end.")))))
(if (not backend)
(let
- ((index (seq-position greader-backends greader-actual-backend))
+ ((index (seq-position greader-backends greader-current-backend))
(len (length greader-backends)))
- (if
- (= (+ index 1) len)
- (setq-local greader-actual-backend (elt greader-backends 0))
- (setq-local greader-actual-backend (elt greader-backends (+ index
1))))))
- (message "Actual back-end is %s." (get greader-actual-backend
'greader-backend-name)))
+ ;; FIXME: BTW, instead of messing with positions, you can do
+ ;; (car (or (cdr (memq greader-current-backend greader-backends))
+ ;; greader-backends))
+ (setq-local greader-current-backend
+ (elt greader-backends
+ ;; FIXME: a.k.a (mod (+ index 1) len).
+ (message "Current back-end is %s." (get greader-current-backend
'greader-backend-name)))
(defun greader-load-backends ()
"Load backends taken from `greader-backends'."
- [elpa] externals/greader 017d264a9d 07/23: More work on last commit., (continued)
- [elpa] externals/greader 017d264a9d 07/23: More work on last commit., ELPA Syncer, 2022/10/26
- [elpa] externals/greader 077c8261e3 04/23: Functions `greader-get-sentence' and `greader-forward-sentence', ELPA Syncer, 2022/10/26
- [elpa] externals/greader faa0d5d94b 21/23: Command `greader-compile-goto-source added., ELPA Syncer, 2022/10/26
- [elpa] externals/greader 8dbbdfb10c 15/23: greader-reading-map default bindings changed plus indentation, ELPA Syncer, 2022/10/26
- [elpa] externals/greader 54c0a2b6b5 16/23: General cleanup and restiling., ELPA Syncer, 2022/10/26
- [elpa] externals/greader 63de204419 14/23: Removed handling of auto-tired-mode in greader-minor-mode definition, ELPA Syncer, 2022/10/26
- [elpa] externals/greader 68c694f9f6 10/23: Changed references from "chung" to "chunk"., ELPA Syncer, 2022/10/26
- [elpa] externals/greader e17dbbf002 09/23: Revert "Aggiunto il diario a .gitignore", ELPA Syncer, 2022/10/26
- [elpa] externals/greader f13b963692 03/23: More work on last commit., ELPA Syncer, 2022/10/26
- [elpa] externals/greader 976d1b11d3 06/23: greader-dehyphenate rewritten., ELPA Syncer, 2022/10/26
- [elpa] externals/greader c926c9d48a 11/23: Changed `actual-backend' definitions to `current-backend'.,
ELPA Syncer <=
- [elpa] externals/greader 9b95142531 19/23: More restiling and minor fixes on new features., ELPA Syncer, 2022/10/26
- [elpa] externals/greader 9da8bcf54e 18/23: General cleanup and rehorganization., ELPA Syncer, 2022/10/26
- [elpa] externals/greader bb6990c384 13/23: Removed some unused variables, ELPA Syncer, 2022/10/26
- [elpa] externals/greader 62f81b5e81 22/23: cleanup and restiling., ELPA Syncer, 2022/10/26
- [elpa] externals/greader 484ef1a836 17/23: New feature added: greader-compile., ELPA Syncer, 2022/10/26
- [elpa] externals/greader fe403c8ea1 05/23: Variable `greader-hyphen-regex' added., ELPA Syncer, 2022/10/26
- [elpa] externals/greader ae6e7524b9 23/23: Merge branch 'experimental', ELPA Syncer, 2022/10/26
- [elpa] externals/greader 1397216a72 08/23: Aggiunto il diario a .gitignore, ELPA Syncer, 2022/10/26
- [elpa] externals/greader 3e35f1ec72 01/23: Echo filtering of espeak process output disabled., ELPA Syncer, 2022/10/26
- [elpa] externals/greader e59b4b1d17 20/23: function greader-end-sentence-p removed, ELPA Syncer, 2022/10/26