From: Marius Hofert <marius.hofert@math.ethz.ch>
To: nicholas.dokos@hp.com
Cc: Emacs help <emacs-orgmode@gnu.org>
Subject: Re: How to set up anniversaries/birthdays with org-contacts-anniversaries?
Date: Tue, 8 Nov 2011 23:16:21 +0100 [thread overview]
Message-ID: <C7FDCB68-29F0-4F8E-A201-87D4570CA07F@math.ethz.ch> (raw)
In-Reply-To: <5493.1320790042@alphaville.americas.hpqcorp.net>
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)
next prev parent reply other threads:[~2011-11-08 22:16 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-11-06 11:05 How to set up anniversaries/birthdays with org-contacts-anniversaries? Marius Hofert
2011-11-08 21:03 ` Marius Hofert
2011-11-08 21:33 ` Nick Dokos
2011-11-08 21:43 ` Marius Hofert
2011-11-08 22:07 ` Nick Dokos
2011-11-08 22:16 ` Marius Hofert [this message]
2011-11-08 22:33 ` Jambunathan K
2011-11-08 22:36 ` Marius Hofert
2011-11-08 22:50 ` Jambunathan K
2011-11-08 23:06 ` Nick Dokos
2011-11-08 23:13 ` Marius Hofert
2011-11-08 23:17 ` Marius Hofert
2011-11-08 23:21 ` Nick Dokos
2011-11-08 23:25 ` Marius Hofert
2011-11-08 23:37 ` Jonathan Leech-Pepin
2011-11-08 23:12 ` Marius Hofert
2011-11-08 22:48 ` Nick Dokos
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=C7FDCB68-29F0-4F8E-A201-87D4570CA07F@math.ethz.ch \
--to=marius.hofert@math.ethz.ch \
--cc=emacs-orgmode@gnu.org \
--cc=nicholas.dokos@hp.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).