Add anniversary and org-mode

Add anniversary and org-mode

[Richard G Riley]

I used add anniversary in the agenda and ended up with
something like

%%(diary-anniversary 3 19 2008) John's daughter's birthday.


in my diary file.

But its not showing up in my agenda or my calendar. What could be the
issue here? I even tried "c" in the calendar view to generate the agenda
for that day.

org-mode 5.23a

Re: Add anniversary and org-mode

[Carsten Dominik]

On Mar 20, 2008, at 1:02 AM, Richard G Riley wrote:

>
> I used add anniversary in the agenda and ended up with
> something like
>
> %%(diary-anniversary 3 19 2008) John's daughter's birthday.
>
>
> in my diary file.
>
> But its not showing up in my agenda or my calendar. What could be the
> issue here? I even tried "c" in the calendar view to generate the  
> agenda
> for that day.

Make sure that there is a newline after the diary-anniversary entry.

Make sure that you have set org-agenda-include-diary, or press "D" in  
the agenda.

The first anniversary is after one year, so this entry will show up  
next year
for the first time.

- Carsten

Re: Add anniversary and org-mode

[Bastien Guerry]

Hi Richard,

Richard G Riley <rileyrgdev@googlemail.com> writes:

> I used add anniversary in the agenda and ended up with
> something like
>
> %%(diary-anniversary 3 19 2008) John's daughter's birthday.
>
> in my diary file.
>
> But its not showing up in my agenda or my calendar. What could be the
> issue here? I even tried "c" in the calendar view to generate the agenda
> for that day.

Did you tell Org to include the diary?

(setq org-agenda-include-diary t)

-- 
Bastien

Re: Add anniversary and org-mode

[Richard G Riley]

Carsten Dominik <dominik@science.uva.nl> writes:

> The first anniversary is after one year, so this entry will show up
> next year
> for the first time.

Yes, this was my mistake! I had finally found it in the emacs diary
wiki!

Thanks for the heads up though.

>
> - Carsten

Re: Add anniversary and org-mode

[Richard G Riley]

Bastien Guerry <bzg@altern.org> writes:

> Hi Richard,
>
> Richard G Riley <rileyrgdev@googlemail.com> writes:
>
>> I used add anniversary in the agenda and ended up with
>> something like
>>
>> %%(diary-anniversary 3 19 2008) John's daughter's birthday.
>>
>> in my diary file.
>>
>> But its not showing up in my agenda or my calendar. What could be the
>> issue here? I even tried "c" in the calendar view to generate the agenda
>> for that day.
>
> Did you tell Org to include the diary?
>
> (setq org-agenda-include-diary t)

Yes, but it wasn't showing in my calendar either, as I mentioned above,
and I mistakenly assumed an issue with org-mode and calendar
incompatibility. Silly me. It turned out that anniversaries simply do
not show up on the starting date :-; Found that out in the diary wiki
courtesy of a poster in #emacs irc.

Re: Add anniversary and org-mode

[Bastien Guerry]

Richard G Riley <rileyrgdev@googlemail.com> writes:

> It turned out that anniversaries simply do
> not show up on the starting date :-; 

Now that you mention this...  I can't remember my parents gave me a
birthday present for my 0th birthday!  That's unfair.

-- 
Bastien

Re: Add anniversary and org-mode

[Richard G Riley]

Bastien Guerry <bzg@altern.org> writes:

> Richard G Riley <rileyrgdev@googlemail.com> writes:
>
>> It turned out that anniversaries simply do
>> not show up on the starting date :-; 
>
> Now that you mention this...  I can't remember my parents gave me a
> birthday present for my 0th birthday!  That's unfair.

Ha!

But its a bit of a misnomer since you can use

Jun 12 Richard's Birthday

for a repeat calendar item - fine. But then you lose the %d
functionality available in:

%%(diary-anniversary 3 19 2008) Julien's daughter turns %d !

Re: Add anniversary and org-mode

[Bastien Guerry]

Richard G Riley <rileyrgdev@googlemail.com> writes:

> But its a bit of a misnomer since you can use
>
> Jun 12 Richard's Birthday
>
> for a repeat calendar item - fine. But then you lose the %d
> functionality available in:
>
> %%(diary-anniversary 3 19 2008) Julien's daughter turns %d !

FYI I'm using bbdd-anniversary.el and it works fine:

http://stuff.mit.edu/afs/sipb/contrib/emacs/packages/bbdb-2.34/bits/bbdb-anniv.el

