[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: [O] How to set up anniversaries/birthdays with org-contacts-annivers
From: |
Marius Hofert |
Subject: |
Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries? |
Date: |
Tue, 8 Nov 2011 23:16:21 +0100 |
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)
- [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Marius Hofert, 2011/11/06
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Marius Hofert, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Nick Dokos, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Marius Hofert, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Nick Dokos, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?,
Marius Hofert <=
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Jambunathan K, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Marius Hofert, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Jambunathan K, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Nick Dokos, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Marius Hofert, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Marius Hofert, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Nick Dokos, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Marius Hofert, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Jonathan Leech-Pepin, 2011/11/08
- Re: [O] How to set up anniversaries/birthdays with org-contacts-anniversaries?, Marius Hofert, 2011/11/08