Re: [emacs-wiki-discuss] Re: planner-appt or diary question

[Seth Falcon]

On 17 Dec 2005, address@hidden wrote:
> It doesn't actually need to require planner-id

Very good.  After updating to latest planner-appt, I'm not having
planner-id imposed on me.

> What goes in an appt with no end time could be optional, but I think
> that would require some modification of the schedule-based
> appointment scanning code since the regexp to extract the time and
> task would have to be modified to fit the option.  Is whitespace on
> its own acceptable?

Yes, whitespace is ideal since it saves ink ;-)
I wonder if the same approach should be used for the date column when
listing multiple appts on the same day in the forthcoming section
(attached patch gives an implementation if you want to see what you
think).

> Thank you.  I have changed these in planner-appt.  Can we switch to
> that implementation in any future discussion? it would save
> confusion and make patching easier.

Yep, I've updated muse and planner-muse to the latest tla patches and
am testing with that.

One thing: it may be better to have
planner-appt-forthcoming-look-at-cyclic-flag default to nil.  I don't
currently use planner-cyclic and in this case, one gets an error about
the planner-cyclic file not being defined.  Or perhaps it is possible
to test whether or not planner-cyclic is loaded?  The default is good
if you are using planner-cyclic.


Best,

+ seth


;; Instead of links with '-', just have white space (no link) for
;; listing appts on the same day.  Gives a cleaner look and makes it
;; faster to navigate between days via TAB.
--- a/planner-appt.el   Sat Dec 17 09:20:11 2005 -0800
+++ b/planner-appt.el   Sat Dec 17 23:33:55 2005 -0800
@@ -635,14 +635,15 @@
 ;; Format the data into a big string to make it easy either to put
 ;; into a display buffer or into the day page.
 (defun planner-appt-forthcoming-format (appt-data)
-  (let ((last-date ""))
+  (let ((last-date "")
+        (repeat-date "          "))
     (mapconcat #'(lambda (a)
                    (prog1
                        (concat
-                        (planner-make-link
-                         (car a)
-                         (when (string= (car a) last-date)
-                           "     -    "))
+                        (if (string= (car a) last-date)
+                            repeat-date
+                          (planner-make-link
+                           (car a)))
                         " | "
                         ;; Remove @s from times to avoid spurious
                         ;; highlighting.