diff options
| author | Glenn Morris | 2014-02-18 00:09:51 -0800 |
|---|---|---|
| committer | Glenn Morris | 2014-02-18 00:09:51 -0800 |
| commit | a73fae1ffa16e60f5ddc3a5536d322edc10a8a83 (patch) | |
| tree | c385145c21090a9d5e28d07a24476e902ad22b35 /lisp/textmodes | |
| parent | 1825653e3dd0c9f1d6361f0afc62301b68015acc (diff) | |
| download | emacs-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.el | 30 |
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. |
| 446 | Used 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. |
| 453 | This is passed to `format-time-string'. | ||
| 454 | Used 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'. |
| 458 | The file is named after `remember-directory-file-name-format' fed through | 461 | The 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. |
| 576 | If set to nil will use the same mode as `initial-major-mode'." | 579 | If 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." |
| 588 | Buffer 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'. | ||
| 654 | Save the current buffer if modified. If `remember-notes-bury-on-kill' | ||
| 655 | is 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 |