Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
appt.elc	18.08 KB	-rw-r--r--
cal-bahai.elc	12.95 KB	-rw-r--r--
cal-china.elc	31.28 KB	-rw-r--r--
cal-coptic.elc	9.21 KB	-rw-r--r--
cal-dst.elc	17.74 KB	-rw-r--r--
cal-french.elc	9.24 KB	-rw-r--r--
cal-hebrew.elc	48.6 KB	-rw-r--r--
cal-html.elc	16.8 KB	-rw-r--r--
cal-islam.elc	13.12 KB	-rw-r--r--
cal-iso.elc	6.82 KB	-rw-r--r--
cal-julian.elc	7.3 KB	-rw-r--r--
cal-loaddefs.el	30.7 KB	-rw-r--r--
cal-mayan.elc	18.6 KB	-rw-r--r--
cal-menu.elc	9.79 KB	-rw-r--r--
cal-move.elc	14.58 KB	-rw-r--r--
cal-persia.elc	6.65 KB	-rw-r--r--
cal-tex.elc	75.79 KB	-rw-r--r--
cal-x.elc	4.45 KB	-rw-r--r--
calendar.elc	98.48 KB	-rw-r--r--
diary-lib.elc	103.09 KB	-rw-r--r--
diary-loaddefs.el	10.61 KB	-rw-r--r--
hol-loaddefs.el	5.11 KB	-rw-r--r--
holidays.elc	32.73 KB	-rw-r--r--
icalendar.elc	58.07 KB	-rw-r--r--
iso8601.elc	8.69 KB	-rw-r--r--
lunar.elc	12.5 KB	-rw-r--r--
parse-time.elc	5.46 KB	-rw-r--r--
solar.elc	38.31 KB	-rw-r--r--
time-date.elc	14.26 KB	-rw-r--r--
timeclock.elc	46.18 KB	-rw-r--r--
todo-mode.elc	195.44 KB	-rw-r--r--

Code Editor : cal-coptic.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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)
#@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@\262\211A@\262\3058\262\306\fS\307	S_	\310\245\311S_\n%+\207" [date year day month calendar-coptic-epoch 2 + 365 4 30] 6 (#$ . 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�TT\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 (#$ . 1801)])
#@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\262\311\312U\203�\313\314!\202Z\312V\203\220�S\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\205r�\211\323\246\312U?\206r�\211\324\246\312U\262\203{�\211T\262\266\203\262\325_\320\245\323\245[\324\245%\202Z\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\355�\211\317\320_\\\321\245Z\262\211\312W\203\316�\322!S\262\211\320\246\312U\205\344�\211\323\246\312U?\206\344�\211\324\246\312U\262\203\355�\211T\262\266\203\262\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\203\262&\266\203!\211\3108\262	\211@\262\n\330W\203u\331\202\230\fSH\332	\211A@\262!\311\332!\332\n! \333\334!\331#-+\207" [date coptic-date y m calendar-coptic-month-name-array 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 month dayname day monthname calendar-date-display-form] 20 (#$ . 2404)])
#@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 (#$ . 3911) 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\3158\262\316\317U\203�\320\321!\202_\317V\203\225�S\262\322\211\211@\262\211A@\262\3158\262\323S_\\\315V\203\200�\211\324\325_\\\326\245Z\262\211\317W\203a�\327!S\262\211\325\246\317U\205w�\211\330\246\317U?\206w�\211\331\246\317U\262\203\200�\211T\262\266\203\262\332_\325\245\330\245[\331\245%\202_\327T!\262\333\211\211@\262\211A@\262\3158\262\323S_\\\315V\203\362�\211\324\325_\\\326\245Z\262\211\317W\203\323�\327!S\262\211\325\246\317U\205\351�\211\330\246\317U?\206\351�\211\331\246\317U\262\203\362�\211T\262\266\203\262\332_\325\245\330\245[\331\245\334\211\211@\262\211A@\262\3158\262\323S_\\\315V\203Y\211\324\325_\\\326\245Z\262\211\317W\203:\327!S\262\211\325\246\317U\205P\211\330\246\317U?\206P\211\331\246\317U\262\203Y\211T\262\266\203\262&\266\203!\3158\262!#\335\336\337\310\340	\"\341\342\343\f\316\"\"\316\335$\344\f\345\"\335#A\346
\n\")\307\310\347	)#\350\"*
*\nE.C\207" [today calendar-coptic-name year completion-ignore-case calendar-coptic-month-name-array 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] last day] 23 (#$ . 4238)])
#@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 (#$ . 5956) (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 (#$ . 6299)])
#@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"] (#$ . 6575))
#@75 Absolute date of start of Ethiopic calendar = August 29, 8 C.E. (Julian).
(defconst calendar-ethiopic-epoch 2796 (#$ . 6808))
#@31 Used in some message strings.
(defconst calendar-ethiopic-name "Ethiopic" (#$ . 6940))
#@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 (#$ . 7034)])
#@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 (#$ . 7364)])
#@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 (#$ . 7756)])
#@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 (#$ . 8202) 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 (#$ . 8564) (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 (#$ . 9109)])
(provide 'cal-coptic)

${this.title}

Code Editor : cal-coptic.elc