;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(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" "Mas͟híyyat" "‘Ilm" "Qudrat" "Qawl" "Masá’il" "S͟haraf" "Sulṭán" "Mulk" "‘Alá’"] (#$ . 104))
#@68 Absolute date of start of Bahá’í calendar = March 21, 1844 AD.
(defconst calendar-bahai-epoch (byte-code "\300\211\301
8\262
\302
\303U\203\304\305!\207
\303V\203\204
S\262
\306\211\211@\262

\211A@\262
\301
8\262

\307S_\\\301V\203s\211\310\311_\\\312\245Z\262

\211\303W\203T\313
!S\262
\211\311\246\303U\205j\211\314\246\303U?\206j\211\315\246\303U\262
\203s\211T\262
\266\204\316_\311\245\314\245[\315\245%\207\313T!\262
\317\211\211@\262

\211A@\262
\301
8\262

\307S_\\\301V\203\341\211\310\311_\\\312\245Z\262

\211\303W\203\302\313
!S\262
\211\311\246\303U\205\330\211\314\246\303U?\206\330\211\315\246\303U\262
\203\341\211T\262
\266\204\316_\311\245\314\245[\315\245\320\211\211@\262

\211A@\262
\301
8\262

\307S_\\\301V\203F
\211\310\311_\\\312\245Z\262

\211\303W\203'
\313
!S\262
\211\311\246\303U\205=
\211\314\246\303U?\206=
\211\315\246\303U\262
\203F
\211T\262
\266\204&\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) (#$ . 415))
#@79 True if Bahá’í YEAR is a leap year in the Bahá’í calendar.

(fn YEAR)
(defalias 'calendar-bahai-leap-year-p #[257 "\211\300\\\211\301W\203\302
!S\262
\211\303\246\301U\205%\211\304\246\301U?\206%\211\305\246\301U\207" [1844 0 abs 4 100 400] 4 (#$ . 1475)])
#@94 Number of leap years between 1 and 1844 AD, inclusive.
Used by `calendar-bahai-to-absolute'.
(defconst calendar-bahai-leap-base 447 (#$ . 1750))
#@173 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.

(fn DATE)
(defalias 'calendar-bahai-to-absolute #[257 "\211\211@\262

\211A@\262
\302
8\262
\211S\303\\\211\304\245
\305\245[\\
\306\245\\Z\307	S\310S_\311\312
W\203@\211\313\\\262

T\262\202-\262
	\313U\203X\314!\203T\315\202Y\304\202Y\312	&\207" [calendar-bahai-leap-base calendar-bahai-epoch 2 1844 4 100 400 + 365 1 0 19 calendar-bahai-leap-year-p 5] 14 (#$ . 1902)])
#@81 Bahá’í date (month day year) corresponding to the absolute DATE.

(fn DATE)
(defalias 'calendar-bahai-from-absolute #[257 "\211W\203\301\211\211E\207\302
!\211\211@\262

\303
8\262
\304Z
\305V\2042
\305U\2036\211A@\262
\306Y\2036\307\2027\301\\\307\301\310\311E!V\203Q\211T\262

T\262\202:\262
T\310\307E!SZ

E\207" [calendar-bahai-epoch 0 calendar-gregorian-from-absolute 2 1844 3 21 1 calendar-bahai-to-absolute 19] 11 (#$ . 2460)])
#@114 String of Bahá’í date of Gregorian DATE.
Defaults to today's date if DATE is not given.

(fn &optional DATE)
(defalias 'calendar-bahai-date-string #[256 "\306
\206\307 \211\310
8\262
\311
\312U\203\313\314!\266\203\202Z

\312V\203\222
S\262
\315\211\211@\262

\211A@\262
\310
8\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
\310
8\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
\310
8\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\310
8\262
\211\330W\203i
\331\207
\211@\262
\211A@\262

\332U\203\204
\211\312X\203\204
\333\202\210
SH\334\312X\203\240
\335!\203\233
\336\202\234
\320\\\202\241
!\334!\334!\311\337\340!\331#-\207" [calendar-bahai-month-name-array dayname month year day monthname 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 calendar-date-display-form] 20 (#$ . 2925)])
#@63 Show the Bahá’í calendar equivalent of the selected date.
(defalias 'calendar-bahai-print-date #[0 "\300\301\302!!\211\303\230\203\304\305!\207\304\306\"\207" [calendar-bahai-date-string calendar-cursor-to-date t "" message "Date is pre-Bahá’í" "Bahá’í date: %s"] 4 (#$ . 4504) nil])
#@94 Interactively read the arguments for a Bahá’í date command.
Reads a year, month and day.
(defalias 'calendar-bahai-read-date #[0 "\302 \303\304\305\306\211\307
8\262
\310
\311U\203\312\313!\266\203\202Z

\311V\203\222
S\262
\314\211\211@\262

\211A@\262
\307
8\262

\315S_\\\307V\203}\211\316\317_\\\320\245Z\262

\211\311W\203^\321
!S\262
\211\317\246\311U\205t\211\322\246\311U?\206t\211\323\246\311U\262
\203}\211T\262
\266\204\324_\317\245\322\245[\323\245%\266\203\202Z
\321T!\262
\325\211\211@\262

\211A@\262
\307
8\262

\315S_\\\307V\203\357\211\316\317_\\\320\245Z\262

\211\311W\203\320\321
!S\262
\211\317\246\311U\205\346\211\322\246\311U?\206\346\211\323\246\311U\262
\203\357\211T\262
\266\204\324_\317\245\322\245[\323\245\326\211\211@\262

\211A@\262
\307
8\262

\315S_\\\307V\203T
\211\316\317_\\\320\245Z\262

\211\311W\2035
\321
!S\262
\211\317\246\311U\205K
\211\322\246\311U?\206K
\211\323\246\311U\262
\203T
\211T\262
\266\204&\266\203!\307
8\262
#\327\330\331\332\333\334\335	\310\"\"\310\327$\336	\337\"\"A\303\340\341\"

E)C\207" [completion-ignore-case calendar-bahai-month-name-array calendar-current-date calendar-read-sexp "Bahá’í calendar year (not 0)" #[257 "\211\300U?\207" [0] 3 "\n\n(fn X)"] 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)" #[257 "\300
W\205	\211\301X\207" [0 19] 3 "\n\n(fn X)"]] 23 (#$ . 4809)])
#@113 Move cursor to Bahá’í date DATE; echo Bahá’í date unless NOECHO is non-nil.

(fn DATE &optional NOECHO)
(defalias 'calendar-bahai-goto-date #[513 "\300\301\302!!!\210\211\206\303 \207" [calendar-goto-date calendar-gregorian-from-absolute calendar-bahai-to-absolute calendar-bahai-print-date] 6 (#$ . 6416) (calendar-bahai-read-date)])
#@263 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.

(fn MONTH DAY STRING)
(defalias 'holiday-bahai #[771 "\302\303	E\211\304
8\262
\305
\306U\203\307\310!\266\203\202X

\306V\203\220
S\262
\311\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203{\211\313\314_\\\315\245Z\262

\211\306W\203\\\316
!S\262
\211\314\246\306U\205r\211\317\246\306U?\206r\211\320\246\306U\262
\203{\211T\262
\266\204\321_\314\245\317\245[\320\245%\266\203\202X
\316T!\262
\322\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203\355\211\313\314_\\\315\245Z\262

\211\306W\203\316\316
!S\262
\211\314\246\306U\205\344\211\317\246\306U?\206\344\211\320\246\306U\262
\203\355\211T\262
\266\204\321_\314\245\317\245[\320\245\323\211\211@\262

\211A@\262
\304
8\262

\312S_\\\304V\203R
\211\313\314_\\\315\245Z\262

\211\306W\2033
\316
!S\262
\211\314\246\306U\205I
\211\317\246\306U?\206I
\211\320\246\306U\262
\203R
\211T\262
\266\204&\266\203!\211\211@\262

\304
8\262
\305\324W?\205\310
\305\306W\203w
T\262\311\325_\326\327\fZ$\262
\330
\325\"T\262\211\325\245\262\211\306W\203\240
\324V\203\240
S\262\324W\203\252
S\262\210\331V\205\310
\332\333\334		E!!\211\262!\205\310
\211DC\207" [displayed-month displayed-year 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] 22 (#$ . 6769)])
(autoload 'holiday-fixed "holidays")
#@79 Holiday entry for the Bahá’í New Year, if visible in the calendar window.
(defalias 'holiday-bahai-new-year #[0 "\301\302\303\304\305\306Z\"#\207" [displayed-year holiday-fixed 3 21 format "Bahá’í New Year (Naw-Ruz) %d" 1843] 7 (#$ . 8504)])
#@196 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.

(fn &optional ALL)
(defalias 'holiday-bahai-ridvan #[256 "\301\302\303\211\204\f\203\304\305\306\"\262\211\203N\211@\307
\310W\203$\311\202%\312\211\310W\2030\313\2021\314\\\315\316\nH\"#\211\262\203G@B\262
A\266\202\202\237\207" [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"] 14 (#$ . 8762)])
(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 #[0 "\302	\303#\207" [calendar-bahai-month-name-array diary-bahai-entry-symbol diary-list-entries-1 calendar-bahai-from-absolute] 4 (#$ . 9491)])
(autoload 'calendar-mark-1 "diary-lib")
#@236 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.

(fn MONTH DAY YEAR &optional COLOR)
(defalias 'calendar-bahai-mark-date-pattern #[1027 "\300\301\302&\207" [calendar-mark-1 calendar-bahai-from-absolute calendar-bahai-to-absolute] 11 (#$ . 10355)])
(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 #[0 "\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 (#$ . 10811)])
(autoload 'diary-insert-entry-1 "diary-lib")
#@151 Insert a diary entry.
For the Bahá’í date corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.

(fn ARG)
(defalias 'diary-bahai-insert-entry #[257 "\302\303	\304%\207" [calendar-bahai-month-name-array diary-bahai-entry-symbol diary-insert-entry-1 nil calendar-bahai-from-absolute] 7 (#$ . 11297) "P"])
#@171 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.

(fn ARG)
(defalias 'diary-bahai-insert-monthly-entry #[257 "\302\303	\304%\207" [calendar-bahai-month-name-array diary-bahai-entry-symbol diary-insert-entry-1 monthly calendar-bahai-from-absolute] 7 (#$ . 11653) "P"])
#@174 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.

(fn ARG)
(defalias 'diary-bahai-insert-yearly-entry #[257 "\302\303	\304%\207" [calendar-bahai-month-name-array diary-bahai-entry-symbol diary-insert-entry-1 yearly calendar-bahai-from-absolute] 7 (#$ . 12041) "P"])
#@53 Bahá’í calendar equivalent of date diary entry.
(defalias 'diary-bahai-date #[0 "\301\302\303!\"\207" [date format "Bahá’í date: %s" calendar-bahai-date-string] 4 (#$ . 12429)])
(provide 'cal-bahai)