[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).
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- Sugesstion for a more fexible org-bbdb-anniversary-description,
Dieter Faulbaum <=