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



(require 'calendar)
#@46 Names of the months in the Persian calendar.
(defconst calendar-persian-month-name-array ["Farvardin" "Ordibehest" "Xordad" "Tir" "Mordad" "Sahrivar" "Mehr" "Aban" "Azar" "Dey" "Bahman" "Esfand"] (#$ . 104))
(autoload 'calendar-julian-to-absolute "cal-julian")
#@73 Absolute date of start of Persian calendar = March 19, 622 AD (Julian).
(defconst calendar-persian-epoch 226896 (#$ . 371))
#@65 True if YEAR is a leap year on the Persian calendar.

(fn YEAR)
(defalias 'calendar-persian-leap-year-p #[257 "\300\211\211\301X\203\302\\\202\303\\\304\"\305\"\306_\304\"\306W\207" [mod 0 2346 2347 2820 768 683] 6 (#$ . 501)])
#@74 Return last day of MONTH, YEAR on the Persian calendar.

(fn MONTH YEAR)
(defalias 'calendar-persian-last-day-of-month #[514 "
\300W\203\301\207
\302W\204\303
!\203\304\207\305\207" [7 31 12 calendar-persian-leap-year-p 30 29] 4 (#$ . 742)])
#@170 Compute absolute date from Persian 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-persian-to-absolute #[257 "\211\211@\262

\211A@\262
\301
8\262
\211\302W\203)\303\304\305\"TE!\306\307\305\"_\\\207\310S\311S_\312\307\313\\\305\"_\314\307\304\313\\\305\"\315\"_\307\312\304\211	\313\\\305\"\315\"_\305\"\316\317\302
\fW\203m\211\320\f\"\\\262

T\262\202V\262
	&\207" [calendar-persian-epoch 2 0 calendar-persian-to-absolute mod 2820 1029983 floor + 365 683 2345 186 768 -568 1 calendar-persian-last-day-of-month] 17 (#$ . 997)])
#@61 Persian year corresponding to the absolute DATE.

(fn DATE)
(defalias 'calendar-persian-year-from-absolute #[257 "\211\300\301\211\302E!Z\303
\304\"\305\304\"\303
\306\"\305\306\"\303\307\310\\_\304\"\311\307_\312_\313U\2034S\2025\302$\211\301W\203@\211S\207\207" [calendar-persian-to-absolute 1 -2345 floor 1029983 mod 280506 2820 366 + 768 1029617] 12 (#$ . 1659)])
#@228 Compute the Persian 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.

(fn DATE)
(defalias 'calendar-persian-from-absolute #[257 "\300
!\301\302\303\304\"E!V\203 \211T\262

T\262\202\262
T\303\301E!SZ

E\207" [calendar-persian-year-from-absolute 1 0 calendar-persian-to-absolute calendar-persian-last-day-of-month] 10 (#$ . 2047)])
#@79 String of Persian date of Gregorian DATE, default today.

(fn &optional DATE)
(defalias 'calendar-persian-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@\262

SH\330\211A@\262
!\330!\330!\311\331\332\333#-\207" [calendar-persian-month-name-array dayname month year day monthname calendar-persian-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) number-to-string mapconcat eval "" calendar-date-display-form] 20 (#$ . 2546)])
#@60 Show the Persian calendar equivalent of the selected date.
(defalias 'calendar-persian-print-date #[0 "\300\301\302\303\304!!\"\207" [message "Persian date: %s" calendar-persian-date-string calendar-cursor-to-date t] 5 (#$ . 3917) nil])
#@92 Interactively read the arguments for a Persian date command.
Reads a year, month, and day.
(defalias 'calendar-persian-read-date #[0 "\302\303\304\305\306 \211\307
8\262
\310
\311U\203\312\313!\266\203\202Y

\311V\203\221
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\205s\211\322\246\311U?\206s\211\323\246\311U\262
\203|\211T\262
\266\204\324_\317\245\322\245[\323\245%\266\203\202Y
\321T!\262
\325\211\211@\262

\211A@\262
\307
8\262

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

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

\211A@\262
\307
8\262

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

\211\311W\2034
\321
!S\262
\211\317\246\311U\205J
\211\322\246\311U?\206J
\211\323\246\311U\262
\203S
\211T\262
\266\204&\266\203!\307
8\262
#\327\330\331\332\333\334\335	\310\"\"\310\327$\336	\337\"\"A\340
\"\302\341\342\343\"\310$
E)C\207" [completion-ignore-case calendar-persian-month-name-array calendar-read-sexp "Persian calendar year (not 0)" #[257 "\211\300U?\207" [0] 3 "\n\n(fn X)"] calendar-persian-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) t assoc completing-read "Persian calendar month name: " mapcar list append calendar-make-alist 1 calendar-persian-last-day-of-month "Persian calendar day (1-%d)" make-closure #[257 "\301
W\205	\211\300X\207" [V0 0] 3 "\n\n(fn X)"]] 22 (#$ . 4160)])
#@107 Move cursor to Persian date DATE.
Echo Persian date unless NOECHO is non-nil.

(fn DATE &optional NOECHO)
(defalias 'calendar-persian-goto-date #[513 "\300\301\302!!!\210\211\206\303 \207" [calendar-goto-date calendar-gregorian-from-absolute calendar-persian-to-absolute calendar-persian-print-date] 6 (#$ . 5828) (calendar-persian-read-date)])
#@50 Persian calendar equivalent of date diary entry.
(defalias 'diary-persian-date #[0 "\301\302\303!\"\207" [date format "Persian date: %s" calendar-persian-date-string] 4 (#$ . 6182)])
(provide 'cal-persia)