Lines Matching defs:year
42 (defvar displayed-year)
49 (defun hebrew-calendar-leap-year-p (year)
50 "t if YEAR is a Hebrew calendar leap year."
51 (< (% (1+ (* 7 year)) 19) 7))
53 (defun hebrew-calendar-last-month-of-year (year)
55 (if (hebrew-calendar-leap-year-p year)
59 (defun hebrew-calendar-elapsed-days (year)
62 (+ (* 235 (/ (1- year) 19));; Months in complete cycles so far.
63 (* 12 (% (1- year) 19)) ;; Regular months in this cycle
64 (/ (1+ (* 7 (% (1- year) 19))) 19)));; Leap months this cycle
78 (not (hebrew-calendar-leap-year-p year)));; of a
79 ;; common year,
82 (hebrew-calendar-leap-year-p (1- year))));; at the end
83 ;; of a leap year
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)))
123 (year (extract-calendar-year date)))
126 ;; Then add days in prior months this year before and after Nisan
128 m 7 (<= m (hebrew-calendar-last-month-of-year year))
129 (hebrew-calendar-last-day-of-month m year))
132 (hebrew-calendar-last-day-of-month m year)))
133 ;; Else add days in prior months this year
136 (hebrew-calendar-last-day-of-month m year)))
137 (hebrew-calendar-elapsed-days year);; Days in prior years.
141 "Compute the Hebrew date (month day year) corresponding to absolute DATE.
148 (year (+ 3760 (extract-calendar-year greg-date))))
149 (while (>= date (calendar-absolute-from-hebrew (list 7 1 (1+ year))))
150 (setq year (1+ year)))
151 (let ((length (hebrew-calendar-last-month-of-year year)))
155 (hebrew-calendar-last-day-of-month month year)
156 year)))
159 (- date (calendar-absolute-from-hebrew (list month 1 year)))))
160 (list month day year)))
162 (defvar calendar-hebrew-month-name-array-common-year
165 "Array of strings giving the names of the Hebrew months in a common year.")
167 (defvar calendar-hebrew-month-name-array-leap-year
170 "Array of strings giving the names of the Hebrew months in a leap year.")
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)))
191 (defun hebrew-calendar-yahrzeit (death-date year)
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))))
210 ;; year (Adar or Adar II).
213 (list (hebrew-calendar-last-month-of-year year) death-day year)))
214 ;; If it's the 30th in Adar I and year is not a leap year
218 (not (hebrew-calendar-leap-year-p year)))
219 (calendar-absolute-from-hebrew (list 11 30 year)))
222 (list death-month death-day year))))))
228 (year (calendar-read
229 "Hebrew calendar year (>3760): "
232 (extract-calendar-year
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))
243 (if (= year 3761)
254 m year)
255 year))))))
258 (last (hebrew-calendar-last-day-of-month month year))
259 (first (if (and (= year 3761) (= month 10))
265 (list (list month day year))))
273 Gregorian date in the form of the list (((month day year) STRING)). Returns
283 (y1 displayed-year)
285 (y2 displayed-year)
286 (year))
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))
300 (list month day year)))))
310 (list 7 1 (+ displayed-year 3761))))
314 (format "Rosh HaShanah %d" (+ 3761 displayed-year)))
368 (y displayed-year))
370 (let* ((h-y (extract-calendar-year
401 (list 1 15 (+ displayed-year 3760))))
486 (list 5 9 (+ displayed-year 3760)))))
510 common Hebrew year. If a Hebrew date diary entry begins with a
525 (year (extract-calendar-year hdate)))
537 calendar-hebrew-month-name-array-leap-year)
544 (year
546 "\\*\\|0*" (int-to-string year)
547 (if abbreviated-calendar-year
548 (concat "\\|" (int-to-string (% year 100)))
590 (defun mark-hebrew-calendar-date-pattern (month day year)
596 (if (/= 0 year)
600 (list month day year)))))
603 ;; Month and day in any year--this taken from the holiday stuff.
612 (y1 displayed-year)
614 (y2 displayed-year)
615 (year))
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))
632 (list month day year)))))
639 (y displayed-year)
654 (h-year (extract-calendar-year h-date)))
659 (or (zerop year)
660 (= year h-year))
672 common Hebrew year. Hebrew date diary entries that begin with a
686 calendar-hebrew-month-name-array-leap-year)))
689 (year "[0-9]+\\|\\*")
699 (y-pos (- l (length (memq 'year date-form))))
740 abbreviated-calendar-year)
742 (extract-calendar-year
767 calendar-hebrew-month-name-array-leap-year) t)))))
777 calendar-hebrew-month-name-array-leap-year))
796 calendar-hebrew-month-name-array-leap-year))
808 For the day of the Hebrew year corresponding to the date indicated by point.
816 calendar-hebrew-month-name-array-leap-year))
827 (defun list-yahrzeit-dates (death-date start-year end-year)
836 (year (calendar-read
839 (int-to-string (extract-calendar-year today))))
848 (last (calendar-last-day-of-month month year))
852 (list month day year))))
853 (death-year (extract-calendar-year death-date))
854 (start-year (calendar-read
855 (format "Starting year of Yahrzeit table (>%d): "
856 death-year)
857 '(lambda (x) (> x death-year))
858 (int-to-string (1+ death-year))))
859 (end-year (calendar-read
860 (format "Ending year of Yahrzeit table (>=%d): "
861 start-year)
862 '(lambda (x) (>= x start-year)))))
863 (list death-date start-year end-year)))
870 (h-year (extract-calendar-year h-date)))
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)))
883 (calendar-for-loop i from start-year to end-year do
889 (extract-calendar-year
910 (list 1 15 (+ (extract-calendar-year date) 3760))))
928 (defun diary-yahrzeit (death-month death-day death-year &optional mark)
941 (list death-day death-month death-year)
942 (list death-month death-day death-year)))))
945 (h-year (extract-calendar-year h-date))
947 (yr (extract-calendar-year (calendar-hebrew-from-absolute d)))
948 (diff (- yr h-year))
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))
975 (if leap-year
976 calendar-hebrew-month-name-array-leap-year
977 calendar-hebrew-month-name-array-common-year))
988 ;; next month must be in the same year since this
989 ;; month can't be the last month of the year since
1001 (hebrew-calendar-last-month-of-year
1002 h-year))
1018 (hebrew-calendar-last-month-of-year
1019 h-year))
1050 ((h-year (extract-calendar-year
1053 (calendar-absolute-from-hebrew (list 7 1 h-year)))
1055 (calendar-absolute-from-hebrew (list 1 15 h-year)))
1060 (long-h (hebrew-calendar-long-heshvan-p h-year))
1061 (short-k (hebrew-calendar-short-kislev-p h-year))
1065 (year-format
1067 (intern (format "hebrew-calendar-year-%s-%s-%s" ;; keviah
1069 (first-saturday ;; of Hebrew year
1071 (saturday ;; which Saturday of the Hebrew year
1073 (parasha (aref year-format saturday)))
1087 ;; The seven ordinary year types (keviot)
1089 (defconst hebrew-calendar-year-Saturday-incomplete-Sunday
1094 Hebrew year starts on Saturday, is `incomplete' (Heshvan and Kislev each have
1097 (defconst hebrew-calendar-year-Saturday-complete-Tuesday
1102 Hebrew year that starts on Saturday, is `complete' (Heshvan and Kislev each
1105 (defconst hebrew-calendar-year-Monday-incomplete-Tuesday
1110 Hebrew year that starts on Monday, is `incomplete' (Heshvan and Kislev each
1113 (defconst hebrew-calendar-year-Monday-complete-Thursday
1118 Hebrew year that starts on Monday, is `complete' (Heshvan and Kislev each have
1121 (defconst hebrew-calendar-year-Tuesday-regular-Thursday
1126 Hebrew year that starts on Tuesday, is `regular' (Heshvan has 29 days and
1129 (defconst hebrew-calendar-year-Thursday-regular-Saturday
1135 Hebrew year that starts on Thursday, is `regular' (Heshvan has 29 days and
1138 (defconst hebrew-calendar-year-Thursday-complete-Sunday
1143 Hebrew year that starts on Thursday, is `complete' (Heshvan and Kislev each
1146 ;; The seven leap year types (keviot)
1148 (defconst hebrew-calendar-year-Saturday-incomplete-Tuesday
1153 Hebrew year that starts on Saturday, is `incomplete' (Heshvan and Kislev each
1156 (defconst hebrew-calendar-year-Saturday-complete-Thursday
1161 Hebrew year that starts on Saturday, is `complete' (Heshvan and Kislev each
1164 (defconst hebrew-calendar-year-Monday-incomplete-Thursday
1169 Hebrew year that starts on Monday, is `incomplete' (Heshvan and Kislev each
1172 (defconst hebrew-calendar-year-Monday-complete-Saturday
1178 Hebrew year that starts on Monday, is `complete' (Heshvan and Kislev each have
1181 (defconst hebrew-calendar-year-Tuesday-regular-Saturday
1187 Hebrew year that starts on Tuesday, is `regular' (Heshvan has 29 days and
1190 (defconst hebrew-calendar-year-Thursday-incomplete-Sunday
1195 Hebrew year that starts on Thursday, is `incomplete' (Heshvan and Kislev both
1198 (defconst hebrew-calendar-year-Thursday-complete-Tuesday
1203 Hebrew year that starts on Thursday, is `complete' (Heshvan and Kislev both