[BUG] BBDB anniversary entries with a format-string produce error [9.6.15 (release_9.6.15 @ /usr/share/emacs/29.4/lisp/org/)]

[BUG] BBDB anniversary entries with a format-string produce error [9.6.15 (release_9.6.15 @ /usr/share/emacs/29.4/lisp/org/)]

[Alexander Lazarević]

[-- Attachment #1: Type: text/plain, Size: 7258 bytes --]

In one agenda (personal.org) I have the following entry:

* Anniversaries
:PROPERTIES:
#+CATEGORY: Ann
:END:
%%(org-bbdb-anniversaries-future 3)

This works for BBDB entries that have an anniversary like "1973-06-22"
or "2021-04-91 wedding", but it fails for something like "1998-03-12 %s
created bbdb-anniv.el %d years ago" (from the examples in ol-bbdb.el).

The error message is like:

Bad sexp at line 5 in /home/laza/exobrain/org/personal/personal.org: (let
((entry ) (date '(12 3 1998))) (org-bbdb-anniversaries-future 3))

Emacs  : GNU Emacs 29.4 (build 1, x86_64-pc-linux-gnu, GTK+ Version
3.24.43, cairo version 1.18.0)
Package: Org mode version 9.6.15 (release_9.6.15 @
/usr/share/emacs/29.4/lisp/org/)

current state:
==============
(setq
 org-archive-location "~/org/archive/%s_archive::"
 org-link-elisp-confirm-function 'yes-or-no-p
 org-directory "~/org"
 org-global-properties '(("Effort_ALL" . "0 0:10 0:30 1:00 2:00 3:00 4:00
5:00 6:00 7:00"))
 org-ditaa-jar-path "/usr/share/java/ditaa/ditaa.jar"
 org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3
"\n\n(fn ENTRY)"]
 org-log-into-drawer t
 org-startup-folded t
 org-agenda-files "~/org/agendas"
 org-persist-after-read-hook '(org-element--cache-persist-after-read)
 org-bbdb-anniversary-format-alist '(("birthday" lambda (name years suffix)
     (concat "Birthday: [[bbdb:" name "][" name " ("
      (format "%s" years) suffix ")]]")
     )
    ("wedding" lambda (name years suffix)
     (concat "[[bbdb:" name "][" name "'s "
      (format "%s" years) suffix " wedding anniversary]]")
     )
    ("dayofdeath" lambda (name years suffix)
     (concat "Day of death: [[bbdb:" name "][" name " ("
      (format "%s" years) suffix ")]]")
     )
    )
 org-refile-targets '((org-agenda-files :maxlevel . 9))
 org-export-before-parsing-hook '(org-attach-expand-links)
 org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-default-notes-file "~/org/notes.org"
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-file-apps '((auto-mode . emacs) (directory . emacs) ("\\.mm\\'" .
default)
("\\.x?html?\\'" . default) ("\\.pdf\\'" . "evince %s"))
 org-columns-default-format "%40ITEM(Task) %17Effort(Estimated Effort){:}
%CLOCKSUM"
 org-odt-format-inlinetask-function
'org-odt-format-inlinetask-default-function
 org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME CONTENTS
WIDTH)"]
 org-cycle-hook '(org-cycle-hide-archived-subtrees
org-cycle-show-empty-lines
 org-cycle-optimize-window-after-visibility-change
 org-cycle-display-inline-images)
 org-persist-before-read-hook '(org-element--cache-persist-before-read)
 org-modules '(ol-bbdb ol-bibtex ol-docview ol-doi ol-eww ol-gnus org-habit
ol-info ol-irc
      ol-mhe ol-rmail ol-w3m)
 org-mode-hook '(org-clock-load
#[0 "\300\301\302\303\304$\207"
  [add-hook change-major-mode-hook org-fold-show-all append local] 5]
#[0 "\300\301\302\303\304$\207"
  [add-hook change-major-mode-hook org-babel-show-result-all append local]
  5]
