Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?

[Marius Hofert]

Okay, ESC ESC : (org-contacts-anniversaries) gives:


Debugger entered--Lisp error: (void-function diary-anniversary)
  diary-anniversary(10 25 1970)
  apply(diary-anniversary (10 25 1970))
  (and anniv (apply (quote diary-anniversary) anniv))
  (if (and anniv (apply (quote diary-anniversary) anniv)) (progn (push 
(format-spec format (\` ((108 \, (org-with-point-at ... ...)) (104 \, (car 
contact)) (121 \, (- ... ...)) (89 \, (let ... ...))))) --cl-var--)))
  (while (consp --cl-var--) (setq contact (car --cl-var--)) (setq anniv (let 
((anniv (cdr (assoc-string (or field org-contacts-birthday-property) (caddr 
contact))))) (when anniv (calendar-gregorian-from-absolute 
(org-time-string-to-absolute anniv))))) (if (and anniv (apply (quote 
diary-anniversary) anniv)) (progn (push (format-spec format (\` ((108 \, ...) 
(104 \, ...) (121 \, ...) (89 \, ...)))) --cl-var--))) (setq --cl-var-- (cdr 
--cl-var--)))
  (let* ((--cl-var-- (org-contacts-filter)) (contact nil) (anniv nil) 
(--cl-var-- nil)) (while (consp --cl-var--) (setq contact (car --cl-var--)) 
(setq anniv (let ((anniv (cdr (assoc-string ... ...)))) (when anniv 
(calendar-gregorian-from-absolute (org-time-string-to-absolute anniv))))) (if 
(and anniv (apply (quote diary-anniversary) anniv)) (progn (push (format-spec 
format (\` (... ... ... ...))) --cl-var--))) (setq --cl-var-- (cdr 
--cl-var--))) (nreverse --cl-var--))
  (catch (quote --cl-block-nil--) (let* ((--cl-var-- (org-contacts-filter)) 
(contact nil) (anniv nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq 
contact (car --cl-var--)) (setq anniv (let ((anniv (cdr ...))) (when anniv 
(calendar-gregorian-from-absolute (org-time-string-to-absolute anniv))))) (if 
(and anniv (apply (quote diary-anniversary) anniv)) (progn (push (format-spec 
format (\` ...)) --cl-var--))) (setq --cl-var-- (cdr --cl-var--))) (nreverse 
--cl-var--)))
  (cl-block-wrapper (catch (quote --cl-block-nil--) (let* ((--cl-var-- 
(org-contacts-filter)) (contact nil) (anniv nil) (--cl-var-- nil)) (while 
(consp --cl-var--) (setq contact (car --cl-var--)) (setq anniv (let ((anniv 
...)) (when anniv (calendar-gregorian-from-absolute ...)))) (if (and anniv 
(apply (quote diary-anniversary) anniv)) (progn (push (format-spec format ...) 
--cl-var--))) (setq --cl-var-- (cdr --cl-var--))) (nreverse --cl-var--))))
  (block nil (let* ((--cl-var-- (org-contacts-filter)) (contact nil) (anniv 
nil) (--cl-var-- nil)) (while (consp --cl-var--) (setq contact (car 
--cl-var--)) (setq anniv (let ((anniv (cdr ...))) (when anniv 
(calendar-gregorian-from-absolute (org-time-string-to-absolute anniv))))) (if 
(and anniv (apply (quote diary-anniversary) anniv)) (progn (push (format-spec 
format (\` ...)) --cl-var--))) (setq --cl-var-- (cdr --cl-var--))) (nreverse 
--cl-var--)))
  (loop for contact in (org-contacts-filter) for anniv = (let ((anniv (cdr 
(assoc-string (or field org-contacts-birthday-property) (caddr contact))))) 
(when anniv (calendar-gregorian-from-absolute (org-time-string-to-absolute 
anniv)))) if (and anniv (apply (quote diary-anniversary) anniv)) collect 
(format-spec format (\` ((108 \, (org-with-point-at (cadr contact) 
(org-store-link nil))) (104 \, (car contact)) (121 \, (- (calendar-extract-year 
date) (calendar-extract-year anniv))) (89 \, (let ((years ...)) (format "%d%s" 
years (diary-ordinal-suffix years))))))))
  (let ((calendar-date-style (quote american)) (entry "")) (unless format (setq 
format org-contacts-birthday-format)) (loop for contact in 
(org-contacts-filter) for anniv = (let ((anniv (cdr (assoc-string (or field 
org-contacts-birthday-property) (caddr contact))))) (when anniv 
(calendar-gregorian-from-absolute (org-time-string-to-absolute anniv)))) if 
(and anniv (apply (quote diary-anniversary) anniv)) collect (format-spec format 
(\` ((108 \, (org-with-point-at (cadr contact) (org-store-link nil))) (104 \, 
(car contact)) (121 \, (- (calendar-extract-year date) (calendar-extract-year 
anniv))) (89 \, (let (...) (format "%d%s" years ...))))))))
  org-contacts-anniversaries()
  eval((org-contacts-anniversaries) nil)
  eval-expression((org-contacts-anniversaries) nil)
  call-interactively(eval-expression nil nil)