[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r112370: * textmodes/remember.el (rem
From: |
Bastien Guerry |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r112370: * textmodes/remember.el (remember-handler-functions): Add an |
Date: |
Wed, 24 Apr 2013 16:35:59 +0200 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 112370
committer: Bastien Guerry <address@hidden>
branch nick: trunk
timestamp: Wed 2013-04-24 16:35:59 +0200
message:
* textmodes/remember.el (remember-handler-functions): Add an
option for a new handler `remember-store-in-files'.
(remember-data-directory, remember-directory-file-name-format):
New options.
(remember-store-in-files): New function to store remember notes
as separate files within a directory.
modified:
lisp/ChangeLog
lisp/textmodes/remember.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-04-24 13:50:22 +0000
+++ b/lisp/ChangeLog 2013-04-24 14:35:59 +0000
@@ -1,3 +1,12 @@
+2013-04-24 Reuben Thomas <address@hidden>
+
+ * textmodes/remember.el (remember-handler-functions): Add an
+ option for a new handler `remember-store-in-files'.
+ (remember-data-directory, remember-directory-file-name-format):
+ New options.
+ (remember-store-in-files): New function to store remember notes
+ as separate files within a directory.
+
2013-04-24 Magnus Henoch <address@hidden>
* progmodes/compile.el (compilation-next-error-function):
=== modified file 'lisp/textmodes/remember.el'
--- a/lisp/textmodes/remember.el 2013-03-12 02:08:21 +0000
+++ b/lisp/textmodes/remember.el 2013-04-24 14:35:59 +0000
@@ -216,10 +216,11 @@
Each function is called with the current buffer narrowed to what the
user wants remembered.
If any function returns non-nil, the data is assumed to have been
-recorded somewhere by that function. "
+recorded somewhere by that function."
:type 'hook
:options '(remember-store-in-mailbox
remember-append-to-file
+ remember-store-in-files
remember-diary-extract-entries
org-remember-handler)
:group 'remember)
@@ -429,6 +430,27 @@
(run-hook-with-args-until-success 'remember-handler-functions))
(remember-destroy))))
+(defcustom remember-data-directory "~/remember"
+ "The directory in which to store remember data as files."
+ :type 'file
+ :group 'remember)
+
+(defcustom remember-directory-file-name-format "%Y-%m-%d_%T-%z"
+ "Format string for the file name in which to store unprocessed data."
+ :type 'file
+ :group 'remember)
+
+(defun remember-store-in-files ()
+ "Store remember data in a file in `remember-data-directory'.
+The file is named after `remember-directory-file-name-format'."
+ (let ((name (format-time-string
+ remember-directory-file-name-format (current-time)))
+ (text (buffer-string)))
+ (with-temp-buffer
+ (insert text)
+ (write-file (convert-standard-filename
+ (format "%s/%s" remember-data-directory name))))))
+
;;;###autoload
(defun remember-clipboard ()
"Remember the contents of the current clipboard.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r112370: * textmodes/remember.el (remember-handler-functions): Add an,
Bastien Guerry <=