;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; 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) #@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"] (#$ . 428)) (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 (#$ . 706)) #@31 Used in some message strings. (defvar calendar-coptic-name "Coptic" (#$ . 833)) #@53 True if YEAR is a leap year on the Coptic calendar. (defalias 'calendar-coptic-leap-year-p #[(year) "\301T\302\"\303U\207" [year mod 4 0] 3 (#$ . 919)]) #@173 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. (defalias 'calendar-coptic-last-day-of-month #[(month year) "\302W\203\303\207\304 !\203\305\207\306\207" [month year 13 30 calendar-coptic-leap-year-p 6 5] 2 (#$ . 1080)]) #@158 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. (defalias 'calendar-coptic-to-absolute #[(date) "\211@)\211A@)\3058)\306\fS S\307_ \310\245 S\311_\n%+\207" [date year day month calendar-coptic-epoch 2 + 365 4 30] 7 (#$ . 1437)]) #@216 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. (defalias 'calendar-coptic-from-absolute #[(date) " W\203 \306\211\211E\207 Z\307\245\211\211\306\310\311\211\fTE!Y\203+ T\fT\202 *\\\311\306 \310 \312 \" E!V\203O T T \2024 *T\f\310\f\311 E!SZ \f E,\207" [date calendar-coptic-epoch approx sum y year 0 366 calendar-coptic-to-absolute 1 calendar-coptic-last-day-of-month m month day] 7 (#$ . 1792)]) #@146 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. (defalias 'calendar-coptic-date-string #[(&optional date) "\306\206\307 \211\3108)\311\211\312U\203\313\314!\202X\n\312V\203\221\nS\315\211\211@)\211A@)\3108)\f S\316_\\ \310V\203~ \317 \320_\\\321\245Z\n\211\312W\203a\322\n!S\n\320\246\312U\205w\n\323\246\312U?\206w\n\324\246\312U)\203~ T - \325_ \320\245 \323\245[ \324\245%\202X\322\nT!\326\211\211@)\211A@)\3108)\f S\316_\\ \310V\203\356 \317 \320_\\\321\245Z\n\211\312W\203\321\322\n!S\n\320\246\312U\205\347\n\323\246\312U?\206\347\n\324\246\312U)\203\356 T - \325_ \320\245 \323\245[ \324\245\327\211\327@)\211A@)\3108)\f S\316_\\ \310V\203T \317 \320_\\\321\245Z\n\211\312W\2037\322\n!S\n\320\246\312U\205M\n\323\246\312U?\206M\n\324\246\312U)\203T T -&+!\211\3108)\211@)\330W\203w\331\202\235 SH\332\211A@)!\311\332!\332!!\"\333\334#\331#-+\207" [date offset-years year month day day-of-year 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 coptic-date y m calendar-coptic-month-name-array dayname monthname calendar-date-display-form] 12 (#$ . 2395)]) #@59 Show the Coptic calendar equivalent of the selected date. (defalias 'calendar-coptic-print-date #[nil "\302\303\304!!\211\305\230\203\306\307 \"\202\306\310 #)\207" [f calendar-coptic-name calendar-coptic-date-string calendar-cursor-to-date t "" message "Date is pre-%s calendar" "%s date: %s"] 5 (#$ . 3794) nil]) #@91 Interactively read the arguments for a Coptic date command. Reads a year, month, and day. (defalias 'calendar-coptic-read-date #[nil "\306 \307\310\311 \"\312\313\314\211\315\n8)\316\211\317U\203\"\320\321!\202u\f\317V\203\236\fS\322\n\211\211@)\n\211A@))\n\315\n8)) S\323_\\* \315V\203\212*\324 \325_\\\326\245Z*\f\211\317W\203k\327\f!S\f\325\246\317U\205\201\f\330\246\317U?\206\201\f\331\246\317U)\203\212*T**- \332_ \325\245 \330\245[ \331\245%\202u\327\fT!\333\n\211\211@)\n\211A@))\n\315\n8)) S\323_\\* \315V\203*\324 \325_\\\326\245Z*\f\211\317W\203\343\327\f!S\f\325\246\317U\205\371\f\330\246\317U?\206\371\f\331\246\317U)\203*T**- \332_ \325\245 \330\245[ \331\245\334\211\334@)\n\211A@))\n\315\n8)) S\323_\\* \315V\203p*\324 \325_\\\326\245Z*\f\211\317W\203Q\327\f!S\f\325\246\317U\205g\f\330\246\317U?\206g\f\331\246\317U)\203p*T**-&+!\315\n8)!#\335+\336\337\310\340 \"\341\342\343,\316\"\"\316\335$\344,\345\"\335#A\346 \f\"-\307\310\347 -#\350\") )\fE.C\207" [today calendar-coptic-name date offset-years year month calendar-current-date calendar-read format "%s calendar year (>0): " #[(x) "\301V\207" [x 0] 2] number-to-string 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 "%s calendar month name: " mapcar list append calendar-make-alist 1 calendar-coptic-last-day-of-month "%s calendar day (1-%d): " #[(x) "\302W\205  X\207" [x last 0] 2] day day-of-year completion-ignore-case calendar-coptic-month-name-array last] 16 (#$ . 4121)]) #@71 Move cursor to Coptic date DATE. Echo Coptic date unless NOECHO is t. (defalias 'calendar-coptic-goto-date #[(date &optional noecho) "\302\303\304!!!\210 \206\305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-coptic-to-absolute calendar-coptic-print-date] 4 (#$ . 5773) (calendar-coptic-read-date)]) #@49 Coptic calendar equivalent of date diary entry. (defalias 'diary-coptic-date #[nil "\303!\211\304\230\203\305\306\n\"\202\305\307\n #)\207" [date f calendar-coptic-name calendar-coptic-date-string "" format "Date is pre-%s calendar" "%s date: %s"] 5 (#$ . 6116)]) #@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"] (#$ . 6392)) #@75 Absolute date of start of Ethiopic calendar = August 29, 8 C.E. (Julian). (defconst calendar-ethiopic-epoch 2796 (#$ . 6625)) #@31 Used in some message strings. (defconst calendar-ethiopic-name "Ethiopic" (#$ . 6757)) #@160 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. (defalias 'calendar-ethiopic-to-absolute #[(date) "\303\n!)\207" [calendar-ethiopic-epoch calendar-coptic-epoch date calendar-coptic-to-absolute] 2 (#$ . 6851)]) #@218 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. (defalias 'calendar-ethiopic-from-absolute #[(date) "\303\n!)\207" [calendar-ethiopic-epoch calendar-coptic-epoch date calendar-coptic-from-absolute] 2 (#$ . 7181)]) #@150 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. (defalias 'calendar-ethiopic-date-string #[(&optional date) " \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 date] 3 (#$ . 7573)]) #@61 Show the Ethiopic calendar equivalent of the selected date. (defalias 'calendar-ethiopic-print-date #[nil " \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 (#$ . 8019) nil]) #@75 Move cursor to Ethiopic date DATE. Echo Ethiopic date unless NOECHO is t. (defalias 'calendar-ethiopic-goto-date #[(date &optional noecho) "\302\303\304!!!\210 \206\305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-ethiopic-to-absolute calendar-ethiopic-print-date] 4 (#$ . 8381) (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 #[nil " \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 (#$ . 8926)]) (provide 'cal-coptic)