[emacs-wiki-discuss] Re: why is planner-diary-add-entry commented out?

[Jody Klymak]

So sorry, I cut myself off...

Anyways here is the code for Sacha's approval:

(defun planner-diary-add-entry (date time text)
  "Prompt for a diary entry to add to `diary-file'.  Will run
  planner-annotations to make hyper links"
  (interactive (list (planner-read-date)
                     (read-string "Time: ")
                     (read-string "Diary entry: ")))
  (save-excursion
    (save-window-excursion
      (make-diary-entry
       (concat
        (let ((cal-date (planner-filename-to-calendar-date date)))
          (calendar-date-string cal-date t t))
          " " time " " text " "
        (run-hook-with-args-until-success
         'planner-annotation-functions))
       nil planner-diary-file))))


Cheers,  Jody

-- 
Jody Klymak      http://opg1.ucsd.edu/~jklymak/
mailto:address@hidden