[emacs-wiki-discuss] Duplicate appointments with planner-appt (was: planner-browse-position-url quick fix)

[Romain Francoise]

Jim Ottaway <address@hidden> writes:

> I hadn't heard of it doing this. Could you post your changes to
> planner-appt?

Sure.  My conf is the following:

(require 'planner-appt)

(planner-appt-use-tasks-and-schedule)
(planner-appt-insinuate)
(appt-activate 1)

Let's say I add one schedule appt.  Each time I save the file (C-u M-~
C-x C-s), the function named `planner-appt-add-appts-from-schedule' adds
an entry in the appt list even if it's already there... so I changed it
to prevent duplicates, though both the construction of the text and the
way I use `appt-time-msg-list' directly are total hacks.  :-)

--- orig/planner-appt.el
+++ mod/planner-appt.el
@@ -1203,7 +1203,9 @@
                        ;; Ignore if this is an appt copied from the
                        ;; task section.
                        (member line
-                               --planner-appt-lines-added-to-section))
+                               --planner-appt-lines-added-to-section)
+                       (member (concat time " " text)
+                               (mapcar 'cadr appt-time-msg-list)))
              (appt-add time text)
              ;; Remember tasks added here.
              (setq --planner-appt-schedule-added-appts

-- 
Romain Francoise <address@hidden> | All you've been is a piece of
it's a miracle -- http://orebokech.com/ | blood wrapped in skin.