From 579e1c678006753b5ffa3ca63acf08ae1dff955f Mon Sep 17 00:00:00 2001 From: Oliver Seidel Date: Wed, 6 Aug 1997 08:12:03 +0000 Subject: [PATCH] Improved documentation. Broke some lines to comply with Richard M. Stallman's email to please keep in sync with the rest of the Emacs distribution files. --- lisp/calendar/todo-mode.el | 194 ++++++++++++++++++++++++++----------- 1 file changed, 139 insertions(+), 55 deletions(-) diff --git a/lisp/calendar/todo-mode.el b/lisp/calendar/todo-mode.el index af81c6d7ca4..1b0065ce15b 100644 --- a/lisp/calendar/todo-mode.el +++ b/lisp/calendar/todo-mode.el @@ -1,4 +1,6 @@ -; todomode.el -- major mode for editing TODO list files +;; todomode.el -- major mode for editing TODO list files + +;; $Id: todomode.el,v 1.8 1997/08/05 22:39:04 os10000 Exp os10000 $ ;; --------------------------------------------------------------------------- @@ -23,52 +25,43 @@ ;; --------------------------------------------------------------------------- -;; Contact information: (address) O Seidel, Lessingstr 8, Eschborn, FRG -;; (e-mail ) Oliver.Seidel@cl.cam.ac.uk (2 Aug 1997) - -;; $Id: todomode.el,v 1.7 1997/08/05 22:34:14 os10000 Exp os10000 $ ;; -;; $Log: todomode.el,v $ -;; Revision 1.7 1997/08/05 22:34:14 os10000 -;; Fixed insertion routine with help from Trey Jackson -;; ; added todo-ins-thresh; -;; fixed keyboard layout to remove unwanted keys. +;; Quickstart Installation: +;; ======================== ;; -;; Revision 1.6 1997/08/05 16:47:01 os10000 -;; Incorporated menus for XEmacs from Allan.Cochrane@soton.sc.philips.com, -;; fixed TYPO, fixed todo-file-cmd, cleaned up rcs history. +;; To get this to work, make emacs execute the line ;; -;; Revision 1.5 1997/08/05 14:43:39 os10000 -;; Added improvements from Ron Gut . -;; Added category management. +;; (require 'todomode) ;; load the TODO package ;; -;; Revision 1.4 1997/08/04 16:18:45 os10000 -;; Added Raise/Lower item. +;; I would also recommend executing the following commands +;; so as to extend the bindings in your global keymap: ;; -;; Revision 1.3 1997/08/03 12:47:26 os10000 -;; Cleaned up variables, prefix and cursor position. +;; (global-set-key "\C-ct" 'todo-show) ;; switch to TODO buffer +;; (global-set-key "\C-ci" 'todo-cmd-inst) ;; insert new item ;; -;; Revision 1.2 1997/08/03 12:15:28 os10000 -;; It appears to work. ;; -;; Revision 1.1 1997/08/03 12:15:13 os10000 -;; Initial revision ;; - -;; --------------------------------------------------------------------------- - ;; Description: +;; ============ ;; -;; To get this to work, make emacs execute the line "(require 'todomode)" -;; and maybe initialise the variables below on startup. +;; TODO is a major mode for EMACS which offers functionality to treat +;; most lines in one buffer as a list of items one has to do. There +;; are facilities to add new items, which are categorised, to edit or +;; even delete items from the buffer. The buffer contents are currently +;; compatible with the diary, so that the list of todo-items will show +;; up in the FANCY diary mode. ;; -;; Just for the case that you are wondering about the ugly name of this -;; package: I am one of those unfortunate people who have DOS, LINUX and -;; OS/2 on one of their computers, so part of my home-filespace is shared -;; and stored on a DOS partition, which is accessible to all systems. If -;; you wish, you can of course rename the name of the file (and the last -;; command) to something more aisthetically (please don't argue about -;; this spelling ...) pleasing, like i.e. todo-mode. +;; Notice: Besides the major mode, this file also exports the function +;; "todo-show" which will change to the one specific TODO file that has +;; been specified in the todo-file-do variable. If this file does not +;; conform to the TODO mode conventions, the todo-show function will add +;; the appropriate header and footer. I don't anticipate this to cause +;; much grief, but be warned, in case you attempt to read a plain text file. +;; +;; +;; +;; Operation: +;; ========== ;; ;; You will have the following facilities available: ;; @@ -95,24 +88,49 @@ ;; name of a category which didn't exist before, an empty category of the ;; desired name will be added. ;; -;; I would recommend to add the following bindings to your global keymap: ;; -;; (global-set-key "\C-ct" 'todo-show) -;; (global-set-key "\C-ci" 'todo-cmd-inst) ;; -;; This will enable you to quickly find the todo-list, or to simply add an -;; entry, without changing to it and getting sidetracked from your current -;; project. +;; Configuration: +;; ============== ;; -;; I would also recommend that use the prefix "*/*" (by leaving the -;; variable 'todo-prefix' untouched) so that the diary displays -;; each entry every day. +;; --- todo-prefix +;; +;; I would like to recommend that you use the prefix "*/*" (by +;; leaving the variable 'todo-prefix' untouched) so that the diary +;; displays each entry every day. ;; ;; For this, please read the documentation that goes with the calendar ;; since that will tell you how you can set up the fancy diary display ;; and use the #include command to include your todo list file as part ;; of your diary. ;; +;; +;; --- todo-file-do +;; +;; This variable is fairly self-explanatory. You have to store your TODO +;; list somewhere. This variable tells the package where to go and find +;; this file. +;; +;; +;; --- todo-file-done +;; +;; Even when you're done, you may wish to retain the entries. Given +;; that they're timestamped and you are offered to add a comment, this +;; can make a useful diary of past events. It will even blend in with +;; the EMACS diary package. So anyway, this variable holds the name +;; of the file for the filed todo-items. +;; +;; +;; --- todo-mode-hook +;; +;; Just like other modes, too, this mode offers to call your functions +;; before it goes about its business. This variable will be inspected +;; for any functions you may wish to have called once the other TODO +;; mode preparations have been completed. +;; +;; +;; --- todo-ins-thresh +;; ;; Another nifty feature is the insertion accuracy. If you have 8 items ;; in your TODO list, then you may get asked 4 questions by the binary ;; insertion algorithm. However, you may not really have a need for such @@ -128,10 +146,65 @@ ;; who corrected some of my awful coding and pointed me towards some good ;; reading. Thanks Trey! ;; +;; +;; +;; History and Gossip: +;; =================== +;; +;; Just for the case that you are wondering about the ugly name of this +;; package: I am one of those unfortunate people who have DOS, LINUX and +;; OS/2 on one of their computers, so part of my home-filespace is shared +;; and stored on a DOS partition, which is accessible to all systems. If +;; you wish, you can of course rename the name of the file (and the "provide" +;; command near the end of this package) to something more aisthetically +;; (please don't argue about this spelling ...) pleasing, like i.e. todo-mode. +;; ;; Enjoy this package and express your gratitude by sending valuables ;; to my parents' address as listed above!!! ;; ;; Oliver Seidel +;; +;; +;; +;; Contact information: +;; ==================== +;; +;; address ....: O Seidel, Lessingstr 8, Eschborn, FRG +;; e-mail .....: Oliver.Seidel@cl.cam.ac.uk (was valid on 2 Aug 1997) +;; + +;; --------------------------------------------------------------------------- + +;; +;; $Log: todomode.el,v $ +;; Revision 1.8 1997/08/05 22:39:04 os10000 +;; Made todomode.el available under GPL. +;; +;; Revision 1.7 1997/08/05 22:34:14 os10000 +;; Fixed insertion routine with help from Trey Jackson +;; ; added todo-ins-thresh; +;; fixed keyboard layout to remove unwanted keys. +;; +;; Revision 1.6 1997/08/05 16:47:01 os10000 +;; Incorporated menus for XEmacs from Allan.Cochrane@soton.sc.philips.com, +;; fixed TYPO, fixed todo-file-cmd, cleaned up rcs history. +;; +;; Revision 1.5 1997/08/05 14:43:39 os10000 +;; Added improvements from Ron Gut . +;; Added category management. +;; +;; Revision 1.4 1997/08/04 16:18:45 os10000 +;; Added Raise/Lower item. +;; +;; Revision 1.3 1997/08/03 12:47:26 os10000 +;; Cleaned up variables, prefix and cursor position. +;; +;; Revision 1.2 1997/08/03 12:15:28 os10000 +;; It appears to work. +;; +;; Revision 1.1 1997/08/03 12:15:13 os10000 +;; Initial revision +;; ;; --------------------------------------------------------------------------- @@ -140,7 +213,7 @@ (defvar todo-prefix "*/*" "TODO mode prefix when creating entries") (defvar todo-file-do "~/.todo-do" "TODO mode filename of list file") (defvar todo-file-done "~/.todo-done" "TODO mode filename of archive file") -(defvar todo-mode-hook nil "Hooks invoked when the *TODO* buffer is created.") +(defvar todo-mode-hook nil "Hooks invoked when the TODO mode is entered.") (defvar todo-ins-thresh 0 "TODO mode insertion accuracy.") ;; --------------------------------------------------------------------------- @@ -168,7 +241,8 @@ (defun todo-cat-slct () (let ((todo-category-name (nth todo-category-number todo-cats))) - (setq mode-line-buffer-identification (concat "Category: " todo-category-name)) + (setq mode-line-buffer-identification + (concat "Category: " todo-category-name)) (widen) (goto-char (point-min)) (search-forward (concat "--- " todo-category-name)) @@ -225,7 +299,8 @@ (bury-buffer) ) -(defun todo-line () "Find current line in buffer." (buffer-substring (point-at-bol) (point-at-eol))) +(defun todo-line () "Find current line in buffer." + (buffer-substring (point-at-bol) (point-at-eol))) (defun todo-cmd-edit () "Edit current TODO list entry." (interactive) @@ -249,11 +324,15 @@ (goto-char (point-min)) (let ((posn (search-forward "-*- mode: todo; " 17 t))) (if (not (null posn)) (goto-char posn)) - (if (equal posn nil) (progn (insert "-*- mode: todo; \n") (forward-char -1)) (kill-line)) - ) + (if (equal posn nil) + (progn + (insert "-*- mode: todo; \n") + (forward-char -1)) + (kill-line))) (insert (format "todo-cats: %S; -*-" todo-cats)) (forward-char 1) - (insert (format "%s --- %s\n--- End\n%s %s\n" todo-prefix cat todo-prefix (make-string 75 ?-))) + (insert (format "%s --- %s\n--- End\n%s %s\n" + todo-prefix cat todo-prefix (make-string 75 ?-))) ) 0 ) @@ -262,7 +341,8 @@ "Insert new TODO list entry." (interactive) (beginning-of-line nil) - (let* ((todo-entry (concat todo-prefix " " (read-from-minibuffer "New TODO entry: "))) + (let* ((todo-entry (concat todo-prefix " " + (read-from-minibuffer "New TODO entry: "))) (temp-catgs todo-cats) (todo-hstry (cons 'temp-catgs (+ todo-category-number 1)))) (save-window-excursion @@ -283,7 +363,8 @@ (todo-lst (+ 1 (count-lines (point-min) (point-max))))) (while (> (- todo-lst todo-fst) todo-ins-thresh) (let* ((todo-cur (/ (+ todo-fst todo-lst) 2)) - (todo-ans (if (< todo-cur todo-lst) (todo-ask todo-cur) nil))) + (todo-ans (if (< todo-cur todo-lst) + (todo-ask todo-cur) nil))) (if todo-ans (setq todo-lst todo-cur) (setq todo-fst (+ todo-cur 1))))) @@ -306,7 +387,9 @@ (setq todo-prv-lne lne) (goto-char (point-min)) (forward-line (- todo-prv-lne 1)) - (setq todo-prv-ans (y-or-n-p (concat "More important than '" (todo-line) "'? "))))) + (setq todo-prv-ans (y-or-n-p + (concat "More important than '" + (todo-line) "'? "))))) todo-prv-ans) (defun todo-cmd-kill () "Delete current TODO list entry." @@ -314,7 +397,8 @@ (if (> (count-lines (point-min) (point-max)) 0) (progn (let* ((todo-entry (todo-line)) - (todo-answer (y-or-n-p (concat "Permanently remove '" todo-entry "'? ")))) + (todo-answer (y-or-n-p (concat "Permanently remove '" + todo-entry "'? ")))) (if todo-answer (progn (delete-region (point-at-bol) (+ 1 (point-at-eol))) -- 2.39.2