comparison lisp/calendar/todo-mode.el @ 24500:1e30ade63ed3

Marc Zonzon <[e-mail]> on 18.Mar.99 writes that I should remove the single space between ### and autoload. And now I have.

24499:e5b719c6fd51

;; Copyright (C) 1997 Free Software Foundation, Inc.

;; Author: [e-mail] (was valid on Aug 2, 1997)
;; Created: 2 Aug 1997
;; Version: $Id: todo-mode.el,v 1.35 1998/09/29 18:20:36 os10000 Exp os10000 $
;; Keywords: Categorised TODO list editor, todo-mode

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

;;
;;  Version
;;
;;      Which version of todo-mode.el does this documentation refer to?
;;
;;      $Id: todo-mode.el,v 1.35 1998/09/29 18:20:36 os10000 Exp os10000 $
;;
;;  Pre-Requisites
;;
;;      This package will require the following packages to be
;;      available on the load-path:

;; ---------------------------------------------------------------------------

;;; Change Log:

;; $Log: todo-mode.el,v $
;; Revision 1.35  1998/09/29 18:20:36  os10000
;; Alex Schroeder startup description added.
;;
;; Revision 1.34  1998/01/12 11:43:22  os10000
;; Added patch from Don Hejna <[e-mail]>.

      (find-buffer-visiting todo-file-do) buffer-name))
    (message "To exit, simply kill this buffer and return to list.")
    (todo-edit-mode)
    (narrow-to-region (todo-item-start) (todo-item-end))))

;;;### autoload
(defun todo-add-category (cat)
  "Add new category CAT to the TODO list."
  (interactive "sCategory: ")
  (save-window-excursion
    (pushnew cat todo-categories)

                    todo-category-end
                    todo-prefix todo-category-sep))
    (save-buffer))
  0)

;;;### autoload
(defun todo-add-item-non-interactively (new-item category)
  "Insert NEW-ITEM in TODO list as a new entry in CATEGORY."
  (save-excursion
    (todo-show))
  (save-excursion

     (todo-forward-category)
     (todo-backward-category))
    (todo-save)
    (message "")))

;;;### autoload
(defun todo-insert-item (ARG)
  "Insert new TODO list entry.
With a prefix argument solicit the category, otherwise use the current
category."
  (interactive "P")

	       (todo-category-alist) nil nil nil history))))
      (todo-add-item-non-interactively new-item category))))

(defalias 'todo-cmd-inst 'todo-insert-item)

;;;### autoload
(defun todo-insert-item-here ()
  "Insert new TODO list entry under the cursor."
  (interactive "")
  (save-excursion
    (if (not (string-equal mode-name "TODO")) (todo-show))

                    "---"
                    ["Quit"                 todo-quit t]
                    ))

