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



(require 'calendar)
#@58 Array of strings giving the names of the Islamic months.
(defconst calendar-islamic-month-name-array ["Muharram" "Safar" "Rabi I" "Rabi II" "Jumada I" "Jumada II" "Rajab" "Sha'ban" "Ramadan" "Shawwal" "Dhu al-Qada" "Dhu al-Hijjah"] (#$ . 104))
(autoload 'calendar-julian-to-absolute "cal-julian")
#@72 Absolute date of start of Islamic calendar = July 16, 622 AD (Julian).
(defconst calendar-islamic-epoch 227015 (#$ . 407))
#@69 Return t if YEAR is a leap year on the Islamic calendar.

(fn YEAR)
(defalias 'calendar-islamic-leap-year-p #[257 "\211\300\246\301\302\303\304\305\306\307\310\311\312\313\257>\205\314\207" [30 2 5 7 10 13 16 18 21 24 26 29 t] 13 (#$ . 536)])
#@77 The last day in MONTH during YEAR on the Islamic calendar.

(fn MONTH YEAR)
(defalias 'calendar-islamic-last-day-of-month #[514 "
\300\301\302\303\304\305\257>\203\306\207
\307\310\311\312\313\257>\203\314\207\315
!\203%\306\207\314\207" [1 3 5 7 9 11 30 2 4 6 8 10 29 calendar-islamic-leap-year-p] 9 (#$ . 788)])
#@76 Return the day number within the year of the Islamic date DATE.

(fn DATE)
(defalias 'calendar-islamic-day-number #[257 "\211\211@\262
\300
\301\245_\302S\301\245_\\\211A@\262
\\\207" [30 2 29] 6 (#$ . 1115)])
#@155 Absolute date of Islamic DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.

(fn DATE)
(defalias 'calendar-islamic-to-absolute #[257 "\211\301
8\262
\211\302\246\211\303W\203\304\202n\211\305W\203\306\202n\211\307W\203'\301\202n\211\310W\2031\303\202n\211\311W\203;\312\202n\211\313W\203E\314\202n\211\315W\203O\305\202n\211\316W\203Y\317\202n\211\320W\203c\307\202n\211\321W\203m\322\202n\323\324\325!S\326_\310\302\245_S%\207" [calendar-islamic-epoch 2 30 3 0 6 1 8 11 14 4 17 5 19 22 7 25 27 9 10 + calendar-islamic-day-number 354] 10 (#$ . 1334)])
#@198 Compute the Islamic date (month day year) corresponding to absolute DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.

(fn DATE)
(defalias 'calendar-islamic-from-absolute #[257 "\211W\203\301\211\211E\207\211Z\302\245\211
\301\303\304\211TE!Y\203*\211T\262

T\262\202\262
\\\304\301\303\305\"E!V\203J\211T\262

T\262\202/\262
T\303\304E!SZ

E\207" [calendar-islamic-epoch 0 355 calendar-islamic-to-absolute 1 calendar-islamic-last-day-of-month] 11 (#$ . 1988)])
#@227 String of Islamic date before sunset of Gregorian DATE.
Returns the empty string if DATE is pre-Islamic.
Defaults to today's date if DATE is not given.
Driven by the variable `calendar-date-display-form'.

(fn &optional DATE)
(defalias 'calendar-islamic-date-string #[256 "\302\206\303 \211\304
8\262
\305
\306U\203\307\310!\266\203\202[

\306V\203\223
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\205u\211\317\246\306U?\206u\211\320\246\306U\262
\203~\211T\262
\266\204\321_\314\245\317\245[\320\245%\266\203\202[
\316T!\262
\322\211\211@\262

\211A@\262
\304
8\262

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

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

\211A@\262
\304
8\262

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

\211\306W\2036
\316
!S\262
\211\314\246\306U\205L
\211\317\246\306U?\206L
\211\320\246\306U\262
\203U
\211T\262
\266\204&\266\203!
\211\304
8\262
\324W\203m
\325\202r
\326
\305\327#)\207" [calendar-islamic-month-name-array calendar-month-name-array calendar-islamic-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 "" calendar-date-string t] 21 (#$ . 2549)])
#@68 Show the Islamic calendar equivalent of the date under the cursor.
(defalias 'calendar-islamic-print-date #[0 "\300\301\302!!\211\303\230\203\304\305!\207\304\306\"\207" [calendar-islamic-date-string calendar-cursor-to-date t "" message "Date is pre-Islamic" "Islamic date (until sunset): %s"] 4 (#$ . 3997) nil])
#@93 Interactively read the arguments for an Islamic date command.
Reads a year, month, and day.
(defalias 'calendar-islamic-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\"\327#A\340
\"\303\341\342\343\"\310$
E)C\207" [calendar-islamic-month-name-array completion-ignore-case calendar-current-date calendar-read-sexp "Islamic calendar year (>0)" #[257 "\211\300V\207" [0] 3 "\n\n(fn X)"] calendar-islamic-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 "Islamic calendar month name: " mapcar list append calendar-make-alist 1 calendar-islamic-last-day-of-month "Islamic calendar day (1-%d)" make-closure #[257 "\301
W\205	\211\300X\207" [V0 0] 3 "\n\n(fn X)"]] 23 (#$ . 4320)])
#@102 Move cursor to Islamic DATE; echo Islamic date unless NOECHO is non-nil.

(fn DATE &optional NOECHO)
(defalias 'calendar-islamic-goto-date #[513 "\300\301\302!!!\210\211\206\303 \207" [calendar-goto-date calendar-gregorian-from-absolute calendar-islamic-to-absolute calendar-islamic-print-date] 6 (#$ . 5999) (calendar-islamic-read-date)])
#@254 Holiday on MONTH, DAY (Islamic) called STRING.
If MONTH, DAY (Islamic) is visible, returns the corresponding
Gregorian date as the list (((month day year) STRING)).
Returns nil if it is not visible in the current calendar window.

(fn MONTH DAY STRING)
(defalias 'holiday-islamic #[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\315\fZ$\262
\327
\325\"T\262\211\325\245\262\211\306W\203\240
\324V\203\240
S\262\324W\203\252
S\262\210\330V\205\310
\331\332\333		E!!\211\262!\205\310
\211DC\207" [displayed-month displayed-year calendar-islamic-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 12 -1 mod 7 calendar-date-is-visible-p calendar-gregorian-from-absolute calendar-islamic-to-absolute] 22 (#$ . 6349)])
#@76 Holiday entry for the Islamic New Year, if visible in the calendar window.
(defalias 'holiday-islamic-new-year #[0 "\302\303\211\304#@@	\205\353
\305\306\307\310W\203T\262\311\312_\313\303$\262
\314
\312\"T\262\211\312\245\262\211\310W\203B\303V\203BS\262\303W\203LS\262\210\315\211
\316U\203\206\211\211\310W\203e\317
!S\262
\211\320\246\310U\205{\211\321\246\310U?\206{\211\322\246\310U\262
\203\206\266\323\202\214\324SH\266\202E\211\316
8\262
\307
\310U\203\244\325\326!\266\203\202\342

\310V\203

S\262
\311\211\211@\262

\211A@\262
\316
8\262

\327S_\\\316V\203
\211\330\320_\\\331\245Z\262

\211\310W\203\346\317
!S\262
\211\320\246\310U\205\374\211\321\246\310U?\206\374\211\322\246\310U\262
\203
\211T\262
\266\204\332_\320\245\321\245[\322\245%\266\203\202\342
\317T!\262
\333\211\211@\262

\211A@\262
\316
8\262

\327S_\\\316V\203w
\211\330\320_\\\331\245Z\262

\211\310W\203X
\317
!S\262
\211\320\246\310U\205n
\211\321\246\310U?\206n
\211\322\246\310U\262
\203w
\211T\262
\266\204\332_\320\245\321\245[\322\245\334\211\211@\262

\211A@\262
\316
8\262

\327S_\\\316V\203\334
\211\330\320_\\\331\245Z\262

\211\310W\203\275
\317
!S\262
\211\320\246\310U\205\323
\211\321\246\310U?\206\323
\211\322\246\310U\262
\203\334
\211T\262
\266\204&\266\203!\316
8\262
\"DC\207" [displayed-month displayed-year holiday-islamic 1 "" format "Islamic New Year %d" nil 0 + 12 -1 mod calendar-islamic-from-absolute 2 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] user-error "There was no year zero" 31 23 10 365 - (12 31 -1)] 25 (#$ . 8040)])
(autoload 'diary-list-entries-1 "diary-lib")
#@633 Add any Islamic date entries from the diary file to `diary-entries-list'.
Islamic date diary entries must be prefaced by `diary-islamic-entry-symbol'
(normally an `I').  The same `diary-date-forms' govern the style
of the Islamic calendar entries, except that the Islamic month
names cannot be abbreviated.  The Islamic months are numbered
from 1 to 12 with Muharram being 1 and 12 being Dhu al-Hijjah.
If an Islamic 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-islamic-list-entries #[0 "\302	\303#\207" [calendar-islamic-month-name-array diary-islamic-entry-symbol diary-list-entries-1 calendar-islamic-from-absolute] 4 (#$ . 9710)])
(autoload 'calendar-mark-1 "diary-lib")
#@233 Mark dates in calendar window that conform to Islamic 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-islamic-mark-date-pattern #[1027 "\300\301\302&\207" [calendar-mark-1 calendar-islamic-from-absolute calendar-islamic-to-absolute] 11 (#$ . 10580)])
(autoload 'diary-mark-entries-1 "diary-lib")
#@213 Mark days in the calendar window that have Islamic date diary entries.
Marks each entry in `diary-file' (or included files) visible in the calendar
window.  See `diary-islamic-list-entries' for more information.
(defalias 'diary-islamic-mark-entries #[0 "\302\303	\304$\207" [calendar-islamic-month-name-array diary-islamic-entry-symbol diary-mark-entries-1 calendar-islamic-mark-date-pattern calendar-islamic-from-absolute] 5 (#$ . 11039)])
(autoload 'diary-insert-entry-1 "diary-lib")
#@148 Insert a diary entry.
For the Islamic date corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.

(fn ARG)
(defalias 'diary-islamic-insert-entry #[257 "\302\303	\304%\207" [calendar-islamic-month-name-array diary-islamic-entry-symbol diary-insert-entry-1 nil calendar-islamic-from-absolute] 7 (#$ . 11534) "P"])
#@168 Insert a monthly diary entry.
For the day of the Islamic month corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.

(fn ARG)
(defalias 'diary-islamic-insert-monthly-entry #[257 "\302\303	\304%\207" [calendar-islamic-month-name-array diary-islamic-entry-symbol diary-insert-entry-1 monthly calendar-islamic-from-absolute] 7 (#$ . 11895) "P"])
#@167 Insert an annual diary entry.
For the day of the Islamic year corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.

(fn ARG)
(defalias 'diary-islamic-insert-yearly-entry #[257 "\302\303	\304%\207" [calendar-islamic-month-name-array diary-islamic-entry-symbol diary-insert-entry-1 yearly calendar-islamic-from-absolute] 7 (#$ . 12288) "P"])
#@50 Islamic calendar equivalent of date diary entry.
(defalias 'diary-islamic-date #[0 "\301!\211\302\230\203\303\207\304\305\"\207" [date calendar-islamic-date-string "" "Date is pre-Islamic" format "Islamic date (until sunset): %s"] 4 (#$ . 12677)])
(provide 'cal-islam)