Lines Matching +defs:before +defs:string
60 (defconst calendar-mayan-days-before-absolute-zero 1137142
61 "Number of days of the Mayan calendar epoch before absolute day 0.
82 (let ((long-count (+ date calendar-mayan-days-before-absolute-zero)))
93 (defun calendar-mayan-long-count-to-string (mayan-long-count)
97 (defun calendar-string-to-mayan-long-count (str)
98 "Given STR, a string of format \"%d.%d.%d.%d.%d\", return list of nums."
105 (let* ((start (string-match "[0-9]+" str cc))
117 (let* ((long-count (+ date calendar-mayan-days-before-absolute-zero))
133 (defun calendar-mayan-haab-on-or-before (haab-date date)
134 "Absolute date of latest HAAB-DATE on or before absolute DATE."
147 (calendar-mayan-haab-on-or-before
159 (calendar-mayan-haab-on-or-before
164 (defun calendar-mayan-haab-to-string (haab)
177 (let* ((long-count (+ date calendar-mayan-days-before-absolute-zero))
195 (defun calendar-mayan-tzolkin-on-or-before (tzolkin-date date)
196 "Absolute date of latest TZOLKIN-DATE on or before absolute DATE."
209 (calendar-mayan-tzolkin-on-or-before
221 (calendar-mayan-tzolkin-on-or-before
226 (defun calendar-mayan-tzolkin-to-string (tzolkin)
232 (defun calendar-mayan-tzolkin-haab-on-or-before (tzolkin-date haab-date date)
234 Latest such date on or before DATE.
261 (assoc-string
276 (assoc-string
289 (let ((date (calendar-mayan-tzolkin-haab-on-or-before
295 (calendar-mayan-tzolkin-to-string tzolkin-date)
296 (calendar-mayan-haab-to-string haab-date))
306 (let ((date (calendar-mayan-tzolkin-haab-on-or-before
312 (calendar-mayan-tzolkin-to-string tzolkin-date)
313 (calendar-mayan-haab-to-string haab-date))
325 (- ; days before absolute date 0
326 calendar-mayan-days-before-absolute-zero)))
328 (defun calendar-mayan-date-string (&optional date)
337 (calendar-mayan-long-count-to-string long-count)
338 (calendar-mayan-tzolkin-to-string tzolkin)
339 (calendar-mayan-haab-to-string haab))))
345 (calendar-mayan-date-string (calendar-cursor-to-date t))))
353 (calendar-string-to-mayan-long-count
354 (read-string "Mayan long count (baktun.katun.tun.uinal.kin): "
355 (calendar-mayan-long-count-to-string
377 (format "Mayan date: %s" (calendar-mayan-date-string date)))