-- 
Bastien

Re: Add anniversary and org-mode

[Thomas Baumann]

Bastien Guerry <bzg@altern.org> writes:

>
> FYI I'm using bbdd-anniversary.el and it works fine:
>
> http://stuff.mit.edu/afs/sipb/contrib/emacs/packages/bbdb-2.34/bits/bbdb-anniv.el

Nice suggestion, would you mind to send me an example record? Somehow I
don't seem to get the format of the bbdb-file right.

Thanks
Thomas

Re: Re: Add anniversary and org-mode

[Bastien Guerry]

Thomas Baumann <dtbaumann@yahoo.de> writes:

> Nice suggestion, would you mind to send me an example record? Somehow I
> don't seem to get the format of the bbdb-file right.

In a bbdb entry, add the "anniversary" field like this:

  C-o anniversary RET YYYY-MM-DD

Make sure you added the "anniversary" field to the list of user-fields
at the beginning of you ~/.bbdb file:

  ;;; user-fields: (anniversary)

HTH,

-- 
Bastien

Re: Add anniversary and org-mode

[Thomas Baumann]

Bastien,

just another question, did you include the anniversaries via inclusion
of the diary (does work here) or directly with
%%(bbdb-include-anniversaries) or alike?

Thanks
Thomas

Re: Re: Add anniversary and org-mode

[Bastien Guerry]

Thomas Baumann <dtbaumann@yahoo.de> writes:

> just another question, did you include the anniversaries via inclusion
> of the diary (does work here) or directly with
> %%(bbdb-include-anniversaries) or alike?

I use this:

(add-hook 'list-diary-entries-hook 'bbdb-include-anniversaries)

-- 
Bastien

Re: Add anniversary and org-mode

[Thomas Baumann]

Bastien Guerry <bzg@altern.org> writes:
>
> I use this:
>
> (add-hook 'list-diary-entries-hook 'bbdb-include-anniversaries)
>
> -- 
> Bastien


For those who hardly use the diary (like me), here's a
wrapper/replacement to bbdb-anniv.el.

Add 

%%(org-bbdb-anniversaries) 

somewhere in your org-file and all the anniversaries from the bbdb will
be included in the diary. The format for birthdays, weddings, ... , can
be customized in bbdb-anniv.

Thomas



;;; org-bbdb-anniv.el --- Get anniversaries from BBDB

;; Copyright (C) 2008 Thomas Baumann

;; Author: Thomas Baumann <thomas.baumann@ch.tum.de>
;;         based on bbdb-anniv.el by Ivar Rummelhoff <ivarru@math.uio.no>
;; Maintainer: Thomas Baumann <thomas.baumann@ch.tum.de>
;; Created: 21 March 2008
;; Keywords: calendar org

