[emacs-wiki-discuss] Re: sachawiki: 2004.08.25

[Daniel Barral]

> Next I modify planner-date-to-filename, which is called by planner-today:
> This might become simpler, I still don't know if the list (day month 
> year) is of any use somewhere.

This format (day month year) is not useful at all. This now works with 
calendar.

(defun planner-date-to-filename (date)
  "Return the planner filename corresponding to DATE.
DATE is a list (month day year) or an internal date representation."
  (if (eq european-calendar-style nil)
      (progn (if (= (length date) 3)
                 (format "%04d.%02d.%02d" (elt date 2) (elt date 0) (elt date 
1))
               (if (= (length date) 2)
                   (setq date (decode-time date)))
               (format "%04d.%02d.%02d"       ; year.month.day
                       (elt date 5)
                       (elt date 4)
                       (elt date 3))))
    (progn (if (= (length date) 3)
               (format "%02d.%02d.%04d" (elt date 1) (elt date 0) (elt date 2))
             (if (= (length date) 2)
                 (setq date (decode-time date)))
             (format "%02d.%02d.%04d"   ; day.month.year
                     (elt date 3)
                     (elt date 4)
                     (elt date 5))))))