|
Server IP : 111.118.215.189 / Your IP : 18.222.106.93 Web Server : Apache System : Linux md-in-83.webhostbox.net 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 User : a1673wkz ( 2475) PHP Version : 8.2.25 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : ON Directory (0755) : /usr/share/emacs/24.3/lisp/calendar/ |
| [ Home ] | [ C0mmand ] | [ Upload File ] |
|---|
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:08:28 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calendar/cal-mayan.el
;;; in Emacs version 24.3.1
;;; 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 (#$ . 582))
#@31 Mayan haab date at the epoch.
(defconst calendar-mayan-haab-at-epoch '(8 . 18) (#$ . 924))
#@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"] (#$ . 1021))
#@34 Mayan tzolkin date at the epoch.
(defconst calendar-mayan-tzolkin-at-epoch '(4 . 20) (#$ . 1242))
#@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"] (#$ . 1346))
#@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 (#$ . 1588)])
#@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 (#$ . 1980)])
#@73 Given STR, a string of format "%d.%d.%d.%d.%d", return list of numbers.
(defalias 'calendar-mayan-string-from-long-count #[(str) "\302\303\303\304\305\217\210\237*\207" [rlc end 0 nil (byte-code "\303\304 #\203 \305\306\307\"!\nB\307\225\202 \nG\310U\204# \311\312\313\"\210\313\207" [str end rlc string-match "[0-9]+" string-to-number match-string 0 5 signal invalid-read-syntax nil] 4) ((invalid-read-syntax))] 3 (#$ . 2198)])
#@56 Convert absolute DATE into a Mayan haab date (a pair).
(defalias 'calendar-mayan-haab-from-absolute #[(date) " \\\306\n @ AS\307_#\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 (#$ . 2642)])
#@77 Number of days from Mayan haab DATE1 to next occurrence of haab date DATE2.
(defalias 'calendar-mayan-haab-difference #[(date1 date2) "\302A AZ\303_@ @Z\\\304\"\207" [date2 date1 mod 20 365] 4 (#$ . 2961)])
#@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 (#$ . 3176)])
#@56 String of Mayan date of Gregorian DATE; default today.
(defalias 'calendar-mayan-date-string #[(&optional date) "\206 \306 \211\3078)\310\311\n!\203 \312\313!\202o\n\314V\203\230 \nS\315\211\211@)\211\211 A@* \3078)
S\316_\\ \307V\203\204 \317 \320_\\\321\245Z \n\211\314W\203e \322\n!S\311\n\320\246!\205{ \311\n\323\246!?\206{ \311\n\324\246!)\203\204 T - \325_ \320\245 \323\245[ \324\245%\202o\322\nT!\326\211\211@)\211\211 A@* \3078)
S\316_\\ \307V\203\374 \317 \320_\\\321\245Z \n\211\314W\203\335 \322\n!S\311\n\320\246!\205\363 \311\n\323\246!?\206\363 \311\n\324\246!)\203\374 T - \325_ \320\245 \323\245[ \324\245\327\211\327@)\211\211 A@* \3078)
S\316_\\ \307V\203j \317 \320_\\\321\245Z \n\211\314W\203K\322\n!S\311\n\320\246!\205a\311\n\323\246!?\206a\311\n\324\246!)\203j T -&+ !\330!! \"\331!! #\332!! $\333\334\335$!\336\"!\337#!$,\207" [date offset-years year month x day calendar-current-date 2 nil zerop error "There was no year zero" 0 + 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 day-of-year d tzolkin haab long-count] 11 (#$ . 3449)])
#@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 (#$ . 4859) nil])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-print-mayan-date calendar-mayan-print-date nil make-obsolete "23.1"] 4)
#@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 (#$ . 5252)])
#@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 (#$ . 5736)])
#@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) "\306\307\310\311\312 \211\313 8)\314\315 !\203 \316\317!\202v \320V\203\233 S\321 \211\211@) \211\211 A@* \313 8) \fS\322_\\ \f\313V\203\207 \323\f\324_\\\325\245Z \211\320W\203h \326 !S\315 \324\246!\205~ \315 \327\246!?\206~ \315 \330\246!)\203\207 T -\n\311_\n\324\245\n\327\245[\n\330\245%\202v\326 T!\331 \211\211@) \211\211 A@* \313 8) \fS\322_\\ \f\313V\203 \323\f\324_\\\325\245Z \211\320W\203\342 \326 !S\315 \324\246!\205\370 \315 \327\246!?\206\370 \315 \330\246!)\203 T -\n\311_\n\324\245\n\327\245[\n\330\245\332\211\332@) \211\211 A@* \313 8) \fS\322_\\ \f\313V\203q \323\f\324_\\\325\245Z \211\320W\203R\326 !S\315 \324\246!\205h\315 \327\246!?\206h\315 \330\246!)\203q T -&+\\\"!!\210 \206\203\333 \207" [haab-date date offset-years year month x calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-haab-on-or-before 365 calendar-cursor-to-date 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 - (12 31 -1) calendar-mayan-print-date day day-of-year noecho] 16 (#$ . 6215) (list (calendar-mayan-read-haab-date))])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-next-haab-date calendar-mayan-next-haab-date nil make-obsolete "23.1"] 4)
#@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) "\306\307\310\311 \211\312 8)\313\314 !\203 \315\316!\202u \317V\203\232 S\320 \211\211@) \211\211 A@* \312 8) \fS\321_\\ \f\312V\203\206 \322\f\323_\\\324\245Z \211\317W\203g \325 !S\314 \323\246!\205} \314 \326\246!?\206} \314 \327\246!)\203\206 T -\n\330_\n\323\245\n\326\245[\n\327\245%\202u\325 T!\331 \211\211@) \211\211 A@* \312 8) \fS\321_\\ \f\312V\203 \322\f\323_\\\324\245Z \211\317W\203\341 \325 !S\314 \323\246!\205\367 \314 \326\246!?\206\367 \314 \327\246!)\203 T -\n\330_\n\323\245\n\326\245[\n\327\245\332\211\332@) \211\211 A@* \312 8) \fS\321_\\ \f\312V\203p \322\f\323_\\\324\245Z \211\317W\203Q\325 !S\314 \323\246!\205g\314 \326\246!?\206g\314 \327\246!)\203p T -&+S\"!!\210 \206\202\333 \207" [haab-date date offset-years year month x calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-haab-on-or-before calendar-cursor-to-date 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-mayan-print-date day day-of-year noecho] 15 (#$ . 7680) (list (calendar-mayan-read-haab-date))])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-previous-haab-date calendar-mayan-previous-haab-date nil make-obsolete "23.1"] 4)
#@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 (#$ . 9156)])
#@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 (#$ . 9421)])
#@78 Number of days from Mayan tzolkin DATE1 to next occurrence of tzolkin DATE2.
(defalias 'calendar-mayan-tzolkin-difference #[(date1 date2) "@ @ZA AZ\304 \304 \nZ\305_\306\"\307_\\\310\"*\207" [date2 date1 name-difference number-difference mod 3 20 13 260] 5 (#$ . 9723)])
#@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 (#$ . 10004)])
#@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) "\306\307\310\311\312 \211\313 8)\314\315 !\203 \316\317!\202v \320V\203\233 S\321 \211\211@) \211\211 A@* \313 8) \fS\322_\\ \f\313V\203\207 \323\f\324_\\\325\245Z \211\320W\203h \326 !S\315 \324\246!\205~ \315 \327\246!?\206~ \315 \330\246!)\203\207 T -\n\331_\n\324\245\n\327\245[\n\330\245%\202v\326 T!\332 \211\211@) \211\211 A@* \313 8) \fS\322_\\ \f\313V\203 \323\f\324_\\\325\245Z \211\320W\203\342 \326 !S\315 \324\246!\205\370 \315 \327\246!?\206\370 \315 \330\246!)\203 T -\n\331_\n\324\245\n\327\245[\n\330\245\333\211\333@) \211\211 A@* \313 8) \fS\322_\\ \f\313V\203q \323\f\324_\\\325\245Z \211\320W\203R\326 !S\315 \324\246!\205h\315 \327\246!?\206h\315 \330\246!)\203q T -&+\\\"!!\210 \206\203\334 \207" [tzolkin-date date offset-years year month x calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-tzolkin-on-or-before 260 calendar-cursor-to-date 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-mayan-print-date day day-of-year noecho] 16 (#$ . 10296) (list (calendar-mayan-read-tzolkin-date))])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-next-tzolkin-date calendar-mayan-next-tzolkin-date nil make-obsolete "23.1"] 4)
#@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) "\306\307\310\311 \211\312 8)\313\314 !\203 \315\316!\202u \317V\203\232 S\320 \211\211@) \211\211 A@* \312 8) \fS\321_\\ \f\312V\203\206 \322\f\323_\\\324\245Z \211\317W\203g \325 !S\314 \323\246!\205} \314 \326\246!?\206} \314 \327\246!)\203\206 T -\n\330_\n\323\245\n\326\245[\n\327\245%\202u\325 T!\331 \211\211@) \211\211 A@* \312 8) \fS\321_\\ \f\312V\203 \322\f\323_\\\324\245Z \211\317W\203\341 \325 !S\314 \323\246!\205\367 \314 \326\246!?\206\367 \314 \327\246!)\203 T -\n\330_\n\323\245\n\326\245[\n\327\245\332\211\332@) \211\211 A@* \312 8) \fS\321_\\ \f\312V\203p \322\f\323_\\\324\245Z \211\317W\203Q\325 !S\314 \323\246!\205g\314 \326\246!?\206g\314 \327\246!)\203p T -&+S\"!!\210 \206\202\333 \207" [tzolkin-date date offset-years year month x calendar-goto-date calendar-gregorian-from-absolute calendar-mayan-tzolkin-on-or-before calendar-cursor-to-date 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-mayan-print-date day day-of-year noecho] 15 (#$ . 11790) (list (calendar-mayan-read-tzolkin-date))])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-previous-tzolkin-date calendar-mayan-previous-tzolkin-date nil make-obsolete "23.1"] 4)
#@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 (#$ . 13291)])
#@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 \313\f\314\246!\205&
\315
\f\316_\\Z\317\"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 zerop 5 mod 365 18980] 7 (#$ . 13525)])
#@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) "\306 \307\310 \211\311\n8)\312 \313\f!\203 \314\315!\202x\f\316V\203\233 \fS\317\n\211\211@) \n\211\211 A@* !\n\311\n8) !
S\320_\\ \"
\311V\203\207 \"\321
\322_\\\323\245Z\"\f\211 \316W\203h \324\f!S\313\f\322\246!\205~ \313\f\325\246!?\206~ \313\f\326\246!)\203\207 \"T\"\"- \327_ \322\245 \325\245[ \326\245%\202x\324\fT!\330\n\211\211@) \n\211\211 A@* !\n\311\n8) !
S\320_\\ \"
\311V\203\"\321
\322_\\\323\245Z\"\f\211 \316W\203\343 \324\f!S\313\f\322\246!\205\371 \313\f\325\246!?\206\371 \313\f\326\246!)\203\"T\"\"- \327_ \322\245 \325\245[ \326\245\331\211\331@) \n\211\211 A@* !\n\311\n8) !
S\320_\\ \"
\311V\203s\"\321
\322_\\\323\245Z\"\f\211 \316W\203T\324\f!S\313\f\322\246!\205j\313\f\325\246!?\206j\313\f\326\246!)\203s\"T\"\"-&+\\#\211\204\214\314\332\333!\334 !#\202\231\335\336\n!!\210#\206\231\337 )\207" [tzolkin-date haab-date date offset-years year month calendar-mayan-tzolkin-haab-on-or-before 18980 calendar-cursor-to-date 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) "%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 x day day-of-year noecho] 15 (#$ . 14118) (list (calendar-mayan-read-tzolkin-date) (calendar-mayan-read-haab-date))])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-next-calendar-round-date calendar-mayan-next-round-date nil make-obsolete "23.1"] 4)
#@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) "\306 \307 \211\310\n8)\311 \312\f!\203 \313\314!\202w\f\315V\203\232 \fS\316\n\211\211@) \n\211\211 A@* \n\310\n8)
S\317_\\ !
\310V\203\206 !\320
\321_\\\322\245Z!\f\211 \315W\203g \323\f!S\312\f\321\246!\205} \312\f\324\246!?\206} \312\f\325\246!)\203\206 !T!!- \326_ \321\245 \324\245[ \325\245%\202w\323\fT!\327\n\211\211@) \n\211\211 A@* \n\310\n8)
S\317_\\ !
\310V\203!\320
\321_\\\322\245Z!\f\211 \315W\203\342 \323\f!S\312\f\321\246!\205\370 \312\f\324\246!?\206\370 \312\f\325\246!)\203!T!!- \326_ \321\245 \324\245[ \325\245\330\211\330@) \n\211\211 A@* \n\310\n8)
S\317_\\ !
\310V\203r!\320
\321_\\\322\245Z!\f\211 \315W\203S\323\f!S\312\f\321\246!\205i\312\f\324\246!?\206i\312\f\325\246!)\203r!T!!-&+S#\211\204\213\313\331\332!\333 !#\202\230\334\335\n!!\210\"\206\230\336 )\207" [tzolkin-date haab-date date offset-years year month calendar-mayan-tzolkin-haab-on-or-before calendar-cursor-to-date 2 nil zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) "%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 x day day-of-year noecho] 14 (#$ . 15894) (list (calendar-mayan-read-tzolkin-date) (calendar-mayan-read-haab-date))])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-previous-calendar-round-date calendar-mayan-previous-round-date nil make-obsolete "23.1"] 4)
#@118 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 (#$ . 17651)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-absolute-from-mayan-long-count calendar-mayan-long-count-to-absolute nil make-obsolete "23.1"] 4)
#@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 (#$ . 18149)])
#@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 (#$ . 18416) (byte-code "\306\307\310\311\312\313\314 \211\315 8)\306\316 !\203 \317\320!\202x \321V\203\235 S\322 \211\211@) \211\211 A@* \315 8) \fS\323_\\ \f\315V\203\211 \324\f\325_\\\326\245Z \211\321W\203j \327 !S\316 \325\246!\205\200 \316 \330\246!?\206\200 \316 \331\246!)\203\211 T -\n\332_\n\325\245\n\330\245[\n\331\245%\202x\327 T!\333 \211\211@) \211\211 A@* \315 8) \fS\323_\\ \f\315V\203 \324\f\325_\\\326\245Z \211\321W\203\344 \327 !S\316 \325\246!\205\372 \316 \330\246!?\206\372 \316 \331\246!)\203 T -\n\332_\n\325\245\n\330\245[\n\331\245\334\211\334@) \211\211 A@* \315 8) \fS\323_\\ \f\315V\203s \324\f\325_\\\326\245Z \211\321W\203T\327 !S\316 \325\246!\205j\316 \330\246!?\206j\316 \331\246!)\203s T -&+!!\"!\335!\205\206C\211\203 )\207" [datum date offset-years year month x 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 zerop error "There was no year zero" 0 + 31 23 4 10 abs 100 400 365 - (12 31 -1) calendar-mayan-long-count-common-era day day-of-year] 16)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias calendar-goto-mayan-long-count-date calendar-mayan-goto-long-count-date nil make-obsolete "23.1"] 4)
#@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 (#$ . 20147)])
(provide 'cal-mayan)