%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'calendar)
#@266 Number of days of the Mayan calendar epoch before absolute day 0.
This is the Goodman-Martinez-Thompson correlation used by almost all experts,
but some use 1137140. Using 1232041 gives you Spinden's correlation; using
1142840 gives you Hochleitner's correlation.
(defconst calendar-mayan-days-before-absolute-zero 1137142 (#$ . 429))
#@31 Mayan haab date at the epoch.
(defconst calendar-mayan-haab-at-epoch '(8 . 18) (#$ . 771))
#@33 Names of the Mayan haab months.
(defconst calendar-mayan-haab-month-name-array ["Pop" "Uo" "Zip" "Zotz" "Tzec" "Xul" "Yaxkin" "Mol" "Chen" "Yax" "Zac" "Ceh" "Mac" "Kankin" "Muan" "Pax" "Kayab" "Cumku"] (#$ . 868))
#@34 Mayan tzolkin date at the epoch.
(defconst calendar-mayan-tzolkin-at-epoch '(4 . 20) (#$ . 1088))
#@36 Names of the Mayan tzolkin months.
(defconst calendar-mayan-tzolkin-names-array ["Imix" "Ik" "Akbal" "Kan" "Chicchan" "Cimi" "Manik" "Lamat" "Muluc" "Oc" "Chuen" "Eb" "Ben" "Ix" "Men" "Cib" "Caban" "Etznab" "Cauac" "Ahau"] (#$ . 1192))
#@66 Compute the Mayan long count corresponding to the absolute DATE.
(defalias 'calendar-mayan-long-count-from-absolute #[(date) " \\\211\306\245\n\306\246\211 \307\245 \f\307\246\211 \310\245 \n\f\310\246\211 \311\245 \f\311\246 \f
\n \f\257. \207" [date calendar-mayan-days-before-absolute-zero long-count baktun remainder katun 144000 7200 360 20 tun uinal kin] 6 (#$ . 1434)])
#@57 Convert MAYAN-LONG-COUNT into traditional written form.
(defalias 'calendar-mayan-long-count-to-string #[(mayan-long-count) "\301\302\303B\"\207" [mayan-long-count apply format "%s.%s.%s.%s.%s"] 4 (#$ . 1826)])
#@73 Given STR, a string of format "%d.%d.%d.%d.%d", return list of numbers.
(defalias 'calendar-mayan-string-from-long-count #[(str) "\303\304\3051/ \306\307\n #\203 \310\311\303\n\"!B\303\225\202 G\312U?\205+ \313\314\304\"0\2023 \210\2024 \210\237*\207" [rlc end str 0 nil (invalid-read-syntax) string-match "[0-9]+" string-to-number match-string 5 signal invalid-read-syntax] 4 (#$ . 2044)])
#@56 Convert absolute DATE into a Mayan haab date (a pair).
(defalias 'calendar-mayan-haab-from-absolute #[(date) " \\\306\n @\307 AS_#\310\246\211 \307\246 \f\307\245T
,B\207" [date calendar-mayan-days-before-absolute-zero long-count calendar-mayan-haab-at-epoch day-of-haab day + 20 365 month] 6 (#$ . 2450)])
#@77 Number of days from Mayan haab DATE1 to next occurrence of haab date DATE2.
(defalias 'calendar-mayan-haab-difference #[(date1 date2) "\302\303A AZ_@ @Z\\\304\"\207" [date2 date1 mod 20 365] 4 (#$ . 2769)])
#@63 Absolute date of latest HAAB-DATE on or before absolute DATE.
(defalias 'calendar-mayan-haab-on-or-before #[(haab-date date) "\211\302\303\304! \"Z\305\246Z\207" [date haab-date calendar-mayan-haab-difference calendar-mayan-haab-from-absolute 0 365] 5 (#$ . 2984)])
#@56 String of Mayan date of Gregorian DATE; default today.
(defalias 'calendar-mayan-date-string #[(&optional date) "\206 \305 \211\3068\262\307\310U\203 \311\312!\202S\310V\203\215 S\262\313\211\211@\262\211A@\262\3068\262\314S_\\\306V\203z \211\315\316_\\\317\245Z\262\211\310W\203[ \320!S\262\211\316\246\310U\205q \211\321\246\310U?\206q \211\322\246\310U\262\203z \211T\262\266\204\323_\316\245\321\245[\322\245%\202S\320T!\262\324\211\211@\262\211A@\262\3068\262\314S_\\\306V\203\352 \211\315\316_\\\317\245Z\262\211\310W\203\313 \320!S\262\211\316\246\310U\205\341 \211\321\246\310U?\206\341 \211\322\246\310U\262\203\352 \211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3068\262\314S_\\\306V\203O\211\315\316_\\\317\245Z\262\211\310W\2030\320!S\262\211\316\246\310U\205F\211\321\246\310U?\206F\211\322\246\310U\262\203O\211T\262\266\204&\266\203\326 !\327 !\330 ! \331\332\333\f!\334\n!\335 !$,\207" [date d tzolkin haab long-count calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-mayan-tzolkin-from-absolute calendar-mayan-haab-from-absolute calendar-mayan-long-count-from-absolute format "Long count = %s; tzolkin = %s; haab = %s" calendar-mayan-long-count-to-string calendar-mayan-tzolkin-to-string calendar-mayan-haab-to-string] 18 (#$ . 3257)])
#@67 Show the Mayan long count, tzolkin, and haab equivalents of date.
(defalias 'calendar-mayan-print-date #[nil "\300\301\302\303\304!!\"\207" [message "Mayan date: %s" calendar-mayan-date-string calendar-cursor-to-date t] 5 (#$ . 4694) nil])
#@31 Prompt for a Mayan haab date.
(defalias 'calendar-mayan-read-haab-date #[nil "\305\306\307\310\"\311\n \312W\205 \313\"\314\315\316\317\320 \"\321\305$\322 \323\"\305#A \f,B\207" [completion-ignore-case haab-day calendar-mayan-haab-month-name-array haab-month-list haab-month t calendar-read "Haab kin (0-19): " #[(x) "\301Y\205 \302W\207" [x 0 20] 2] append 5 ("Uayeb") assoc-string completing-read "Haab uinal: " mapcar list nil calendar-make-alist 1] 6 (#$ . 4940)])
#@34 Prompt for a Mayan tzolkin date.
(defalias 'calendar-mayan-read-tzolkin-date #[nil "\305\306\307\310\"\311\n\312\"\313\314\315\316\317 \"\312\305$\320 \321\"\305#A \f,B\207" [completion-ignore-case tzolkin-count calendar-mayan-tzolkin-names-array tzolkin-name-list tzolkin-name t calendar-read "Tzolkin kin (1-13): " #[(x) "\301V\205 \302W\207" [x 0 14] 2] append nil assoc-string completing-read "Tzolkin uinal: " mapcar list calendar-make-alist 1] 6 (#$ . 5424)])
#@92 Move cursor to next instance of Mayan HAAB-DATE.
Echo Mayan date unless NOECHO is non-nil.
(defalias 'calendar-mayan-next-haab-date #[(haab-date &optional noecho) "\302\303\304\305\306 \211\3078\262\310\311U\203 \312\313!\202T\311V\203\216 S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203{ \211\316\317_\\\320\245Z\262\211\311W\203\\ \321!S\262\211\317\246\311U\205r \211\322\246\311U?\206r \211\323\246\311U\262\203{ \211T\262\266\204\305_\317\245\322\245[\323\245%\202T\321T!\262\324\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\353 \211\316\317_\\\320\245Z\262\211\311W\203\314 \321!S\262\211\317\246\311U\205\342 \211\322\246\311U?\206\342 \211\323\246\311U\262\203\353 \211T\262\266\204\305_\317\245\322\245[\323\245\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203P\211\316\317_\\\320\245Z\262\211\311W\2031\321!S\262\211\317\246\311U\205G\211\322\246\311U?\206G\211\323\246\311U\262\203P\211T\262\266\204&\266\203\\\"!!\210 \206a\326 \207" [haab-date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-haab-on-or-before 365 calendar-cursor-to-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 - (12 31 -1) calendar-mayan-print-date] 23 (#$ . 5903) (list (calendar-mayan-read-haab-date))])
#@96 Move cursor to previous instance of Mayan HAAB-DATE.
Echo Mayan date unless NOECHO is non-nil.
(defalias 'calendar-mayan-previous-haab-date #[(haab-date &optional noecho) "\302\303\304\305 \211\3068\262\307\310U\203 \311\312!\202S\310V\203\215 S\262\313\211\211@\262\211A@\262\3068\262\314S_\\\306V\203z \211\315\316_\\\317\245Z\262\211\310W\203[ \320!S\262\211\316\246\310U\205q \211\321\246\310U?\206q \211\322\246\310U\262\203z \211T\262\266\204\323_\316\245\321\245[\322\245%\202S\320T!\262\324\211\211@\262\211A@\262\3068\262\314S_\\\306V\203\352 \211\315\316_\\\317\245Z\262\211\310W\203\313 \320!S\262\211\316\246\310U\205\341 \211\321\246\310U?\206\341 \211\322\246\310U\262\203\352 \211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3068\262\314S_\\\306V\203O\211\315\316_\\\317\245Z\262\211\310W\2030\320!S\262\211\316\246\310U\205F\211\321\246\310U?\206F\211\322\246\310U\262\203O\211T\262\266\204&\266\203S\"!!\210 \206`\326 \207" [haab-date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-haab-on-or-before calendar-cursor-to-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-mayan-print-date] 22 (#$ . 7250) (list (calendar-mayan-read-haab-date))])
#@69 Convert Mayan HAAB date (a pair) into its traditional written form.
(defalias 'calendar-mayan-haab-to-string #[(haab) "A\303\304@ \305U\203 \306\202 \n SH#)\207" [haab month calendar-mayan-haab-month-name-array format "%d %s" 19 "Uayeb"] 5 (#$ . 8599)])
#@59 Convert absolute DATE into a Mayan tzolkin date (a pair).
(defalias 'calendar-mayan-tzolkin-from-absolute #[(date) " \\\306\n @\\S\307\"T \306\n A\\S\310\"T \f
+B\207" [date calendar-mayan-days-before-absolute-zero long-count calendar-mayan-tzolkin-at-epoch day name mod 13 20] 3 (#$ . 8864)])
#@78 Number of days from Mayan tzolkin DATE1 to next occurrence of tzolkin DATE2.
(defalias 'calendar-mayan-tzolkin-difference #[(date1 date2) "@ @ZA AZ\304 \305\304\306 \nZ_\307\"_\\\310\"*\207" [date2 date1 name-difference number-difference mod 13 3 20 260] 7 (#$ . 9166)])
#@66 Absolute date of latest TZOLKIN-DATE on or before absolute DATE.
(defalias 'calendar-mayan-tzolkin-on-or-before #[(tzolkin-date date) "\211\302\303\304! \"Z\305\246Z\207" [date tzolkin-date calendar-mayan-tzolkin-difference calendar-mayan-tzolkin-from-absolute 0 260] 5 (#$ . 9447)])
#@95 Move cursor to next instance of Mayan TZOLKIN-DATE.
Echo Mayan date unless NOECHO is non-nil.
(defalias 'calendar-mayan-next-tzolkin-date #[(tzolkin-date &optional noecho) "\302\303\304\305\306 \211\3078\262\310\311U\203 \312\313!\202T\311V\203\216 S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203{ \211\316\317_\\\320\245Z\262\211\311W\203\\ \321!S\262\211\317\246\311U\205r \211\322\246\311U?\206r \211\323\246\311U\262\203{ \211T\262\266\204\324_\317\245\322\245[\323\245%\202T\321T!\262\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\353 \211\316\317_\\\320\245Z\262\211\311W\203\314 \321!S\262\211\317\246\311U\205\342 \211\322\246\311U?\206\342 \211\323\246\311U\262\203\353 \211T\262\266\204\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3078\262\315S_\\\307V\203P\211\316\317_\\\320\245Z\262\211\311W\2031\321!S\262\211\317\246\311U\205G\211\322\246\311U?\206G\211\323\246\311U\262\203P\211T\262\266\204&\266\203\\\"!!\210 \206a\327 \207" [tzolkin-date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-tzolkin-on-or-before 260 calendar-cursor-to-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-mayan-print-date] 23 (#$ . 9738) (list (calendar-mayan-read-tzolkin-date))])
#@99 Move cursor to previous instance of Mayan TZOLKIN-DATE.
Echo Mayan date unless NOECHO is non-nil.
(defalias 'calendar-mayan-previous-tzolkin-date #[(tzolkin-date &optional noecho) "\302\303\304\305 \211\3068\262\307\310U\203 \311\312!\202S\310V\203\215 S\262\313\211\211@\262\211A@\262\3068\262\314S_\\\306V\203z \211\315\316_\\\317\245Z\262\211\310W\203[ \320!S\262\211\316\246\310U\205q \211\321\246\310U?\206q \211\322\246\310U\262\203z \211T\262\266\204\323_\316\245\321\245[\322\245%\202S\320T!\262\324\211\211@\262\211A@\262\3068\262\314S_\\\306V\203\352 \211\315\316_\\\317\245Z\262\211\310W\203\313 \320!S\262\211\316\246\310U\205\341 \211\321\246\310U?\206\341 \211\322\246\310U\262\203\352 \211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3068\262\314S_\\\306V\203O\211\315\316_\\\317\245Z\262\211\310W\2030\320!S\262\211\316\246\310U\205F\211\321\246\310U?\206F\211\322\246\310U\262\203O\211T\262\266\204&\266\203S\"!!\210 \206`\326 \207" [tzolkin-date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-tzolkin-on-or-before calendar-cursor-to-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-mayan-print-date] 22 (#$ . 11107) (list (calendar-mayan-read-tzolkin-date))])
#@72 Convert Mayan TZOLKIN date (a pair) into its traditional written form.
(defalias 'calendar-mayan-tzolkin-to-string #[(tzolkin) "\302\303@ ASH#\207" [tzolkin calendar-mayan-tzolkin-names-array format "%d %s"] 5 (#$ . 12475)])
#@155 Absolute date that is Mayan TZOLKIN-DATE and HAAB-DATE.
Latest such date on or before DATE.
Returns nil if such a tzolkin-haab combination is impossible.
(defalias 'calendar-mayan-tzolkin-haab-on-or-before #[(tzolkin-date haab-date date) "\306\307\310!\"\311\312\310!\n\"\211 Z\211 \313\246\310U\205&
\314
\315\f_\\Z\316\"Z+\207" [haab-date haab-difference tzolkin-date tzolkin-difference difference date calendar-mayan-haab-difference calendar-mayan-haab-from-absolute 0 calendar-mayan-tzolkin-difference calendar-mayan-tzolkin-from-absolute 5 mod 365 18980] 7 (#$ . 12709)])
#@117 Move cursor to next instance of Mayan TZOLKIN-DATE HAAB-DATE combination.
Echo Mayan date unless NOECHO is non-nil.
(defalias 'calendar-mayan-next-round-date #[(tzolkin-date haab-date &optional noecho) "\304 \305\306 \211\3078\262\310\311U\203 \312\313!\202S\311V\203\215 S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203z \211\316\317_\\\320\245Z\262\211\311W\203[ \321!S\262\211\317\246\311U\205q \211\322\246\311U?\206q \211\323\246\311U\262\203z \211T\262\266\204\324_\317\245\322\245[\323\245%\202S\321T!\262\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\352 \211\316\317_\\\320\245Z\262\211\311W\203\313 \321!S\262\211\317\246\311U\205\341 \211\322\246\311U?\206\341 \211\323\246\311U\262\203\352 \211T\262\266\204\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3078\262\315S_\\\307V\203O\211\316\317_\\\320\245Z\262\211\311W\2030\321!S\262\211\317\246\311U\205F\211\322\246\311U?\206F\211\323\246\311U\262\203O\211T\262\266\204&\266\203\\#\211\204h\327\330\331!\332 !#\202t\333\334\n!!\210 \206t\335 )\207" [tzolkin-date haab-date date noecho calendar-mayan-tzolkin-haab-on-or-before 18980 calendar-cursor-to-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) error "%s, %s does not exist in the Mayan calendar round" calendar-mayan-tzolkin-to-string calendar-mayan-haab-to-string calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-print-date] 23 (#$ . 13298) (list (calendar-mayan-read-tzolkin-date) (calendar-mayan-read-haab-date))])
#@114 Move to previous instance of Mayan TZOLKIN-DATE HAAB-DATE combination.
Echo Mayan date unless NOECHO is non-nil.
(defalias 'calendar-mayan-previous-round-date #[(tzolkin-date haab-date &optional noecho) "\304 \305 \211\3068\262\307\310U\203 \311\312!\202R\310V\203\214 S\262\313\211\211@\262\211A@\262\3068\262\314S_\\\306V\203y \211\315\316_\\\317\245Z\262\211\310W\203Z \320!S\262\211\316\246\310U\205p \211\321\246\310U?\206p \211\322\246\310U\262\203y \211T\262\266\204\323_\316\245\321\245[\322\245%\202R\320T!\262\324\211\211@\262\211A@\262\3068\262\314S_\\\306V\203\351 \211\315\316_\\\317\245Z\262\211\310W\203\312 \320!S\262\211\316\246\310U\205\340 \211\321\246\310U?\206\340 \211\322\246\310U\262\203\351 \211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3068\262\314S_\\\306V\203N\211\315\316_\\\317\245Z\262\211\310W\203/\320!S\262\211\316\246\310U\205E\211\321\246\310U?\206E\211\322\246\310U\262\203N\211T\262\266\204&\266\203S#\211\204g\326\327\330!\331 !#\202s\332\333\n!!\210 \206s\334 )\207" [tzolkin-date haab-date date noecho calendar-mayan-tzolkin-haab-on-or-before calendar-cursor-to-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) error "%s, %s does not exist in the Mayan calendar round" calendar-mayan-tzolkin-to-string calendar-mayan-haab-to-string calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-print-date] 22 (#$ . 14914) (list (calendar-mayan-read-tzolkin-date) (calendar-mayan-read-haab-date))])
#@119 Compute the absolute date corresponding to the Mayan Long Count C.
Long count is a list (baktun katun tun uinal kin).
(defalias 'calendar-mayan-long-count-to-absolute #[(c) "\302@\303_A@\304_\3058\306_\3078\310_\3118 [&\207" [c calendar-mayan-days-before-absolute-zero + 144000 7200 2 360 3 20 4] 7 (#$ . 16520)])
#@70 Return non-nil if long count LC represents a date in the Common Era.
(defalias 'calendar-mayan-long-count-common-era #[(lc) "\302\303!\211\203 @@U\203 AA\211\204 ?\206$ @@V)\207" [base lc calendar-mayan-long-count-from-absolute 1] 3 (#$ . 16846)])
#@81 Move cursor to Mayan long count DATE.
Echo Mayan date unless NOECHO is non-nil.
(defalias 'calendar-mayan-goto-long-count-date #[(date &optional noecho) "\302\303\304!!!\210 \206 \305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-long-count-to-absolute calendar-mayan-print-date] 4 (#$ . 17113) (byte-code "\301\302\303\304\305\306\307 \211\3108\262\301\311U\203 \312\313!\202V\311V\203\220 S\262\314\211\211@\262\211A@\262\3108\262\315S_\\\310V\203} \211\316\317_\\\320\245Z\262\211\311W\203^ \321!S\262\211\317\246\311U\205t \211\322\246\311U?\206t \211\323\246\311U\262\203} \211T\262\266\204\324_\317\245\322\245[\323\245%\202V\321T!\262\325\211\211@\262\211A@\262\3108\262\315S_\\\310V\203\355 \211\316\317_\\\320\245Z\262\211\311W\203\316 \321!S\262\211\317\246\311U\205\344 \211\322\246\311U?\206\344 \211\323\246\311U\262\203\355 \211T\262\266\204\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3108\262\315S_\\\310V\203R\211\316\317_\\\320\245Z\262\211\311W\2033\321!S\262\211\317\246\311U\205I\211\322\246\311U?\206I\211\323\246\311U\262\203R\211T\262\266\204&\266\203!!\"!\327!\205eC\211\203 )\207" [datum nil calendar-mayan-string-from-long-count read-string "Mayan long count (baktun.katun.tun.uinal.kin): " calendar-mayan-long-count-to-string calendar-mayan-long-count-from-absolute calendar-current-date 2 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-mayan-long-count-common-era] 23)])
#@70 Show the Mayan long count, haab, and tzolkin dates as a diary entry.
(defalias 'diary-mayan-date #[nil "\301\302\303!\"\207" [date format "Mayan date: %s" calendar-mayan-date-string] 4 (#$ . 18702)])
(provide 'cal-mayan)
Zerion Mini Shell 1.0