comparison lisp/calendar/todo-mode.el @ 20173:0044ff755ee7

Added three suggestions from Carsten Dominik <[e-mail]>: - recommend autoloading instead of require - inserting from different buffer didn't work (now fixed -- I pray) - provided public entry point to insert items from normal lisp code

20172:14aea7edd810

;; 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.21 1997/10/24 16:51:02 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

;;  Preface, Quickstart Installation
;;
;;      To get this to work, make emacs execute the line
;;
;;          (require 'todo-mode) ;; load the TODO package
;;
;;      If you don't like "require", do as Harald Backer prescribes:
;;
;;          "I don't like require statements as they slow down startup
;;          emacs.  As I include .todo-do in diary and start calendar
;;          at startup of emacs, the mode indicator of .todo-do will
;;          make emacs fail, unless the following is defined:"
;;
;;          (autoload 'todo-mode "todo-mode"
;;              "Major mode for editing TODO lists." t)
;;
;;      You may now enter new items by typing "M-x todo-insert-item",
;;      or enter your TODO list file by typing "M-x todo-show".
;;
;;      The TODO list file has a special format and some auxiliary

;;
;;  Version
;;
;;      Which version of todo-mode.el does this documentation refer to?
;;
;;      $Id: todo-mode.el,v 1.21 1997/10/24 16:51:02 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.21  1997/10/24  16:51:02  os10000
;; Rafael Laboissiere <[e-mail]> writes:
;;
;; I was just annoyed with the fact that there is no way
;; to dynamically control the insertion accuracy.  I mean:

                    todo-category-end 
                    todo-prefix todo-category-sep)))
  0)

;;;### autoload
(defun todo-insert-item (ARG)
  "Insert new TODO list entry."
  (interactive "P")
  (let* ((new-item (concat todo-prefix " "
			   (read-from-minibuffer
                            "New TODO entry: "
                                 (if todo-entry-prefix-function
                                     (funcall todo-entry-prefix-function)))))
         (categories todo-categories)
         (history (cons 'categories (1+ todo-category-number)))
	 (current-category (nth todo-category-number todo-categories))
	 (category 
	  (if ARG
	      current-category
	      (completing-read 
                    (concat "Category ["
                            current-category "]: ")
                    (todo-category-alist) nil nil nil history))))
    (if (string= "" category)
        (setq category (nth todo-category-number todo-categories)))
    (let ((cat-exists (member category todo-categories)))
      (setq todo-category-number
            (if cat-exists

      (beginning-of-line))
    (insert new-item "\n")
    (todo-backward-item)
    (save-buffer)
    (message "")))
(defalias 'todo-cmd-inst 'todo-insert-item)

(defun todo-more-important-p (line)
  "Ask whether entry is more important than the one at LINE."
  (if (not (equal todo-previous-line line))

20173:0044ff755ee7

;; 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.22 1997/10/24 16:53:20 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

;;  Preface, Quickstart Installation
;;
;;      To get this to work, make emacs execute the line
;;
;;          (autoload 'todo-mode "todo-mode"
;;                    "Major mode for editing TODO lists." t)
;;          (autoload 'todo-show "todo-mode"
;;                    "Show TODO items." t)
;;          (autoload 'todo-insert-item "todo-mode"
;;                    "Add TODO item." t)
;;
;;      You may now enter new items by typing "M-x todo-insert-item",
;;      or enter your TODO list file by typing "M-x todo-show".
;;
;;      The TODO list file has a special format and some auxiliary

;;
;;  Version
;;
;;      Which version of todo-mode.el does this documentation refer to?
;;
;;      $Id: todo-mode.el,v 1.22 1997/10/24 16:53:20 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.22  1997/10/24  16:53:20  os10000
;; Paul Stodghill <[e-mail]> writes:
;;
;; When invoked with a prefix, todo-insert-item
;; should not prompt for a category.  (He adds:
;; At least that's what I think.)
;;
;; Revision 1.21  1997/10/24  16:51:02  os10000
;; Rafael Laboissiere <[e-mail]> writes:
;;
;; I was just annoyed with the fact that there is no way
;; to dynamically control the insertion accuracy.  I mean:

                    todo-category-end 
                    todo-prefix todo-category-sep)))
  0)

;;;### autoload
(defun todo-add-item-non-interactively (new-item category)
  "Insert new TODO list entry."
  (save-excursion
    (todo-show)
    (if (string= "" category)
        (setq category (nth todo-category-number todo-categories)))
    (let ((cat-exists (member category todo-categories)))
      (setq todo-category-number
            (if cat-exists

      (beginning-of-line))
    (insert new-item "\n")
    (todo-backward-item)
    (save-buffer)
    (message "")))

;;;### autoload
(defun todo-insert-item (ARG)
  "Insert new TODO list entry."
  (interactive "P")
  (todo-show)
  (let* ((new-item (concat todo-prefix " "
			   (read-from-minibuffer
                            "New TODO entry: "
                                 (if todo-entry-prefix-function
                                     (funcall todo-entry-prefix-function)))))
         (categories todo-categories)
         (history (cons 'categories (1+ todo-category-number)))
	 (current-category (nth todo-category-number todo-categories))
	 (category 
	  (if ARG
	      current-category
	      (completing-read 
                    (concat "Category ["
                            current-category "]: ")
                    (todo-category-alist) nil nil nil history))))
    (todo-add-item-non-interactively new-item category)))

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

(defun todo-more-important-p (line)
  "Ask whether entry is more important than the one at LINE."
  (if (not (equal todo-previous-line line))