;; This program is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 3, or (at your option)
;; any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; If you have not received a copy of the GNU General Public License
;; along with this software, it can be obtained from the GNU Project's
;; World Wide Web server (http://www.gnu.org/copyleft/gpl.html), from
;; its FTP server (ftp://ftp.gnu.org/pub/gnu/GPL), by sending an electronic
;; mail to this program's maintainer or by writing to the Free Software
;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

;;; Commentary:

;; (require 'org-bbdb-anniv)
;; %%(org-bbdb-anniversaries)
;;
;; will include BBDB-anniversaries in the agenda view
;;
;; From bbdb-anniv.el
;; The anniversaries are stored in BBDB in the field `anniversary'
;; in the format
;;
;;     [YYYY-MM-DD CLASS-OR-FORMAT-STRING]
;;     {\nYYYY-MM-DD CLASS-OR-FORMAT-STRING}*
;;
;; CLASS-OR-FORMAT-STRING is one of two things:
;;
;;  * an identifier for a class of anniversaries (eg. birthday or
;;    wedding) from `bbdb-anniversary-format-alist'.
;;  * the (format) string displayed in the diary.
;;
;; It defaults to the value of `bbdb-default-anniversary-format'
;; ("birthday" by default).
;;
;; The substitutions in the format string are (in order):
;;  * the name of the record containing this anniversary
;;  * the number of years
;;  * an ordinal suffix (st, nd, rd, th) for the year
;;
;; See the documentation of `bbdb-anniversary-format-alist' for
;; further options.
;;
;; Example (my own record):
;;
;;       1973-06-22 
;;       20??-??-?? wedding
;;       1998-03-12 %s created bbdb-anniv.el %d years ago
;;
;; If you use the hook `sort-diary-entries', you should make sure that
;; it is executed after `bbdb-include-anniversaries'.
;;

(require 'bbdb-anniv)

;;;###autoload
(defun org-bbdb-anniversaries ()
  "Extract anniversaries from BBDB for display in the agenda." 
  (let ((dates (list (cons (cons (extract-calendar-month date)
                                 (extract-calendar-day date))
                           (extract-calendar-year date))))
        (text ())
        annivs date years
        split class form)
    (dolist (rec (bbdb-records))
      (when (setq annivs (bbdb-record-getprop
                          rec bbdb-anniversary-field))
        (setq annivs (bbdb-split annivs "\n"))
        (while annivs
          (setq split (bbdb-anniv-split (pop annivs)))
          (multiple-value-bind (m d y)
              (funcall bbdb-extract-date-fun (car split))
            
            (when (and (or (setq date (assoc (cons m d) dates))
                           (and (= d 29)
                                (= m 2)
                                (setq date (assoc '(3 . 1) dates))
                                (not (calendar-leap-year-p (cdr date)))))
                       (< 0 (setq years (-  (cdr date) y))))
              (let* ((class (or (cadr split)
                                bbdb-default-anniversary-format))
                     (form (or (cdr (assoc class
                                           bbdb-anniversary-format-alist))
                               class))	; (as format string)
                     (name (bbdb-record-name rec))
                     (suffix (diary-ordinal-suffix years))
                     (tmp (cond
                           ((functionp form)
                            (funcall form name years suffix))
                           ((listp form) (eval form))
                           (t (format form name years suffix)))))
                (if text
                    (setq text (append text (list tmp)))
                  (setq text (list tmp))))
              )))))
    (when text
      (mapconcat 'identity text "; "))))
  
(provide 'org-bbdb-anniv)

;;; org-bbdb-anniv.el ends here

Re: Re: Add anniversary and org-mode

[Carsten Dominik]

Should we put this into CONTRIB?

- Carsten

On Mar 21, 2008, at 8:55 PM, Thomas Baumann wrote:

> Bastien Guerry <bzg@altern.org> writes:
>>
>> I use this:
>>
>> (add-hook 'list-diary-entries-hook 'bbdb-include-anniversaries)
>>
>> --  
>> Bastien
>
>
> For those who hardly use the diary (like me), here's a
> wrapper/replacement to bbdb-anniv.el.
>
> Add
>
> %%(org-bbdb-anniversaries)
>
> somewhere in your org-file and all the anniversaries from the bbdb  
> will
> be included in the diary. The format for birthdays, weddings, ... ,  
> can
> be customized in bbdb-anniv.
>
> Thomas
>
>
>
> ;;; org-bbdb-anniv.el --- Get anniversaries from BBDB
>
> ;; Copyright (C) 2008 Thomas Baumann
>
> ;; Author: Thomas Baumann <thomas.baumann@ch.tum.de>
> ;;         based on bbdb-anniv.el by Ivar Rummelhoff <ivarru@math.uio.no 
> >
> ;; Maintainer: Thomas Baumann <thomas.baumann@ch.tum.de>
> ;; Created: 21 March 2008
> ;; Keywords: calendar org
>
> ;; This program is free software; you can redistribute it and/or  
> modify
> ;; it under the terms of the GNU General Public License as published  
> by
> ;; the Free Software Foundation; either version 3, or (at your option)
> ;; any later version.
> ;;
> ;; This program is distributed in the hope that it will be useful,
> ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
> ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
> ;; GNU General Public License for more details.
> ;;
> ;; If you have not received a copy of the GNU General Public License
> ;; along with this software, it can be obtained from the GNU Project's
> ;; World Wide Web server (http://www.gnu.org/copyleft/gpl.html), from
> ;; its FTP server (ftp://ftp.gnu.org/pub/gnu/GPL), by sending an  
> electronic
> ;; mail to this program's maintainer or by writing to the Free  
> Software
> ;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  
> 02111-1307, USA.
>
> ;;; Commentary:
>
> ;; (require 'org-bbdb-anniv)
> ;; %%(org-bbdb-anniversaries)
> ;;
> ;; will include BBDB-anniversaries in the agenda view
> ;;
> ;; From bbdb-anniv.el
> ;; The anniversaries are stored in BBDB in the field `anniversary'
> ;; in the format
> ;;
> ;;     [YYYY-MM-DD CLASS-OR-FORMAT-STRING]
> ;;     {\nYYYY-MM-DD CLASS-OR-FORMAT-STRING}*
> ;;
> ;; CLASS-OR-FORMAT-STRING is one of two things:
> ;;
> ;;  * an identifier for a class of anniversaries (eg. birthday or
> ;;    wedding) from `bbdb-anniversary-format-alist'.
> ;;  * the (format) string displayed in the diary.
> ;;
> ;; It defaults to the value of `bbdb-default-anniversary-format'
> ;; ("birthday" by default).
> ;;
> ;; The substitutions in the format string are (in order):
> ;;  * the name of the record containing this anniversary
> ;;  * the number of years
> ;;  * an ordinal suffix (st, nd, rd, th) for the year
> ;;
> ;; See the documentation of `bbdb-anniversary-format-alist' for
> ;; further options.
> ;;
> ;; Example (my own record):
> ;;
> ;;       1973-06-22
> ;;       20??-??-?? wedding
> ;;       1998-03-12 %s created bbdb-anniv.el %d years ago
> ;;
> ;; If you use the hook `sort-diary-entries', you should make sure that
> ;; it is executed after `bbdb-include-anniversaries'.
> ;;
>
> (require 'bbdb-anniv)
>
> ;;;###autoload
> (defun org-bbdb-anniversaries ()
>  "Extract anniversaries from BBDB for display in the agenda."
>  (let ((dates (list (cons (cons (extract-calendar-month date)
>                                 (extract-calendar-day date))
>                           (extract-calendar-year date))))
>        (text ())
>        annivs date years
>        split class form)
>    (dolist (rec (bbdb-records))
>      (when (setq annivs (bbdb-record-getprop
>                          rec bbdb-anniversary-field))
>        (setq annivs (bbdb-split annivs "\n"))
>        (while annivs
>          (setq split (bbdb-anniv-split (pop annivs)))
>          (multiple-value-bind (m d y)
>              (funcall bbdb-extract-date-fun (car split))
>
>            (when (and (or (setq date (assoc (cons m d) dates))
>                           (and (= d 29)
>                                (= m 2)
>                                (setq date (assoc '(3 . 1) dates))
>                                (not (calendar-leap-year-p (cdr  
> date)))))
>                       (< 0 (setq years (-  (cdr date) y))))
>              (let* ((class (or (cadr split)
>                                bbdb-default-anniversary-format))
>                     (form (or (cdr (assoc class
>                                           bbdb-anniversary-format- 
> alist))
>                               class))	; (as format string)
>                     (name (bbdb-record-name rec))
>                     (suffix (diary-ordinal-suffix years))
>                     (tmp (cond
>                           ((functionp form)
>                            (funcall form name years suffix))
>                           ((listp form) (eval form))
>                           (t (format form name years suffix)))))
>                (if text
>                    (setq text (append text (list tmp)))
>                  (setq text (list tmp))))
>              )))))
>    (when text
>      (mapconcat 'identity text "; "))))
>
> (provide 'org-bbdb-anniv)
>
> ;;; org-bbdb-anniv.el ends here
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Re: Add anniversary and org-mode

[Thomas Baumann]

Carsten Dominik <dominik@science.uva.nl> wrote:

> 
> Should we put this into CONTRIB?
> 
> - Carsten


There are most likely some changes within the next few days.

Should the code, which is for those who don't make use
of the integration of anniversaries in the diary, rely on bbdb-anniv.el
(which is itself a contrib to bbdb)?

Or should it better be a stand-alone interface?

Thomas

Re: Re: Add anniversary and org-mode

[Carsten Dominik]

On Mar 23, 2008, at 8:16 AM, Thomas Baumann wrote:

> Carsten Dominik <dominik@science.uva.nl> wrote:
>
>>
>> Should we put this into CONTRIB?
>>
>> - Carsten
>
>
> There are most likely some changes within the next few days.
>
> Should the code, which is for those who don't make use
> of the integration of anniversaries in the diary, rely on bbdb- 
> anniv.el
> (which is itself a contrib to bbdb)?
>
> Or should it better be a stand-alone interface?

Hi Thomas,

I think a stand-alone solution would be useful.

Once your paperwork has come through, maybe we should merge the code
into org-bbdb.el?  I did not name these files org-link-bbdb.el exactly
so that we can add other bbdb related code.

- Carsten