diff options
| author | Sam Steingold <sds@gnu.org> | 2022-04-28 11:35:51 -0400 |
|---|---|---|
| committer | Sam Steingold <sds@gnu.org> | 2022-04-28 11:57:07 -0400 |
| commit | 9b762c35a1b87d0941ea1d7b09f37e4e397763f8 (patch) | |
| tree | 715d3dbdb4a4e1c6246d598f7dbdb4093975e3a0 | |
| parent | b8f4a1e0edc3cdeb1fa2c44cb97e4b8e12233378 (diff) | |
| download | emacs-9b762c35a1b87d0941ea1d7b09f37e4e397763f8.tar.gz | |
Add Sefirot to Omer counting
* lisp/calendar/cal-hebrew.el (diary-hebrew-omer-sefirot): New variable.
(diary-hebrew-omer): Use it to show the sefirot.
| -rw-r--r-- | lisp/calendar/cal-hebrew.el | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/lisp/calendar/cal-hebrew.el b/lisp/calendar/cal-hebrew.el index 61ce029e077..1c08de53fbd 100644 --- a/lisp/calendar/cal-hebrew.el +++ b/lisp/calendar/cal-hebrew.el @@ -798,6 +798,10 @@ In this case, the following civil date corresponds to the Hebrew birthday." (diary-ordinal-suffix age) (if (= b-date d) "" " (evening)"))))) +(defvar diary-hebrew-omer-sefirot + ["Hesed" "Gevurah" "Tiferet" "Netzach" "Hod" "Yesod" "Malchut"] + "The order of Sefirot for counting the Omer. +See https://opensiddur.org/prayers/solilunar/solar-cycles/sefirat-haomer/the-order-of-counting-the-omer-in-the-spring/") ;;;###diary-autoload (defun diary-hebrew-omer (&optional mark) "Omer count diary entry. @@ -813,7 +817,7 @@ use when highlighting the day in the calendar." (day (% omer 7))) (if (and (> omer 0) (< omer 50)) (cons mark - (format "Day %d%s of the omer (until sunset)" + (format "Day %d%s of the omer (until sunset) %s she'be'%s" omer (if (zerop week) "" @@ -823,7 +827,10 @@ use when highlighting the day in the calendar." (if (zerop day) "" (format " and %d day%s" - day (if (= day 1) "" "s")))))))))) + day (if (= day 1) "" "s"))))) + (aref diary-hebrew-omer-sefirot (% (+ 6 day) 7)) + (aref diary-hebrew-omer-sefirot + (+ (if (zerop day) -1 0) week))))))) (autoload 'diary-make-date "diary-lib") |