aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorGlenn Morris2014-02-18 00:09:51 -0800
committerGlenn Morris2014-02-18 00:09:51 -0800
commita73fae1ffa16e60f5ddc3a5536d322edc10a8a83 (patch)
treec385145c21090a9d5e28d07a24476e902ad22b35 /lisp/textmodes
parent1825653e3dd0c9f1d6361f0afc62301b68015acc (diff)
downloademacs-a73fae1ffa16e60f5ddc3a5536d322edc10a8a83.tar.gz
emacs-a73fae1ffa16e60f5ddc3a5536d322edc10a8a83.zip
Some remember doc
* doc/misc/remember.texi (copying): Bump remember mode version. (Installation): Remove unnecessary chapter. (Quick Start): No need to explicitly load remember.el. (Separate Text Files): New section. * lisp/textmodes/remember.el (remember-data-directory) (remember-directory-file-name-format, remember-store-in-files) (remember-notes-initial-major-mode, remember-notes-bury-on-kill) (remember-notes-save-and-bury-buffer) (remember-notes--kill-buffer-query): Doc fixes. * etc/NEWS: Related edit.
Diffstat (limited to 'lisp/textmodes')
-rw-r--r--lisp/textmodes/remember.el30
1 files changed, 19 insertions, 11 deletions
diff --git a/lisp/textmodes/remember.el b/lisp/textmodes/remember.el
index 33e44c05c33..a9eb7ad4ec8 100644
--- a/lisp/textmodes/remember.el
+++ b/lisp/textmodes/remember.el
@@ -442,21 +442,24 @@ If you want to remember a region, supply a universal prefix to
442 (remember-destroy)))) 442 (remember-destroy))))
443 443
444(defcustom remember-data-directory "~/remember" 444(defcustom remember-data-directory "~/remember"
445 "The directory in which to store remember data as files." 445 "The directory in which to store remember data as files.
446Used by `remember-store-in-files'."
446 :type 'directory 447 :type 'directory
447 :version "24.4" 448 :version "24.4"
448 :group 'remember) 449 :group 'remember)
449 450
450(defcustom remember-directory-file-name-format "%Y-%m-%d_%T-%z" 451(defcustom remember-directory-file-name-format "%Y-%m-%d_%T-%z"
451 "Format string for the file name in which to store unprocessed data." 452 "Format string for the file name in which to store unprocessed data.
453This is passed to `format-time-string'.
454Used by `remember-store-in-files'."
452 :type 'string 455 :type 'string
453 :version "24.4" 456 :version "24.4"
454 :group 'remember) 457 :group 'remember)
455 458
456(defun remember-store-in-files () 459(defun remember-store-in-files ()
457 "Store remember data in a file in `remember-data-directory'. 460 "Store remember data in a file in `remember-data-directory'.
458The file is named after `remember-directory-file-name-format' fed through 461The file is named by calling `format-time-string' using
459`format-time-string'." 462`remember-directory-file-name-format' as the format string."
460 (let ((name (format-time-string 463 (let ((name (format-time-string
461 remember-directory-file-name-format (current-time))) 464 remember-directory-file-name-format (current-time)))
462 (text (buffer-string))) 465 (text (buffer-string)))
@@ -572,20 +575,19 @@ purpose of storing notes."
572 :version "24.4") 575 :version "24.4")
573 576
574(defcustom remember-notes-initial-major-mode nil 577(defcustom remember-notes-initial-major-mode nil
575 "Major mode to set to notes buffer when it's created. 578 "Major mode to use in the notes buffer when it's created.
576If set to nil will use the same mode as `initial-major-mode'." 579If this is nil, use `initial-major-mode'."
577 :type '(choice (const :tag "Same as `initial-major-mode'" nil) 580 :type '(choice (const :tag "Use `initial-major-mode'" nil)
578 (function :tag "Major mode" text-mode)) 581 (function :tag "Major mode" text-mode))
579 :version "24.4") 582 :version "24.4")
580 583
581(defcustom remember-notes-bury-on-kill t 584(defcustom remember-notes-bury-on-kill t
582 "Whether to bury notes buffer instead of killing." 585 "Non-nil means `kill-buffer' will bury the notes buffer instead of killing."
583 :type 'boolean 586 :type 'boolean
584 :version "24.4") 587 :version "24.4")
585 588
586(defun remember-notes-save-and-bury-buffer () 589(defun remember-notes-save-and-bury-buffer ()
587 "Saves and buries current buffer. 590 "Save (if it is modified) and bury the current buffer."
588Buffer is saved only if `buffer-modified-p' returns non-nil."
589 (interactive) 591 (interactive)
590 (when (buffer-modified-p) 592 (when (buffer-modified-p)
591 (save-buffer)) 593 (save-buffer))
@@ -648,10 +650,16 @@ preserve across Emacs restarts. The notes will be stored in the
648 buf)) 650 buf))
649 651
650(defun remember-notes--kill-buffer-query () 652(defun remember-notes--kill-buffer-query ()
653 "Function that `remember-notes-mode' adds to `kill-buffer-query-functions'.
654Save the current buffer if modified. If `remember-notes-bury-on-kill'
655is non-nil, bury it and return nil; otherwise return t."
651 (when (buffer-modified-p) 656 (when (buffer-modified-p)
652 (save-buffer)) 657 (save-buffer))
653 (if remember-notes-bury-on-kill 658 (if remember-notes-bury-on-kill
654 (bury-buffer) 659 (progn
660 ;; bury-buffer always returns nil, but let's be explicit.
661 (bury-buffer)
662 nil)
655 t)) 663 t))
656 664
657;;; remember.el ends here 665;;; remember.el ends here