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



(require 'calendar)
#@146 The number of days elapsed between the Gregorian date 12/31/1 BC and DATE.
The Gregorian date Sunday, December 31, 1 BC is imaginary.

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

\300
8\262
\301\211\211@\262

\211A@\262
\300
8\262

\302S_\\\300V\203b\211\303\304_\\\305\245Z\262

\211\306W\203C\307
!S\262
\211\304\246\306U\205Y\211\310\246\306U?\206Y\211\311\246\306U\262
\203b\211T\262
\266\204\310\246\306U\203~\311\246\306U\204~\300V\203~\312\202\306\313S_S\304\245\314%\207" [2 + 31 23 4 10 0 abs 100 400 1 365 -2] 13 (#$ . 105)])
#@196 Compute the Julian (month day year) corresponding to the 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-julian-from-absolute #[257 "\211\300\\\301\245\211
\302\303\304\211TE!Y\203\211T\262

T\262\202\262
\\\304\302\303\211\300U\2039\305\246\302U\2039\306\202=\307SHE!V\203P\211T\262

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

E\207" [2 366 0 calendar-julian-to-absolute 1 4 29 [31 28 31 30 31 30 31 31 30 31 30 31]] 10 (#$ . 696)])
#@163 String of Julian date of Gregorian DATE.
Defaults to today's date if DATE is not given.
Driven by the variable `calendar-date-display-form'.

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

\305V\203\223
S\262
\310\211\211@\262

\211A@\262
\303
8\262

\311S_\\\303V\203~\211\312\313_\\\314\245Z\262

\211\305W\203_\315
!S\262
\211\313\246\305U\205u\211\316\246\305U?\206u\211\317\246\305U\262
\203~\211T\262
\266\204\320_\313\245\316\245[\317\245%\266\203\202[
\315T!\262
\321\211\211@\262

\211A@\262
\303
8\262

\311S_\\\303V\203\360\211\312\313_\\\314\245Z\262

\211\305W\203\321\315
!S\262
\211\313\246\305U\205\347\211\316\246\305U?\206\347\211\317\246\305U\262
\203\360\211T\262
\266\204\320_\313\245\316\245[\317\245\322\211\211@\262

\211A@\262
\303
8\262

\311S_\\\303V\203U
\211\312\313_\\\314\245Z\262

\211\305W\2036
\315
!S\262
\211\313\246\305U\205L
\211\316\246\305U?\206L
\211\317\246\305U\262
\203U
\211T\262
\266\204&\266\203!\304\323#\207" [calendar-date-string calendar-julian-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] 21 (#$ . 1257)])
#@67 Show the Julian calendar equivalent of the date under the cursor.
(defalias 'calendar-julian-print-date #[0 "\300\301\302\303\304!!\"\207" [message "Julian date: %s" calendar-julian-date-string calendar-cursor-to-date t] 5 (#$ . 2533) nil])
#@100 Move cursor to Julian DATE; echo Julian date unless NOECHO is non-nil.

(fn DATE &optional NOECHO)
(defalias 'calendar-julian-goto-date #[513 "\300\301\302!!!\210\211\206\303 \207" [calendar-goto-date calendar-gregorian-from-absolute calendar-julian-to-absolute calendar-julian-print-date] 6 (#$ . 2781) (byte-code "\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\317\246\311U\203\213
\211\307U\203\213
\340\202\217
\341
SH\303\342\343\344$\310\337U\203\254
\337U\203\254
\345\202\255
\337%
E)C\207" [calendar-month-name-array completion-ignore-case calendar-current-date calendar-read-sexp "Julian calendar year (>0)" #[257 "\211\300V\207" [0] 3 "\n\n(fn X)"] calendar-julian-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 "Julian calendar month name: " mapcar list append calendar-make-alist 1 29 [31 28 31 30 31 30 31 31 30 31 30 31] "Julian calendar day (%d-%d)" make-closure #[257 "\300\303U\203\301\303U\203\304\202\305
W\205\211\302X\207" [V0 V1 V2 1 2 0] 3 "\n\n(fn X)"] 3] 23)])
#@275 Holiday on MONTH, DAY (Julian) called STRING.
If MONTH, DAY (Julian) is visible, the value returned is corresponding
Gregorian date in the form of the list (((month day year) STRING)).  Returns
nil if it is not visible in the current calendar window.

(fn MONTH DAY STRING)
(defalias 'holiday-julian #[771 "\300\301\302\303%\211\205\211DC\207" [calendar-nongregorian-visible-p calendar-julian-to-absolute calendar-julian-from-absolute #[257 "\211\300W\207" [10] 3 "\n\n(fn M)"]] 9 (#$ . 4785)])
#@62 Absolute date of astronomical (Julian) day number D.

(fn D)
(defalias 'calendar-astro-to-absolute #[257 "\211\300Z\207" [1721424.5] 3 (#$ . 5291)])
#@62 Astronomical (Julian) day number of absolute date D.

(fn D)
(defalias 'calendar-astro-from-absolute #[257 "\211\300\\\207" [1721424.5] 3 (#$ . 5446)])
#@146 String of astronomical (Julian) day number after noon UTC of Gregorian DATE.
Defaults to today's date if DATE is not given.

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

\306V\203\224
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\205v\211\317\246\306U?\206v\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\361\211\313\314_\\\315\245Z\262

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

\211A@\262
\304
8\262

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

\211\306W\2037
\316
!S\262
\211\314\246\306U\205M
\211\317\246\306U?\206M
\211\320\246\306U\262
\203V
\211T\262
\266\204&\266\203!!!\207" [number-to-string ceiling calendar-astro-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)] 22 (#$ . 5605)])
#@70 Show astronomical (Julian) day number after noon UTC on cursor date.
(defalias 'calendar-astro-print-day-number #[0 "\300\301\302\303\304!!\"\207" [message "Astronomical (Julian) day number (at noon UTC): %s.0" calendar-astro-date-string calendar-cursor-to-date t] 5 (#$ . 6863) nil])
#@146 Move cursor to astronomical (Julian) DAYNUMBER.
Echo astronomical (Julian) day number unless NOECHO is non-nil.

(fn DAYNUMBER &optional NOECHO)
(defalias 'calendar-astro-goto-day-number #[513 "\300\301\302\303!!!!\210\211\206\304 \207" [calendar-goto-date calendar-gregorian-from-absolute floor calendar-astro-to-absolute calendar-astro-print-day-number] 7 (#$ . 7155) (byte-code "\300\301\302\"C\207" [calendar-read-sexp "Astronomical (Julian) day number (>1721425)" #[257 "\211\300V\207" [1721425] 3 "\n\n(fn X)"]] 3)])
#@49 Julian calendar equivalent of date diary entry.
(defalias 'diary-julian-date #[0 "\301\302\303!\"\207" [date format "Julian date: %s" calendar-julian-date-string] 4 (#$ . 7687)])
#@47 Astronomical (Julian) day number diary entry.
(defalias 'diary-astro-day-number #[0 "\301\302\303!\"\207" [date format "Astronomical (Julian) day number at noon UTC: %s.0" calendar-astro-date-string] 4 (#$ . 7873)])
(provide 'cal-julian)