Lines Matching +defs:calendar +defs:goto +defs:hebrew +defs:date
1 ;;; cal-hebrew.el --- calendar functions for the Hebrew calendar
9 ;; Keywords: calendar
10 ;; Human-Keywords: Hebrew calendar, calendar, diary
31 ;; This collection of functions implements the features of calendar.el and
32 ;; diary.el that deal with the Hebrew calendar.
40 (defvar date)
45 (defvar original-date)
47 (require 'calendar)
49 (defun hebrew-calendar-leap-year-p (year)
50 "t if YEAR is a Hebrew calendar leap year."
53 (defun hebrew-calendar-last-month-of-year (year)
54 "The last month of the Hebrew calendar YEAR."
55 (if (hebrew-calendar-leap-year-p year)
59 (defun hebrew-calendar-elapsed-days (year)
60 "Days from Sun. prior to start of Hebrew calendar to mean conjunction of Tishri of Hebrew YEAR."
78 (not (hebrew-calendar-leap-year-p year)));; of a
82 (hebrew-calendar-leap-year-p (1- year))));; at the end
95 (defun hebrew-calendar-days-in-year (year)
97 (- (hebrew-calendar-elapsed-days (1+ year))
98 (hebrew-calendar-elapsed-days year)))
100 (defun hebrew-calendar-long-heshvan-p (year)
102 (= (% (hebrew-calendar-days-in-year year) 10) 5))
104 (defun hebrew-calendar-short-kislev-p (year)
106 (= (% (hebrew-calendar-days-in-year year) 10) 3))
108 (defun hebrew-calendar-last-day-of-month (month year)
111 (and (= month 12) (not (hebrew-calendar-leap-year-p year)))
112 (and (= month 8) (not (hebrew-calendar-long-heshvan-p year)))
113 (and (= month 9) (hebrew-calendar-short-kislev-p year)))
117 (defun calendar-absolute-from-hebrew (date)
118 "Absolute date of Hebrew DATE.
119 The absolute date is the number of days elapsed since the (imaginary)
120 Gregorian date Sunday, December 31, 1 BC."
121 (let* ((month (extract-calendar-month date))
122 (day (extract-calendar-day date))
123 (year (extract-calendar-year date)))
127 (+ (calendar-sum
128 m 7 (<= m (hebrew-calendar-last-month-of-year year))
129 (hebrew-calendar-last-day-of-month m year))
130 (calendar-sum
132 (hebrew-calendar-last-day-of-month m year)))
134 (calendar-sum
136 (hebrew-calendar-last-day-of-month m year)))
137 (hebrew-calendar-elapsed-days year);; Days in prior years.
138 -1373429))) ;; Days elapsed before absolute date 1.
140 (defun calendar-hebrew-from-absolute (date)
141 "Compute the Hebrew date (month day year) corresponding to absolute DATE.
142 The absolute date is the number of days elapsed since the (imaginary)
143 Gregorian date Sunday, December 31, 1 BC."
144 (let* ((greg-date (calendar-gregorian-from-absolute date))
146 (1- (extract-calendar-month greg-date))))
148 (year (+ 3760 (extract-calendar-year greg-date))))
149 (while (>= date (calendar-absolute-from-hebrew (list 7 1 (1+ year))))
151 (let ((length (hebrew-calendar-last-month-of-year year)))
152 (while (> date
153 (calendar-absolute-from-hebrew
155 (hebrew-calendar-last-day-of-month month year)
159 (- date (calendar-absolute-from-hebrew (list month 1 year)))))
162 (defvar calendar-hebrew-month-name-array-common-year
167 (defvar calendar-hebrew-month-name-array-leap-year
172 (defun calendar-hebrew-date-string (&optional date)
173 "String of Hebrew date before sunset of Gregorian DATE.
174 Defaults to today's date if DATE is not given.
175 Driven by the variable `calendar-date-display-form'."
176 (let* ((hebrew-date (calendar-hebrew-from-absolute
177 (calendar-absolute-from-gregorian
178 (or date (calendar-current-date)))))
179 (calendar-month-name-array
180 (if (hebrew-calendar-leap-year-p (extract-calendar-year hebrew-date))
181 calendar-hebrew-month-name-array-leap-year
182 calendar-hebrew-month-name-array-common-year)))
183 (calendar-date-string hebrew-date nil t)))
185 (defun calendar-print-hebrew-date ()
186 "Show the Hebrew calendar equivalent of the date under the cursor."
188 (message "Hebrew date (until sunset): %s"
189 (calendar-hebrew-date-string (calendar-cursor-to-date t))))
191 (defun hebrew-calendar-yahrzeit (death-date year)
192 "Absolute date of the anniversary of Hebrew DEATH-DATE in Hebrew YEAR."
193 (let* ((death-day (extract-calendar-day death-date))
194 (death-month (extract-calendar-month death-date))
195 (death-year (extract-calendar-year death-date)))
201 (not (hebrew-calendar-long-heshvan-p (1+ death-year))))
202 (1- (calendar-absolute-from-hebrew (list 9 1 year))))
207 (hebrew-calendar-short-kislev-p (1+ death-year)))
208 (1- (calendar-absolute-from-hebrew (list 10 1 year))))
212 (calendar-absolute-from-hebrew
213 (list (hebrew-calendar-last-month-of-year year) death-day year)))
218 (not (hebrew-calendar-leap-year-p year)))
219 (calendar-absolute-from-hebrew (list 11 30 year)))
220 ;; In all other cases, use the normal anniversary of the date of death.
221 (t (calendar-absolute-from-hebrew
224 (defun calendar-goto-hebrew-date (date &optional noecho)
225 "Move cursor to Hebrew DATE; echo Hebrew date unless NOECHO is t."
227 (let* ((today (calendar-current-date))
228 (year (calendar-read
229 "Hebrew calendar year (>3760): "
232 (extract-calendar-year
233 (calendar-hebrew-from-absolute
234 (calendar-absolute-from-gregorian today))))))
235 (month-array (if (hebrew-calendar-leap-year-p year)
236 calendar-hebrew-month-name-array-leap-year
237 calendar-hebrew-month-name-array-common-year))
241 "Hebrew calendar month name: "
248 (calendar-make-alist month-array)
251 (calendar-absolute-from-hebrew
253 (hebrew-calendar-last-day-of-month
257 (calendar-make-alist month-array 1) t)))
258 (last (hebrew-calendar-last-day-of-month month year))
261 (day (calendar-read
262 (format "Hebrew calendar day (%d-%d): "
266 (calendar-goto-date (calendar-gregorian-from-absolute
267 (calendar-absolute-from-hebrew date)))
268 (or noecho (calendar-print-hebrew-date)))
270 (defun holiday-hebrew (month day string)
273 Gregorian date in the form of the list (((month day year) STRING)). Returns
274 nil if it is not visible in the current calendar window."
287 (increment-calendar-month m1 y1 -1)
288 (increment-calendar-month m2 y2 1)
289 (let* ((start-date (calendar-absolute-from-gregorian
291 (end-date (calendar-absolute-from-gregorian
292 (list m2 (calendar-last-day-of-month m2 y2) y2)))
293 (hebrew-start (calendar-hebrew-from-absolute start-date))
294 (hebrew-end (calendar-hebrew-from-absolute end-date))
295 (hebrew-y1 (extract-calendar-year hebrew-start))
296 (hebrew-y2 (extract-calendar-year hebrew-end)))
297 (setq year (if (< 6 month) hebrew-y2 hebrew-y1))
298 (let ((date (calendar-gregorian-from-absolute
299 (calendar-absolute-from-hebrew
301 (if (calendar-date-is-visible-p date)
302 (list (list date string))))))))
305 "List of dates related to Rosh Hashanah, as visible in calendar window."
309 (let* ((abs-r-h (calendar-absolute-from-hebrew
313 (list (calendar-gregorian-from-absolute abs-r-h)
315 (list (calendar-gregorian-from-absolute (+ abs-r-h 9))
317 (list (calendar-gregorian-from-absolute (+ abs-r-h 14))
319 (list (calendar-gregorian-from-absolute (+ abs-r-h 21))
321 (list (calendar-gregorian-from-absolute (+ abs-r-h 22))
325 (list (calendar-gregorian-from-absolute
326 (calendar-dayname-on-or-before 6 (- abs-r-h 4)))
328 (list (calendar-gregorian-from-absolute (1- abs-r-h))
330 (list (calendar-gregorian-from-absolute (1+ abs-r-h))
332 (list (calendar-gregorian-from-absolute
335 (list (calendar-gregorian-from-absolute
336 (calendar-dayname-on-or-before 6 (+ 7 abs-r-h)))
338 (list (calendar-gregorian-from-absolute (+ abs-r-h 8))
340 (list (calendar-gregorian-from-absolute (+ abs-r-h 13))
342 (list (calendar-gregorian-from-absolute (+ abs-r-h 15))
344 (list (calendar-gregorian-from-absolute (+ abs-r-h 16))
346 (list (calendar-gregorian-from-absolute (+ abs-r-h 17))
348 (list (calendar-gregorian-from-absolute (+ abs-r-h 18))
350 (list (calendar-gregorian-from-absolute (+ abs-r-h 19))
352 (list (calendar-gregorian-from-absolute (+ abs-r-h 20))
355 (filter-visible-calendar-holidays mandatory)))
356 (if all-hebrew-calendar-holidays
359 (filter-visible-calendar-holidays optional)
364 "List of dates related to Hanukkah, as visible in calendar window."
369 (increment-calendar-month m y 1)
370 (let* ((h-y (extract-calendar-year
371 (calendar-hebrew-from-absolute
372 (calendar-absolute-from-gregorian
373 (list m (calendar-last-day-of-month m y) y)))))
374 (abs-h (calendar-absolute-from-hebrew (list 9 25 h-y))))
375 (filter-visible-calendar-holidays
377 (list (calendar-gregorian-from-absolute (1- abs-h))
379 (list (calendar-gregorian-from-absolute abs-h)
381 (list (calendar-gregorian-from-absolute (1+ abs-h))
383 (list (calendar-gregorian-from-absolute (+ abs-h 2))
385 (list (calendar-gregorian-from-absolute (+ abs-h 3))
387 (list (calendar-gregorian-from-absolute (+ abs-h 4))
389 (list (calendar-gregorian-from-absolute (+ abs-h 5))
391 (list (calendar-gregorian-from-absolute (+ abs-h 6))
393 (list (calendar-gregorian-from-absolute (+ abs-h 7))
397 "List of dates related to Passover, as visible in calendar window."
400 (let* ((abs-p (calendar-absolute-from-hebrew
404 (list (calendar-gregorian-from-absolute abs-p)
406 (list (calendar-gregorian-from-absolute (+ abs-p 50))
410 (list (calendar-gregorian-from-absolute
411 (calendar-dayname-on-or-before 6 (- abs-p 43)))
413 (list (calendar-gregorian-from-absolute
414 (calendar-dayname-on-or-before 6 (- abs-p 30)))
416 (list (calendar-gregorian-from-absolute
419 (list (calendar-gregorian-from-absolute (- abs-p 31))
421 (list (calendar-gregorian-from-absolute (- abs-p 30))
423 (list (calendar-gregorian-from-absolute
426 (list (calendar-gregorian-from-absolute
427 (- (calendar-dayname-on-or-before 6 (- abs-p 14)) 7))
429 (list (calendar-gregorian-from-absolute
430 (calendar-dayname-on-or-before 6 (- abs-p 14)))
432 (list (calendar-gregorian-from-absolute
433 (calendar-dayname-on-or-before 6 (1- abs-p)))
435 (list (calendar-gregorian-from-absolute (1- abs-p))
437 (list (calendar-gregorian-from-absolute (1+ abs-p))
439 (list (calendar-gregorian-from-absolute (+ abs-p 2))
441 (list (calendar-gregorian-from-absolute (+ abs-p 3))
443 (list (calendar-gregorian-from-absolute (+ abs-p 4))
445 (list (calendar-gregorian-from-absolute (+ abs-p 5))
447 (list (calendar-gregorian-from-absolute (+ abs-p 6))
449 (list (calendar-gregorian-from-absolute (+ abs-p 7))
451 (list (calendar-gregorian-from-absolute
456 (list (calendar-gregorian-from-absolute
463 (list (calendar-gregorian-from-absolute (+ abs-p 33))
465 (list (calendar-gregorian-from-absolute (+ abs-p 43))
467 (list (calendar-gregorian-from-absolute (+ abs-p 49))
469 (list (calendar-gregorian-from-absolute (+ abs-p 51))
472 (filter-visible-calendar-holidays mandatory)))
473 (if all-hebrew-calendar-holidays
476 (filter-visible-calendar-holidays optional)
481 "List of dates around Tisha B'Av, as visible in calendar window."
485 (let* ((abs-t-a (calendar-absolute-from-hebrew
488 (filter-visible-calendar-holidays
490 (list (calendar-gregorian-from-absolute
493 (list (calendar-gregorian-from-absolute
494 (calendar-dayname-on-or-before 6 abs-t-a))
496 (list (calendar-gregorian-from-absolute
499 (list (calendar-gregorian-from-absolute
500 (calendar-dayname-on-or-before 6 (+ abs-t-a 7)))
503 (defun list-hebrew-diary-entries ()
504 "Add any Hebrew date entries from the diary file to `diary-entries-list'.
505 Hebrew date diary entries must be prefaced by `hebrew-diary-entry-symbol'
506 \(normally an `H'). The same diary date forms govern the style of the Hebrew
507 calendar entries, except that the Hebrew month names must be spelled in full.
510 common Hebrew year. If a Hebrew date diary entry begins with a
512 not be marked in the calendar. This function is provided for use with the
517 (gdate original-date)
519 (calendar-for-loop i from 1 to number do
520 (let* ((d diary-date-forms)
521 (hdate (calendar-hebrew-from-absolute
522 (calendar-absolute-from-gregorian gdate)))
523 (month (extract-calendar-month hdate))
524 (day (extract-calendar-day hdate))
525 (year (extract-calendar-year hdate)))
528 ((date-form (if (equal (car (car d)) 'backup)
534 (calendar-day-name gdate)
535 (calendar-day-name gdate 'abbrev)))
536 (calendar-month-name-array
537 calendar-hebrew-month-name-array-leap-year)
541 (calendar-month-name month)))
547 (if abbreviated-calendar-year
553 (regexp-quote hebrew-diary-entry-symbol)
555 (mapconcat 'eval date-form "\\)\\(")
558 (goto-char (point-min))
564 ;; Diary entry that consists only of date.
569 (date-start))
571 (setq date-start (point))
576 (subst-char-in-region date-start (point) ?\^M ?\n t)
581 (1+ date-start) (1- entry-start))
585 (calendar-gregorian-from-absolute
586 (1+ (calendar-absolute-from-gregorian gdate)))))
588 (goto-char (point-min))))
590 (defun mark-hebrew-calendar-date-pattern (month day year)
591 "Mark dates in calendar window that conform to Hebrew date MONTH/DAY/YEAR.
594 (set-buffer calendar-buffer)
597 ;; Fully specified Hebrew date.
598 (let ((date (calendar-gregorian-from-absolute
599 (calendar-absolute-from-hebrew
601 (if (calendar-date-is-visible-p date)
602 (mark-visible-calendar-date date)))
616 (increment-calendar-month m1 y1 -1)
617 (increment-calendar-month m2 y2 1)
618 (let* ((start-date (calendar-absolute-from-gregorian
620 (end-date (calendar-absolute-from-gregorian
622 (calendar-last-day-of-month m2 y2)
624 (hebrew-start
625 (calendar-hebrew-from-absolute start-date))
626 (hebrew-end (calendar-hebrew-from-absolute end-date))
627 (hebrew-y1 (extract-calendar-year hebrew-start))
628 (hebrew-y2 (extract-calendar-year hebrew-end)))
629 (setq year (if (< 6 month) hebrew-y2 hebrew-y1))
630 (let ((date (calendar-gregorian-from-absolute
631 (calendar-absolute-from-hebrew
633 (if (calendar-date-is-visible-p date)
634 (mark-visible-calendar-date date)))))))
640 (first-date)
641 (last-date))
642 (increment-calendar-month m y -1)
643 (setq first-date
644 (calendar-absolute-from-gregorian
646 (increment-calendar-month m y 2)
647 (setq last-date
648 (calendar-absolute-from-gregorian
649 (list m (calendar-last-day-of-month m y) y)))
650 (calendar-for-loop date from first-date to last-date do
651 (let* ((h-date (calendar-hebrew-from-absolute date))
652 (h-month (extract-calendar-month h-date))
653 (h-day (extract-calendar-day h-date))
654 (h-year (extract-calendar-year h-date)))
661 (mark-visible-calendar-date
662 (calendar-gregorian-from-absolute date)))))))))
664 (defun mark-hebrew-diary-entries ()
665 "Mark days in the calendar window that have Hebrew date diary entries.
666 Each entry in diary-file (or included files) visible in the calendar window
667 is marked. Hebrew date entries are prefaced by a hebrew-diary-entry-symbol
668 \(normally an `H'). The same diary-date-forms govern the style of the Hebrew
669 calendar entries, except that the Hebrew month names must be spelled in full.
672 common Hebrew year. Hebrew date diary entries that begin with a
673 diary-nonmarking symbol will not be marked in the calendar. This function
675 (let ((d diary-date-forms))
678 ((date-form (if (equal (car (car d)) 'backup)
681 (dayname (diary-name-pattern calendar-day-name-array
682 calendar-day-abbrev-array))
686 calendar-hebrew-month-name-array-leap-year)))
690 (l (length date-form))
691 (d-name-pos (- l (length (memq 'dayname date-form))))
693 (m-name-pos (- l (length (memq 'monthname date-form))))
695 (d-pos (- l (length (memq 'day date-form))))
697 (m-pos (- l (length (memq 'month date-form))))
699 (y-pos (- l (length (memq 'year date-form))))
704 (regexp-quote hebrew-diary-entry-symbol)
706 (mapconcat 'eval date-form "\\)\\(")
709 (goto-char (point-min))
740 abbreviated-calendar-year)
742 (extract-calendar-year
743 (calendar-hebrew-from-absolute
744 (calendar-absolute-from-gregorian
745 (calendar-current-date)))))
755 (mark-calendar-days-named
757 (calendar-make-alist
758 calendar-day-name-array
759 0 nil calendar-day-abbrev-array) t)))
766 (calendar-make-alist
767 calendar-hebrew-month-name-array-leap-year) t)))))
768 (mark-hebrew-calendar-date-pattern mm dd yy)))))
771 (defun insert-hebrew-diary-entry (arg)
773 For the Hebrew date corresponding to the date indicated by point.
776 (let* ((calendar-month-name-array
777 calendar-hebrew-month-name-array-leap-year))
780 hebrew-diary-entry-symbol
781 (calendar-date-string
782 (calendar-hebrew-from-absolute
783 (calendar-absolute-from-gregorian
784 (calendar-cursor-to-date t)))
788 (defun insert-monthly-hebrew-diary-entry (arg)
790 For the day of the Hebrew month corresponding to the date indicated by point.
793 (let* ((calendar-date-display-form
794 (if european-calendar-style '(day " * ") '("* " day )))
795 (calendar-month-name-array
796 calendar-hebrew-month-name-array-leap-year))
799 hebrew-diary-entry-symbol
800 (calendar-date-string
801 (calendar-hebrew-from-absolute
802 (calendar-absolute-from-gregorian
803 (calendar-cursor-to-date t)))))
806 (defun insert-yearly-hebrew-diary-entry (arg)
808 For the day of the Hebrew year corresponding to the date indicated by point.
811 (let* ((calendar-date-display-form
812 (if european-calendar-style
815 (calendar-month-name-array
816 calendar-hebrew-month-name-array-leap-year))
819 hebrew-diary-entry-symbol
820 (calendar-date-string
821 (calendar-hebrew-from-absolute
822 (calendar-absolute-from-gregorian
823 (calendar-cursor-to-date t)))))
827 (defun list-yahrzeit-dates (death-date start-year end-year)
829 When called interactively from the calendar window, the date of death is taken
832 (let* ((death-date
833 (if (equal (current-buffer) (get-buffer calendar-buffer))
834 (calendar-cursor-to-date)
835 (let* ((today (calendar-current-date))
836 (year (calendar-read
839 (int-to-string (extract-calendar-year today))))
840 (month-array calendar-month-name-array)
847 (calendar-make-alist month-array 1) t)))
848 (last (calendar-last-day-of-month month year))
849 (day (calendar-read
853 (death-year (extract-calendar-year death-date))
854 (start-year (calendar-read
859 (end-year (calendar-read
863 (list death-date start-year end-year)))
866 (h-date (calendar-hebrew-from-absolute
867 (calendar-absolute-from-gregorian death-date)))
868 (h-month (extract-calendar-month h-date))
869 (h-day (extract-calendar-day h-date))
870 (h-year (extract-calendar-year h-date)))
873 (calendar-set-mode-line
875 (calendar-date-string death-date)
876 (let ((calendar-month-name-array
877 (if (hebrew-calendar-leap-year-p h-year)
878 calendar-hebrew-month-name-array-leap-year
879 calendar-hebrew-month-name-array-common-year)))
880 (calendar-date-string h-date nil t))))
882 (goto-char (point-min))
883 (calendar-for-loop i from start-year to end-year do
885 (calendar-date-string
886 (calendar-gregorian-from-absolute
887 (hebrew-calendar-yahrzeit
888 h-date
889 (extract-calendar-year
890 (calendar-hebrew-from-absolute
891 (calendar-absolute-from-gregorian (list 1 1 i))))))) "\n"))
892 (goto-char (point-min))
898 (defun diary-hebrew-date ()
899 "Hebrew calendar equivalent of date diary entry."
900 (format "Hebrew date (until sunset): %s" (calendar-hebrew-date-string date)))
904 Entry applies if date is within 50 days after Passover.
907 use when highlighting the day in the calendar."
909 (calendar-absolute-from-hebrew
910 (list 1 15 (+ (extract-calendar-year date) 3760))))
911 (omer (- (calendar-absolute-from-gregorian date) passover))
929 "Yahrzeit diary entry--entry applies if date is yahrzeit or the day before.
931 to be the name of the person. Date of death is on the *civil* calendar;
932 although the date of death is specified by the civil calendar, the proper
933 Hebrew calendar yahrzeit is determined. If `european-calendar-style' is t, the
937 use when highlighting the day in the calendar."
938 (let* ((h-date (calendar-hebrew-from-absolute
939 (calendar-absolute-from-gregorian
940 (if european-calendar-style
943 (h-month (extract-calendar-month h-date))
944 (h-day (extract-calendar-day h-date))
945 (h-year (extract-calendar-year h-date))
946 (d (calendar-absolute-from-gregorian date))
947 (yr (extract-calendar-year (calendar-hebrew-from-absolute d)))
949 (y (hebrew-calendar-yahrzeit h-date yr)))
963 Entry applies if date is Rosh Hodesh, the day before, or the Saturday before.
966 use when highlighting the day in the calendar."
967 (let* ((d (calendar-absolute-from-gregorian date))
968 (h-date (calendar-hebrew-from-absolute d))
969 (h-month (extract-calendar-month h-date))
970 (h-day (extract-calendar-day h-date))
971 (h-year (extract-calendar-year h-date))
972 (leap-year (hebrew-calendar-leap-year-p h-year))
973 (last-day (hebrew-calendar-last-day-of-month h-month h-year))
976 calendar-hebrew-month-name-array-leap-year
977 calendar-hebrew-month-name-array-common-year))
979 (h-yesterday (extract-calendar-day
980 (calendar-hebrew-from-absolute (1- d)))))
1001 (hebrew-calendar-last-month-of-year
1004 (aref calendar-day-name-array (- 29 h-day))))
1010 (aref calendar-day-name-array (- 29 h-day)))
1011 (aref calendar-day-name-array
1018 (hebrew-calendar-last-month-of-year
1022 (defvar hebrew-calendar-parashiot-names
1034 (defun hebrew-calendar-parasha-name (p)
1038 (aref hebrew-calendar-parashiot-names (aref p 0))
1039 (aref hebrew-calendar-parashiot-names (aref p 1)))
1040 (aref hebrew-calendar-parashiot-names p)))
1043 "Parasha diary entry--entry applies if date is a Saturday.
1046 use when highlighting the day in the calendar."
1047 (let ((d (calendar-absolute-from-gregorian date)))
1050 ((h-year (extract-calendar-year
1051 (calendar-hebrew-from-absolute d)))
1053 (calendar-absolute-from-hebrew (list 7 1 h-year)))
1055 (calendar-absolute-from-hebrew (list 1 15 h-year)))
1057 (aref calendar-day-name-array (% rosh-hashanah 7)))
1059 (aref calendar-day-name-array (% passover 7)))
1060 (long-h (hebrew-calendar-long-heshvan-p h-year))
1061 (short-k (hebrew-calendar-short-kislev-p h-year))
1067 (intern (format "hebrew-calendar-year-%s-%s-%s" ;; keviah
1070 (calendar-dayname-on-or-before 6 (+ 6 rosh-hashanah)))
1081 (hebrew-calendar-parasha-name (car parasha))
1082 (hebrew-calendar-parasha-name (cdr parasha)))
1084 (hebrew-calendar-parasha-name (cdr parasha))))
1085 (hebrew-calendar-parasha-name parasha)))))))))
1089 (defconst hebrew-calendar-year-Saturday-incomplete-Sunday
1097 (defconst hebrew-calendar-year-Saturday-complete-Tuesday
1105 (defconst hebrew-calendar-year-Monday-incomplete-Tuesday
1113 (defconst hebrew-calendar-year-Monday-complete-Thursday
1121 (defconst hebrew-calendar-year-Tuesday-regular-Thursday
1129 (defconst hebrew-calendar-year-Thursday-regular-Saturday
1138 (defconst hebrew-calendar-year-Thursday-complete-Sunday
1148 (defconst hebrew-calendar-year-Saturday-incomplete-Tuesday
1156 (defconst hebrew-calendar-year-Saturday-complete-Thursday
1164 (defconst hebrew-calendar-year-Monday-incomplete-Thursday
1172 (defconst hebrew-calendar-year-Monday-complete-Saturday
1181 (defconst hebrew-calendar-year-Tuesday-regular-Saturday
1190 (defconst hebrew-calendar-year-Thursday-incomplete-Sunday
1198 (defconst hebrew-calendar-year-Thursday-complete-Tuesday
1206 (provide 'cal-hebrew)
1209 ;;; cal-hebrew.el ends here