org-babel-result-hide-spec org-babel-hide-all-hashes
#[0 "\301\211 \207" [imenu-create-index-function org-imenu-get-tree] 2])
 org-babel-load-languages '((emacs-lisp . t) (calc . t) (shell . t) (python
. t) (dot . t)
   (ditaa . t) (latex . t) (gnuplot . t) (plantuml . t))
 org-agenda-span 15
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-latex-format-headline-function
'org-latex-format-headline-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 outline-isearch-open-invisible-function 'outline-isearch-open-invisible
 org-habit-graph-column 60
 org-export-before-processing-hook
'(org-blackfriday--reset-org-blackfriday--code-block-num-backticks)
 org-fold-catch-invisible-edits 'error
 org-plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar"
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-tangle-lang-exts '(("latex" . "tex") ("python" . "py")
("emacs-lisp" . "el")
     ("elisp" . "el"))
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-clock-idle-time 15
 org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
 org-html-format-inlinetask-function
'org-html-format-inlinetask-default-function
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-confirm-babel-evaluate nil
 org-fold-core-isearch-open-function 'org-fold-core--isearch-reveal
 org-clock-persist 'history
 org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
 org-persist-before-write-hook '(org-element--cache-persist-before-write)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-link-shell-confirm-function 'yes-or-no-p
 org-babel-pre-tangle-hook '(save-buffer)
 org-agenda-loop-over-headlines-in-active-region nil
 org-agenda-start-on-weekday nil
 org-occur-hook '(org-first-headline-recenter)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-link-parameters '(("attachment" :follow org-attach-follow :complete
org-attach-complete-link)
      ("w3m" :store org-w3m-store-link)
      ("rmail" :follow org-rmail-open :store org-rmail-store-link)
      ("mhe" :follow org-mhe-open :store org-mhe-store-link)
      ("irc" :follow org-irc-visit :store org-irc-store-link :export
org-irc-export)
      ("gnus" :follow org-gnus-open :store org-gnus-store-link)
      ("eww" :follow org-eww-open :store org-eww-store-link)
      ("doi" :follow org-link-doi-open :export org-link-doi-export)
      ("docview" :follow org-docview-open :export org-docview-export
:store org-docview-store-link)
      ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
      ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete
org-bbdb-complete-link :store org-bbdb-store-link)
      ("info" :follow org-info-open :export org-info-export :store
org-info-store-link :insert-description
org-info-description-as-command)
      ("id" :follow org-id-open) ("file+sys") ("file+emacs")
      ("shell" :follow org-link--open-shell)
      ("news" :follow
#[514 "\301\300\302 Q \"\207" ["news" browse-url ":"] 6
 "\n\n(fn URL ARG)"]
)
      ("mailto" :follow
#[514 "\301\300\302 Q \"\207" ["mailto" browse-url ":"] 6
 "\n\n(fn URL ARG)"]
)
      ("https" :follow
#[514 "\301\300\302 Q \"\207" ["https" browse-url ":"] 6
 "\n\n(fn URL ARG)"]
)
      ("http" :follow
#[514 "\301\300\302 Q \"\207" ["http" browse-url ":"] 6
 "\n\n(fn URL ARG)"]
)
      ("ftp" :follow
#[514 "\301\300\302 Q \"\207" ["ftp" browse-url ":"] 6
 "\n\n(fn URL ARG)"]
)
      ("help" :follow org-link--open-help :store org-link--store-help)
      ("file" :complete org-link-complete-file)
      ("elisp" :follow org-link--open-elisp))
 org-html-format-headline-function
'org-html-format-headline-default-function
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-agenda-include-diary t
 org-startup-with-inline-images t
 org-return-follows-link t
 )

