;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (require 'calendar) #@50 Array of the month names in the Coptic calendar. (defvar calendar-coptic-month-name-array ["Tut" "Babah" "Hatur" "Kiyahk" "Tubah" "Amshir" "Baramhat" "Barmundah" "Bashans" "Baunah" "Abib" "Misra" "al-Nasi"] (#$ . 104)) (autoload 'calendar-julian-to-absolute "cal-julian") #@73 Absolute date of start of Coptic calendar = August 29, 284 AD (Julian). (defvar calendar-coptic-epoch 103605 (#$ . 382)) #@31 Used in some message strings. (defvar calendar-coptic-name "Coptic" (#$ . 509)) #@64 True if YEAR is a leap year on the Coptic calendar. (fn YEAR) (defalias 'calendar-coptic-leap-year-p #[257 "\300T\301\"\302U\207" [mod 4 0] 4 (#$ . 595)]) #@190 Return last day of MONTH, YEAR on the Coptic calendar. The 13th month is not really a month, but the 5 (6 in leap years) day period of Nisi (Kebus) at the end of the year. (fn MONTH YEAR) (defalias 'calendar-coptic-last-day-of-month #[514 "\300W\203\301\207\302!\203\303\207\304\207" [13 30 calendar-coptic-leap-year-p 6 5] 4 (#$ . 759)]) #@169 Compute absolute date from Coptic date DATE. The absolute date is the number of days elapsed since the (imaginary) Gregorian date Sunday, December 31, 1 BC. (fn DATE) (defalias 'calendar-coptic-to-absolute #[257 "\211\211@\262\211A@\262\3018\262\302S\303S_\304\245\305S_%\207" [calendar-coptic-epoch 2 + 365 4 30] 10 (#$ . 1112)]) #@227 Compute the Coptic equivalent for absolute date DATE. The result is a list of the form (MONTH DAY YEAR). The absolute date is the number of days elapsed since the imaginary Gregorian date Sunday, December 31, 1 BC. (fn DATE) (defalias 'calendar-coptic-from-absolute #[257 "\211W\203 \301\211\211E\207\211Z\302\245\211\301\303\304\211TE!Y\203*\211T\262T\262\202\262\\\304\301\303\305\"E!V\203J\211T\262T\262\202/\262T\303\304E!SZE\207" [calendar-coptic-epoch 0 366 calendar-coptic-to-absolute 1 calendar-coptic-last-day-of-month] 11 (#$ . 1464)]) #@167 String of Coptic date of Gregorian DATE. Returns the empty string if DATE is pre-Coptic calendar. Defaults to today's date if DATE is not given. (fn &optional DATE) (defalias 'calendar-coptic-date-string #[256 "\306\206\307 \211\3108\262\311\312U\203\313\314!\266\203\202Z\312V\203\222S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203}\211\317\320_\\\321\245Z\262\211\312W\203^\322!S\262\211\320\246\312U\205t\211\323\246\312U?\206t\211\324\246\312U\262\203}\211T\262\266\204\325_\320\245\323\245[\324\245%\266\203\202Z\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\357\211\317\320_\\\321\245Z\262\211\312W\203\320\322!S\262\211\320\246\312U\205\346\211\323\246\312U?\206\346\211\324\246\312U\262\203\357\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203T\211\317\320_\\\321\245Z\262\211\312W\2035\322!S\262\211\320\246\312U\205K\211\323\246\312U?\206K\211\324\246\312U\262\203T\211T\262\266\204&\266\203!\211\3108\262\211@\262\330W\203n\331\207SH\332\211A@\262!\311\332!\332!\333\334\331#-\207" [calendar-coptic-month-name-array year month dayname day monthname calendar-coptic-from-absolute calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 "" number-to-string mapconcat eval calendar-date-display-form] 20 (#$ . 2050)]) #@59 Show the Coptic calendar equivalent of the selected date. (defalias 'calendar-coptic-print-date #[0 "\301\302\303!!\211\304\230\203\305\306\"\207\305\307#\207" [calendar-coptic-name calendar-coptic-date-string calendar-cursor-to-date t "" message "Date is pre-%s calendar" "%s date: %s"] 5 (#$ . 3529) nil]) #@91 Interactively read the arguments for a Coptic date command. Reads a year, month, and day. (defalias 'calendar-coptic-read-date #[0 "\303 \304\305\306\307\211\3108\262\311\312U\203\313\314!\266\203\202Z\312V\203\222S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203}\211\317\320_\\\321\245Z\262\211\312W\203^\322!S\262\211\320\246\312U\205t\211\323\246\312U?\206t\211\324\246\312U\262\203}\211T\262\266\204\325_\320\245\323\245[\324\245%\266\203\202Z\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\357\211\317\320_\\\321\245Z\262\211\312W\203\320\322!S\262\211\320\246\312U\205\346\211\323\246\312U?\206\346\211\324\246\312U\262\203\357\211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203T\211\317\320_\\\321\245Z\262\211\312W\2035\322!S\262\211\320\246\312U\205K\211\323\246\312U?\206K\211\324\246\312U\262\203T\211T\262\266\204&\266\203!\3108\262$\330\331\332\333\334\"\335\336\337\n\311\"\"\311\330$\340\n\341\"\330#A\342\"\304\343\344\345\"\311%E)C\207" [calendar-coptic-name completion-ignore-case calendar-coptic-month-name-array calendar-current-date calendar-read-sexp "%s calendar year (>0)" #[257 "\211\300V\207" [0] 3 "\n\n(fn X)"] calendar-coptic-from-absolute 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) t assoc-string completing-read format "%s calendar month name: " mapcar list append calendar-make-alist 1 calendar-coptic-last-day-of-month "%s calendar day (1-%d)" make-closure #[257 "\301W\205 \211\300X\207" [V0 0] 3 "\n\n(fn X)"]] 23 (#$ . 3848)]) #@99 Move cursor to Coptic date DATE. Echo Coptic date unless NOECHO is t. (fn DATE &optional NOECHO) (defalias 'calendar-coptic-goto-date #[513 "\300\301\302!!!\210\211\206\303 \207" [calendar-goto-date calendar-gregorian-from-absolute calendar-coptic-to-absolute calendar-coptic-print-date] 6 (#$ . 5541) (calendar-coptic-read-date)]) #@49 Coptic calendar equivalent of date diary entry. (defalias 'diary-coptic-date #[0 "\302!\211\303\230\203\304\305 \"\207\304\306 #\207" [date calendar-coptic-name calendar-coptic-date-string "" format "Date is pre-%s calendar" "%s date: %s"] 5 (#$ . 5883)]) #@52 Array of the month names in the Ethiopic calendar. (defconst calendar-ethiopic-month-name-array ["Maskaram" "Teqemt" "Khedar" "Takhsas" "Ter" "Yakatit" "Magabit" "Miyazya" "Genbot" "Sane" "Hamle" "Nahas" "Paguem"] (#$ . 6149)) #@75 Absolute date of start of Ethiopic calendar = August 29, 8 C.E. (Julian). (defconst calendar-ethiopic-epoch 2796 (#$ . 6382)) #@31 Used in some message strings. (defconst calendar-ethiopic-name "Ethiopic" (#$ . 6514)) #@174 Compute absolute date from Ethiopic date DATE. The absolute date is the number of days elapsed since the (imaginary) Gregorian date Sunday, December 31, 1 BC. (fn THEDATE) (defalias 'calendar-ethiopic-to-absolute #[257 "\302!)\207" [calendar-ethiopic-epoch calendar-coptic-epoch calendar-coptic-to-absolute] 3 (#$ . 6608)]) #@232 Compute the Ethiopic equivalent for absolute date DATE. The result is a list of the form (MONTH DAY YEAR). The absolute date is the number of days elapsed since the imaginary Gregorian date Sunday, December 31, 1 BC. (fn THEDATE) (defalias 'calendar-ethiopic-from-absolute #[257 "\302!)\207" [calendar-ethiopic-epoch calendar-coptic-epoch calendar-coptic-from-absolute] 3 (#$ . 6943)]) #@174 String of Ethiopic date of Gregorian DATE. Returns the empty string if DATE is pre-Ethiopic calendar. Defaults to today's date if DATE is not given. (fn &optional THEDATE) (defalias 'calendar-ethiopic-date-string #[256 " \n\306!+\207" [calendar-ethiopic-epoch calendar-ethiopic-name calendar-ethiopic-month-name-array calendar-coptic-month-name-array calendar-coptic-name calendar-coptic-epoch calendar-coptic-date-string] 4 (#$ . 7340)]) #@61 Show the Ethiopic calendar equivalent of the selected date. (defalias 'calendar-ethiopic-print-date #[0 " \n\306\307!+\207" [calendar-ethiopic-epoch calendar-ethiopic-name calendar-ethiopic-month-name-array calendar-coptic-month-name-array calendar-coptic-name calendar-coptic-epoch call-interactively calendar-coptic-print-date] 3 (#$ . 7791) nil]) #@109 Move cursor to Ethiopic date THEDATE. Echo Ethiopic date unless NOECHO is t. (fn THEDATE &optional NOECHO) (defalias 'calendar-ethiopic-goto-date #[513 "\300\301\302!!!\210\211\206\303 \207" [calendar-goto-date calendar-gregorian-from-absolute calendar-ethiopic-to-absolute calendar-ethiopic-print-date] 6 (#$ . 8152) (byte-code " \n\306 +\207" [calendar-ethiopic-epoch calendar-ethiopic-name calendar-ethiopic-month-name-array calendar-coptic-month-name-array calendar-coptic-name calendar-coptic-epoch calendar-coptic-read-date] 3)]) #@51 Ethiopic calendar equivalent of date diary entry. (defalias 'diary-ethiopic-date #[0 " \n\306 +\207" [calendar-ethiopic-epoch calendar-ethiopic-name calendar-ethiopic-month-name-array calendar-coptic-month-name-array calendar-coptic-name calendar-coptic-epoch diary-coptic-date] 3 (#$ . 8702)]) (provide 'cal-coptic)