[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 72d4522: Add option remember-diary-regexp
From: |
Lars Ingebrigtsen |
Subject: |
master 72d4522: Add option remember-diary-regexp |
Date: |
Wed, 20 Jan 2021 11:45:21 -0500 (EST) |
branch: master
commit 72d4522b05c81ba9400603963db55e47c6d836ce
Author: Gabriel do Nascimento Ribeiro <gabriel.nascimento@nubank.com.br>
Commit: Lars Ingebrigtsen <larsi@gnus.org>
Add option remember-diary-regexp
* lisp/textmodes/remember.el (remember-diary-extract-entries): Use
it (bug#45808).
(remember-diary-regexp): New variable.
---
etc/NEWS | 3 +++
lisp/textmodes/remember.el | 12 +++++++++---
2 files changed, 12 insertions(+), 3 deletions(-)
diff --git a/etc/NEWS b/etc/NEWS
index 7a012b4..a0e1e3b 100644
--- a/etc/NEWS
+++ b/etc/NEWS
@@ -1557,6 +1557,9 @@ that makes it a valid button.
** Miscellaneous
+---
+*** New user option 'remember-diary-regexp'.
+
*** New function 'buffer-line-statistics'.
This function returns some statistics about the line lengths in a buffer.
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el
index 98d3a38..92706e3 100644
--- a/lisp/textmodes/remember.el
+++ b/lisp/textmodes/remember.el
@@ -159,7 +159,8 @@
;; ;; This should be before other entries that may return t
;; (add-to-list 'remember-handler-functions 'remember-diary-extract-entries)
;;
-;; This module recognizes entries of the form
+;; This module recognizes entries of the form (defined by
+;; `remember-diary-regexp')
;;
;; DIARY: ....
;;
@@ -532,13 +533,18 @@ If this is nil, then `diary-file' will be used instead."
(autoload 'diary-make-entry "diary-lib")
+(defcustom remember-diary-regexp "^DIARY:\\s-*\\(.+\\)"
+ "Regexp to extract diary entries."
+ :type 'regexp
+ :version "28.1")
+
;;;###autoload
(defun remember-diary-extract-entries ()
- "Extract diary entries from the region."
+ "Extract diary entries from the region based on `remember-diary-regexp'."
(save-excursion
(goto-char (point-min))
(let (list)
- (while (re-search-forward "^DIARY:\\s-*\\(.+\\)" nil t)
+ (while (re-search-forward remember-diary-regexp nil t)
(push (remember-diary-convert-entry (match-string 1)) list))
(when list
(diary-make-entry (mapconcat 'identity list "\n")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 72d4522: Add option remember-diary-regexp,
Lars Ingebrigtsen <=