[-- Attachment #2: Type: text/html, Size: 10237 bytes --]

Re: [BUG] BBDB anniversary entries with a format-string produce error [9.6.15 (release_9.6.15 @ /usr/share/emacs/29.4/lisp/org/)]

[Alexander Lazarević]

[-- Attachment #1: Type: text/plain, Size: 8011 bytes --]

There seems to be no problem when I change the entry from

%%(org-bbdb-anniversaries-future 3)

to

%%(org-bbdb-anniversaries)

On Tue, 8 Oct 2024 at 02:58, Alexander Lazarević <alexander@lazarevic.de>
wrote:

> In one agenda (personal.org) I have the following entry:
>
> * Anniversaries
> :PROPERTIES:
> #+CATEGORY: Ann
> :END:
> %%(org-bbdb-anniversaries-future 3)
>
> This works for BBDB entries that have an anniversary like "1973-06-22"
> or "2021-04-91 wedding", but it fails for something like "1998-03-12 %s
> created bbdb-anniv.el %d years ago" (from the examples in ol-bbdb.el).
>
> The error message is like:
>
> Bad sexp at line 5 in /home/laza/exobrain/org/personal/personal.org: (let
> ((entry ) (date '(12 3 1998))) (org-bbdb-anniversaries-future 3))
>
> Emacs  : GNU Emacs 29.4 (build 1, x86_64-pc-linux-gnu, GTK+ Version
> 3.24.43, cairo version 1.18.0)
> Package: Org mode version 9.6.15 (release_9.6.15 @
> /usr/share/emacs/29.4/lisp/org/)
>
> current state:
> ==============
> (setq
>  org-archive-location "~/org/archive/%s_archive::"
>  org-link-elisp-confirm-function 'yes-or-no-p
>  org-directory "~/org"
>  org-global-properties '(("Effort_ALL" . "0 0:10 0:30 1:00 2:00 3:00 4:00
> 5:00 6:00 7:00"))
>  org-ditaa-jar-path "/usr/share/java/ditaa/ditaa.jar"
>  org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3
> "\n\n(fn ENTRY)"]
>  org-log-into-drawer t
>  org-startup-folded t
>  org-agenda-files "~/org/agendas"
>  org-persist-after-read-hook '(org-element--cache-persist-after-read)
>  org-bbdb-anniversary-format-alist '(("birthday" lambda (name years suffix)
>      (concat "Birthday: [[bbdb:" name "][" name " ("
>       (format "%s" years) suffix ")]]")
>      )
>     ("wedding" lambda (name years suffix)
>      (concat "[[bbdb:" name "][" name "'s "
>       (format "%s" years) suffix " wedding anniversary]]")
>      )
>     ("dayofdeath" lambda (name years suffix)
>      (concat "Day of death: [[bbdb:" name "][" name " ("
>       (format "%s" years) suffix ")]]")
>      )
>     )
>  org-refile-targets '((org-agenda-files :maxlevel . 9))
>  org-export-before-parsing-hook '(org-attach-expand-links)
>  org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
> org-babel-header-arg-expand)
>  org-default-notes-file "~/org/notes.org"
>  org-archive-hook '(org-attach-archive-delete-maybe)
>  org-file-apps '((auto-mode . emacs) (directory . emacs) ("\\.mm\\'" .
> default)
> ("\\.x?html?\\'" . default) ("\\.pdf\\'" . "evince %s"))
>  org-columns-default-format "%40ITEM(Task) %17Effort(Estimated Effort){:}
> %CLOCKSUM"
>  org-odt-format-inlinetask-function
> 'org-odt-format-inlinetask-default-function
>  org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME
> CONTENTS WIDTH)"]
>  org-cycle-hook '(org-cycle-hide-archived-subtrees
> org-cycle-show-empty-lines
>  org-cycle-optimize-window-after-visibility-change
>  org-cycle-display-inline-images)
>  org-persist-before-read-hook '(org-element--cache-persist-before-read)
>  org-modules '(ol-bbdb ol-bibtex ol-docview ol-doi ol-eww ol-gnus
> org-habit ol-info ol-irc
>       ol-mhe ol-rmail ol-w3m)
>  org-mode-hook '(org-clock-load
> #[0 "\300\301\302\303\304$\207"
>   [add-hook change-major-mode-hook org-fold-show-all append local] 5]
> #[0 "\300\301\302\303\304$\207"
>   [add-hook change-major-mode-hook org-babel-show-result-all append local]
>   5]
> org-babel-result-hide-spec org-babel-hide-all-hashes
> #[0 "\301\211 \207" [imenu-create-index-function org-imenu-get-tree] 2])
>  org-babel-load-languages '((emacs-lisp . t) (calc . t) (shell . t)
> (python . t) (dot . t)
>    (ditaa . t) (latex . t) (gnuplot . t) (plantuml . t))
>  org-agenda-span 15
>  org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
>  org-latex-format-headline-function
> 'org-latex-format-headline-default-function
>  org-confirm-shell-link-function 'yes-or-no-p
>  org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME
> CONTENTS)"]
>  outline-isearch-open-invisible-function 'outline-isearch-open-invisible
>  org-habit-graph-column 60
>  org-export-before-processing-hook
> '(org-blackfriday--reset-org-blackfriday--code-block-num-backticks)
>  org-fold-catch-invisible-edits 'error
>  org-plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar"
>  org-odt-format-headline-function 'org-odt-format-headline-default-function
>  org-agenda-before-write-hook '(org-agenda-add-entry-text)
>  org-babel-tangle-lang-exts '(("latex" . "tex") ("python" . "py")
> ("emacs-lisp" . "el")
>      ("elisp" . "el"))
>  org-src-mode-hook '(org-src-babel-configure-edit-buffer
> org-src-mode-configure-edit-buffer)
>  org-confirm-elisp-link-function 'yes-or-no-p
>  org-clock-idle-time 15
>  org-speed-command-hook '(org-speed-command-activate
> org-babel-speed-command-activate)
>  org-html-format-inlinetask-function
> 'org-html-format-inlinetask-default-function
>  org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
>  org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
>  org-confirm-babel-evaluate nil
>  org-fold-core-isearch-open-function 'org-fold-core--isearch-reveal
>  org-clock-persist 'history
>  org-latex-format-inlinetask-function
> 'org-latex-format-inlinetask-default-function
>  org-persist-before-write-hook '(org-element--cache-persist-before-write)
>  org-tab-first-hook '(org-babel-hide-result-toggle-maybe
> org-babel-header-arg-expand)
>  org-link-shell-confirm-function 'yes-or-no-p
>  org-babel-pre-tangle-hook '(save-buffer)
>  org-agenda-loop-over-headlines-in-active-region nil
>  org-agenda-start-on-weekday nil
>  org-occur-hook '(org-first-headline-recenter)
>  org-metadown-hook '(org-babel-pop-to-session-maybe)
>  org-link-parameters '(("attachment" :follow org-attach-follow :complete
> org-attach-complete-link)
>       ("w3m" :store org-w3m-store-link)
>       ("rmail" :follow org-rmail-open :store org-rmail-store-link)
>       ("mhe" :follow org-mhe-open :store org-mhe-store-link)
>       ("irc" :follow org-irc-visit :store org-irc-store-link :export
> org-irc-export)
>       ("gnus" :follow org-gnus-open :store org-gnus-store-link)
>       ("eww" :follow org-eww-open :store org-eww-store-link)
>       ("doi" :follow org-link-doi-open :export org-link-doi-export)
>       ("docview" :follow org-docview-open :export org-docview-export
> :store org-docview-store-link)
>       ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
>       ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete
> org-bbdb-complete-link :store org-bbdb-store-link)
>       ("info" :follow org-info-open :export org-info-export :store
> org-info-store-link :insert-description
> org-info-description-as-command)
>       ("id" :follow org-id-open) ("file+sys") ("file+emacs")
>       ("shell" :follow org-link--open-shell)
>       ("news" :follow
> #[514 "\301\300\302 Q \"\207" ["news" browse-url ":"] 6
>  "\n\n(fn URL ARG)"]
> )
>       ("mailto" :follow
> #[514 "\301\300\302 Q \"\207" ["mailto" browse-url ":"] 6
>  "\n\n(fn URL ARG)"]
> )
>       ("https" :follow
> #[514 "\301\300\302 Q \"\207" ["https" browse-url ":"] 6
>  "\n\n(fn URL ARG)"]
> )
>       ("http" :follow
> #[514 "\301\300\302 Q \"\207" ["http" browse-url ":"] 6
>  "\n\n(fn URL ARG)"]
> )
>       ("ftp" :follow
> #[514 "\301\300\302 Q \"\207" ["ftp" browse-url ":"] 6
>  "\n\n(fn URL ARG)"]
> )
>       ("help" :follow org-link--open-help :store org-link--store-help)
>       ("file" :complete org-link-complete-file)
>       ("elisp" :follow org-link--open-elisp))
>  org-html-format-headline-function
> 'org-html-format-headline-default-function
>  org-metaup-hook '(org-babel-load-in-session-maybe)
>  org-agenda-include-diary t
>  org-startup-with-inline-images t
>  org-return-follows-link t
>  )
>
>
>

