annotate lisp/textmodes/remember.el @ 91473:d9afb7a33dc0

*** empty log message ***
author Juanma Barranquero <lekktu@gmail.com>
date Sat, 02 Feb 2008 18:42:05 +0000
parents b9e8ab94c460
children d2b14ee5ca13
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
1 ;;; remember --- a mode for quickly jotting down things to remember
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
2
87665
b9e8ab94c460 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 87626
diff changeset
3 ;; Copyright (C) 1999, 2000, 2001, 2003, 2004, 2005, 2006, 2007,
b9e8ab94c460 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 87626
diff changeset
4 ;; 2008 Free Software Foundation, Inc.
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
5
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
6 ;; Author: John Wiegley <johnw@gnu.org>
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
7 ;; Created: 29 Mar 1999
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
8 ;; Version: 1.9
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
9 ;; Keywords: data memory todo pim
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
10 ;; URL: http://gna.org/projects/remember-el/
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
11
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
12 ;; This file is part of GNU Emacs.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
13
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
14 ;; GNU Emacs is free software; you can redistribute it and/or modify
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
15 ;; it under the terms of the GNU General Public License as published by
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
16 ;; the Free Software Foundation; either version 3, or (at your option)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
17 ;; any later version.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
18
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
19 ;; GNU Emacs is distributed in the hope that it will be useful,
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
20 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
21 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
22 ;; GNU General Public License for more details.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
23
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
24 ;; You should have received a copy of the GNU General Public License
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
25 ;; along with GNU Emacs; see the file COPYING. If not, write to the
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
26 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
27 ;; Boston, MA 02110-1301, USA.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
28
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
29 ;;; Commentary:
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
30
85886
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
31 ;; * The idea
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
32 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
33 ;; Todo lists, schedules, phone databases... everything we use
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
34 ;; databases for is really just a way to extend the power of our
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
35 ;; memory. To be able to remember what our conscious mind may not
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
36 ;; currently have access to.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
37 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
38 ;; There are many different databases out there -- and good ones --
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
39 ;; which this mode is not trying to replace. Rather, it's how that
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
40 ;; data gets there that's the question. Most of the time, we just
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
41 ;; want to say "Remember so-and-so's phone number, or that I have to
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
42 ;; buy dinner for the cats tonight." That's the FACT. How it's
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
43 ;; stored is really the computer's problem. But at this point in
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
44 ;; time, it's most definitely also the user's problem, and sometimes
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
45 ;; so laboriously so that people just let data slip, rather than
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
46 ;; expend the effort to record it.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
47 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
48 ;; "Remember" is a mode for remembering data. It uses whatever
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
49 ;; back-end is appropriate to record and correlate the data, but it's
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
50 ;; main intention is to allow you to express as _little_ structure as
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
51 ;; possible up front. If you later want to express more powerful
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
52 ;; relationships between your data, or state assumptions that were at
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
53 ;; first too implicit to be recognized, you can "study" the data later
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
54 ;; and rearrange it. But the initial "just remember this" impulse
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
55 ;; should be as close to simply throwing the data at Emacs as
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
56 ;; possible.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
57 ;;
85886
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
58 ;; * Implementation
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
59 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
60 ;; Hyperbole, as a data presentation tool, always struck me as being
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
61 ;; very powerful, but it seemed to require a lot of "front-end" work
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
62 ;; before that data was really available. The problem with BBDB, or
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
63 ;; keeping up a Bibl-mode file, is that you have to use different
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
64 ;; functions to record the data, and it always takes time to stop what
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
65 ;; you're doing, format the data in the manner expected by that
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
66 ;; particular data interface, and then resume your work.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
67 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
68 ;; With "remember", you just hit `M-x remember' (you'd probably want
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
69 ;; to bind this to an easily accessible keystroke, like C-x M-r), slam
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
70 ;; in your text however you like, and then hit C-c C-c. It will file
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
71 ;; the data away for later retrieval, and possibly indexing.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
72 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
73 ;; Indexing is to data what "studying" is in the real world. What you
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
74 ;; do when you study (or lucubrate, for some of us) is to realize
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
75 ;; certain relationships implicit in the data, so that you can make
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
76 ;; use of those relationships. Expressing that a certain quote you
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
77 ;; remembered was a religious quote, and that you want the ability to
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
78 ;; pull up all quotes of a religious nature, is what studying does.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
79 ;; This is a more labor intensive task than the original remembering
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
80 ;; of the data, and it's typical in real life to set aside a special
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
81 ;; period of time for doing this work.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
82 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
83 ;; "Remember" works in the same way. When you enter data, either by
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
84 ;; typing it into a buffer, or using the contents of the selected
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
85 ;; region, it will store that data -- unindexed, uninterpreted -- in a
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
86 ;; data pool. It will also try to remember as much context
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
87 ;; information as possible (any text properties that were set, where
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
88 ;; you copied it from, when, how, etc). Later, you can walk through
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
89 ;; your accumulated set of data (both organized, and unorganized) and
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
90 ;; easily begin moving things around, and making annotations that will
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
91 ;; express the full meaning of that data, as far as you know it.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
92 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
93 ;; Obviously this latter stage is more user-interface intensive, and
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
94 ;; it would be nice if "remember" could do it as elegantly as
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
95 ;; possible, rather than requiring a billion keystrokes to reorganize
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
96 ;; your hierarchy. Well, as the future arrives, hopefully experience
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
97 ;; and user feedback will help to make this as intuitive a tool as
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
98 ;; possible.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
99 ;;
85886
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
100 ;; * Future Goals
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
101 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
102 ;; This tool hopes to track (and by doing it with as little new code
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
103 ;; as possible):
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
104 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
105 ;; - The raw data that gets entered
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
106 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
107 ;; - The relationships between that data (either determined
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
108 ;; implicitly by parsing the input, or explicitly by the user's
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
109 ;; studying the data).
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
110 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
111 ;; - Revisioning of the data
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
112 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
113 ;; - Where it came from, and any context information that can be
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
114 ;; programmatically determined.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
115 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
116 ;; - Allowing particular views of the initially amorphous data pool
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
117 ;; (ala the Xanadu concept).
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
118 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
119 ;; - Storage of the data in a manner most appopriate to that data,
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
120 ;; such as keeping address-book type information in BBDB, etc.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
121 ;;
85886
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
122 ;; * Using "remember"
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
123 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
124 ;; As a rough beginning, what I do is to keep my .notes file in
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
125 ;; outline-mode format, with a final entry called "* Raw data". Then,
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
126 ;; at intervals, I can move the data that gets appended there into
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
127 ;; other places. But certainly this should evolve into an intuitive
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
128 ;; mechanism for shuffling data off to its appropriate corner of the
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
129 ;; universe.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
130 ;;
85886
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
131 ;; To map the primary remember function to the keystroke F8, do the
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
132 ;; following.
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
133 ;;
85886
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
134 ;; (autoload 'remember "remember" nil t)
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
135 ;;
85886
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
136 ;; (define-key global-map [f8] 'remember)
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
137 ;;
85886
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
138 ;; * Feedback
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
139 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
140 ;; If Emacs could become a more intelligent data store, where
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
141 ;; brainstorming would focus on the IDEAS involved -- rather than the
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
142 ;; structuring and format of those ideas, or having to stop your
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
143 ;; current flow of work in order to record them -- it would map much
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
144 ;; more closely to how the mind (well, at least mine) works, and hence
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
145 ;; would eliminate that very manual-ness which computers from the very
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
146 ;; beginning have been championed as being able to reduce.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
147 ;;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
148 ;; Have you ever noticed that having a laptop to write on doesn't
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
149 ;; _actually_ increase the amount of quality material that you turn
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
150 ;; out, in the long run? Perhaps its because the time we save
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
151 ;; electronically in one way, we're losing electronically in another;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
152 ;; the tool should never dominate one's focus. As the mystic
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
153 ;; Faridu'd-Din `Attar wrote: "Be occupied as little as possible with
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
154 ;; things of the outer world but much with things of the inner world;
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
155 ;; then right action will overcome inaction."
87054
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
156 ;;
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
157 ;; * Diary integration
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
158 ;;
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
159 ;; To use, add the following to your .emacs:
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
160 ;;
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
161 ;; ;; This should be before other entries that may return t
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
162 ;; (add-to-list 'remember-handler-functions 'remember-diary-extract-entries)
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
163 ;;
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
164 ;; This module recognizes entries of the form
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
165 ;;
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
166 ;; DIARY: ....
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
167 ;;
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
168 ;; and puts them in your ~/.diary (or remember-diary-file) together
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
169 ;; with an annotation. Dates in the form YYYY.MM.DD are converted to
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
170 ;; YYYY-MM-DD so that diary can understand them.
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
171 ;;
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
172 ;; For example:
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
173 ;;
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
174 ;; DIARY: 2003.08.12 Sacha's birthday
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
175 ;;
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
176 ;; is stored as
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
177 ;;
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
178 ;; 2003.08.12 Sacha's birthday
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
179
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
180 ;;; History:
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
181
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
182 ;;; Code:
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
183
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
184 (provide 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
185
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
186 (defconst remember-version "1.9"
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
187 "This version of remember.")
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
188
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
189 (defgroup remember nil
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
190 "A mode to remember information."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
191 :group 'data)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
192
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
193 ;;; User Variables:
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
194
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
195 (defcustom remember-mode-hook nil
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
196 "Functions run upon entering `remember-mode'."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
197 :type 'hook
85798
5810ee84e0f9 remember.el: Add additional items to some defcustom options
Michael Olson <mwolson@gnu.org>
parents: 85772
diff changeset
198 :options '(flyspell-mode turn-on-auto-fill org-remember-apply-template)
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
199 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
200
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
201 (defcustom remember-in-new-frame nil
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
202 "Non-nil means use a separate frame for capturing remember data."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
203 :type 'boolean
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
204 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
205
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
206 (defcustom remember-register ?R
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
207 "The register in which the window configuration is stored."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
208 :type 'character
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
209 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
210
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
211 (defcustom remember-filter-functions nil
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
212 "*Functions run to filter remember data.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
213 All functions are run in the remember buffer."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
214 :type 'hook
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
215 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
216
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
217 (defcustom remember-handler-functions '(remember-append-to-file)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
218 "*Functions run to process remember data.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
219 Each function is called with the current buffer narrowed to what the
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
220 user wants remembered.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
221 If any function returns non-nil, the data is assumed to have been
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
222 recorded somewhere by that function. "
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
223 :type 'hook
85798
5810ee84e0f9 remember.el: Add additional items to some defcustom options
Michael Olson <mwolson@gnu.org>
parents: 85772
diff changeset
224 :options '(remember-store-in-mailbox
5810ee84e0f9 remember.el: Add additional items to some defcustom options
Michael Olson <mwolson@gnu.org>
parents: 85772
diff changeset
225 remember-append-to-file
5810ee84e0f9 remember.el: Add additional items to some defcustom options
Michael Olson <mwolson@gnu.org>
parents: 85772
diff changeset
226 remember-diary-extract-entries
5810ee84e0f9 remember.el: Add additional items to some defcustom options
Michael Olson <mwolson@gnu.org>
parents: 85772
diff changeset
227 org-remember-handler)
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
228 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
229
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
230 (defcustom remember-all-handler-functions nil
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
231 "If non-nil every function in `remember-handler-functions' is
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
232 called."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
233 :type 'boolean
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
234 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
235
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
236 ;;; Internal Variables:
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
237
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
238 (defvar remember-buffer "*Remember*"
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
239 "The name of the remember data entry buffer.")
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
240
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
241 (defcustom remember-save-after-remembering t
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
242 "*Non-nil means automatically save after remembering."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
243 :type 'boolean
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
244 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
245
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
246 ;;; User Functions:
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
247
85886
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
248 (defcustom remember-annotation-functions '(buffer-file-name)
b315ed3fcc4e Remove mentions of Planner in remember.el.
Michael Olson <mwolson@gnu.org>
parents: 85863
diff changeset
249 "Hook that returns an annotation to be inserted into the remember buffer."
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
250 :type 'hook
85798
5810ee84e0f9 remember.el: Add additional items to some defcustom options
Michael Olson <mwolson@gnu.org>
parents: 85772
diff changeset
251 :options '(org-remember-annotation buffer-file-name)
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
252 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
253
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
254 (defvar remember-annotation nil
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
255 "Current annotation.")
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
256 (defvar remember-initial-contents nil
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
257 "Initial contents to place into *Remember* buffer.")
85861
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
258
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
259 (defcustom remember-before-remember-hook nil
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
260 "Functions run before switching to the *Remember* buffer."
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
261 :type 'hook
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
262 :group 'remember)
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
263
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
264 (defcustom remember-run-all-annotation-functions-flag nil
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
265 "Non-nil means use all annotations returned by
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
266 `remember-annotation-functions'."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
267 :type 'boolean
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
268 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
269
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
270 ;;;###autoload
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
271 (defun remember (&optional initial)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
272 "Remember an arbitrary piece of data.
85861
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
273 INITIAL is the text to initially place in the *Remember* buffer,
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
274 or nil to bring up a blank *Remember* buffer.
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
275
87626
a918e56d9947 Remember: If region is visible, use it as initial text.
Michael Olson <mwolson@gnu.org>
parents: 87054
diff changeset
276 With a prefix or a visible region, use the region as INITIAL."
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
277 (interactive
87626
a918e56d9947 Remember: If region is visible, use it as initial text.
Michael Olson <mwolson@gnu.org>
parents: 87054
diff changeset
278 (list (when (or current-prefix-arg
a918e56d9947 Remember: If region is visible, use it as initial text.
Michael Olson <mwolson@gnu.org>
parents: 87054
diff changeset
279 (and mark-active
a918e56d9947 Remember: If region is visible, use it as initial text.
Michael Olson <mwolson@gnu.org>
parents: 87054
diff changeset
280 transient-mark-mode))
a918e56d9947 Remember: If region is visible, use it as initial text.
Michael Olson <mwolson@gnu.org>
parents: 87054
diff changeset
281 (buffer-substring (region-beginning) (region-end)))))
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
282 (funcall (if remember-in-new-frame
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
283 #'frame-configuration-to-register
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
284 #'window-configuration-to-register) remember-register)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
285 (let* ((annotation
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
286 (if remember-run-all-annotation-functions-flag
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
287 (mapconcat 'identity
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
288 (delq nil
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
289 (mapcar 'funcall remember-annotation-functions))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
290 "\n")
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
291 (run-hook-with-args-until-success
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
292 'remember-annotation-functions)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
293 (buf (get-buffer-create remember-buffer)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
294 (run-hooks 'remember-before-remember-hook)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
295 (funcall (if remember-in-new-frame
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
296 #'switch-to-buffer-other-frame
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
297 #'switch-to-buffer-other-window) buf)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
298 (if remember-in-new-frame
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
299 (set-window-dedicated-p
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
300 (get-buffer-window (current-buffer) (selected-frame)) t))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
301 (remember-mode)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
302 (when (= (point-max) (point-min))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
303 (when initial (insert initial))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
304 (setq remember-annotation annotation)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
305 (when remember-initial-contents (insert remember-initial-contents))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
306 (when (and (stringp annotation)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
307 (not (equal annotation "")))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
308 (insert "\n\n" annotation))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
309 (setq remember-initial-contents nil)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
310 (goto-char (point-min)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
311 (message "Use C-c C-c to remember the data.")))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
312
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
313 ;;;###autoload
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
314 (defun remember-other-frame (&optional initial)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
315 "Call `remember' in another frame."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
316 (interactive
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
317 (list (when current-prefix-arg
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
318 (buffer-substring (point) (mark)))))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
319 (let ((remember-in-new-frame t))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
320 (remember initial)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
321
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
322 (defsubst remember-time-to-seconds (time)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
323 "Convert TIME to a floating point number."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
324 (+ (* (car time) 65536.0)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
325 (cadr time)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
326 (/ (or (car (cdr (cdr time))) 0) 1000000.0)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
327
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
328 (defsubst remember-mail-date (&optional rfc822-p)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
329 "Return a simple date. Nothing fancy."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
330 (if rfc822-p
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
331 (format-time-string "%a, %e %b %Y %T %z" (current-time))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
332 (format-time-string "%c" (current-time))))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
333
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
334 (defun remember-buffer-desc ()
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
335 "Using the first line of the current buffer, create a short description."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
336 (buffer-substring (point-min)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
337 (save-excursion
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
338 (goto-char (point-min))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
339 (end-of-line)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
340 (if (> (- (point) (point-min)) 60)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
341 (goto-char (+ (point-min) 60)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
342 (point))))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
343
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
344 ;; Remembering to UNIX mailboxes
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
345
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
346 (defcustom remember-mailbox "~/Mail/remember"
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
347 "*The file in which to store remember data as mail."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
348 :type 'file
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
349 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
350
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
351 (defcustom remember-default-priority "medium"
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
352 "*The default priority for remembered mail messages."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
353 :type 'string
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
354 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
355
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
356 (defun remember-store-in-mailbox ()
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
357 "Store remember data as if it were incoming mail.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
358 In which case `remember-mailbox' should be the name of the mailbox.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
359 Each piece of psuedo-mail created will have an `X-Todo-Priority'
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
360 field, for the purpose of appropriate splitting."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
361 (let ((who (read-string "Who is this item related to? "))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
362 (moment
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
363 (format "%.0f" (remember-time-to-seconds (current-time))))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
364 (desc (remember-buffer-desc))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
365 (text (buffer-string)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
366 (with-temp-buffer
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
367 (insert (format "
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
368 From %s %s
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
369 Date: %s
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
370 From: %s
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
371 Message-Id: <remember-%s@%s>
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
372 X-Todo-Priority: %s
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
373 To: %s <%s>
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
374 Subject: %s\n\n"
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
375 (user-login-name)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
376 (remember-mail-date)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
377 (remember-mail-date t)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
378 who
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
379 moment (system-name)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
380 remember-default-priority
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
381 (user-full-name) user-mail-address
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
382 desc))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
383 (let ((here (point)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
384 (insert text)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
385 (unless (bolp)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
386 (insert "\n"))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
387 (insert "\n")
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
388 (goto-char here)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
389 (while (re-search-forward "^\\(From[: ]\\)" nil t)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
390 (replace-match ">\\1")))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
391 (append-to-file (point-min) (point-max) remember-mailbox)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
392 t)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
393
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
394 ;; Remembering to plain files
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
395
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
396 (defcustom remember-data-file "~/.notes"
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
397 "*The file in which to store unprocessed data."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
398 :type 'file
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
399 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
400
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
401 (defcustom remember-leader-text "** "
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
402 "*The text used to begin each remember item."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
403 :type 'string
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
404 :group 'remember)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
405
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
406 (defun remember-append-to-file ()
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
407 "Remember, with description DESC, the given TEXT."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
408 (let ((text (buffer-string))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
409 (desc (remember-buffer-desc)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
410 (with-temp-buffer
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
411 (insert "\n" remember-leader-text (current-time-string)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
412 " (" desc ")\n\n" text)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
413 (if (not (bolp))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
414 (insert "\n"))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
415 (if (find-buffer-visiting remember-data-file)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
416 (let ((remember-text (buffer-string)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
417 (set-buffer (get-file-buffer remember-data-file))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
418 (save-excursion
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
419 (goto-char (point-max))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
420 (insert remember-text)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
421 (when remember-save-after-remembering (save-buffer))))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
422 (append-to-file (point-min) (point-max) remember-data-file)))))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
423
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
424 (defun remember-region (&optional beg end)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
425 "Remember the data from BEG to END.
85861
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
426 It is called from within the *Remember* buffer to save the text
87626
a918e56d9947 Remember: If region is visible, use it as initial text.
Michael Olson <mwolson@gnu.org>
parents: 87054
diff changeset
427 that was entered.
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
428
85861
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
429 If BEG and END are nil, the entire buffer will be remembered.
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
430
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
431 If you want to remember a region, supply a universal prefix to
85861
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
432 `remember' instead. For example: C-u M-x remember RET."
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
433 ;; Sacha: I have no idea where remember.el gets this context information, but
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
434 ;; you can just use remember-annotation-functions.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
435 (interactive)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
436 (let ((b (or beg (min (point) (or (mark) (point-min)))))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
437 (e (or end (max (point) (or (mark) (point-max))))))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
438 (save-restriction
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
439 (narrow-to-region b e)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
440 (if remember-all-handler-functions
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
441 (run-hooks 'remember-handler-functions)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
442 (run-hook-with-args-until-success 'remember-handler-functions))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
443 (remember-destroy))))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
444
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
445 ;;;###autoload
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
446 (defun remember-clipboard ()
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
447 "Remember the contents of the current clipboard.
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
448 Most useful for remembering things from Netscape or other X Windows
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
449 application."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
450 (interactive)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
451 (remember (current-kill 0)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
452
85861
70f347d257ec Remember: Put on a low-cookie diet, and improve docstrings.
Michael Olson <mwolson@gnu.org>
parents: 85806
diff changeset
453 (defun remember-finalize ()
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
454 "Remember the contents of the current buffer."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
455 (interactive)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
456 (remember-region (point-min) (point-max)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
457
85889
683a6a9e56ab remember.el: Make remember-buffer an alias of remember-finalize
Michael Olson <mwolson@gnu.org>
parents: 85886
diff changeset
458 ;; Org needs this
85913
047b6a6087c2 Remember: Use define-obsolete-function-alias for `remember-buffer'.
Michael Olson <mwolson@gnu.org>
parents: 85889
diff changeset
459 (define-obsolete-function-alias 'remember-buffer 'remember-finalize)
85889
683a6a9e56ab remember.el: Make remember-buffer an alias of remember-finalize
Michael Olson <mwolson@gnu.org>
parents: 85886
diff changeset
460
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
461 (defun remember-destroy ()
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
462 "Destroy the current *Remember* buffer."
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
463 (interactive)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
464 (when (equal remember-buffer (buffer-name))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
465 (kill-buffer (current-buffer))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
466 (jump-to-register remember-register)))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
467
87054
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
468 ;;; Diary integration
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
469
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
470 (defcustom remember-diary-file nil
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
471 "*File for extracted diary entries.
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
472 If this is nil, then `diary-file' will be used instead."
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
473 :type 'file
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
474 :group 'remember)
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
475
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
476 (defun remember-diary-convert-entry (entry)
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
477 "Translate MSG to an entry readable by diary."
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
478 (save-match-data
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
479 (when remember-annotation
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
480 (setq entry (concat entry " " remember-annotation)))
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
481 (if (string-match "\\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)" entry)
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
482 (replace-match
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
483 (if european-calendar-style
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
484 (concat (match-string 3 entry) "/"
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
485 (match-string 2 entry) "/"
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
486 (match-string 1 entry))
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
487 (concat (match-string 2 entry) "/"
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
488 (match-string 3 entry) "/"
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
489 (match-string 1 entry)))
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
490 t t entry)
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
491 entry)))
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
492
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
493 (autoload 'make-diary-entry "diary-lib")
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
494
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
495 ;;;###autoload
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
496 (defun remember-diary-extract-entries ()
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
497 "Extract diary entries from the region."
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
498 (save-excursion
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
499 (goto-char (point-min))
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
500 (let (list)
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
501 (while (re-search-forward "^DIARY:\\s-*\\(.+\\)" nil t)
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
502 (add-to-list 'list (remember-diary-convert-entry (match-string 1))))
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
503 (when list
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
504 (make-diary-entry (mapconcat 'identity list "\n")
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
505 nil (or remember-diary-file diary-file)))
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
506 nil))) ;; Continue processing
25de6f4a58d8 Merge remember-diary.el into remember.el
Michael Olson <mwolson@gnu.org>
parents: 85913
diff changeset
507
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
508 ;;; Internal Functions:
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
509
85862
9e1be56af44a remember.el (remember-mode-map): Define and initialize in one step.
Michael Olson <mwolson@gnu.org>
parents: 85861
diff changeset
510 (defvar remember-mode-map
9e1be56af44a remember.el (remember-mode-map): Define and initialize in one step.
Michael Olson <mwolson@gnu.org>
parents: 85861
diff changeset
511 (let ((map (make-sparse-keymap)))
9e1be56af44a remember.el (remember-mode-map): Define and initialize in one step.
Michael Olson <mwolson@gnu.org>
parents: 85861
diff changeset
512 (define-key map "\C-x\C-s" 'remember-finalize)
9e1be56af44a remember.el (remember-mode-map): Define and initialize in one step.
Michael Olson <mwolson@gnu.org>
parents: 85861
diff changeset
513 (define-key map "\C-c\C-c" 'remember-finalize)
85863
f5b982bf98e0 Remember: Fix mistake in last commit and improve remember-mode docstring.
Michael Olson <mwolson@gnu.org>
parents: 85862
diff changeset
514 (define-key map "\C-c\C-k" 'remember-destroy)
f5b982bf98e0 Remember: Fix mistake in last commit and improve remember-mode docstring.
Michael Olson <mwolson@gnu.org>
parents: 85862
diff changeset
515
f5b982bf98e0 Remember: Fix mistake in last commit and improve remember-mode docstring.
Michael Olson <mwolson@gnu.org>
parents: 85862
diff changeset
516 map)
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
517 "Keymap used in Remember mode.")
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
518
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
519 (defun remember-mode ()
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
520 "Major mode for output from \\[remember].
85863
f5b982bf98e0 Remember: Fix mistake in last commit and improve remember-mode docstring.
Michael Olson <mwolson@gnu.org>
parents: 85862
diff changeset
521 This buffer is used to collect data that you want to remember.
f5b982bf98e0 Remember: Fix mistake in last commit and improve remember-mode docstring.
Michael Olson <mwolson@gnu.org>
parents: 85862
diff changeset
522
f5b982bf98e0 Remember: Fix mistake in last commit and improve remember-mode docstring.
Michael Olson <mwolson@gnu.org>
parents: 85862
diff changeset
523 Just hit `C-c C-c' when you're done entering, and it will file
f5b982bf98e0 Remember: Fix mistake in last commit and improve remember-mode docstring.
Michael Olson <mwolson@gnu.org>
parents: 85862
diff changeset
524 the data away for latter retrieval, and possible indexing.
f5b982bf98e0 Remember: Fix mistake in last commit and improve remember-mode docstring.
Michael Olson <mwolson@gnu.org>
parents: 85862
diff changeset
525
f5b982bf98e0 Remember: Fix mistake in last commit and improve remember-mode docstring.
Michael Olson <mwolson@gnu.org>
parents: 85862
diff changeset
526 \\{remember-mode-map}"
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
527 (interactive)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
528 (kill-all-local-variables)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
529 (indented-text-mode)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
530 (use-local-map remember-mode-map)
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
531 (setq major-mode 'remember-mode
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
532 mode-name "Remember")
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
533 (run-hooks 'remember-mode-hook))
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
534
85806
2a9d361b3986 Add arch tagline
Miles Bader <miles@gnu.org>
parents: 85798
diff changeset
535 ;; arch-tag: 59312a05-06c7-4da1-b6f7-5ea41c9d5577
85772
6b9c41aaadf8 Check in Remember Mode
Michael Olson <mwolson@gnu.org>
parents:
diff changeset
536 ;;; remember.el ends here