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



(require 'calendar)
#@514 The number of days elapsed between the Gregorian date 12/31/1 BC and DATE.
The "ISO year" corresponds approximately to the Gregorian year, but
weeks start on Monday and end on Sunday.  The first week of the ISO year is
the first such week in which at least 4 days are in a year.  The ISO
commercial DATE has the form (week day year) in which week is in the range
1..52 and day is in the range 0..6 (1 = Monday, 2 = Tuesday, ..., 0 =
Sunday).  The Gregorian date Sunday, December 31, 1 BC is imaginary.

(fn DATE)
(defalias 'calendar-iso-to-absolute #[257 "\211\211A@\262
\300\301\302\301\211\303
8\262
E\211\303
8\262
\304
\305U\203(\306\307!\266\203\202f

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

\211A@\262
\303
8\262

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

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

\211A@\262
\303
8\262

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

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

\211A@\262
\303
8\262

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

\211\305W\203A
\315
!S\262
\211\313\246\305U\205W
\211\316\246\305U?\206W
\211\317\246\305U\262
\203`
\211T\262
\266\204&\266\203\\\"\323\211@\262
S_\\
\305U\203{
\324\202}

S\\\207" [calendar-dayname-on-or-before 1 3 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 6] 23 (#$ . 105)])
#@560 Compute the "ISO commercial date" corresponding to the absolute DATE.
The ISO year corresponds approximately to the Gregorian year, but weeks
start on Monday and end on Sunday.  The first week of the ISO year is the
first such week in which at least 4 days are in a year.  The ISO commercial
date has the form (week day year) in which week is in the range 1..52 and
day is in the range 0..6 (1 = Monday, 2 = Tuesday, ..., 0 = Sunday).  The
absolute date is the number of days elapsed since the (imaginary) Gregorian
date Sunday, December 31, 1 BC.

(fn DATE)
(defalias 'calendar-iso-from-absolute #[257 "\300
\301Z!\302
8\262
\211
\303\304\305\211TE!Y\203$\211T\262

T\262\202
\262
\\\304\305\211E!Z\306\245T\306\246E\207" [calendar-gregorian-from-absolute 3 2 0 calendar-iso-to-absolute 1 7] 10 (#$ . 1772)])
#@75 String of ISO date of Gregorian DATE, default today.

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

\303V\203\221
S\262
\306\211\211@\262

\211A@\262
\301
8\262

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

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

\211A@\262
\301
8\262

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

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

\211A@\262
\301
8\262

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

\211\303W\2034
\313
!S\262
\211\311\246\303U\205J
\211\314\246\303U?\206J
\211\315\246\303U\262
\203S
\211T\262
\266\204&\266\203\211\321\246\322!\323\324\303U\203k
\321\202l
\211@\262
\301
8\262
$\207" [calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 7 calendar-iso-from-absolute format "Day %s of week %d of %d"] 19 (#$ . 2597)])
#@57 Show equivalent ISO date for the date under the cursor.
(defalias 'calendar-iso-print-date #[0 "\300\301\302\303\304!!\"\207" [message "ISO date: %s" calendar-iso-date-string calendar-cursor-to-date t] 5 (#$ . 3849) nil])
#@165 Interactively read the arguments for an ISO date command.
Reads a year and week, and if DAYFLAG is non-nil a day (otherwise
taken to be 1).

(fn &optional DAYFLAG)
(defalias 'calendar-iso-read-date #[256 "\300\301\302\303 \304
8\262
#\305\306\307\211\310TE\211\304
8\262
\311
\312U\203(\313\314!\266\203\202f

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

\211A@\262
\304
8\262

\316S_\\\304V\203\211\211\317\310_\\\320\245Z\262

\211\312W\203j\321
!S\262
\211\310\246\312U\205\200\211\322\246\312U?\206\200\211\323\246\312U\262
\203\211\211T\262
\266\204\324_\310\245\322\245[\323\245%\266\203\202f
\321T!\262
\325\211\211@\262

\211A@\262
\304
8\262

\316S_\\\304V\203\373\211\317\310_\\\320\245Z\262

\211\312W\203\334\321
!S\262
\211\310\246\312U\205\362\211\322\246\312U?\206\362\211\323\246\312U\262
\203\373\211T\262
\266\204\324_\310\245\322\245[\323\245\326\211\211@\262

\211A@\262
\304
8\262

\316S_\\\304V\203`
\211\317\310_\\\320\245Z\262

\211\312W\203A
\321
!S\262
\211\310\246\312U\205W
\211\322\246\312U?\206W
\211\323\246\312U\262
\203`
\211T\262
\266\204&\266\203\"S!\211@\262
\300\327\330\331\"\311$\203\201
\300\332\333\"\202\202
\307

EC\207" [calendar-read-sexp "ISO calendar year (>0)" #[257 "\211\300V\207" [0] 3 "\n\n(fn X)"] calendar-current-date 2 calendar-iso-from-absolute calendar-dayname-on-or-before 1 4 nil 0 user-error "There was no year zero" + 31 23 10 abs 100 400 365 - (12 31 -1) "ISO calendar week (1-%d)" make-closure #[257 "\211\301V\205	\211\300X\207" [V0 0] 3 "\n\n(fn X)"] "ISO day (1-7)" #[257 "\300
X\205	\211\301X\207" [1 7] 3 "\n\n(fn X)"]] 23 (#$ . 4078)])
#@94 Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil.

(fn DATE &optional NOECHO)
(defalias 'calendar-iso-goto-date #[513 "\300\301\302!!!\210\211\206\303 \207" [calendar-goto-date calendar-gregorian-from-absolute calendar-iso-to-absolute calendar-iso-print-date] 6 (#$ . 5730) (calendar-iso-read-date t)])
#@154 Move cursor to ISO DATE; echo ISO date unless NOECHO is non-nil.
Interactively, goes to the first day of the specified week.

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