[-- Attachment #2: Type: text/html, Size: 11050 bytes --]

[BUG] BBDB anniversary entries with a format-string produce error [9.6.15 (release_9.6.15 @ /usr/share/emacs/29.4/lisp/org/)]

[Alexander Lazarević]

[-- Attachment #1: Type: text/plain, Size: 7253 bytes --]

In one agenda (personal.org) I have the following entry:

* Anniversaries
:PROPERTIES:
#+CATEGORY: Ann
:END:
%%(org-bbdb-anniversaries-future 3)

This works for BBDB entries that have an anniversary like "1973-06-22"
or "2021-04-91 wedding", but it fails for something like "1998-03-12 %s
created bbdb-anniv.el %d years ago" (from the examples in ol-bbdb.el).

The error message is:

Bad sexp at line 5 in /home/laza/exobrain/org/personal/personal.org: (let
((entry ) (date '(10 8 2024))) (org-bbdb-anniversaries-future 3))

Emacs  : GNU Emacs 29.4 (build 1, x86_64-pc-linux-gnu, GTK+ Version
3.24.43, cairo version 1.18.0)
Package: Org mode version 9.6.15 (release_9.6.15 @
/usr/share/emacs/29.4/lisp/org/)

current state:
==============
(setq
 org-archive-location "~/org/archive/%s_archive::"
 org-link-elisp-confirm-function 'yes-or-no-p
 org-directory "~/org"
 org-global-properties '(("Effort_ALL" . "0 0:10 0:30 1:00 2:00 3:00 4:00
5:00 6:00 7:00"))
 org-ditaa-jar-path "/usr/share/java/ditaa/ditaa.jar"
 org-bibtex-headline-format-function #[257 "\300 \236A\207" [:title] 3
"\n\n(fn ENTRY)"]
 org-log-into-drawer t
 org-startup-folded t
 org-agenda-files "~/org/agendas"
 org-persist-after-read-hook '(org-element--cache-persist-after-read)
 org-bbdb-anniversary-format-alist '(("birthday" lambda (name years suffix)
     (concat "Birthday: [[bbdb:" name "][" name " ("
      (format "%s" years) suffix ")]]")
     )
    ("wedding" lambda (name years suffix)
     (concat "[[bbdb:" name "][" name "'s "
      (format "%s" years) suffix " wedding anniversary]]")
     )
    ("dayofdeath" lambda (name years suffix)
     (concat "Day of death: [[bbdb:" name "][" name " ("
      (format "%s" years) suffix ")]]")
     )
    )
 org-refile-targets '((org-agenda-files :maxlevel . 9))
 org-export-before-parsing-hook '(org-attach-expand-links)
 org-cycle-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-default-notes-file "~/org/notes.org"
 org-archive-hook '(org-attach-archive-delete-maybe)
 org-file-apps '((auto-mode . emacs) (directory . emacs) ("\\.mm\\'" .
default)
("\\.x?html?\\'" . default) ("\\.pdf\\'" . "evince %s"))
 org-columns-default-format "%40ITEM(Task) %17Effort(Estimated Effort){:}
%CLOCKSUM"
 org-odt-format-inlinetask-function
'org-odt-format-inlinetask-default-function
 org-ascii-format-drawer-function #[771 " \207" [] 4 "\n\n(fn NAME CONTENTS
WIDTH)"]
 org-cycle-hook '(org-cycle-hide-archived-subtrees
