From mboxrd@z Thu Jan 1 00:00:00 1970 From: Marius Hofert Subject: Re: How to set up anniversaries/birthdays with org-contacts-anniversaries? Date: Tue, 8 Nov 2011 23:16:21 +0100 Message-ID: References: <49FF00AC-D45D-41ED-95A9-98C771F52282@math.ethz.ch> <32789D68-74E0-4B80-9C17-BB9C405535F9@math.ethz.ch> <4660.1320787996@alphaville.americas.hpqcorp.net> <545524F1-AC54-4ADB-8EDA-6AA4BBAA551E@math.ethz.ch> <5493.1320790042@alphaville.americas.hpqcorp.net> Mime-Version: 1.0 (Apple Message framework v1251.1) Content-Type: text/plain; charset="us-ascii" Content-Transfer-Encoding: quoted-printable Return-path: Received: from eggs.gnu.org ([140.186.70.92]:56522) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RNtxy-0005ru-Dp for emacs-orgmode@gnu.org; Tue, 08 Nov 2011 17:16:27 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1RNtxw-00014L-GT for emacs-orgmode@gnu.org; Tue, 08 Nov 2011 17:16:26 -0500 Received: from edge20.ethz.ch ([82.130.99.26]:18405) by eggs.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1RNtxw-000141-6S for emacs-orgmode@gnu.org; Tue, 08 Nov 2011 17:16:24 -0500 In-Reply-To: <5493.1320790042@alphaville.americas.hpqcorp.net> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: nicholas.dokos@hp.com Cc: Emacs help 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 =3D (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 =3D (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)