Re: chinese calendar entries for diary

[Edward M. Reingold]

>>>>> "k" == ken  <gebser@speakeasy.net> writes:

    k> I'm looking for a way to have my diary include "tsoh" days, i.e., the
    k> 10th and 25th days of each month of the Chinese calendar.  Google
    k> turned up nothing.  (Buddhists would appreciate that. :)

You need to write an Elisp function that is t on the dates you want and false
otherwise, then use this as a diary-sexp.  Here is such a function:

(defun tsoh ()
  "Chinese tsoh diary entry.
Entry applies on the 10th and 25th of the Chinese month."
  (let* ((chinese-date (calendar-chinese-from-absolute
                       (calendar-absolute-from-gregorian
                        (or date (calendar-current-date)))))
         (day (car (cdr (cdr (cdr chinese-date))))))
    (if (or (= day 10) (= day 25))
        "Tsoh")))
 
In your diary you use it like any other diary-sexp:

&%%(tsoh)

 


-- 

Professor Edward M. Reingold                Email: reingold@iit.edu
Chairman, Department of Computer Science    Voice: (312) 567-3309
Illinois Institute of Technology            Assistant: (312) 567-5152
Stuart Building                             Fax:   (312) 567-5067
10 West 31st Street, Suite 236
Chicago, IL  60616-3729  U.S.A.