org-cycle-show-empty-lines
 org-cycle-optimize-window-after-visibility-change
 org-cycle-display-inline-images)
 org-persist-before-read-hook '(org-element--cache-persist-before-read)
 org-modules '(ol-bbdb ol-bibtex ol-docview ol-doi ol-eww ol-gnus org-habit
ol-info ol-irc
      ol-mhe ol-rmail ol-w3m)
 org-mode-hook '(org-clock-load
#[0 "\300\301\302\303\304$\207"
  [add-hook change-major-mode-hook org-fold-show-all append local] 5]
#[0 "\300\301\302\303\304$\207"
  [add-hook change-major-mode-hook org-babel-show-result-all append local]
  5]
org-babel-result-hide-spec org-babel-hide-all-hashes
#[0 "\301\211 \207" [imenu-create-index-function org-imenu-get-tree] 2])
 org-babel-load-languages '((emacs-lisp . t) (calc . t) (shell . t) (python
. t) (dot . t)
   (ditaa . t) (latex . t) (gnuplot . t) (plantuml . t))
 org-agenda-span 15
 org-latex-format-drawer-function #[514 "\207" [] 3 "\n\n(fn _ CONTENTS)"]
 org-latex-format-headline-function
'org-latex-format-headline-default-function
 org-confirm-shell-link-function 'yes-or-no-p
 org-html-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 outline-isearch-open-invisible-function 'outline-isearch-open-invisible
 org-habit-graph-column 60
 org-export-before-processing-hook
