Current File : //usr/local/share/emacs/27.2/lisp/calendar/cal-bahai.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'calendar)
#@54 Array of the month names in the Bahá’í calendar.
(defconst calendar-bahai-month-name-array ["Bahá" "Jalál" "Jamál" "‘Aẓamat" "Núr" "Raḥmat" "Kalimát" "Kamál" "Asmá’" "‘Izzat" "Mashíyyat" "‘Ilm" "Qudrat" "Qawl" "Masá’il" "Sharaf" "Sulṭán" "Mulk" "‘Alá’"] (#$ . 428))
#@68 Absolute date of start of Bahá’í calendar = March 21, 1844 AD.
(defconst calendar-bahai-epoch (byte-code "\300\211\3018\262\302\303U\203 \304\305!\202T\303V\203\212 S\262\306\211\211@\262\211A@\262\3018\262\307S_\\\301V\203u \211\310\311_\\\312\245Z\262\211\303W\203V \313!S\262\211\311\246\303U\205l \211\314\246\303U?\206l \211\315\246\303U\262\203u \211T\262\266\203\262\316_\311\245\314\245[\315\245%\202T\313T!\262\317\211\211@\262\211A@\262\3018\262\307S_\\\301V\203\347 \211\310\311_\\\312\245Z\262\211\303W\203\310 \313!S\262\211\311\246\303U\205\336 \211\314\246\303U?\206\336 \211\315\246\303U\262\203\347 \211T\262\266\203\262\316_\311\245\314\245[\315\245\320\211\211@\262\211A@\262\3018\262\307S_\\\301V\203N\211\310\311_\\\312\245Z\262\211\303W\203/\313!S\262\211\311\246\303U\205E\211\314\246\303U?\206E\211\315\246\303U\262\203N\211T\262\266\203\262&\207" [(3 21 1844) 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 18) (#$ . 735))
#@68 True if Bahá’í YEAR is a leap year in the Bahá’í calendar.
(defalias 'calendar-bahai-leap-year-p #[(year) "\301\\\211\302W\203 \303!S\262\211\304\246\302U\205% \211\305\246\302U?\206% \211\306\246\302U\207" [year 1844 0 abs 4 100 400] 3 (#$ . 1814)])
#@94 Number of leap years between 1 and 1844 AD, inclusive.
Used by `calendar-bahai-to-absolute'.
(defconst calendar-bahai-leap-base (byte-code "\300\301\302\303\245[\302\304\245#\207" [+ 461 1844 100 400] 5) (#$ . 2083))
#@162 Compute absolute date from Bahá’í date DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(defalias 'calendar-bahai-to-absolute #[(date) "\211@\262\211A@\262\3068\262\211S\307\\ \310\f\311\245\f\312\245[\f\313\245#
Z \310S\314 S_\315\316 \211 W\203N \317\\T\211\202: * \317U\203e \320 !\203a \321\202f \311\202f \316\n&-\207" [date month day year prior-years calendar-bahai-leap-base 2 1844 + 4 100 400 365 1 0 19 calendar-bahai-leap-year-p 5 leap-days calendar-bahai-epoch sum m] 8 (#$ . 2307)])
#@70 Bahá’í date (month day year) corresponding to the absolute DATE.
(defalias 'calendar-bahai-from-absolute #[(date) " W\203 \306\211\211E\207\307!\211\211@\262\n\3108\262\311Z \312V\2044 \312U\2038 \n\211A@\262\313Y\2038 \314\2029 \306\\ \314\306 \315\316\fE!V\203W
TT\202@
*T \315\314\fE!SZ \fE-\207" [date calendar-bahai-epoch greg gmonth year sum 0 calendar-gregorian-from-absolute 2 1844 3 21 1 calendar-bahai-to-absolute 19 m month day] 6 (#$ . 2910)])
#@93 String of Bahá’í date of Gregorian DATE.
Defaults to today's date if DATE is not given.
(defalias 'calendar-bahai-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\330W\203o\331\202\302 \211@\262 \211A@\262 \332U\203\214\f\312X\203\214\333\202\220
SH !\334\f\312X\203\251\f\335\n!\203\244\336\202\245\320\\\202\252\f! \"\334\n! #\334 ! $\311 %\337\340&\331#.*\207" [date bahai-date y m d calendar-bahai-month-name-array calendar-bahai-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 "" 19 "Ayyám-i-Há" number-to-string calendar-bahai-leap-year-p 5 mapconcat eval monthname day year month dayname calendar-date-display-form] 20 (#$ . 3407)])
#@63 Show the Bahá’í calendar equivalent of the selected date.
(defalias 'calendar-bahai-print-date #[nil "\301\302\303!!\211\304\230\203 \305\306!\202 \305\307\")\207" [s calendar-bahai-date-string calendar-cursor-to-date t "" message "Date is pre-Bahá’í" "Bahá’í date: %s"] 4 (#$ . 5019) nil])
#@94 Interactively read the arguments for a Bahá’í date command.
Reads a year, month and day.
(defalias 'calendar-bahai-read-date #[nil "\306 \307\310\311\312\313\211\3148\262\315\316U\203 \317\320!\202\\\316V\203\222 S\262\321\211\211@\262\211A@\262\3148\262\322S_\\\314V\203} \211\323\324_\\\325\245Z\262\211\316W\203^ \326!S\262\211\324\246\316U\205t \211\327\246\316U?\206t \211\330\246\316U\262\203} \211T\262\266\203\262\331_\324\245\327\245[\330\245%\202\\\326T!\262\332\211\211@\262\211A@\262\3148\262\322S_\\\314V\203\357 \211\323\324_\\\325\245Z\262\211\316W\203\320 \326!S\262\211\324\246\316U\205\346 \211\327\246\316U?\206\346 \211\330\246\316U\262\203\357 \211T\262\266\203\262\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3148\262\322S_\\\314V\203V\211\323\324_\\\325\245Z\262\211\316W\2037\326!S\262\211\324\246\316U\205M\211\327\246\316U?\206M\211\330\246\316U\262\203V\211T\262\266\203\262&\266\203!\3148\262!#\334\335\336\337\340\341\342 \315\"\"\315\334$\343 \344\"\"A \307\345\346\" \f
E-C\207" [today year completion-ignore-case calendar-bahai-month-name-array month day calendar-current-date calendar-read "Bahá’í calendar year (not 0): " #[(x) "\301U?\207" [x 0] 2] number-to-string calendar-bahai-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 completing-read "Bahá’í calendar month name: " mapcar list append calendar-make-alist 1 "Bahá’í calendar day (1-19): " #[(x) "\301W\205 \302X\207" [x 0 19] 2]] 23 (#$ . 5332)])
#@85 Move cursor to Bahá’í date DATE; echo Bahá’í date unless NOECHO is non-nil.
(defalias 'calendar-bahai-goto-date #[(date &optional noecho) "\302\303\304!!!\210 \206 \305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-bahai-to-absolute calendar-bahai-print-date] 4 (#$ . 6960) (calendar-bahai-read-date)])
#@240 Holiday on MONTH, DAY (Bahá’í) called STRING.
If MONTH, DAY (Bahá’í) is visible in the current calendar window,
returns the corresponding Gregorian date in the form of the
list (((month day year) STRING)). Otherwise, returns nil.
(defalias 'holiday-bahai #[(month day string) "\306\307 E\211\3108\262\311\312U\203 \313\314!\202X\312V\203\216 S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203y \211\317\320_\\\321\245Z\262\211\312W\203Z \322!S\262\211\320\246\312U\205p \211\323\246\312U?\206p \211\324\246\312U\262\203y \211T\262\266\203\262\325_\320\245\323\245[\324\245%\202X\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\353 \211\317\320_\\\321\245Z\262\211\312W\203\314 \322!S\262\211\320\246\312U\205\342 \211\323\246\312U?\206\342 \211\324\246\312U\262\203\353 \211T\262\266\203\262\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203R\211\317\320_\\\321\245Z\262\211\312W\2033\322!S\262\211\320\246\312U\205I\211\323\246\312U?\206I\211\324\246\312U\262\203R\211T\262\266\203\262&\266\203!\211\211@\262\n\3108\262 \311 \330W?\205\323\331\311 ! \"\f\312W\203\201\fT\315\f\"_ \332\333#Z$!\334!\"\"T!\"\245!\312W\203\255 \330V\203\255\fS\f\330W\203\266\fS* \335V\205\323\336\337\340#$\fE!!\211!\205\323
%DC,\207" [displayed-month displayed-year bahai-date m y date calendar-bahai-from-absolute 15 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 19 -1 16 mod 12 calendar-date-is-visible-p calendar-gregorian-from-absolute calendar-bahai-to-absolute macro-y nmonths month day string] 20 (#$ . 7314)])
(autoload 'holiday-fixed "holidays")
#@79 Holiday entry for the Bahá’í New Year, if visible in the calendar window.
(defalias 'holiday-bahai-new-year #[nil "\301\302\303\304\305\306Z\"#\207" [displayed-year holiday-fixed 3 21 format "Bahá’í New Year (Naw-Ruz) %d" 1843] 7 (#$ . 9077)])
#@176 Holidays related to Ridvan, as visible in the calendar window.
Only considers the first, ninth, and twelfth days, unless ALL or
`calendar-bahai-all-holidays-flag' is non-nil.
(defalias 'holiday-bahai-ridvan #[(&optional all) "\306\307\310\211\f\204
\203 \311\312\313\"\n\310 \211 \203Z @\314\315W\2030 \316\2021 \317\211\315W\203= \320\202> \321\\\322\323 H\"#\211\203Q @ BA\211\204 \310 \237.\207" [h rid show ord all calendar-bahai-all-holidays-flag ["First" "Second" "Third" "Fourth" "Fifth" "Sixth" "Seventh" "Eighth" "Ninth" "Tenth" "Eleventh" "Twelfth"] (0 8 11) nil number-sequence 0 11 holiday-fixed 10 4 5 21 -9 format "%s Day of Ridvan" i --dolist-tail--] 8 (#$ . 9337)])
(autoload 'diary-list-entries-1 "diary-lib")
#@635 Add any Bahá’í date entries from the diary file to `diary-entries-list'.
Bahá’í date diary entries must be prefaced by `diary-bahai-entry-symbol'
(normally a `B'). The same diary date forms govern the style of the
Bahá’í calendar entries, except that the Bahá’í month names cannot be
abbreviated. The Bahá’í months are numbered from 1 to 19 with Bahá being
1 and 19 being `Alá. If a Bahá’í date diary entry begins with
`diary-nonmarking-symbol', the entry will appear in the diary listing, but
will not be marked in the calendar. This function is provided for use with
`diary-nongregorian-listing-hook'.
(defalias 'diary-bahai-list-entries #[nil "\302 \303#\207" [calendar-bahai-month-name-array diary-bahai-entry-symbol diary-list-entries-1 calendar-bahai-from-absolute] 4 (#$ . 10102)])
(autoload 'calendar-mark-1 "diary-lib")
#@199 Mark dates in calendar window that conform to Bahá’í date MONTH/DAY/YEAR.
A value of 0 in any position is a wildcard. Optional argument COLOR is
passed to `calendar-mark-visible-date' as MARK.
(defalias 'calendar-bahai-mark-date-pattern #[(month day year &optional color) "\304 \n\305\306 &\207" [month day year color calendar-mark-1 calendar-bahai-from-absolute calendar-bahai-to-absolute] 7 (#$ . 10969)])
(autoload 'diary-mark-entries-1 "diary-lib")
#@214 Mark days in the calendar window that have Bahá’í date diary entries.
Marks each entry in `diary-file' (or included files) visible in the calendar
window. See `diary-bahai-list-entries' for more information.
(defalias 'diary-bahai-mark-entries #[nil "\302\303 \304$\207" [calendar-bahai-month-name-array diary-bahai-entry-symbol diary-mark-entries-1 calendar-bahai-mark-date-pattern calendar-bahai-from-absolute] 5 (#$ . 11436)])
(autoload 'diary-insert-entry-1 "diary-lib")
#@141 Insert a diary entry.
For the Bahá’í date corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.
(defalias 'diary-bahai-insert-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-bahai-month-name-array diary-bahai-entry-symbol diary-insert-entry-1 nil calendar-bahai-from-absolute] 6 (#$ . 11924) "P"])
#@161 Insert a monthly diary entry.
For the day of the Bahá’í month corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.
(defalias 'diary-bahai-insert-monthly-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-bahai-month-name-array diary-bahai-entry-symbol diary-insert-entry-1 monthly calendar-bahai-from-absolute] 6 (#$ . 12277) "P"])
#@164 Insert an annual diary entry.
For the day of the Bahá’í year corresponding to the date indicated by point.
Prefix argument ARG will make the entry nonmarking.
(defalias 'diary-bahai-insert-yearly-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-bahai-month-name-array diary-bahai-entry-symbol diary-insert-entry-1 yearly calendar-bahai-from-absolute] 6 (#$ . 12662) "P"])
#@53 Bahá’í calendar equivalent of date diary entry.
(defalias 'diary-bahai-date #[nil "\301\302\303!\"\207" [date format "Bahá’í date: %s" calendar-bahai-date-string] 4 (#$ . 13047)])
(provide 'cal-bahai)
Mini Shell