%include;css %include;hed %include;home %message_to_wizard;
%define;fun_day(ccc, nnn)
%end; %define;fun_month(ccc, nnn, vvv, lll)
%end; %define;fun_year(ccc, nnn)
%end; %define;fun_julian_year(ccc, nnn) %let;year; %if;(date.julian.month < 3 or date.julian.month = 3 and date.julian.day < 25) %expr(date.nnn.year - 1)/%expr(date.nnn.year % 10) %else;%date.nnn.year;%end; %in;
%end; %define;calendar(ccc, nnn, vvv, lll, fun_yyy) %if;([!dates order] = "ddmmyy" or [!dates order]0 = "ddmmyyyy" or [!dates order]0 = "dmyyyy") %apply;fun_day("ccc", "nnn") %apply;fun_month("ccc", "nnn", "vvv", "lll") %apply;fun_yyy("ccc", "nnn") %elseif;([!dates order] = "mmddyyyy") %apply;fun_month("ccc", "nnn", "vvv", "lll") %apply;fun_day("ccc", "nnn") %apply;fun_yyy("ccc", "nnn") %else; %apply;fun_yyy("ccc", "nnn") %apply;fun_month("ccc", "nnn", "vvv", "lll") %apply;fun_day("ccc", "nnn") %end;
%end;

# [*calendar/calendars]1

### %apply;capitalize%with;%apply;nth([(week day)], date.week_day)%end; %if;(date.julian_day = today.julian_day) - %time;%end;

%hidden;

%if;([!dates order] = "ddmmyy" or [!dates order]0 = "ddmmyyyy" or [!dates order]0 = "dmyyyy") | [*year/month/day]2 | [*year/month/day]1 | [*year/month/day]0 %elseif;([!dates order] = "mmddyyyy") | [*year/month/day]1 | [*year/month/day]2 | [*year/month/day]0 %else; | [*year/month/day]0 | [*year/month/day]1 | [*year/month/day]2 %end; |
--- | --- | --- | --- | --- | --- | --- | --- | --- | --- | ---
[*gregorian/julian/french/hebrew]0 %apply;calendar("g", "gregorian", 12, [(month)], "fun_year")
[*gregorian/julian/french/hebrew]1 %apply;calendar("j", "julian", 12, [(month)], "fun_julian_year")
[*gregorian/julian/french/hebrew]2 %apply;calendar("f", "french", 13, [(french revolution month)], "fun_year")
[*gregorian/julian/french/hebrew]3 %apply;calendar("h", "hebrew", 13, [(hebrew month)], "fun_year")

%if;(date.moon_phase.index != 0) %apply;capitalize%with; %apply;nth([moon age/new moon/first quarter/full moon/last quarter], date.moon_phase.index) -%sp; `%date.moon_phase.hour;[:]%date.moon_phase.minute;` UT %end; %end;
%nn;[*moon age/new moon/first quarter/full moon/last quarter]0[:]%sp; %date.moon_age;
[*julian day][:]%sp; %if;(date.julian_day < 1000)%date.julian_day; %else;%date.julian_day.sep1000;%end;
%base_trailer; %include;copyr
%include;js