'(org-blackfriday--reset-org-blackfriday--code-block-num-backticks)
 org-fold-catch-invisible-edits 'error
 org-plantuml-jar-path "/usr/share/java/plantuml/plantuml.jar"
 org-odt-format-headline-function 'org-odt-format-headline-default-function
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-babel-tangle-lang-exts '(("latex" . "tex") ("python" . "py")
("emacs-lisp" . "el")
     ("elisp" . "el"))
 org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-clock-idle-time 15
 org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
 org-html-format-inlinetask-function
'org-html-format-inlinetask-default-function
 org-ascii-format-inlinetask-function 'org-ascii-format-inlinetask-default
 org-odt-format-drawer-function #[514 "\207" [] 3 "\n\n(fn NAME CONTENTS)"]
 org-confirm-babel-evaluate nil
 org-fold-core-isearch-open-function 'org-fold-core--isearch-reveal
 org-clock-persist 'history
 org-latex-format-inlinetask-function
'org-latex-format-inlinetask-default-function
 org-persist-before-write-hook '(org-element--cache-persist-before-write)
 org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
 org-link-shell-confirm-function 'yes-or-no-p
 org-babel-pre-tangle-hook '(save-buffer)
 org-agenda-loop-over-headlines-in-active-region nil
 org-agenda-start-on-weekday nil
 org-occur-hook '(org-first-headline-recenter)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-link-parameters '(("attachment" :follow org-attach-follow :complete
org-attach-complete-link)
      ("w3m" :store org-w3m-store-link)
      ("rmail" :follow org-rmail-open :store org-rmail-store-link)
      ("mhe" :follow org-mhe-open :store org-mhe-store-link)
      ("irc" :follow org-irc-visit :store org-irc-store-link :export
org-irc-export)
      ("gnus" :follow org-gnus-open :store org-gnus-store-link)
      ("eww" :follow org-eww-open :store org-eww-store-link)
      ("doi" :follow org-link-doi-open :export org-link-doi-export)
      ("docview" :follow org-docview-open :export org-docview-export
:store org-docview-store-link)
      ("bibtex" :follow org-bibtex-open :store org-bibtex-store-link)
      ("bbdb" :follow org-bbdb-open :export org-bbdb-export :complete
org-bbdb-complete-link :store org-bbdb-store-link)
      ("info" :follow org-info-open :export org-info-export :store
org-info-store-link :insert-description
org-info-description-as-command)
      ("id" :follow org-id-open) ("file+sys") ("file+emacs")
      ("shell" :follow org-link--open-shell)
      ("news" :follow
#[514 "\301\300\302 Q \"\207" ["news" browse-url ":"] 6
 "\n\n(fn URL ARG)"]
)
      ("mailto" :follow
#[514 "\301\300\302 Q \"\207" ["mailto" browse-url ":"] 6
 "\n\n(fn URL ARG)"]
)
      ("https" :follow
#[514 "\301\300\302 Q \"\207" ["https" browse-url ":"] 6
 "\n\n(fn URL ARG)"]
)
      ("http" :follow
#[514 "\301\300\302 Q \"\207" ["http" browse-url ":"] 6
 "\n\n(fn URL ARG)"]
)
      ("ftp" :follow
#[514 "\301\300\302 Q \"\207" ["ftp" browse-url ":"] 6
 "\n\n(fn URL ARG)"]
)
      ("help" :follow org-link--open-help :store org-link--store-help)
      ("file" :complete org-link-complete-file)
      ("elisp" :follow org-link--open-elisp))
 org-html-format-headline-function
