emacs-orgmode
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Sugesstion for a more fexible org-bbdb-anniversary-description


From: Dieter Faulbaum
Subject: Sugesstion for a more fexible org-bbdb-anniversary-description
Date: Mon, 30 Mar 2020 20:08:06 +0200
User-agent: Gnus/5.13 (Gnus v5.13) Emacs/26.3 (gnu/linux)

I think it would be nice if this function would have some (customizable)
variables.

Here (in Germany) e.g. I like this:

(defun org-bbdb-anniversary-description (agenda-date anniv-date)
  (let ((delta (- (calendar-absolute-from-gregorian anniv-date)
                  (calendar-absolute-from-gregorian agenda-date))))
    (cond
     ((= delta 0) "\\&")
     ((= delta 1) " (morgen)\\&")
     ((< delta org-bbdb-general-anniversary-description-after)
      (format " (in %d Tagen)\\&" delta))
     ((pcase-let ((`(,month ,day ,year) anniv-date))
        (format " (am %d.%d.)\\&" day month)))
     )
    )
  )

And I think others would have other preferences.

Just an idea.
I'm sorry but I can't program lisp good enough to implement my idea
(without the shown hack).



reply via email to

[Prev in Thread] Current Thread [Next in Thread]