[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/greader 2b19ab74b7 01/10: greader-read:
From: |
ELPA Syncer |
Subject: |
[elpa] externals/greader 2b19ab74b7 01/10: greader-read: |
Date: |
Thu, 19 May 2022 17:57:50 -0400 (EDT) |
branch: externals/greader
commit 2b19ab74b7f850a1e171a931dec355d05561263d
Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
Commit: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
greader-read:
Added a "register" feature, in which you, when call greader-read, that
function sets a register.
If you stop reading, or you have lost some contents of your reading, if you
call greader-read with a prefix argument, point is moved at the register
position and restarts reading from there.
some other minor fixes that include using keywords in define-minor-mode,
updating the copyright notice to reflect actual year.
---
greader.el | 16 ++++++++++------
1 file changed, 10 insertions(+), 6 deletions(-)
diff --git a/greader.el b/greader.el
index 9bd6a9468a..2d7478e3c0 100644
--- a/greader.el
+++ b/greader.el
@@ -1,6 +1,6 @@
;;; greader.el --- gnamù reader, a reader with espeak tts -*-
lexical-binding: t; -*-
-;; Copyright (C) 2017-2019 Free Software Foundation, Inc.
+;; Copyright (C) 2017-2021 Free Software Foundation, Inc.
;; package-requires: ((emacs "25"))
;; Author: Michelangelo Rodriguez <michelangelo.rodriguez@gmail.com>
@@ -179,9 +179,8 @@ For example, if you specify a function that gets a
sentence, you should specify
(define-key greader-map (kbd "C-r b") 'greader-change-backend)
(define-minor-mode greader-mode
nil
- nil
- " greader"
- greader-map
+ :lighter " greader"
+ :keymap greader-map
:group greader
(if greader-mode
(if greader-auto-tired-mode
@@ -336,9 +335,13 @@ For example, if you specify a function that gets a
sentence, you should specify
(funcall greader-move-to-next-chung)
(funcall 'greader-read))
-(defun greader-read ()
+(defun greader-read (&optional goto-marker)
"starts reading of current buffer."
- (interactive)
+ (interactive "P")
+ (when goto-marker
+ (jump-to-register ?G))
+ (when (called-interactively-p 'any)
+ (point-to-register ?G))
(if (and greader-tired-flag (= greader-elapsed-time 0))
(progn
(if greader-tired-timer
@@ -778,3 +781,4 @@ new lines can be either in unix stile, or ms, or macosX."
(print (text-properties-at (point))))
(provide 'greader)
;;; greader.el ends here
+
- [elpa] externals/greader updated (3e89c61cea -> 6cdd50201e), ELPA Syncer, 2022/05/19
- [elpa] externals/greader dbfa7c2b05 04/10: greader.el:, ELPA Syncer, 2022/05/19
- [elpa] externals/greader 12cc9144dc 03/10: Added customization variable `greader-use-register'., ELPA Syncer, 2022/05/19
- [elpa] externals/greader ffad09e2ad 02/10: Doc for `greader-read' updated to explain how that function works with prefix., ELPA Syncer, 2022/05/19
- [elpa] externals/greader c03d58e8f5 06/10: some other correction of tipos., ELPA Syncer, 2022/05/19
- [elpa] externals/greader b4651a6efd 08/10: working on text2audio started., ELPA Syncer, 2022/05/19
- [elpa] externals/greader 2b19ab74b7 01/10: greader-read:,
ELPA Syncer <=
- [elpa] externals/greader 48064d449e 05/10: Corrected many tipos in source., ELPA Syncer, 2022/05/19
- [elpa] externals/greader 89df9b95ab 07/10: greader-pkg.el added., ELPA Syncer, 2022/05/19
- [elpa] externals/greader 2b803272e5 09/10: changing branch., ELPA Syncer, 2022/05/19
- [elpa] externals/greader 6cdd50201e 10/10: espeak fix added., ELPA Syncer, 2022/05/19