'org-html-format-headline-default-function
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-agenda-include-diary t
 org-startup-with-inline-images t
 org-return-follows-link t
 )

[-- Attachment #2: Type: text/html, Size: 9510 bytes --]

Re: [BUG] BBDB anniversary entries with a format-string produce error [9.6.15 (release_9.6.15 @ /usr/share/emacs/29.4/lisp/org/)]

[Ihor Radchenko]

Alexander Lazarević <laza@e11bits.com> writes:

> In one agenda (personal.org) I have the following entry:
>
> * Anniversaries
> :PROPERTIES:
> #+CATEGORY: Ann
> :END:
> %%(org-bbdb-anniversaries-future 3)
>
> This works for BBDB entries that have an anniversary like "1973-06-22"
> or "2021-04-91 wedding", but it fails for something like "1998-03-12 %s
> created bbdb-anniv.el %d years ago" (from the examples in ol-bbdb.el).
>
> The error message is:
>
> Bad sexp at line 5 in /home/laza/exobrain/org/personal/personal.org: (let
> ((entry ) (date '(10 8 2024))) (org-bbdb-anniversaries-future 3))

Please set `calendar-debug-sexp' to t and try to build agenda again.
Emacs will then produce an actual backtrace, detailing where the error
is.

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>

Re: [BUG] BBDB anniversary entries with a format-string produce error [9.6.15 (release_9.6.15 @ /usr/share/emacs/29.4/lisp/org/)]

[Alexander Lazarević]

[-- Attachment #1: Type: text/plain, Size: 1822 bytes --]

I tried the following but no stack-trace is produced:

rm -rf .emacs .emacs.d
cat > /tmp/agenda.org << orgfile
* Anniversaries
:PROPERTIES:
#+CATEGORY: Ann
:END:
%%(org-bbdb-anniversaries-future 3)
orgfile

emacs

package-install bbdb
bbdb-create
Just some name
(i)nsert a field "anniversary" for that record
with content "1998-mm-dd something" and month/day of next day
(s)ave the bbdb file
find-file /tmp/agenda.org
org-agenda-file-to-front
customize-option calendar-debug-sexp toggle on
org-agenda

Message: Args out of range: 52, 55

Agenda looks like this:

Week-agenda (W42):
Monday     14 October 2024 W42
  Ann:        somethi -- tomorrowng



On Sat, 12 Oct 2024 at 12:45, Ihor Radchenko <yantar92@posteo.net> wrote:

> Alexander Lazarević <laza@e11bits.com> writes:
>
> > In one agenda (personal.org) I have the following entry:
> >
> > * Anniversaries
> > :PROPERTIES:
> > #+CATEGORY: Ann
> > :END:
> > %%(org-bbdb-anniversaries-future 3)
> >
> > This works for BBDB entries that have an anniversary like "1973-06-22"
> > or "2021-04-91 wedding", but it fails for something like "1998-03-12 %s
> > created bbdb-anniv.el %d years ago" (from the examples in ol-bbdb.el).
> >
> > The error message is:
> >
> > Bad sexp at line 5 in /home/laza/exobrain/org/personal/personal.org:
> (let
> > ((entry ) (date '(10 8 2024))) (org-bbdb-anniversaries-future 3))
>
> Please set `calendar-debug-sexp' to t and try to build agenda again.
> Emacs will then produce an actual backtrace, detailing where the error
> is.
>
> --
> Ihor Radchenko // yantar92,
> Org mode contributor,
> Learn more about Org mode at <https://orgmode.org/>.
> Support Org development at <https://liberapay.com/org-mode>,
> or support my work at <https://liberapay.com/yantar92>
>

[-- Attachment #2: Type: text/html, Size: 3052 bytes --]

Re: [BUG] BBDB anniversary entries with a format-string produce error [9.6.15 (release_9.6.15 @ /usr/share/emacs/29.4/lisp/org/)]

[Ihor Radchenko]

Alexander Lazarević <laza@e11bits.com> writes:

> I tried the following but no stack-trace is produced:
> ...

I tried to follow your steps using the latest development version of Org
mode, and I am seeing the anniversary appearing in the agenda without
errors.

Maybe a simple upgrade of Org version can help?

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>

Re: [BUG] BBDB anniversary entries with a format-string produce error [9.6.15 (release_9.6.15 @ /usr/share/emacs/29.4/lisp/org/)]

[Alexander Lazarević]

[-- Attachment #1: Type: text/plain, Size: 983 bytes --]

I think I looked at the source of the 9.7, if something has changed before
sending the bug report and tried it (now again) with the latest available
version 9.7.12 (from gnu).

Same outcome.

But if it seems to work for you I won't pursue this anymore and you could
close this.

Thanks for looking into this.

On Mon, 14 Oct 2024 at 18:47, Ihor Radchenko <yantar92@posteo.net> wrote:

> Alexander Lazarević <laza@e11bits.com> writes:
>
> > I tried the following but no stack-trace is produced:
> > ...
>
> I tried to follow your steps using the latest development version of Org
> mode, and I am seeing the anniversary appearing in the agenda without
> errors.
>
> Maybe a simple upgrade of Org version can help?
>
> --
> Ihor Radchenko // yantar92,
> Org mode contributor,
> Learn more about Org mode at <https://orgmode.org/>.
> Support Org development at <https://liberapay.com/org-mode>,
> or support my work at <https://liberapay.com/yantar92>
>

[-- Attachment #2: Type: text/html, Size: 2104 bytes --]

Re: [BUG] BBDB anniversary entries with a format-string produce error [9.6.15 (release_9.6.15 @ /usr/share/emacs/29.4/lisp/org/)]

[Ihor Radchenko]

Alexander Lazarević <laza@e11bits.com> writes:

> I think I looked at the source of the 9.7, if something has changed before
> sending the bug report and tried it (now again) with the latest available
> version 9.7.12 (from gnu).
>
> Same outcome.

What I did exactly is

0. Make sure that .emacs.d/elpa and .emacs.d/bbdb are removed
1. cd /path/to/org/git/repository
2. git checkout bugfix
3. make repro
4. Open your Org file example
5. M-x package-install bbdb
6. M-x bbdb-create Just some name RET RET ...
7. Switch to bbdb buffer, i, anniversary y, 1998-10-16 RET
8. Switch to Org buffer
9. M-x org-agenda < a
10. Observe the record in the agenda

What happens if you repeat my steps exactly?

-- 
Ihor Radchenko // yantar92,
Org mode contributor,
Learn more about Org mode at <https://orgmode.org/>.
Support Org development at <https://liberapay.com/org-mode>,
or support my work at <https://liberapay.com/yantar92>