;; As calendar reads .todo-do before todo-mode is loaded.
;;;### autoload
(defun todo-mode () "Major mode for editing TODO lists.\n\n\\{todo-mode-map}"
  (interactive)
  (setq major-mode 'todo-mode)
  (setq mode-name "TODO")
  (use-local-map todo-mode-map)

  (hide-other)
  (auto-fill-mode 1)
  (run-hooks 'todo-mode-hook))

;; Read about this function in the setup instructions above!
;;;### autoload
(defun todo-cp ()
  "Make a diary entry appear only in the current date's diary"
  (if (equal (calendar-current-date) date)
      entry
    nil))

  (text-mode)
  (setq major-mode 'todo-edit-mode)
  (setq mode-name "TODO Edit")
  (run-hooks 'todo-edit-mode-hook))

;;;### autoload
(defun todo-show () "Show TODO list."
  (interactive)
  (if (file-exists-p todo-file-do)
      (find-file todo-file-do)
    (todo-initial-setup))

24500:1e30ade63ed3

;; Copyright (C) 1997 Free Software Foundation, Inc.

;; Author: [e-mail] (was valid on Aug 2, 1997)
;; Created: 2 Aug 1997
;; Version: $Id: todo-mode.el,v 1.36 1999/03/17 11:10:29 os10000 Exp os10000 $
;; Keywords: Categorised TODO list editor, todo-mode

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify

;;
;;  Version
;;
;;      Which version of todo-mode.el does this documentation refer to?
;;
;;      $Id: todo-mode.el,v 1.36 1999/03/17 11:10:29 os10000 Exp os10000 $
;;
;;  Pre-Requisites
;;
;;      This package will require the following packages to be
;;      available on the load-path:

;; ---------------------------------------------------------------------------

;;; Change Log:

;; $Log: todo-mode.el,v $
;; Revision 1.36  1999/03/17 11:10:29  os10000
;; Alastair Burt <[e-mail]> sent in a patch on 17.Mar.98
;; which removes duplicates from the category list and saves the buffer
;; after category addition.  Thanks.
;;
;; Uwe Brauer <[e-mail]> sent in a request on 3.Apr.98 to
;; implement a "move-between-categories" function.  I haven't done that
;; yet.  Thanks.
;;
;; "Edward S. Hirgelt" <[e-mail]> fixed a problem
;; with multi-line editing 29.Oct.98.  Thanks.
;;
;; tom <[e-mail]> sent in a replacement for the outmoded
;; time-format that I had been using on 13.Nov.98.  Thanks.
;;
;; Jerome Thebert <[e-mail]> sent in a binding to
;; show/hide continuation lines using the space bar on 11.Jan.99.
;; Instead of leaving it as a hook, I integrated it.  Thanks.
;;
;; Sorry again to everybody.  I sat on your patches for a year.
;;
;; Revision 1.35  1998/09/29 18:20:36  os10000
;; Alex Schroeder startup description added.
;;
;; Revision 1.34  1998/01/12 11:43:22  os10000
;; Added patch from Don Hejna <[e-mail]>.

      (find-buffer-visiting todo-file-do) buffer-name))
    (message "To exit, simply kill this buffer and return to list.")
    (todo-edit-mode)
    (narrow-to-region (todo-item-start) (todo-item-end))))

;;;###autoload
(defun todo-add-category (cat)
  "Add new category CAT to the TODO list."
  (interactive "sCategory: ")
  (save-window-excursion
    (pushnew cat todo-categories)

                    todo-category-end
                    todo-prefix todo-category-sep))
    (save-buffer))
  0)

;;;###autoload
(defun todo-add-item-non-interactively (new-item category)
  "Insert NEW-ITEM in TODO list as a new entry in CATEGORY."
  (save-excursion
    (todo-show))
  (save-excursion

     (todo-forward-category)
     (todo-backward-category))
    (todo-save)
    (message "")))

;;;###autoload
(defun todo-insert-item (ARG)
  "Insert new TODO list entry.
With a prefix argument solicit the category, otherwise use the current
category."
  (interactive "P")

	       (todo-category-alist) nil nil nil history))))
      (todo-add-item-non-interactively new-item category))))

(defalias 'todo-cmd-inst 'todo-insert-item)

;;;###autoload
(defun todo-insert-item-here ()
  "Insert new TODO list entry under the cursor."
  (interactive "")
  (save-excursion
    (if (not (string-equal mode-name "TODO")) (todo-show))

                    "---"
                    ["Quit"                 todo-quit t]
                    ))

;; As calendar reads .todo-do before todo-mode is loaded.
;;;###autoload
(defun todo-mode () "Major mode for editing TODO lists.\n\n\\{todo-mode-map}"
  (interactive)
  (setq major-mode 'todo-mode)
  (setq mode-name "TODO")
  (use-local-map todo-mode-map)

  (hide-other)
  (auto-fill-mode 1)
  (run-hooks 'todo-mode-hook))

;; Read about this function in the setup instructions above!
;;;###autoload
(defun todo-cp ()
  "Make a diary entry appear only in the current date's diary"
  (if (equal (calendar-current-date) date)
      entry
    nil))

  (text-mode)
  (setq major-mode 'todo-edit-mode)
  (setq mode-name "TODO Edit")
  (run-hooks 'todo-edit-mode-hook))

;;;###autoload
(defun todo-show () "Show TODO list."
  (interactive)
  (if (file-exists-p todo-file-do)
      (find-file todo-file-do)
    (todo-initial-setup))