diff options
author | Karl Berry <karl@freefriends.org> | 2017-10-21 21:41:06 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2017-10-21 21:41:06 +0000 |
commit | 5d45df405c5c7c0d8c715b38aa9892d8135e2d1e (patch) | |
tree | 590f9cb4ccb943618776f4b27ae15f98ba64d8cd /Master/texmf-dist/tex | |
parent | 6bb8f06468e4c4b7717cce9e4227e7465431506d (diff) |
wallcalendar (21oct17)
git-svn-id: svn://tug.org/texlive/trunk@45568 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex')
21 files changed, 3907 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-czech.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-czech.tex new file mode 100644 index 00000000000..91623f4e576 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-czech.tex @@ -0,0 +1,36 @@ +% Czech + +\def\xJanuary{Leden} +\def\xFebruary{Únor} +\def\xMarch{Březen} +\def\xApril{Duben} +\def\xMay{Květen} +\def\xJune{Červen} +\def\xJuly{Červenec} +\def\xAugust{Srpen} +\def\xSeptember{Září} +\def\xOctober{Říjen} +\def\xNovember{Listopad} +\def\xDecember{Prosinec} + +\def\xJanShort{Led} +\def\xFebShort{Úno} +\def\xMarShort{Bře} +\def\xAprShort{Dub} +\def\xMayShort{Kvě} +\def\xJunShort{Čer} +\def\xJulShort{Čer} +\def\xAugShort{Srp} +\def\xSepShort{Zář} +\def\xOctShort{Říj} +\def\xNovShort{Lis} +\def\xDecShort{Pro} + +\def\xMondayDayLetter{Po} +\def\xTuesdayDayLetter{Út} +\def\xWednesdayDayLetter{St} +\def\xThursdayDayLetter{Čt} +\def\xFridayDayLetter{Pá} +\def\xSaturdayDayLetter{So} +\def\xSundayDayLetter{Ne} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-dutch.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-dutch.tex new file mode 100644 index 00000000000..ceb14a52169 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-dutch.tex @@ -0,0 +1,36 @@ +% Dutch + +\def\xJanuary{Januari} +\def\xFebruary{Februari} +\def\xMarch{Maart} +\def\xApril{April} +\def\xMay{Mei} +\def\xJune{Juni} +\def\xJuly{Juli} +\def\xAugust{Augustus} +\def\xSeptember{September} +\def\xOctober{Oktober} +\def\xNovember{November} +\def\xDecember{December} + +\def\xJanShort{Jan} +\def\xFebShort{Feb} +\def\xMarShort{Maa} +\def\xAprShort{Apr} +\def\xMayShort{Mei} +\def\xJunShort{Jun} +\def\xJulShort{Jul} +\def\xAugShort{Aug} +\def\xSepShort{Sep} +\def\xOctShort{Okt} +\def\xNovShort{Nov} +\def\xDecShort{Dec} + +\def\xMondayDayLetter{ma} +\def\xTuesdayDayLetter{di} +\def\xWednesdayDayLetter{wo} +\def\xThursdayDayLetter{do} +\def\xFridayDayLetter{vr} +\def\xSaturdayDayLetter{za} +\def\xSundayDayLetter{zo} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-english.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-english.tex new file mode 100644 index 00000000000..55746a05e85 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-english.tex @@ -0,0 +1,36 @@ +% English + +\def\xJanuary{January} +\def\xFebruary{February} +\def\xMarch{March} +\def\xApril{April} +\def\xMay{May} +\def\xJune{June} +\def\xJuly{July} +\def\xAugust{August} +\def\xSeptember{September} +\def\xOctober{October} +\def\xNovember{November} +\def\xDecember{December} + +\def\xJanShort{Jan} +\def\xFebShort{Feb} +\def\xMarShort{Mar} +\def\xAprShort{Apr} +\def\xMayShort{May} +\def\xJunShort{Jun} +\def\xJulShort{Jul} +\def\xAugShort{Aug} +\def\xSepShort{Sep} +\def\xOctShort{Oct} +\def\xNovShort{Nov} +\def\xDecShort{Dec} + +\def\xMondayDayLetter{M} +\def\xTuesdayDayLetter{T} +\def\xWednesdayDayLetter{W} +\def\xThursdayDayLetter{T} +\def\xFridayDayLetter{F} +\def\xSaturdayDayLetter{S} +\def\xSundayDayLetter{S} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-french.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-french.tex new file mode 100644 index 00000000000..28e48f4540e --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-french.tex @@ -0,0 +1,36 @@ +% French + +\def\xJanuary{Janvier} +\def\xFebruary{Février} +\def\xMarch{Mars} +\def\xApril{Avril} +\def\xMay{Mai} +\def\xJune{Juin} +\def\xJuly{Juillet} +\def\xAugust{Août} +\def\xSeptember{Septembre} +\def\xOctober{Octobre} +\def\xNovember{Novembre} +\def\xDecember{Décembre} + +\def\xJanShort{Jan} +\def\xFebShort{Fév} +\def\xMarShort{Mar} +\def\xAprShort{Avr} +\def\xMayShort{Mai} +\def\xJunShort{Jui} +\def\xJulShort{Jui} +\def\xAugShort{Aoû} +\def\xSepShort{Sep} +\def\xOctShort{Oct} +\def\xNovShort{Nov} +\def\xDecShort{Déc} + +\def\xMondayDayLetter{L} +\def\xTuesdayDayLetter{M} +\def\xWednesdayDayLetter{M} +\def\xThursdayDayLetter{J} +\def\xFridayDayLetter{V} +\def\xSaturdayDayLetter{S} +\def\xSundayDayLetter{D} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-german.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-german.tex new file mode 100644 index 00000000000..fb8a51958fd --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-german.tex @@ -0,0 +1,36 @@ +% German + +\def\xJanuary{Januar} +\def\xFebruary{Februar} +\def\xMarch{März} +\def\xApril{April} +\def\xMay{Mai} +\def\xJune{Juni} +\def\xJuly{Juli} +\def\xAugust{August} +\def\xSeptember{September} +\def\xOctober{Oktober} +\def\xNovember{November} +\def\xDecember{Dezember} + +\def\xJanShort{Jan} +\def\xFebShort{Feb} +\def\xMarShort{Mär} +\def\xAprShort{Apr} +\def\xMayShort{Mai} +\def\xJunShort{Jun} +\def\xJulShort{Jul} +\def\xAugShort{Aug} +\def\xSepShort{Sep} +\def\xOctShort{Okt} +\def\xNovShort{Nov} +\def\xDecShort{Dez} + +\def\xMondayDayLetter{Mo} +\def\xTuesdayDayLetter{Di} +\def\xWednesdayDayLetter{Mi} +\def\xThursdayDayLetter{Do} +\def\xFridayDayLetter{Fr} +\def\xSaturdayDayLetter{Sa} +\def\xSundayDayLetter{So} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-hungarian.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-hungarian.tex new file mode 100644 index 00000000000..b0a8a45a4ae --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-hungarian.tex @@ -0,0 +1,36 @@ +% Hungarian + +\def\xJanuary{Január} +\def\xFebruary{Február} +\def\xMarch{Március} +\def\xApril{Április} +\def\xMay{Május} +\def\xJune{Június} +\def\xJuly{Július} +\def\xAugust{Augusztus} +\def\xSeptember{Szeptember} +\def\xOctober{Október} +\def\xNovember{November} +\def\xDecember{December} + +\def\xJanShort{Jan} +\def\xFebShort{Feb} +\def\xMarShort{Már} +\def\xAprShort{Ápr} +\def\xMayShort{Máj} +\def\xJunShort{Jún} +\def\xJulShort{Júl} +\def\xAugShort{Aug} +\def\xSepShort{Szep} +\def\xOctShort{Okt} +\def\xNovShort{Nov} +\def\xDecShort{Dec} + +\def\xMondayDayLetter{H} +\def\xTuesdayDayLetter{K} +\def\xWednesdayDayLetter{Sz} +\def\xThursdayDayLetter{Cs} +\def\xFridayDayLetter{P} +\def\xSaturdayDayLetter{Sz} +\def\xSundayDayLetter{V} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-italian.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-italian.tex new file mode 100644 index 00000000000..8de9bd9dae2 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-italian.tex @@ -0,0 +1,36 @@ +% Italian + +\def\xJanuary{Gennaio} +\def\xFebruary{Febbraio} +\def\xMarch{Marzo} +\def\xApril{Aprile} +\def\xMay{Maggio} +\def\xJune{Giugno} +\def\xJuly{Luglio} +\def\xAugust{Agosto} +\def\xSeptember{Settembre} +\def\xOctober{Ottobre} +\def\xNovember{Novembre} +\def\xDecember{Dicembre} + +\def\xJanShort{Gen} +\def\xFebShort{Feb} +\def\xMarShort{Mar} +\def\xAprShort{Apr} +\def\xMayShort{Mag} +\def\xJunShort{Giu} +\def\xJulShort{Lug} +\def\xAugShort{Ago} +\def\xSepShort{Set} +\def\xOctShort{Ott} +\def\xNovShort{Nov} +\def\xDecShort{Dic} + +\def\xMondayDayLetter{L} +\def\xTuesdayDayLetter{M} +\def\xWednesdayDayLetter{M} +\def\xThursdayDayLetter{G} +\def\xFridayDayLetter{V} +\def\xSaturdayDayLetter{S} +\def\xSundayDayLetter{D} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-japanese.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-japanese.tex new file mode 100644 index 00000000000..368265614ef --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-japanese.tex @@ -0,0 +1,35 @@ +% Japanese + +\def\xJanuary{一月} +\def\xFebruary{二月} +\def\xMarch{三月} +\def\xApril{四月} +\def\xMay{五月} +\def\xJune{六月} +\def\xJuly{七月} +\def\xAugust{八月} +\def\xSeptember{九月} +\def\xOctober{十月} +\def\xNovember{十一月} +\def\xDecember{十二月} + +\def\xJanShort{1月} +\def\xFebShort{2月} +\def\xMarShort{3月} +\def\xAprShort{4月} +\def\xMayShort{5月} +\def\xJunShort{6月} +\def\xJulShort{7月} +\def\xAugShort{8月} +\def\xSepShort{9月} +\def\xOctShort{10月} +\def\xNovShort{11月} +\def\xDecShort{12月} + +\def\xMondayDayLetter{げ} +\def\xTuesdayDayLetter{か} +\def\xWednesdayDayLetter{す} +\def\xThursdayDayLetter{も} +\def\xFridayDayLetter{き} +\def\xSaturdayDayLetter{ど} +\def\xSundayDayLetter{に} diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-norwegian.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-norwegian.tex new file mode 100644 index 00000000000..c69b18ebee3 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-norwegian.tex @@ -0,0 +1,36 @@ +% Norwegian + +\def\xJanuary{Januar} +\def\xFebruary{Februar} +\def\xMarch{Mars} +\def\xApril{April} +\def\xMay{Mai} +\def\xJune{Juni} +\def\xJuly{Juli} +\def\xAugust{August} +\def\xSeptember{September} +\def\xOctober{Oktober} +\def\xNovember{November} +\def\xDecember{Desember} + +\def\xJanShort{Jan} +\def\xFebShort{Feb} +\def\xMarShort{Mar} +\def\xAprShort{Apr} +\def\xMayShort{Mai} +\def\xJunShort{Jun} +\def\xJulShort{Jul} +\def\xAugShort{Aug} +\def\xSepShort{Sep} +\def\xOctShort{Okt} +\def\xNovShort{Nov} +\def\xDecShort{Des} + +\def\xMondayDayLetter{M} +\def\xTuesdayDayLetter{T} +\def\xWednesdayDayLetter{O} +\def\xThursdayDayLetter{T} +\def\xFridayDayLetter{F} +\def\xSaturdayDayLetter{L} +\def\xSundayDayLetter{S} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-portuguese.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-portuguese.tex new file mode 100644 index 00000000000..d15f82f2def --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-portuguese.tex @@ -0,0 +1,35 @@ +% Portuguese + +\def\xJanuary{Janeiro} +\def\xFebruary{Fevereiro} +\def\xMarch{Março} +\def\xApril{Abril} +\def\xMay{Maio} +\def\xJune{Junho} +\def\xJuly{Julho} +\def\xAugust{Agosto} +\def\xSeptember{Setembro} +\def\xOctober{Outubro} +\def\xNovember{Novembro} +\def\xDecember{Dezembro} + +\def\xJanShort{Jan} +\def\xFebShort{Fev} +\def\xMarShort{Mar} +\def\xAprShort{Abr} +\def\xMayShort{Mai} +\def\xJunShort{Jun} +\def\xJulShort{Jul} +\def\xAugShort{Ago} +\def\xSepShort{Set} +\def\xOctShort{Out} +\def\xNovShort{Nov} +\def\xDecShort{Dez} + +\def\xMondayDayLetter{{2\textsuperscript{a}}} +\def\xTuesdayDayLetter{{3\textsuperscript{a}}} +\def\xWednesdayDayLetter{{4\textsuperscript{a}}} +\def\xThursdayDayLetter{{5\textsuperscript{a}}} +\def\xFridayDayLetter{{6\textsuperscript{a}}} +\def\xSaturdayDayLetter{S} +\def\xSundayDayLetter{D} diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-romanian.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-romanian.tex new file mode 100644 index 00000000000..2bb1deba463 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-romanian.tex @@ -0,0 +1,36 @@ +% Romanian + +\def\xJanuary{Ianuarie} +\def\xFebruary{Februarie} +\def\xMarch{Martie} +\def\xApril{Aprilie} +\def\xMay{Mai} +\def\xJune{Iunie} +\def\xJuly{Iulie} +\def\xAugust{August} +\def\xSeptember{Septembrie} +\def\xOctober{Octombrie} +\def\xNovember{Noiembrie} +\def\xDecember{Decembrie} + +\def\xJanShort{Ian} +\def\xFebShort{Feb} +\def\xMarShort{Mar} +\def\xAprShort{Apr} +\def\xMayShort{Mai} +\def\xJunShort{Iun} +\def\xJulShort{Iul} +\def\xAugShort{Aug} +\def\xSepShort{Sep} +\def\xOctShort{Oct} +\def\xNovShort{Noi} +\def\xDecShort{Dec} + +\def\xMondayDayLetter{L} +\def\xTuesdayDayLetter{M} +\def\xWednesdayDayLetter{M} +\def\xThursdayDayLetter{J} +\def\xFridayDayLetter{V} +\def\xSaturdayDayLetter{S} +\def\xSundayDayLetter{D} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-serbian.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-serbian.tex new file mode 100644 index 00000000000..7a078e8c157 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-serbian.tex @@ -0,0 +1,36 @@ +% Serbian + +\def\xJanuary{Januar} +\def\xFebruary{Februar} +\def\xMarch{Mart} +\def\xApril{April} +\def\xMay{Maj} +\def\xJune{Juni} +\def\xJuly{Juli} +\def\xAugust{Avgust} +\def\xSeptember{Septembar} +\def\xOctober{Oktobar} +\def\xNovember{Novembar} +\def\xDecember{Decembar} + +\def\xJanShort{Jan} +\def\xFebShort{Feb} +\def\xMarShort{Mar} +\def\xAprShort{Apr} +\def\xMayShort{Maj} +\def\xJunShort{Jun} +\def\xJulShort{Jul} +\def\xAugShort{Avg} +\def\xSepShort{Sep} +\def\xOctShort{Okt} +\def\xNovShort{Nov} +\def\xDecShort{Dec} + +\def\xMondayDayLetter{Po} +\def\xTuesdayDayLetter{Ut} +\def\xWednesdayDayLetter{Sr} +\def\xThursdayDayLetter{Če} +\def\xFridayDayLetter{Pe} +\def\xSaturdayDayLetter{Su} +\def\xSundayDayLetter{Ne} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-slovakian.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-slovakian.tex new file mode 100644 index 00000000000..589e58d8a19 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-slovakian.tex @@ -0,0 +1,36 @@ +% Slovakian + +\def\xJanuary{Január} +\def\xFebruary{Február} +\def\xMarch{Marec} +\def\xApril{Apríl} +\def\xMay{Máj} +\def\xJune{Jún} +\def\xJuly{Júl} +\def\xAugust{August} +\def\xSeptember{September} +\def\xOctober{Október} +\def\xNovember{November} +\def\xDecember{December} + +\def\xJanShort{Jan} +\def\xFebShort{Feb} +\def\xMarShort{Mar} +\def\xAprShort{Apr} +\def\xMayShort{Máj} +\def\xJunShort{Jún} +\def\xJulShort{Júl} +\def\xAugShort{Aug} +\def\xSepShort{Sep} +\def\xOctShort{Okt} +\def\xNovShort{Nov} +\def\xDecShort{Dec} + +\def\xMondayDayLetter{P} +\def\xTuesdayDayLetter{U} +\def\xWednesdayDayLetter{S} +\def\xThursdayDayLetter{Š} +\def\xFridayDayLetter{P} +\def\xSaturdayDayLetter{S} +\def\xSundayDayLetter{N} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-slovenian.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-slovenian.tex new file mode 100644 index 00000000000..918a635dc5e --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-slovenian.tex @@ -0,0 +1,36 @@ +% Slovenian + +\def\xJanuary{Januar} +\def\xFebruary{Februar} +\def\xMarch{Marec} +\def\xApril{April} +\def\xMay{Maj} +\def\xJune{Junij} +\def\xJuly{Julij} +\def\xAugust{Avgust} +\def\xSeptember{September} +\def\xOctober{Oktober} +\def\xNovember{November} +\def\xDecember{December} + +\def\xJanShort{Jan} +\def\xFebShort{Feb} +\def\xMarShort{Mar} +\def\xAprShort{Apr} +\def\xMayShort{Maj} +\def\xJunShort{Jun} +\def\xJulShort{Jul} +\def\xAugShort{Avg} +\def\xSepShort{Sep} +\def\xOctShort{Okt} +\def\xNovShort{Nov} +\def\xDecShort{Dec} + +\def\xMondayDayLetter{Po} +\def\xTuesdayDayLetter{To} +\def\xWednesdayDayLetter{Sr} +\def\xThursdayDayLetter{Če} +\def\xFridayDayLetter{Pe} +\def\xSaturdayDayLetter{So} +\def\xSundayDayLetter{Ne} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-spanish.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-spanish.tex new file mode 100644 index 00000000000..36370da3d4b --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-spanish.tex @@ -0,0 +1,36 @@ +% Spanish + +\def\xJanuary{Enero} +\def\xFebruary{Febrero} +\def\xMarch{Marzo} +\def\xApril{Abril} +\def\xMay{Mayo} +\def\xJune{Junio} +\def\xJuly{Julio} +\def\xAugust{Agosto} +\def\xSeptember{Septiembre} +\def\xOctober{Octubre} +\def\xNovember{Noviembre} +\def\xDecember{Diciembre} + +\def\xJanShort{Ene} +\def\xFebShort{Feb} +\def\xMarShort{Mar} +\def\xAprShort{Abr} +\def\xMayShort{May} +\def\xJunShort{Jun} +\def\xJulShort{Jul} +\def\xAugShort{Ago} +\def\xSepShort{Sep} +\def\xOctShort{Oct} +\def\xNovShort{Nov} +\def\xDecShort{Dic} + +\def\xMondayDayLetter{Lu} +\def\xTuesdayDayLetter{Ma} +\def\xWednesdayDayLetter{Mi} +\def\xThursdayDayLetter{Ju} +\def\xFridayDayLetter{Vi} +\def\xSaturdayDayLetter{Sá} +\def\xSundayDayLetter{Do} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-swedish.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-swedish.tex new file mode 100644 index 00000000000..c6c687f8f50 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-swedish.tex @@ -0,0 +1,36 @@ +% Swedish + +\def\xJanuary{Januari} +\def\xFebruary{Februari} +\def\xMarch{Mars} +\def\xApril{April} +\def\xMay{Maj} +\def\xJune{Juni} +\def\xJuly{Juli} +\def\xAugust{Augusti} +\def\xSeptember{September} +\def\xOctober{Oktober} +\def\xNovember{November} +\def\xDecember{December} + +\def\xJanShort{Jan} +\def\xFebShort{Feb} +\def\xMarShort{Mar} +\def\xAprShort{Apr} +\def\xMayShort{Maj} +\def\xJunShort{Jun} +\def\xJulShort{Jul} +\def\xAugShort{Aug} +\def\xSepShort{Sep} +\def\xOctShort{Okt} +\def\xNovShort{Nov} +\def\xDecShort{Dec} + +\def\xMondayDayLetter{Må} +\def\xTuesdayDayLetter{Ti} +\def\xWednesdayDayLetter{On} +\def\xThursdayDayLetter{To} +\def\xFridayDayLetter{Fr} +\def\xSaturdayDayLetter{Lö} +\def\xSundayDayLetter{Sö} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-thai.tex b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-thai.tex new file mode 100644 index 00000000000..56297b7be7a --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/i18n/wallcalendar-thai.tex @@ -0,0 +1,36 @@ +% Thai + +\def\xJanuary{มกราคม} +\def\xFebruary{กุมภาพันธ์} +\def\xMarch{มีนาคม} +\def\xApril{เมษายน} +\def\xMay{พฤษภาคม} +\def\xJune{มิถุนายน} +\def\xJuly{กรกฎาคม} +\def\xAugust{สิงหาคม} +\def\xSeptember{กันยายน} +\def\xOctober{ตุลาคม} +\def\xNovember{พฤศจิกายน} +\def\xDecember{ธันวาคม} + +\def\xJanShort{มกร} +\def\xFebShort{กุมภ} +\def\xMarShort{มีนา} +\def\xAprShort{เมษ} +\def\xMayShort{พฤษ} +\def\xJunShort{มิถุน} +\def\xJulShort{กรก} +\def\xAugShort{สิงห} +\def\xSepShort{กันย} +\def\xOctShort{ตุลา} +\def\xNovShort{พฤศ} +\def\xDecShort{ธันว} + +\def\xMondayDayLetter{จ} +\def\xTuesdayDayLetter{อ} +\def\xWednesdayDayLetter{พ} +\def\xThursdayDayLetter{พฤ} +\def\xFridayDayLetter{ศ} +\def\xSaturdayDayLetter{ส} +\def\xSundayDayLetter{อา} + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar-csv.lua b/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar-csv.lua new file mode 100644 index 00000000000..64196c07dac --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar-csv.lua @@ -0,0 +1,557 @@ +--- Read a comma or tab (or other delimiter) separated file. +-- This version of a CSV reader differs from others I've seen in that it +-- +-- + handles embedded newlines in fields (if they're delimited with double +-- quotes) +-- + is line-ending agnostic +-- + reads the file line-by-line, so it can potientially handle large +-- files. +-- +-- Of course, for such a simple format, CSV is horribly complicated, so it +-- likely gets something wrong. + +-- (c) Copyright 2013-2014 Incremental IP Limited. +-- (c) Copyright 2014 Kevin Martin +-- Available under the MIT licence. See LICENSE for more information. + +local DEFAULT_BUFFER_BLOCK_SIZE = 1024 * 1024 + + +------------------------------------------------------------------------------ + +local function trim_space(s) + return s:match("^%s*(.-)%s*$") +end + + +local function fix_quotes(s) + -- the sub(..., -2) is to strip the trailing quote + return string.sub(s:gsub('""', '"'), 1, -2) +end + + +------------------------------------------------------------------------------ + +local column_map = {} +column_map.__index = column_map + + +local function normalise_string(s) + return (s:lower():gsub("[^%w%d]+", " "):gsub("^ *(.-) *$", "%1")) +end + + +--- Parse a list of columns. +-- The main job here is normalising column names and dealing with columns +-- for which we have more than one possible name in the header. +function column_map:new(columns) + local name_map = {} + for n, v in pairs(columns) do + local names + local t + if type(v) == "table" then + t = { transform = v.transform, default = v.default } + if v.name then + names = { normalise_string(v.name) } + elseif v.names then + names = v.names + for i, n in ipairs(names) do names[i] = normalise_string(n) end + end + else + if type(v) == "function" then + t = { transform = v } + else + t = {} + if type(v) == "string" then + names = { normalise_string(v) } + end + end + end + + if not names then + names = { (n:lower():gsub("[^%w%d]+", " ")) } + end + + t.name = n + for _, n in ipairs(names) do + name_map[n:lower()] = t + end + end + + return setmetatable({ name_map = name_map }, column_map) +end + + +--- Map "virtual" columns to file columns. +-- Once we've read the header, work out which columns we're interested in and +-- what to do with them. Mostly this is about checking we've got the columns +-- we need and writing a nice complaint if we haven't. +function column_map:read_header(header) + local index_map = {} + + -- Match the columns in the file to the columns in the name map + local found = {} + local found_any + for i, word in ipairs(header) do + word = normalise_string(word) + local r = self.name_map[word] + if r then + index_map[i] = r + found[r.name] = true + found_any = true + end + end + + if not found_any then return end + + -- check we found all the columns we need + local not_found = {} + for name, r in pairs(self.name_map) do + if not found[r.name] then + local nf = not_found[r.name] + if nf then + nf[#nf+1] = name + else + not_found[r.name] = { name } + end + end + end + -- If any columns are missing, assemble an error message + if next(not_found) then + local problems = {} + for k, v in pairs(not_found) do + local missing + if #v == 1 then + missing = "'"..v[1].."'" + else + missing = v[1] + for i = 2, #v - 1 do + missing = missing..", '"..v[i].."'" + end + missing = missing.." or '"..v[#v].."'" + end + problems[#problems+1] = "Couldn't find a column named "..missing + end + error(table.concat(problems, "\n"), 0) + end + + self.index_map = index_map + return true +end + + +function column_map:transform(value, index) + local field = self.index_map[index] + if field then + if field.transform then + local ok + ok, value = pcall(field.transform, value) + if not ok then + error(("Error reading field '%s': %s"):format(field.name, value), 0) + end + end + return value or field.default, field.name + end +end + + +------------------------------------------------------------------------------ + +local file_buffer = {} +file_buffer.__index = file_buffer + +function file_buffer:new(file, buffer_block_size) + return setmetatable({ + file = file, + buffer_block_size = buffer_block_size or DEFAULT_BUFFER_BLOCK_SIZE, + buffer_start = 0, + buffer = "", + }, file_buffer) +end + + +--- Cut the front off the buffer if we've already read it +function file_buffer:truncate(p) + p = p - self.buffer_start + if p > self.buffer_block_size then + local remove = self.buffer_block_size * + math.floor((p-1) / self.buffer_block_size) + self.buffer = self.buffer:sub(remove + 1) + self.buffer_start = self.buffer_start + remove + end +end + + +--- Find something in the buffer, extending it if necessary +function file_buffer:find(pattern, init) + while true do + local first, last, capture = + self.buffer:find(pattern, init - self.buffer_start) + -- if we found nothing, or the last character is at the end of the + -- buffer (and the match could potentially be longer) then read some + -- more. + if not first or last == #self.buffer then + local s = self.file:read(self.buffer_block_size) + if not s then + if not first then + return + else + return first + self.buffer_start, last + self.buffer_start, capture + end + end + self.buffer = self.buffer..s + else + return first + self.buffer_start, last + self.buffer_start, capture + end + end +end + + +--- Extend the buffer so we can see more +function file_buffer:extend(offset) + local extra = offset - #self.buffer - self.buffer_start + if extra > 0 then + local size = self.buffer_block_size * + math.ceil(extra / self.buffer_block_size) + local s = self.file:read(size) + if not s then return end + self.buffer = self.buffer..s + end +end + + +--- Get a substring from the buffer, extending it if necessary +function file_buffer:sub(a, b) + self:extend(b) + b = b == -1 and b or b - self.buffer_start + return self.buffer:sub(a - self.buffer_start, b) +end + + +--- Close a file buffer +function file_buffer:close() + self.file:close() + self.file = nil +end + + +------------------------------------------------------------------------------ + +local separator_candidates = { ",", "\t", "|" } +local guess_separator_params = { record_limit = 8; } + + +local function try_separator(buffer, sep, f) + guess_separator_params.separator = sep + local min, max = math.huge, 0 + local lines, split_lines = 0, 0 + local iterator = coroutine.wrap(function() f(buffer, guess_separator_params) end) + for t in iterator do + min = math.min(min, #t) + max = math.max(max, #t) + split_lines = split_lines + (t[2] and 1 or 0) + lines = lines + 1 + end + if split_lines / lines > 0.75 then + return max - min + else + return math.huge + end +end + + +--- If the user hasn't specified a separator, try to work out what it is. +function guess_separator(buffer, f) + local best_separator, lowest_diff = "", math.huge + for _, s in ipairs(separator_candidates) do + local ok, diff = pcall(function() return try_separator(buffer, s, f) end) + if ok and diff < lowest_diff then + best_separator = s + lowest_diff = diff + end + end + + return best_separator +end + + +local unicode_BOMS = +{ + { + length = 2, + BOMS = + { + ["\254\255"] = true, -- UTF-16 big-endian + ["\255\254"] = true, -- UTF-16 little-endian + } + }, + { + length = 3, + BOMS = + { + ["\239\187\191"] = true, -- UTF-8 + } + } +} + + +local function find_unicode_BOM(sub) + for _, x in ipairs(unicode_BOMS) do + local code = sub(1, x.length) + if x.BOMS[code] then + return x.length + end + end + return 0 +end + + +--- Iterate through the records in a file +-- Since records might be more than one line (if there's a newline in quotes) +-- and line-endings might not be native, we read the file in chunks of +-- we read the file in chunks using a file_buffer, rather than line-by-line +-- using io.lines. +local function separated_values_iterator(buffer, parameters) + local field_start = 1 + + local advance + if buffer.truncate then + advance = function(n) + field_start = field_start + n + buffer:truncate(field_start) + end + else + advance = function(n) + field_start = field_start + n + end + end + + + local function field_sub(a, b) + b = b == -1 and b or b + field_start - 1 + return buffer:sub(a + field_start - 1, b) + end + + + local function field_find(pattern, init) + init = init or 1 + local f, l, c = buffer:find(pattern, init + field_start - 1) + if not f then return end + return f - field_start + 1, l - field_start + 1, c + end + + + -- Is there some kind of Unicode BOM here? + advance(find_unicode_BOM(field_sub)) + + + -- Start reading the file + local sep = "(["..(parameters.separator or + guess_separator(buffer, separated_values_iterator)).."\n\r])" + local line_start = 1 + local line = 1 + local field_count, fields, starts, nonblanks = 0, {}, {} + local header, header_read + local field_start_line, field_start_column + local record_count = 0 + + + local function problem(message) + error(("%s:%d:%d: %s"): + format(parameters.filename, field_start_line, field_start_column, + message), 0) + end + + + while true do + local field_end, sep_end, this_sep + local tidy + field_start_line = line + field_start_column = field_start - line_start + 1 + + -- If the field is quoted, go find the other quote + if field_sub(1, 1) == '"' then + advance(1) + local current_pos = 0 + repeat + local a, b, c = field_find('"("?)', current_pos + 1) + current_pos = b + until c ~= '"' + if not current_pos then problem("unmatched quote") end + tidy = fix_quotes + field_end, sep_end, this_sep = field_find(" *([^ ])", current_pos+1) + if this_sep and not this_sep:match(sep) then problem("unmatched quote") end + else + field_end, sep_end, this_sep = field_find(sep, 1) + tidy = trim_space + end + + -- Look for the separator or a newline or the end of the file + field_end = (field_end or 0) - 1 + + -- Read the field, then convert all the line endings to \n, and + -- count any embedded line endings + local value = field_sub(1, field_end) + value = value:gsub("\r\n", "\n"):gsub("\r", "\n") + for nl in value:gmatch("\n()") do + line = line + 1 + line_start = nl + field_start + end + + value = tidy(value) + if #value > 0 then nonblanks = true end + field_count = field_count + 1 + + -- Insert the value into the table for this "line" + local key + if parameters.column_map and header_read then + local ok + ok, value, key = pcall(parameters.column_map.transform, + parameters.column_map, value, field_count) + if not ok then problem(value) end + elseif header then + key = header[field_count] + else + key = field_count + end + if key then + fields[key] = value + starts[key] = { line=field_start_line, column=field_start_column } + end + + -- if we ended on a newline then yield the fields on this line. + if not this_sep or this_sep == "\r" or this_sep == "\n" then + if parameters.column_map and not header_read then + header_read = parameters.column_map:read_header(fields) + elseif parameters.header and not header_read then + if nonblanks or field_count > 1 then -- ignore blank lines + header = fields + header_read = true + end + else + if nonblanks or field_count > 1 then -- ignore blank lines + coroutine.yield(fields, starts) + record_count = record_count + 1 + if parameters.record_limit and + record_count >= parameters.record_limit then + break + end + end + end + field_count, fields, starts, nonblanks = 0, {}, {} + end + + -- If we *really* didn't find a separator then we're done. + if not sep_end then break end + + -- If we ended on a newline then count it. + if this_sep == "\r" or this_sep == "\n" then + if this_sep == "\r" and field_sub(sep_end+1, sep_end+1) == "\n" then + sep_end = sep_end + 1 + end + line = line + 1 + line_start = field_start + sep_end + end + + advance(sep_end) + end +end + + +------------------------------------------------------------------------------ + +local buffer_mt = +{ + lines = function(t) + return coroutine.wrap(function() + separated_values_iterator(t.buffer, t.parameters) + end) + end, + close = function(t) + if t.buffer.close then t.buffer:close() end + end, + name = function(t) + return t.parameters.filename + end, +} +buffer_mt.__index = buffer_mt + + +--- Use an existing file or buffer as a stream to read csv from. +-- (A buffer is just something that looks like a string in that we can do +-- `buffer:sub()` and `buffer:find()`) +-- @return a file object +local function use( + buffer, -- ?string|file|buffer: the buffer to read from. If it's: + -- - a string, read from that; + -- - a file, turn it into a file_buffer; + -- - nil, read from stdin + -- otherwise assume it's already a a buffer. + parameters) -- ?table: parameters controlling reading the file. + -- See README.md + parameters = parameters or {} + parameters.filename = parameters.filename or "<unknown>" + parameters.column_map = parameters.columns and + column_map:new(parameters.columns) + + if not buffer then + buffer = file_buffer:new(io.stdin) + elseif io.type(buffer) == "file" then + buffer = file_buffer:new(buffer) + end + + local f = { buffer = buffer, parameters = parameters } + return setmetatable(f, buffer_mt) +end + + +------------------------------------------------------------------------------ + +--- Open a file for reading as a delimited file +-- @return a file object +local function open( + filename, -- string: name of the file to open + parameters) -- ?table: parameters controlling reading the file. + -- See README.md + local file, message = io.open(filename, "r") + if not file then return nil, message end + + parameters = parameters or {} + parameters.filename = filename + return use(file_buffer:new(file), parameters) +end + + +------------------------------------------------------------------------------ + +local function makename(s) + local t = {} + t[#t+1] = "<(String) " + t[#t+1] = (s:gmatch("[^\n]+")() or ""):sub(1,15) + if #t[#t] > 14 then t[#t+1] = "..." end + t[#t+1] = " >" + return table.concat(t) +end + + +--- Open a string for reading as a delimited file +-- @return a file object +local function openstring( + filecontents, -- string: The contents of the delimited file + parameters) -- ?table: parameters controlling reading the file. + -- See README.md + + parameters = parameters or {} + + + parameters.filename = parameters.filename or makename(filecontents) + parameters.buffer_size = parameters.buffer_size or #filecontents + return use(filecontents, parameters) +end + + +------------------------------------------------------------------------------ + +return { open = open, openstring = openstring, use = use } + +------------------------------------------------------------------------------ diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar-date.lua b/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar-date.lua new file mode 100644 index 00000000000..14aa47577fe --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar-date.lua @@ -0,0 +1,747 @@ +--------------------------------------------------------------------------------------- +-- Module for date and time calculations +-- +-- Version 2.1.1 +-- Copyright (C) 2006, by Jas Latrix (jastejada@yahoo.com) +-- Copyright (C) 2013-2014, by Thijs Schreijer +-- Licensed under MIT, http://opensource.org/licenses/MIT + +--[[ CONSTANTS ]]-- + local HOURPERDAY = 24 + local MINPERHOUR = 60 + local MINPERDAY = 1440 -- 24*60 + local SECPERMIN = 60 + local SECPERHOUR = 3600 -- 60*60 + local SECPERDAY = 86400 -- 24*60*60 + local TICKSPERSEC = 1000000 + local TICKSPERDAY = 86400000000 + local TICKSPERHOUR = 3600000000 + local TICKSPERMIN = 60000000 + local DAYNUM_MAX = 365242500 -- Sat Jan 01 1000000 00:00:00 + local DAYNUM_MIN = -365242500 -- Mon Jan 01 1000000 BCE 00:00:00 + local DAYNUM_DEF = 0 -- Mon Jan 01 0001 00:00:00 + local _; +--[[ LOCAL ARE FASTER ]]-- + local type = type + local pairs = pairs + local error = error + local assert = assert + local tonumber = tonumber + local tostring = tostring + local string = string + local math = math + local os = os + local unpack = unpack or table.unpack + local pack = table.pack or function(...) return { n = select('#', ...), ... } end + local setmetatable = setmetatable + local getmetatable = getmetatable +--[[ EXTRA FUNCTIONS ]]-- + local fmt = string.format + local lwr = string.lower + local upr = string.upper + local rep = string.rep + local len = string.len + local sub = string.sub + local gsub = string.gsub + local gmatch = string.gmatch or string.gfind + local find = string.find + local ostime = os.time + local osdate = os.date + local floor = math.floor + local ceil = math.ceil + local abs = math.abs + -- removes the decimal part of a number + local function fix(n) n = tonumber(n) return n and ((n > 0 and floor or ceil)(n)) end + -- returns the modulo n % d; + local function mod(n,d) return n - d*floor(n/d) end + -- rounds a number; + local function round(n, d) d=d^10 return floor((n*d)+.5)/d end + -- rounds a number to whole; + local function whole(n)return floor(n+.5)end + -- is `str` in string list `tbl`, `ml` is the minimun len + local function inlist(str, tbl, ml, tn) + local sl = len(str) + if sl < (ml or 0) then return nil end + str = lwr(str) + for k, v in pairs(tbl) do + if str == lwr(sub(v, 1, sl)) then + if tn then tn[0] = k end + return k + end + end + end + local function fnil() end + local function fret(x)return x;end +--[[ DATE FUNCTIONS ]]-- + local DATE_EPOCH -- to be set later + local sl_weekdays = { + [0]="Sunday",[1]="Monday",[2]="Tuesday",[3]="Wednesday",[4]="Thursday",[5]="Friday",[6]="Saturday", + [7]="Sun",[8]="Mon",[9]="Tue",[10]="Wed",[11]="Thu",[12]="Fri",[13]="Sat", + } + local sl_meridian = {[-1]="AM", [1]="PM"} + local sl_months = { + [00]="January", [01]="February", [02]="March", + [03]="April", [04]="May", [05]="June", + [06]="July", [07]="August", [08]="September", + [09]="October", [10]="November", [11]="December", + [12]="Jan", [13]="Feb", [14]="Mar", + [15]="Apr", [16]="May", [17]="Jun", + [18]="Jul", [19]="Aug", [20]="Sep", + [21]="Oct", [22]="Nov", [23]="Dec", + } + -- added the '.2' to avoid collision, use `fix` to remove + local sl_timezone = { + [000]="utc", [0.2]="gmt", + [300]="est", [240]="edt", + [360]="cst", [300.2]="cdt", + [420]="mst", [360.2]="mdt", + [480]="pst", [420.2]="pdt", + } + -- set the day fraction resolution + local function setticks(t) + TICKSPERSEC = t; + TICKSPERDAY = SECPERDAY*TICKSPERSEC + TICKSPERHOUR= SECPERHOUR*TICKSPERSEC + TICKSPERMIN = SECPERMIN*TICKSPERSEC + end + -- is year y leap year? + local function isleapyear(y) -- y must be int! + return (mod(y, 4) == 0 and (mod(y, 100) ~= 0 or mod(y, 400) == 0)) + end + -- day since year 0 + local function dayfromyear(y) -- y must be int! + return 365*y + floor(y/4) - floor(y/100) + floor(y/400) + end + -- day number from date, month is zero base + local function makedaynum(y, m, d) + local mm = mod(mod(m,12) + 10, 12) + return dayfromyear(y + floor(m/12) - floor(mm/10)) + floor((mm*306 + 5)/10) + d - 307 + --local yy = y + floor(m/12) - floor(mm/10) + --return dayfromyear(yy) + floor((mm*306 + 5)/10) + (d - 1) + end + -- date from day number, month is zero base + local function breakdaynum(g) + local g = g + 306 + local y = floor((10000*g + 14780)/3652425) + local d = g - dayfromyear(y) + if d < 0 then y = y - 1; d = g - dayfromyear(y) end + local mi = floor((100*d + 52)/3060) + return (floor((mi + 2)/12) + y), mod(mi + 2,12), (d - floor((mi*306 + 5)/10) + 1) + end + --[[ for floats or int32 Lua Number data type + local function breakdaynum2(g) + local g, n = g + 306; + local n400 = floor(g/DI400Y);n = mod(g,DI400Y); + local n100 = floor(n/DI100Y);n = mod(n,DI100Y); + local n004 = floor(n/DI4Y); n = mod(n,DI4Y); + local n001 = floor(n/365); n = mod(n,365); + local y = (n400*400) + (n100*100) + (n004*4) + n001 - ((n001 == 4 or n100 == 4) and 1 or 0) + local d = g - dayfromyear(y) + local mi = floor((100*d + 52)/3060) + return (floor((mi + 2)/12) + y), mod(mi + 2,12), (d - floor((mi*306 + 5)/10) + 1) + end + ]] + -- day fraction from time + local function makedayfrc(h,r,s,t) + return ((h*60 + r)*60 + s)*TICKSPERSEC + t + end + -- time from day fraction + local function breakdayfrc(df) + return + mod(floor(df/TICKSPERHOUR),HOURPERDAY), + mod(floor(df/TICKSPERMIN ),MINPERHOUR), + mod(floor(df/TICKSPERSEC ),SECPERMIN), + mod(df,TICKSPERSEC) + end + -- weekday sunday = 0, monday = 1 ... + local function weekday(dn) return mod(dn + 1, 7) end + -- yearday 0 based ... + local function yearday(dn) + return dn - dayfromyear((breakdaynum(dn))-1) + end + -- parse v as a month + local function getmontharg(v) + local m = tonumber(v); + return (m and fix(m - 1)) or inlist(tostring(v) or "", sl_months, 2) + end + -- get daynum of isoweek one of year y + local function isow1(y) + local f = makedaynum(y, 0, 4) -- get the date for the 4-Jan of year `y` + local d = weekday(f) + d = d == 0 and 7 or d -- get the ISO day number, 1 == Monday, 7 == Sunday + return f + (1 - d) + end + local function isowy(dn) + local w1; + local y = (breakdaynum(dn)) + if dn >= makedaynum(y, 11, 29) then + w1 = isow1(y + 1); + if dn < w1 then + w1 = isow1(y); + else + y = y + 1; + end + else + w1 = isow1(y); + if dn < w1 then + w1 = isow1(y-1) + y = y - 1 + end + end + return floor((dn-w1)/7)+1, y + end + local function isoy(dn) + local y = (breakdaynum(dn)) + return y + (((dn >= makedaynum(y, 11, 29)) and (dn >= isow1(y + 1))) and 1 or (dn < isow1(y) and -1 or 0)) + end + local function makedaynum_isoywd(y,w,d) + return isow1(y) + 7*w + d - 8 -- simplified: isow1(y) + ((w-1)*7) + (d-1) + end +--[[ THE DATE MODULE ]]-- + local fmtstr = "%x %X"; +--#if not DATE_OBJECT_AFX then + local date = {} + setmetatable(date, date) +-- Version: VMMMRRRR; V-Major, M-Minor, R-Revision; e.g. 5.45.321 == 50450321 + date.version = 20010001 -- 2.1.1 +--#end -- not DATE_OBJECT_AFX +--[[ THE DATE OBJECT ]]-- + local dobj = {} + dobj.__index = dobj + dobj.__metatable = dobj + -- shout invalid arg + local function date_error_arg() return error("invalid argument(s)",0) end + -- create new date object + local function date_new(dn, df) + return setmetatable({daynum=dn, dayfrc=df}, dobj) + end + -- is `v` a date object? + local function date_isdobj(v) + return (type(v) == 'table' and getmetatable(v) == dobj) and v + end + +--#if not NO_LOCAL_TIME_SUPPORT then + -- magic year table + local date_epoch, yt; + local function getequivyear(y) + assert(not yt) + yt = {} + local de, dw, dy = date_epoch:copy() + for i = 0, 3000 do + de:setyear(de:getyear() + 1, 1, 1) + dy = de:getyear() + dw = de:getweekday() * (isleapyear(dy) and -1 or 1) + if not yt[dw] then yt[dw] = dy end --print(de) + if yt[1] and yt[2] and yt[3] and yt[4] and yt[5] and yt[6] and yt[7] and yt[-1] and yt[-2] and yt[-3] and yt[-4] and yt[-5] and yt[-6] and yt[-7] then + getequivyear = function(y) return yt[ (weekday(makedaynum(y, 0, 1)) + 1) * (isleapyear(y) and -1 or 1) ] end + return getequivyear(y) + end + end + end + -- TimeValue from daynum and dayfrc + local function dvtotv(dn, df) + return fix(dn - DATE_EPOCH) * SECPERDAY + (df/1000) + end + -- TimeValue from date and time + local function totv(y,m,d,h,r,s) + return (makedaynum(y, m, d) - DATE_EPOCH) * SECPERDAY + ((h*60 + r)*60 + s) + end + -- TimeValue from TimeTable + local function tmtotv(tm) + return tm and totv(tm.year, tm.month - 1, tm.day, tm.hour, tm.min, tm.sec) + end + -- Returns the bias in seconds of utc time daynum and dayfrc + local function getbiasutc2(self) + local y,m,d = breakdaynum(self.daynum) + local h,r,s = breakdayfrc(self.dayfrc) + local tvu = totv(y,m,d,h,r,s) -- get the utc TimeValue of date and time + local tml = osdate("*t", tvu) -- get the local TimeTable of tvu + if (not tml) or (tml.year > (y+1) or tml.year < (y-1)) then -- failed try the magic + y = getequivyear(y) + tvu = totv(y,m,d,h,r,s) + tml = osdate("*t", tvu) + end + local tvl = tmtotv(tml) + if tvu and tvl then + return tvu - tvl, tvu, tvl + else + return error("failed to get bias from utc time") + end + end + -- Returns the bias in seconds of local time daynum and dayfrc + local function getbiasloc2(daynum, dayfrc) + local tvu + -- extract date and time + local y,m,d = breakdaynum(daynum) + local h,r,s = breakdayfrc(dayfrc) + -- get equivalent TimeTable + local tml = {year=y, month=m+1, day=d, hour=h, min=r, sec=s} + -- get equivalent TimeValue + local tvl = tmtotv(tml) + + local function chkutc() + tml.isdst = nil; local tvug = ostime(tml) if tvug and (tvl == tmtotv(osdate("*t", tvug))) then tvu = tvug return end + tml.isdst = true; local tvud = ostime(tml) if tvud and (tvl == tmtotv(osdate("*t", tvud))) then tvu = tvud return end + tvu = tvud or tvug + end + chkutc() + if not tvu then + tml.year = getequivyear(y) + tvl = tmtotv(tml) + chkutc() + end + return ((tvu and tvl) and (tvu - tvl)) or error("failed to get bias from local time"), tvu, tvl + end +--#end -- not NO_LOCAL_TIME_SUPPORT + +--#if not DATE_OBJECT_AFX then + -- the date parser + local strwalker = {} -- ^Lua regular expression is not as powerful as Perl$ + strwalker.__index = strwalker + local function newstrwalker(s)return setmetatable({s=s, i=1, e=1, c=len(s)}, strwalker) end + function strwalker:aimchr() return "\n" .. self.s .. "\n" .. rep(".",self.e-1) .. "^" end + function strwalker:finish() return self.i > self.c end + function strwalker:back() self.i = self.e return self end + function strwalker:restart() self.i, self.e = 1, 1 return self end + function strwalker:match(s) return (find(self.s, s, self.i)) end + function strwalker:__call(s, f)-- print("strwalker:__call "..s..self:aimchr()) + local is, ie; is, ie, self[1], self[2], self[3], self[4], self[5] = find(self.s, s, self.i) + if is then self.e, self.i = self.i, 1+ie; if f then f(unpack(self)) end return self end + end + local function date_parse(str) + local y,m,d, h,r,s, z, w,u, j, e, k, x,v,c, chkfin, dn,df; + local sw = newstrwalker(gsub(gsub(str, "(%b())", ""),"^(%s*)","")) -- remove comment, trim leading space + --local function error_out() print(y,m,d,h,r,s) end + local function error_dup(q) --[[error_out()]] error("duplicate value: " .. (q or "") .. sw:aimchr()) end + local function error_syn(q) --[[error_out()]] error("syntax error: " .. (q or "") .. sw:aimchr()) end + local function error_inv(q) --[[error_out()]] error("invalid date: " .. (q or "") .. sw:aimchr()) end + local function sety(q) y = y and error_dup() or tonumber(q); end + local function setm(q) m = (m or w or j) and error_dup(m or w or j) or tonumber(q) end + local function setd(q) d = d and error_dup() or tonumber(q) end + local function seth(q) h = h and error_dup() or tonumber(q) end + local function setr(q) r = r and error_dup() or tonumber(q) end + local function sets(q) s = s and error_dup() or tonumber(q) end + local function adds(q) s = s + tonumber(q) end + local function setj(q) j = (m or w or j) and error_dup() or tonumber(q); end + local function setz(q) z = (z ~= 0 and z) and error_dup() or q end + local function setzn(zs,zn) zn = tonumber(zn); setz( ((zn<24) and (zn*60) or (mod(zn,100) + floor(zn/100) * 60))*( zs=='+' and -1 or 1) ) end + local function setzc(zs,zh,zm) setz( ((tonumber(zh)*60) + tonumber(zm))*( zs=='+' and -1 or 1) ) end + + if not (sw("^(%d%d%d%d)",sety) and (sw("^(%-?)(%d%d)%1(%d%d)",function(_,a,b) setm(tonumber(a)); setd(tonumber(b)) end) or sw("^(%-?)[Ww](%d%d)%1(%d?)",function(_,a,b) w, u = tonumber(a), tonumber(b or 1) end) or sw("^%-?(%d%d%d)",setj) or sw("^%-?(%d%d)",function(a) setm(a);setd(1) end)) + and ((sw("^%s*[Tt]?(%d%d):?",seth) and sw("^(%d%d):?",setr) and sw("^(%d%d)",sets) and sw("^(%.%d+)",adds)) + or sw:finish() or (sw"^%s*$" or sw"^%s*[Zz]%s*$" or sw("^%s-([%+%-])(%d%d):?(%d%d)%s*$",setzc) or sw("^%s*([%+%-])(%d%d)%s*$",setzn)) + ) ) + then --print(y,m,d,h,r,s,z,w,u,j) + sw:restart(); y,m,d,h,r,s,z,w,u,j = nil; + repeat -- print(sw:aimchr()) + if sw("^[tT:]?%s*(%d%d?):",seth) then --print("$Time") + _ = sw("^%s*(%d%d?)",setr) and sw("^%s*:%s*(%d%d?)",sets) and sw("^(%.%d+)",adds) + elseif sw("^(%d+)[/\\%s,-]?%s*") then --print("$Digits") + x, c = tonumber(sw[1]), len(sw[1]) + if (x >= 70) or (m and d and (not y)) or (c > 3) then + sety( x + ((x >= 100 or c>3)and 0 or 1900) ) + else + if m then setd(x) else m = x end + end + elseif sw("^(%a+)[/\\%s,-]?%s*") then --print("$Words") + x = sw[1] + if inlist(x, sl_months, 2, sw) then + if m and (not d) and (not y) then d, m = m, false end + setm(mod(sw[0],12)+1) + elseif inlist(x, sl_timezone, 2, sw) then + c = fix(sw[0]) -- ignore gmt and utc + if c ~= 0 then setz(c, x) end + elseif inlist(x, sl_weekdays, 2, sw) then + k = sw[0] + else + sw:back() + -- am pm bce ad ce bc + if sw("^([bB])%s*(%.?)%s*[Cc]%s*(%2)%s*[Ee]%s*(%2)%s*") or sw("^([bB])%s*(%.?)%s*[Cc]%s*(%2)%s*") then + e = e and error_dup() or -1 + elseif sw("^([aA])%s*(%.?)%s*[Dd]%s*(%2)%s*") or sw("^([cC])%s*(%.?)%s*[Ee]%s*(%2)%s*") then + e = e and error_dup() or 1 + elseif sw("^([PApa])%s*(%.?)%s*[Mm]?%s*(%2)%s*") then + x = lwr(sw[1]) -- there should be hour and it must be correct + if (not h) or (h > 12) or (h < 0) then return error_inv() end + if x == 'a' and h == 12 then h = 0 end -- am + if x == 'p' and h ~= 12 then h = h + 12 end -- pm + else error_syn() end + end + elseif not(sw("^([+-])(%d%d?):(%d%d)",setzc) or sw("^([+-])(%d+)",setzn) or sw("^[Zz]%s*$")) then -- sw{"([+-])",{"(%d%d?):(%d%d)","(%d+)"}} + error_syn("?") + end + sw("^%s*") until sw:finish() + --else print("$Iso(Date|Time|Zone)") + end + -- if date is given, it must be complete year, month & day + if (not y and not h) or ((m and not d) or (d and not m)) or ((m and w) or (m and j) or (j and w)) then return error_inv("!") end + -- fix month + if m then m = m - 1 end + -- fix year if we are on BCE + if e and e < 0 and y > 0 then y = 1 - y end + -- create date object + dn = (y and ((w and makedaynum_isoywd(y,w,u)) or (j and makedaynum(y, 0, j)) or makedaynum(y, m, d))) or DAYNUM_DEF + df = makedayfrc(h or 0, r or 0, s or 0, 0) + ((z or 0)*TICKSPERMIN) + --print("Zone",h,r,s,z,m,d,y,df) + return date_new(dn, df) -- no need to :normalize(); + end + local function date_fromtable(v) + local y, m, d = fix(v.year), getmontharg(v.month), fix(v.day) + local h, r, s, t = tonumber(v.hour), tonumber(v.min), tonumber(v.sec), tonumber(v.ticks) + -- atleast there is time or complete date + if (y or m or d) and (not(y and m and d)) then return error("incomplete table") end + return (y or h or r or s or t) and date_new(y and makedaynum(y, m, d) or DAYNUM_DEF, makedayfrc(h or 0, r or 0, s or 0, t or 0)) + end + local tmap = { + ['number'] = function(v) return date_epoch:copy():addseconds(v) end, + ['string'] = function(v) return date_parse(v) end, + ['boolean']= function(v) return date_fromtable(osdate(v and "!*t" or "*t")) end, + ['table'] = function(v) local ref = getmetatable(v) == dobj; return ref and v or date_fromtable(v), ref end + } + local function date_getdobj(v) + local o, r = (tmap[type(v)] or fnil)(v); + return (o and o:normalize() or error"invalid date time value"), r -- if r is true then o is a reference to a date obj + end +--#end -- not DATE_OBJECT_AFX + local function date_from(...) + local arg = pack(...) + local y, m, d = fix(arg[1]), getmontharg(arg[2]), fix(arg[3]) + local h, r, s, t = tonumber(arg[4] or 0), tonumber(arg[5] or 0), tonumber(arg[6] or 0), tonumber(arg[7] or 0) + if y and m and d and h and r and s and t then + return date_new(makedaynum(y, m, d), makedayfrc(h, r, s, t)):normalize() + else + return date_error_arg() + end + end + + --[[ THE DATE OBJECT METHODS ]]-- + function dobj:normalize() + local dn, df = fix(self.daynum), self.dayfrc + self.daynum, self.dayfrc = dn + floor(df/TICKSPERDAY), mod(df, TICKSPERDAY) + return (dn >= DAYNUM_MIN and dn <= DAYNUM_MAX) and self or error("date beyond imposed limits:"..self) + end + + function dobj:getdate() local y, m, d = breakdaynum(self.daynum) return y, m+1, d end + function dobj:gettime() return breakdayfrc(self.dayfrc) end + + function dobj:getclockhour() local h = self:gethours() return h>12 and mod(h,12) or (h==0 and 12 or h) end + + function dobj:getyearday() return yearday(self.daynum) + 1 end + function dobj:getweekday() return weekday(self.daynum) + 1 end -- in lua weekday is sunday = 1, monday = 2 ... + + function dobj:getyear() local r,_,_ = breakdaynum(self.daynum) return r end + function dobj:getmonth() local _,r,_ = breakdaynum(self.daynum) return r+1 end-- in lua month is 1 base + function dobj:getday() local _,_,r = breakdaynum(self.daynum) return r end + function dobj:gethours() return mod(floor(self.dayfrc/TICKSPERHOUR),HOURPERDAY) end + function dobj:getminutes() return mod(floor(self.dayfrc/TICKSPERMIN), MINPERHOUR) end + function dobj:getseconds() return mod(floor(self.dayfrc/TICKSPERSEC ),SECPERMIN) end + function dobj:getfracsec() return mod(floor(self.dayfrc/TICKSPERSEC ),SECPERMIN)+(mod(self.dayfrc,TICKSPERSEC)/TICKSPERSEC) end + function dobj:getticks(u) local x = mod(self.dayfrc,TICKSPERSEC) return u and ((x*u)/TICKSPERSEC) or x end + + function dobj:getweeknumber(wdb) + local wd, yd = weekday(self.daynum), yearday(self.daynum) + if wdb then + wdb = tonumber(wdb) + if wdb then + wd = mod(wd-(wdb-1),7)-- shift the week day base + else + return date_error_arg() + end + end + return (yd < wd and 0) or (floor(yd/7) + ((mod(yd, 7)>=wd) and 1 or 0)) + end + + function dobj:getisoweekday() return mod(weekday(self.daynum)-1,7)+1 end -- sunday = 7, monday = 1 ... + function dobj:getisoweeknumber() return (isowy(self.daynum)) end + function dobj:getisoyear() return isoy(self.daynum) end + function dobj:getisodate() + local w, y = isowy(self.daynum) + return y, w, self:getisoweekday() + end + function dobj:setisoyear(y, w, d) + local cy, cw, cd = self:getisodate() + if y then cy = fix(tonumber(y))end + if w then cw = fix(tonumber(w))end + if d then cd = fix(tonumber(d))end + if cy and cw and cd then + self.daynum = makedaynum_isoywd(cy, cw, cd) + return self:normalize() + else + return date_error_arg() + end + end + + function dobj:setisoweekday(d) return self:setisoyear(nil, nil, d) end + function dobj:setisoweeknumber(w,d) return self:setisoyear(nil, w, d) end + + function dobj:setyear(y, m, d) + local cy, cm, cd = breakdaynum(self.daynum) + if y then cy = fix(tonumber(y))end + if m then cm = getmontharg(m) end + if d then cd = fix(tonumber(d))end + if cy and cm and cd then + self.daynum = makedaynum(cy, cm, cd) + return self:normalize() + else + return date_error_arg() + end + end + + function dobj:setmonth(m, d)return self:setyear(nil, m, d) end + function dobj:setday(d) return self:setyear(nil, nil, d) end + + function dobj:sethours(h, m, s, t) + local ch,cm,cs,ck = breakdayfrc(self.dayfrc) + ch, cm, cs, ck = tonumber(h or ch), tonumber(m or cm), tonumber(s or cs), tonumber(t or ck) + if ch and cm and cs and ck then + self.dayfrc = makedayfrc(ch, cm, cs, ck) + return self:normalize() + else + return date_error_arg() + end + end + + function dobj:setminutes(m,s,t) return self:sethours(nil, m, s, t) end + function dobj:setseconds(s, t) return self:sethours(nil, nil, s, t) end + function dobj:setticks(t) return self:sethours(nil, nil, nil, t) end + + function dobj:spanticks() return (self.daynum*TICKSPERDAY + self.dayfrc) end + function dobj:spanseconds() return (self.daynum*TICKSPERDAY + self.dayfrc)/TICKSPERSEC end + function dobj:spanminutes() return (self.daynum*TICKSPERDAY + self.dayfrc)/TICKSPERMIN end + function dobj:spanhours() return (self.daynum*TICKSPERDAY + self.dayfrc)/TICKSPERHOUR end + function dobj:spandays() return (self.daynum*TICKSPERDAY + self.dayfrc)/TICKSPERDAY end + + function dobj:addyears(y, m, d) + local cy, cm, cd = breakdaynum(self.daynum) + if y then y = fix(tonumber(y))else y = 0 end + if m then m = fix(tonumber(m))else m = 0 end + if d then d = fix(tonumber(d))else d = 0 end + if y and m and d then + self.daynum = makedaynum(cy+y, cm+m, cd+d) + return self:normalize() + else + return date_error_arg() + end + end + + function dobj:addmonths(m, d) + return self:addyears(nil, m, d) + end + + local function dobj_adddayfrc(self,n,pt,pd) + n = tonumber(n) + if n then + local x = floor(n/pd); + self.daynum = self.daynum + x; + self.dayfrc = self.dayfrc + (n-x*pd)*pt; + return self:normalize() + else + return date_error_arg() + end + end + function dobj:adddays(n) return dobj_adddayfrc(self,n,TICKSPERDAY,1) end + function dobj:addhours(n) return dobj_adddayfrc(self,n,TICKSPERHOUR,HOURPERDAY) end + function dobj:addminutes(n) return dobj_adddayfrc(self,n,TICKSPERMIN,MINPERDAY) end + function dobj:addseconds(n) return dobj_adddayfrc(self,n,TICKSPERSEC,SECPERDAY) end + function dobj:addticks(n) return dobj_adddayfrc(self,n,1,TICKSPERDAY) end + local tvspec = { + -- Abbreviated weekday name (Sun) + ['%a']=function(self) return sl_weekdays[weekday(self.daynum) + 7] end, + -- Full weekday name (Sunday) + ['%A']=function(self) return sl_weekdays[weekday(self.daynum)] end, + -- Abbreviated month name (Dec) + ['%b']=function(self) return sl_months[self:getmonth() - 1 + 12] end, + -- Full month name (December) + ['%B']=function(self) return sl_months[self:getmonth() - 1] end, + -- Year/100 (19, 20, 30) + ['%C']=function(self) return fmt("%.2d", fix(self:getyear()/100)) end, + -- The day of the month as a number (range 1 - 31) + ['%d']=function(self) return fmt("%.2d", self:getday()) end, + -- year for ISO 8601 week, from 00 (79) + ['%g']=function(self) return fmt("%.2d", mod(self:getisoyear() ,100)) end, + -- year for ISO 8601 week, from 0000 (1979) + ['%G']=function(self) return fmt("%.4d", self:getisoyear()) end, + -- same as %b + ['%h']=function(self) return self:fmt0("%b") end, + -- hour of the 24-hour day, from 00 (06) + ['%H']=function(self) return fmt("%.2d", self:gethours()) end, + -- The hour as a number using a 12-hour clock (01 - 12) + ['%I']=function(self) return fmt("%.2d", self:getclockhour()) end, + -- The day of the year as a number (001 - 366) + ['%j']=function(self) return fmt("%.3d", self:getyearday()) end, + -- Month of the year, from 01 to 12 + ['%m']=function(self) return fmt("%.2d", self:getmonth()) end, + -- Minutes after the hour 55 + ['%M']=function(self) return fmt("%.2d", self:getminutes())end, + -- AM/PM indicator (AM) + ['%p']=function(self) return sl_meridian[self:gethours() > 11 and 1 or -1] end, --AM/PM indicator (AM) + -- The second as a number (59, 20 , 01) + ['%S']=function(self) return fmt("%.2d", self:getseconds()) end, + -- ISO 8601 day of the week, to 7 for Sunday (7, 1) + ['%u']=function(self) return self:getisoweekday() end, + -- Sunday week of the year, from 00 (48) + ['%U']=function(self) return fmt("%.2d", self:getweeknumber()) end, + -- ISO 8601 week of the year, from 01 (48) + ['%V']=function(self) return fmt("%.2d", self:getisoweeknumber()) end, + -- The day of the week as a decimal, Sunday being 0 + ['%w']=function(self) return self:getweekday() - 1 end, + -- Monday week of the year, from 00 (48) + ['%W']=function(self) return fmt("%.2d", self:getweeknumber(2)) end, + -- The year as a number without a century (range 00 to 99) + ['%y']=function(self) return fmt("%.2d", mod(self:getyear() ,100)) end, + -- Year with century (2000, 1914, 0325, 0001) + ['%Y']=function(self) return fmt("%.4d", self:getyear()) end, + -- Time zone offset, the date object is assumed local time (+1000, -0230) + ['%z']=function(self) local b = -self:getbias(); local x = abs(b); return fmt("%s%.4d", b < 0 and "-" or "+", fix(x/60)*100 + floor(mod(x,60))) end, + -- Time zone name, the date object is assumed local time + ['%Z']=function(self) return self:gettzname() end, + -- Misc -- + -- Year, if year is in BCE, prints the BCE Year representation, otherwise result is similar to "%Y" (1 BCE, 40 BCE) + ['%\b']=function(self) local x = self:getyear() return fmt("%.4d%s", x>0 and x or (-x+1), x>0 and "" or " BCE") end, + -- Seconds including fraction (59.998, 01.123) + ['%\f']=function(self) local x = self:getfracsec() return fmt("%s%.9f",x >= 10 and "" or "0", x) end, + -- percent character % + ['%%']=function(self) return "%" end, + -- Group Spec -- + -- 12-hour time, from 01:00:00 AM (06:55:15 AM); same as "%I:%M:%S %p" + ['%r']=function(self) return self:fmt0("%I:%M:%S %p") end, + -- hour:minute, from 01:00 (06:55); same as "%I:%M" + ['%R']=function(self) return self:fmt0("%I:%M") end, + -- 24-hour time, from 00:00:00 (06:55:15); same as "%H:%M:%S" + ['%T']=function(self) return self:fmt0("%H:%M:%S") end, + -- month/day/year from 01/01/00 (12/02/79); same as "%m/%d/%y" + ['%D']=function(self) return self:fmt0("%m/%d/%y") end, + -- year-month-day (1979-12-02); same as "%Y-%m-%d" + ['%F']=function(self) return self:fmt0("%Y-%m-%d") end, + -- The preferred date and time representation; same as "%x %X" + ['%c']=function(self) return self:fmt0("%x %X") end, + -- The preferred date representation, same as "%a %b %d %\b" + ['%x']=function(self) return self:fmt0("%a %b %d %\b") end, + -- The preferred time representation, same as "%H:%M:%\f" + ['%X']=function(self) return self:fmt0("%H:%M:%\f") end, + -- GroupSpec -- + -- Iso format, same as "%Y-%m-%dT%T" + ['${iso}'] = function(self) return self:fmt0("%Y-%m-%dT%T") end, + -- http format, same as "%a, %d %b %Y %T GMT" + ['${http}'] = function(self) return self:fmt0("%a, %d %b %Y %T GMT") end, + -- ctime format, same as "%a %b %d %T GMT %Y" + ['${ctime}'] = function(self) return self:fmt0("%a %b %d %T GMT %Y") end, + -- RFC850 format, same as "%A, %d-%b-%y %T GMT" + ['${rfc850}'] = function(self) return self:fmt0("%A, %d-%b-%y %T GMT") end, + -- RFC1123 format, same as "%a, %d %b %Y %T GMT" + ['${rfc1123}'] = function(self) return self:fmt0("%a, %d %b %Y %T GMT") end, + -- asctime format, same as "%a %b %d %T %Y" + ['${asctime}'] = function(self) return self:fmt0("%a %b %d %T %Y") end, + } + function dobj:fmt0(str) return (gsub(str, "%%[%a%%\b\f]", function(x) local f = tvspec[x];return (f and f(self)) or x end)) end + function dobj:fmt(str) + str = str or self.fmtstr or fmtstr + return self:fmt0((gmatch(str, "${%w+}")) and (gsub(str, "${%w+}", function(x)local f=tvspec[x];return (f and f(self)) or x end)) or str) + end + + function dobj.__lt(a, b) if (a.daynum == b.daynum) then return (a.dayfrc < b.dayfrc) else return (a.daynum < b.daynum) end end + function dobj.__le(a, b) if (a.daynum == b.daynum) then return (a.dayfrc <= b.dayfrc) else return (a.daynum <= b.daynum) end end + function dobj.__eq(a, b)return (a.daynum == b.daynum) and (a.dayfrc == b.dayfrc) end + function dobj.__sub(a,b) + local d1, d2 = date_getdobj(a), date_getdobj(b) + local d0 = d1 and d2 and date_new(d1.daynum - d2.daynum, d1.dayfrc - d2.dayfrc) + return d0 and d0:normalize() + end + function dobj.__add(a,b) + local d1, d2 = date_getdobj(a), date_getdobj(b) + local d0 = d1 and d2 and date_new(d1.daynum + d2.daynum, d1.dayfrc + d2.dayfrc) + return d0 and d0:normalize() + end + function dobj.__concat(a, b) return tostring(a) .. tostring(b) end + function dobj:__tostring() return self:fmt() end + + function dobj:copy() return date_new(self.daynum, self.dayfrc) end + +--[[ THE LOCAL DATE OBJECT METHODS ]]-- + function dobj:tolocal() + local dn,df = self.daynum, self.dayfrc + local bias = getbiasutc2(self) + if bias then + -- utc = local + bias; local = utc - bias + self.daynum = dn + self.dayfrc = df - bias*TICKSPERSEC + return self:normalize() + else + return nil + end + end + + function dobj:toutc() + local dn,df = self.daynum, self.dayfrc + local bias = getbiasloc2(dn, df) + if bias then + -- utc = local + bias; + self.daynum = dn + self.dayfrc = df + bias*TICKSPERSEC + return self:normalize() + else + return nil + end + end + + function dobj:getbias() return (getbiasloc2(self.daynum, self.dayfrc))/SECPERMIN end + + function dobj:gettzname() + local _, tvu, _ = getbiasloc2(self.daynum, self.dayfrc) + return tvu and osdate("%Z",tvu) or "" + end + +--#if not DATE_OBJECT_AFX then + function date.time(h, r, s, t) + h, r, s, t = tonumber(h or 0), tonumber(r or 0), tonumber(s or 0), tonumber(t or 0) + if h and r and s and t then + return date_new(DAYNUM_DEF, makedayfrc(h, r, s, t)) + else + return date_error_arg() + end + end + + function date:__call(...) + local arg = pack(...) + if arg.n > 1 then return (date_from(...)) + elseif arg.n == 0 then return (date_getdobj(false)) + else local o, r = date_getdobj(arg[1]); return r and o:copy() or o end + end + + date.diff = dobj.__sub + + function date.isleapyear(v) + local y = fix(v); + if not y then + y = date_getdobj(v) + y = y and y:getyear() + end + return isleapyear(y+0) + end + + function date.epoch() return date_epoch:copy() end + + function date.isodate(y,w,d) return date_new(makedaynum_isoywd(y + 0, w and (w+0) or 1, d and (d+0) or 1), 0) end + +-- Internal functions + function date.fmt(str) if str then fmtstr = str end; return fmtstr end + function date.daynummin(n) DAYNUM_MIN = (n and n < DAYNUM_MAX) and n or DAYNUM_MIN return n and DAYNUM_MIN or date_new(DAYNUM_MIN, 0):normalize()end + function date.daynummax(n) DAYNUM_MAX = (n and n > DAYNUM_MIN) and n or DAYNUM_MAX return n and DAYNUM_MAX or date_new(DAYNUM_MAX, 0):normalize()end + function date.ticks(t) if t then setticks(t) end return TICKSPERSEC end +--#end -- not DATE_OBJECT_AFX + + local tm = osdate("!*t", 0); + if tm then + date_epoch = date_new(makedaynum(tm.year, tm.month - 1, tm.day), makedayfrc(tm.hour, tm.min, tm.sec, 0)) + -- the distance from our epoch to os epoch in daynum + DATE_EPOCH = date_epoch and date_epoch:spandays() + else -- error will be raise only if called! + date_epoch = setmetatable({},{__index = function() error("failed to get the epoch date") end}) + end + +--#if not DATE_OBJECT_AFX then +return date +--#else +--$return date_from +--#end + diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar-helpers.lua b/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar-helpers.lua new file mode 100644 index 00000000000..99314dd0bfe --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar-helpers.lua @@ -0,0 +1,279 @@ +-- paths are relative to wallcalendar.cls +local csv = require("wallcalendar-csv.lua") +local date = require("wallcalendar-date.lua") +local tp = tex.print +local tsp = tex.sprint + +function loadCsv(csv_path) + local f = csv.open(csv_path, {separator = ";", header = true}) + local data = {} + for fields in f:lines() do + data[#data + 1] = fields + end + return data +end + +function ok(x) + return x ~= nil and x ~= "" +end + +function hasNote(event) + return ok(event.note) +end + +function monthNameToNum(monthName) + local months = {january = 1, february = 2, march = 3, april = 4, may = 5, june = 6, july = 7, august = 8, september = 9, october = 10, november = 11, december = 12} + return months[string.lower(monthName)] +end + +function getMark(idx, events, markDefaults, isNote) + local event = events[idx] + local default_mark = {} + default_mark.number = {} + default_mark.day_text = {} + default_mark.note = {} + + default_mark.number.symbol = idx + default_mark.number.above_offset = "\\markNumberAbove" + default_mark.number.right_offset = "\\markNumberRight" + + default_mark.day_text.symbol = idx + default_mark.day_text.above_offset = "\\markDayTextAbove" + default_mark.day_text.right_offset = "\\markDayTextRight" + + default_mark.note.symbol = idx + default_mark.note.above_offset = "" -- placeholder, not used for note + default_mark.note.right_offset = "" -- placeholder, not used for note + + local mark = {} + + for k,v in pairs(default_mark.number) do + local m = {} + local mark_key = "" + local csv_key = "" + + if ok(isNote) then + mark_key = "note" + elseif ok(event.day_text) then + mark_key = "day_text" + else + mark_key = "number" + end + + m = default_mark[mark_key] + csv_key = mark_key .. "_" .. k + + if not ok(markDefaults) or not ok(markDefaults[idx]) or not ok(markDefaults[idx][csv_key]) then + mark[k] = m[k] + else + mark[k] = markDefaults[idx][csv_key] + end + end + + return mark +end + +function getCombinedMark(idx, events, markDefaults, isNote) + local event = events[idx] + local mark = getMark(idx, events, markDefaults, isNote) + + mark.symbol = "" + for i,e in pairs(events) do + if e.date == event.date then + local m = getMark(i, events, markDefaults, isNote) + if mark.symbol == "" then + mark.symbol = m.symbol + else + mark.symbol = mark.symbol .. "\\symbolSeparator " .. m.symbol + end + end + end + + return mark +end + +function collectEvents(byWhat, events, byValue, filterPred) + local data = {} + for idx,row in pairs(events) do + d = date(row.date) + + if filterPred ~= nil then + if byWhat == 'month' then + if d:getmonth() == byValue and filterPred(row) then + data[#data + 1] = row + end + elseif byWhat == 'year' then + if d:getyear() == byValue and filterPred(row) then + data[#data + 1] = row + end + end + else + if byWhat == 'month' then + if d:getmonth() == byValue then + data[#data + 1] = row + end + elseif byWhat == 'year' then + if d:getyear() == byValue then + data[#data + 1] = row + end + end + end + + end + return data +end + +function eventsInMonth(events, month, filterPred) + return collectEvents('month', events, month, filterPred) +end + +function eventsInYear(events, year, filterPred) + return collectEvents('year', events, year, filterPred) +end + +function formatEvents(events, formatFunc, formatCmd, markDefaultsCsv, minEvents) + if ok(minEvents) and #events < minEvents then + d = minEvents - #events + for i=0,d,1 do + events[#events + 1] = {} + end + end + + local markDefaults = nil + if ok(markDefaultsCsv) then + markDefaults = loadCsv(markDefaultsCsv) + end + + for idx,event in pairs(events) do + local mark = {} + local d = {} + + if ok(event.date) then + -- don't use getCombinedMark here, events on the same day will be printed one after the other + mark = getMark(idx, events, markDefaults, true) + d = date(event.date) + end + + if formatFunc then + + formatFunc(idx, #events, event, d, mark) + + else + + tsp("\\def\\eIdx{"..idx .."}") -- \def\eIdx{1} + tsp("\\def\\eMaxIdx{"..#events .."}") -- \def\eMaxIdx{8} + tsp("\\def\\eMark{"..mark.symbol .."}") -- \def\eMark{\kiteMark} + tsp("\\def\\eIsoDate{"..event.date .."}") -- \def\eIsoDate{2018-01-12} + tsp("\\def\\eYear{"..d:getyear() .."}") -- \def\eYear{2018} + tsp("\\def\\eMonth{\\x"..d:fmt("%B") .."}") -- \def\eMonth\xJanuary + tsp("\\def\\eMonthShort{\\x"..d:fmt("%b").."Short" .."}") -- \def\eMonthShort\xJanShort + tsp("\\def\\eDay{"..d:getday() .."}") -- \def\eDay{12} + if ok(event.day_text) then + tsp("\\def\\eDayText{"..event.day_text .."}") -- \def\eDayText{\dejaVuSans\char"263C} + else + tsp("\\def\\eDayText{}") + end + if ok(event.note) then + tsp("\\def\\eNote{"..event.note .."}") -- \def\eNote{Anniversary Day} + else + tsp("\\def\\eNote{}") + end + + tsp(formatCmd) + + end + end +end + +-- It's better to call it with the name of the month than its number because it +-- fits the wrapper commands better. +function monthEvents(monthName, filterPred, formatFunc, formatCmd, eventsCsv, markDefaultsCsv, minEvents) + local monthNum = monthNameToNum(monthName) + local events = eventsInMonth(loadCsv(eventsCsv), monthNum, filterPred) + + formatEvents(events, formatFunc, formatCmd, markDefaultsCsv, minEvents) +end + +function yearEvents(yearNum, filterPred, formatFunc, formatCmd, eventsCsv, markDefaultsCsv, minEvents) + local events = eventsInYear(loadCsv(eventsCsv), yearNum, filterPred) + + formatEvents(events, formatFunc, formatCmd, markDefaultsCsv, minEvents) +end + +-- monthName is better for argument than monthNum +function monthMarksDayText(monthName, filterPred, eventsCsv) + local monthNum = monthNameToNum(monthName) + local events = eventsInMonth(loadCsv(eventsCsv), monthNum, filterPred); + + for idx,event in pairs(events) do + if ok(event.day_text) then + tsp(string.format(" if (equals=%s) [day text={%s}, xshift=\\dayTextXshift, yshift=\\dayTextYshift] ", event.date, event.day_text)) + end + end +end + +function yearMarksDayText(yearNum, filterPred, eventsCsv) + local events = eventsInYear(loadCsv(eventsCsv), yearNum, filterPred); + + for idx,event in pairs(events) do + if ok(event.day_text) then + tsp(string.format(" if (equals=%s) [day text={%s}, xshift=\\dayTextXshift, yshift=\\dayTextYshift] ", event.date, event.day_text)) + end + end +end + +function formatMarksNote(events, filterPred, markDefaultsCsv, isOneCalendar) + local markDefaults = nil + if ok(markDefaultsCsv) then + markDefaults = loadCsv(markDefaultsCsv) + end + + local alreadyMarkedDates = {} + + for idx,event in pairs(events) do + if ok(event.note) and alreadyMarkedDates[event.date] == nil then + alreadyMarkedDates[event.date] = true + local d = date(event.date) + + local mark = getCombinedMark(idx, events, markDefaults) + + if ok(isOneCalendar) and isOneCalendar == true then + tsp(string.format(" \\draw node [above right=%s and %s of cal-%s.north east] {\\monthMarkFmt %s}; ", + mark.above_offset, + mark.right_offset, + event.date, + mark.symbol)) + else + tsp(string.format(" \\draw node [above right=%s and %s of cal%s-%s.north east] {\\monthMarkFmt %s}; ", + mark.above_offset, + mark.right_offset, + d:fmt("%m"), + event.date, + mark.symbol)) + end + end + end +end + +-- monthName is better for argument than monthNum +function monthMarksNote(monthName, filterPred, eventsCsv, markDefaultsCsv) + local monthNum = monthNameToNum(monthName) + + if not ok(filterPred) then + filterPred = function(e) return ok(e.note) end + end + + local events = eventsInMonth(loadCsv(eventsCsv), monthNum, filterPred); + + formatMarksNote(events, filterPred, markDefaultsCsv, false) +end + +function yearMarksNote(yearNum, filterPred, eventsCsv, markDefaultsCsv, isOneCalendar) + if not ok(filterPred) then + filterPred = function(e) return ok(e.note) end + end + + local events = eventsInYear(loadCsv(eventsCsv), yearNum, filterPred); + + formatMarksNote(events, filterPred, markDefaultsCsv, isOneCalendar) +end diff --git a/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar.cls b/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar.cls new file mode 100644 index 00000000000..be0cc5ef962 --- /dev/null +++ b/Master/texmf-dist/tex/lualatex/wallcalendar/wallcalendar.cls @@ -0,0 +1,1714 @@ +% wallcalendar.cls; Don't edit this file. Edit wallcalendar-code.org with emacs org-mode and call 'org-babel-tangle'. +% +% Wall Calendar +% +% A wall calendar document class with custom layouts and support for internationalization. +% +% (c) Gambhiro Bhikkhu, 2017 +% gambhiro.bhikkhu.85@gmail.com +% +% LPPL LaTeX Public Project License + +\NeedsTeXFormat{LaTeX2e} +\ProvidesClass{wallcalendar}[2017/10/21 v1.3.1 A wall calendar class with custom layouts and support for internationalization.] + +\RequirePackage{pgfopts} +\RequirePackage{calc} + +\newlength\calPaperWidth +\newlength\calPaperHeight +\newlength\@wall@leftMargin +\newlength\@wall@rightMargin +\newlength\@wall@topMargin +\newlength\@wall@bottomMargin + +\def\@wall@eventsCsv{} +\def\@wall@markDefaultsCsv{} +\def\@wall@translationsInputFile{} + +\newcommand*\theMonthName{} + +\newif\ifvarnishmask +\newif\ifshowframe +\newif\iftranslationsAutoload +\newif\ifloadBabel + +\pgfkeys{ + /wall/.is family, /wall, + defaults/.style = { + year = \the\year, + altyear = \empty, + loadBabel = false, + language = english, + translationsAutoload = true, + imageFolder = {./src-images}, + choralOctavoPaper, + hMargin = 17mm, + topMargin = 20.5mm, + bottomMargin = 10mm, + }, + year/.store in = \CalendarYear, + year/.initial = \the\year, + altyear/.store in = \CalendarAltYear, + altyear/.initial = \empty, + language/.store in = \@wall@calendarLanguage, + loadBabel/.is if = loadBabel, + translationsInputFile/.store in = \@wall@translationsInputFile, + translationsInputFile/.initial = {}, + translationsAutoload/.is if = translationsAutoload, + eventsCsv/.store in = \@wall@eventsCsv, + eventsCsv/.initial = {}, + markDefaultsCsv/.store in = \@wall@markDefaultsCsv, + markDefaultsCsv/.initial = {}, + varnishmask/.is if = varnishmask, + showframe/.is if = showframe, + imageFolder/.store in = \@wall@imageFolder, + paperWidth/.code = {\setlength{\calPaperWidth}{#1}}, + paperHeight/.code = {\setlength{\calPaperHeight}{#1}}, + hMargin/.code = {\setlength{\@wall@leftMargin}{#1}% + \setlength{\@wall@rightMargin}{#1}}, + leftMargin/.code = {\setlength{\@wall@leftMargin}{#1}}, + rightMargin/.code = {\setlength{\@wall@rightMargin}{#1}}, + topMargin/.code = {\setlength{\@wall@topMargin}{#1}}, + bottomMargin/.code = {\setlength{\@wall@bottomMargin}{#1}}, + % Paper sizes + choralOctavoPaper/.style = {paperWidth = 6.75in, paperHeight = 10.5in}, + a2Paper/.style = {paperWidth = 420mm, paperHeight = 594mm}, + a2PaperLandscape/.style = {paperWidth = 594mm, paperHeight = 420mm}, + a3Paper/.style = {paperWidth = 297mm, paperHeight = 420mm}, + a3PaperLandscape/.style = {paperWidth = 420mm, paperHeight = 297mm}, + a4Paper/.style = {paperWidth = 210mm, paperHeight = 297mm}, + a4PaperLandscape/.style = {paperWidth = 297mm, paperHeight = 210mm}, + a5Paper/.style = {paperWidth = 148mm, paperHeight = 210mm},% r = 1.4142 = sqrt(2) + prevPaper/.style = {paperWidth = 170mm, paperHeight = 250mm},% r = 1.4705 +} + +% Debug with: \wlog{YEA: \the\@wall@bottomMargin} + +\DeclareOption*{% + \PassOptionsToClass{\CurrentOption}{memoir} +} + +\pgfkeys{/wall, defaults} +\ProcessPgfOptions{/wall} +\ProcessOptions\relax + +\LoadClass[11pt,oneside]{memoir} + +\newlength\@tmp@a +\newlength\@tmp@b +\newlength\@tmp@c +\newlength\@tmp@width +\newlength\@tmp@height + +\ifloadBabel +\RequirePackage[\@wall@calendarLanguage]{babel} +\fi + +\RequirePackage{nag} +%\RequirePackage{textcomp} +\RequirePackage[cmyk]{xcolor} +\RequirePackage{graphicx} +\DeclareGraphicsExtensions{.pdf,.png,.jpg} +\graphicspath{{\@wall@imageFolder}} + +\RequirePackage{eso-pic} +\RequirePackage{ccicons} +\RequirePackage{multicol} +\RequirePackage{wasysym} + +\RequirePackage{pdftexcmds} +\RequirePackage{etoolbox} +\RequirePackage{luacode} + +\RequirePackage{xcoffins} +%\RequirePackage{xstring} +%\RequirePackage{stringstrings} + +\ifloadBabel +\RequirePackage[final,babel=true]{microtype} +\else +\RequirePackage[final]{microtype} +\fi + +\RequirePackage{tikz} +\usetikzlibrary{calendar} +\usetikzlibrary{positioning} +\usetikzlibrary{fit} +\usetikzlibrary{shapes.geometric} + +% http://tex.stackexchange.com/a/20426/831 +\pgfdeclarelayer{one} +\pgfdeclarelayer{two} +\pgfsetlayers{main,one,two} + +\pgfkeys{% + /tikz/on layer/.code={ + \pgfonlayer{#1}\begingroup + \aftergroup\endpgfonlayer + \aftergroup\endgroup + } +} + +\definecolor{textbody}{gray}{0.15} + +% pantone 1245C, RGB 191,145,12 HEX: #BF910C +% pantone 1255C, CMYK 0,27.5,100,34 +\definecolor{gold}{cmyk}{0,0.275,1,0.34} +\definecolor{darkgold}{cmyk}{0.27,0.53,1,0.09} +%\definecolor{orangegold}{cmyk}{0,0.31,0.89,0} +\colorlet{orangegold}{darkgold} + +\colorlet{gridcolor}{black!30} +\colorlet{weekday}{black} +\colorlet{weekend}{black!50} +\colorlet{mooncolor}{textbody} + +\definecolor{datenum}{gray}{0.3} +\definecolor{plannerdatenum}{gray}{0.15} +\definecolor{quote}{gray}{0.3} +\definecolor{notes}{gray}{0.3} + +\definecolor{gridcolor}{gray}{0.5} +\colorlet{pagebgcolor}{gridcolor!60} + +\colorlet{photo-frame}{blue} +\colorlet{quote-frame}{red} +\colorlet{heading-frame}{brown} +\colorlet{calendar-frame}{orange} +\colorlet{events-frame}{green} + +\ifshowframe + \colorlet{calendarbg}{black!50} +\else + \colorlet{calendarbg}{white} +\fi + +\ifshowtrims + \setstocksize{\calPaperHeight + 35mm}{\calPaperWidth + 35mm} + \setlength{\paperheight}{\calPaperHeight} + \setlength{\paperwidth}{\calPaperWidth} + \trimXmarks + \trimLmarks + \quarkmarks + \settrims{0.5\stockheight - 0.5\paperheight}{0.5\stockwidth - 0.5\paperwidth} + \settrimmedsize{\calPaperHeight}{\calPaperWidth}{*} +\else\relax + \setstocksize{\calPaperHeight}{\calPaperWidth} + \settrims{0pt}{0pt} + \settrimmedsize{\stockheight}{\stockwidth}{*} +\fi + +%\settypeblocksize{\stockheight}{\stockwidth}{*} +% TODO: calculate margins by ratios to paper size +\setlrmarginsandblock{\@wall@leftMargin}{\@wall@rightMargin}{*} +\setulmarginsandblock{\@wall@topMargin}{\@wall@bottomMargin}{*} +\setheadfoot{0pt}{0pt} +\setheaderspaces{0pt}{*}{*} + +\checkandfixthelayout% This will typeout values in pt. +\settypeoutlayoutunit{mm}% It is useful to see layout values in mm too. +\typeoutlayout + +\def\@wall@fontSize{11} +\def\@wall@lineHeight{13.6} + +\renewcommand{\normalsize}{% + \@setfontsize\normalsize\@wall@fontSize\@wall@lineHeight + \abovedisplayskip 11\p@ \@plus3\p@ \@minus6\p@ + \abovedisplayshortskip \z@ \@plus3\p@ + \belowdisplayshortskip 6.5\p@ \@plus3.5\p@ \@minus3\p@ + \belowdisplayskip \abovedisplayskip + \color{textbody} + \let\@listi\@listI} +\normalsize + +\setlength{\vgap}{1.5em} +\setlength{\vindent}{\vgap} +\setlength{\vleftmargin}{2em} + +\setlength{\parskip}{0pt} +\setlength{\parindent}{0pt} + +\setlength{\fboxsep}{0pt} + +\definecolor{varnishmask}{gray}{0} + +% http://tex.stackexchange.com/a/59571/831 +\newcommand*{\strcmpblank}[3]{% + \ifnum\pdf@strcmp{#1}{}=\z@ #2\else #3\fi +} + +\newcommand\@placeholder@pre[1]{% + \settowidth{\@tmp@width}{#1}% + \settototalheight{\@tmp@height}{#1}% + \def\@spacer{\rule{\@tmp@width}{0pt}\rule{0pt}{\@tmp@height}}% +} + +\newcommand\placeholder[3][]{% + \ifvarnishmask% + \ifstrequal{#2}{hasvarnish}{% + \@placeholder@pre{#3}% + \tikz\node[fill=varnishmask, inner sep=0pt]{\@spacer};% + }{}% + \else% + \ifshowframe% + \@placeholder@pre{#3}% + \tikz\node[inner sep=0pt, opacity=0.6, #1]{\@spacer};% + \else% + #3% + \fi% + \fi% +} + +\def\@wall@photo@putPhoto#1{#1} +\def\@wall@photo@setYOffset{} + +\pgfkeys{ + /put photo/.is family, /put photo, + simple/.code = {% + \def\@wall@photo@putPhoto##1{% + \includegraphics{##1}% + }% + \def\@wall@photo@setYOffset{}% + }, + full page/.code = {% + \def\@wall@photo@putPhoto##1{% + \includegraphics[% + keepaspectratio,% + width={\calPaperWidth + 2\@t@bleed},% + ]{##1}% + }% + \def\@wall@photo@setYOffset{}% + }, + full width above calendar/.code = {% + \def\@wall@photo@putPhoto##1{% + \includegraphics[% + keepaspectratio,% + width={\calPaperWidth + 2\@t@bleed},% + ]{##1}% + }% + \def\@wall@photo@setYOffset{% + \setlength{\@t@yOffset}{\@t@calendar@height + \@t@bleed + 1pt}% + }% + }, + full width/.code = {% + \def\@wall@photo@putPhoto##1{% + \includegraphics[% + keepaspectratio,% + width={\calPaperWidth + 2\@t@bleed},% + ]{##1}% + }% + \def\@wall@photo@setYOffset{% + \setlength{\@t@yOffset}{\@t@calendar@height + \@t@bleed}% + }% + }, +} + +\pgfkeys{ + /Photo/.is family, /Photo, + init/.style = { + defaults/.style = {file = {}, thumbFile = {}, caption = {}, bleed = 0pt, xOffset=0pt, yOffset=0pt}, + file/.initial = {}, + thumbFile/.initial = {}, + caption/.initial = {}, + bleed/.initial = 0pt, + xOffset/.initial = 0pt, + yOffset/.initial = 0pt, + }, +} + +\pgfkeys{ + /Quote/.is family, /Quote, + init/.style = { + defaults/.style = {position=center, text={}, xOffset=0pt, yOffset=0pt}, + position/.initial = {}, + text/.initial = {}, + xOffset/.initial = 0pt, + yOffset/.initial = 0pt, + }, +} + +\pgfkeys{ + /Calendar/.is family, /Calendar, + init/.style = { + defaults/.style = {bg/.style={opacity=0.5}}, + bg/.style = {}, + minimum height/.initial = {}, + }, +} + +\pgfkeys{ + /Events/.is family, /Events, + init/.style = { + defaults/.style = {day code = {}, marks = {}, text = {}}, + day code/.initial = {}, + marks/.initial = {}, + text/.initial = {}, + }, +} + +\pgfkeys{ + /Txt/.is family, /Txt, + init/.style = { + defaults/.style = {text = {}}, + text/.initial = {}, + }, +} + +\def\eIdx{} +\def\eMaxIdx{} +\def\eMark{} +\def\eIsoDate{} +\def\eYear{} +\def\eMonth{} +\def\eMonthShort{} +\def\eDay{} +\def\eDayText{} +\def\eNote{} + +\pgfkeys{ + /parseMonthEvents/.is family, /parseMonthEvents, + month/.initial = {}, + filter pred/.initial = nil, + format func/.initial = nil, + format cmd/.initial = {}, + events csv/.initial = {}, + mark defaults csv/.initial = {}, + min events/.initial = {}, + defaults/.style = { + month = \theMonthName, + filter pred = nil, + format func = nil, + format cmd = {\textsuperscript{\eIdx}~\eMonthShort~\eDay:~\eNote\par}, + events csv = \@wall@eventsCsv, + mark defaults csv = \@wall@markDefaultsCsv, + min events = nil, + }, +} + +\pgfkeys{ + /parseYearEvents/.is family, /parseYearEvents, + year/.initial = {}, + filter pred/.initial = nil, + format func/.initial = nil, + format cmd/.initial = {}, + events csv/.initial = {}, + mark defaults csv/.initial = {}, + min events/.initial = {}, + defaults/.style = { + year = \CalendarYear, + filter pred = nil, + format func = nil, + format cmd = {\textsuperscript{\eIdx}~\eMonthShort~\eDay:~\eNote\ifnumless{\eIdx}{\eMaxIdx}{,\space}{.}}, + events csv = \@wall@eventsCsv, + mark defaults csv = \@wall@markDefaultsCsv, + min events = nil, + }, +} + +\newcommand\StarMark{*} + +\newcommand\NoteStarMark{*} + +\newlength\@wall@starHeight + +% Measure the star's height here, so that we are measuring with the current typeface. +\newcommand\KiteMark{% +\setlength{\@wall@starHeight}{\totalheightof{*}}% +\begin{tikzpicture} + \node (box) [ + rectangle, minimum height=\@wall@starHeight, minimum width=3.4pt, + inner sep=0pt, line width=0pt, + ] {}; + \node[ + kite, draw, textbody, fill=textbody, + scale=0.15, kite vertex angles=60, + above=0pt of box.north, anchor=north, + ] {};% +\end{tikzpicture}% +} + +% Same as \KiteMark but with scale=0.2 +\newcommand\NoteKiteMark{\raisebox{1pt}{% +\setlength{\@wall@starHeight}{\totalheightof{*}}% +\begin{tikzpicture} + \node (box) [ + rectangle, minimum height=\@wall@starHeight, minimum width=3.4pt, + inner sep=0pt, line width=0pt, + ] {}; + \node[ + kite, draw, textbody, fill=textbody, + scale=0.2, kite vertex angles=60, + above=0pt of box.north, anchor=north, + ] {};% +\end{tikzpicture}% +}} + +\tikzstyle{moon circle}=[ + circle, + inner sep=0pt, + line width=0pt, + minimum height=8pt, +] + +\newlength\@wall@moonRaise +\setlength{\@wall@moonRaise}{-0.7pt} + +\newcommand\NewMoon{} +\newcommand\FirstQuarter{} +\newcommand\FullMoon{} +\newcommand\LastQuarter{} + +\newcommand\@wall@NewMoon{% +\raisebox{\@wall@moonRaise}{% + \tikz\node[moon circle, fill=mooncolor] {};% +}} + +\newcommand\@wall@FullMoon{% +\raisebox{\@wall@moonRaise}{% + \tikz\node[moon circle, draw, mooncolor, line width=0.3pt] {};% +}} + +\newcommand\@wall@FirstQuarter{% +\raisebox{\@wall@moonRaise}{% +\begin{tikzpicture} +\node [moon circle, name=waxing] {}; +\path[fill=mooncolor] + (waxing.north) -- + (waxing.south) to[out=-180,in=-90] + (waxing.west) to[out=90,in=-180] + (waxing.north); +\end{tikzpicture}% +}} + +\newcommand\@wall@LastQuarter{% +\raisebox{\@wall@moonRaise}{% +\begin{tikzpicture} +\node [moon circle, name=waning] {}; +\path[fill=mooncolor] + (waning.north) -- + (waning.south) to[out=0,in=-90] + (waning.east) to[out=90,in=0] + (waning.north); +\end{tikzpicture}% +}} + +\newcommand\@wall@useDefaultMoons{% +\renewcommand\NewMoon{\@wall@NewMoon}% +\renewcommand\FirstQuarter{\@wall@FirstQuarter}% +\renewcommand\FullMoon{\@wall@FullMoon}% +\renewcommand\LastQuarter{\@wall@LastQuarter}% +} + +\newcommand\plannerMoonSize{\@setfontsize\plannerMoonSize{14}{14}} +\newcommand*\plannerMoonFormat[1]{{\plannerMoonSize #1}} + +\newcommand\@wall@planner@NewMoon{\plannerMoonFormat{\CIRCLE}} +\newcommand\@wall@planner@FirstQuarter{\plannerMoonFormat{\LEFTcircle}} +\newcommand\@wall@planner@FullMoon{\plannerMoonFormat{\Circle}} +\newcommand\@wall@planner@LastQuarter{\plannerMoonFormat{\RIGHTcircle}} + +\newcommand\@wall@usePlannerMoons{% +\renewcommand\NewMoon{\@wall@planner@NewMoon}% +\renewcommand\FirstQuarter{\@wall@planner@FirstQuarter}% +\renewcommand\FullMoon{\@wall@planner@FullMoon}% +\renewcommand\LastQuarter{\@wall@planner@LastQuarter}% +} + +\@wall@useDefaultMoons + +\newcommand\SetPhoto[2][]{% + \pgfkeys{% + /Photo/#2/.is family, /Photo/#2, + /Photo/init, + defaults, file={#2}, + #1% + }% +} + +\newcommand\SetCalendar[2][]{% + \pgfkeys{% + /Calendar/#2/.is family, /Calendar/#2, + /Calendar/init, + defaults, + #1% + }% +} + +\newcommand\SetQuote[3][]{% + \pgfkeys{% + /Quote/#2/.is family, /Quote/#2, + /Quote/init, + defaults, text={#3}, + #1% + }% +} + +\newcommand\SetEvents[4][]{% + \pgfkeys{% + /Events/#2/.is family, /Events/#2, + /Events/init, + defaults, marks={#3}, text={#4}, + #1% + }% +} + +\pgfkeys{ + /MonthPage/.is family, /MonthPage, + layout/.style = {layout handlers/#1/.get = \@wall@month@doLayout}, + put photo/.style = {/put photo/#1}, + defaults/.style = {layout = small landscape, put photo = simple}, + layout handlers/.cd, + full page/.initial = \@wall@fullPageLayout, + small landscape/.initial = \@wall@smallLandscapeLayout, +} + +\newcommand\MonthPage[2][]{% + \pgfkeys{/MonthPage, defaults, #1}% + \@wall@month@doLayout{#2}% +} + +\newcommand\SetTxt[2]{% + \pgfkeys{% + /Txt/#1/.is family, /Txt/#1, + /Txt/init, + defaults, text={#2}, + }% +} + +\newcommand\txt[1]{% +\pgfkeys{/Txt/#1/text/.get=\@val}% +\@val% +} + +\def\@t@monthName{} +\def\@t@eventsCsv{} +\def\@t@markDefaultsCsv{} +\def\@t@filterPred{} +\def\@t@formatFunc{} +\def\@t@formatCmd{} +\def\@t@minEvents{} + +\newcommand\monthMarkFmt{\color{textbody}} + +\newcommand\symbolSpace{\thinspace} +\newcommand\symbolSeparator{,\symbolSpace} + +% #1 = option keys +\newcommand*\parseMonthEvents[1][]{% +\pgfkeys{/parseMonthEvents, defaults, #1, + month/.get=\@t@monthName, + filter pred/.get=\@t@filterPred, + format func/.get=\@t@formatFunc, + format cmd/.get=\@t@formatCmd, + events csv/.get=\@t@eventsCsv, + mark defaults csv/.get=\@t@markDefaultsCsv, + min events/.get=\@t@minEvents, +}% +\luadirect{ +require("wallcalendar-helpers.lua") +monthEvents( + \luastring{\@t@monthName}, + \@t@filterPred, + \@t@formatFunc, + \luastringO{\@t@formatCmd}, + \luastring{\@t@eventsCsv}, + \luastring{\@t@markDefaultsCsv}, + \@t@minEvents +)}} + +\def\@t@yearNum{} + +% #1 = option keys +\newcommand*\parseYearEvents[1][]{% +\pgfkeys{/parseYearEvents, defaults, #1, + year/.get=\@t@year, + filter pred/.get=\@t@filterPred, + format func/.get=\@t@formatFunc, + format cmd/.get=\@t@formatCmd, + events csv/.get=\@t@eventsCsv, + mark defaults csv/.get=\@t@markDefaultsCsv, + min events/.get=\@t@minEvents, +}% +\luadirect{ +require("wallcalendar-helpers.lua") +yearEvents( + tonumber(\@t@year), + \@t@filterPred, + \@t@formatFunc, + \luastringO{\@t@formatCmd}, + \luastring{\@t@eventsCsv}, + \luastring{\@t@markDefaultsCsv}, + \@t@minEvents +)}} + +\newlength\dayTextXshift +\newlength\dayTextYshift +\setlength{\dayTextXshift}{0pt} +\setlength{\dayTextYshift}{0pt} + +\newlength\markNumberAbove +\newlength\markNumberRight +\setlength{\markNumberAbove}{-10pt} +\setlength{\markNumberRight}{-3pt} + +\newlength\markDayTextAbove +\newlength\markDayTextRight +\setlength{\markDayTextAbove}{-10pt} +\setlength{\markDayTextRight}{-3pt} + +\newcommand\parseMonthMarksDayText{% +\luadirect{ +require("wallcalendar-helpers.lua") +monthMarksDayText(\luastring{\theMonthName}, nil, \luastring{\@wall@eventsCsv}) +tex.sprint(';') +}} + +\newcommand\parseMonthMarksDayTextMonth[1]{% +\luadirect{ +require("wallcalendar-helpers.lua") +monthMarksDayText(\luastring{#1}, nil, \luastring{\@wall@eventsCsv}) +tex.sprint(';') +}} + +\newcommand*\parseMonthMarksDayTextUsing[1]{% +\luadirect{ +require("wallcalendar-helpers.lua") +monthMarksDayText(\luastring{\theMonthName}, nil, \luastring{#1}) +}} + +\newcommand\parseMonthMarksDayTextMonthUsing[2]{% +\luadirect{ +require("wallcalendar-helpers.lua") +monthMarksDayText(\luastring{#1}, nil, \luastring{#2}) +}} + +\newcommand*\parseMonthMarksNote{% +\luadirect{ +require("wallcalendar-helpers.lua") +monthMarksNote(\luastring{\theMonthName}, nil, \luastring{\@wall@eventsCsv}, \luastring{\@wall@markDefaultsCsv}) +}} + +\newcommand*\parseMonthMarksNoteUsing[1]{% +\luadirect{ +require("wallcalendar-helpers.lua") +monthMarksNote(\luastring{\theMonthName}, nil, \luastring{#1}, \luastring{\@wall@markDefaultsCsv}) +}} + +\makepagestyle{month} +\makeoddhead{month}{}{}{} +\makeevenhead{month}{}{}{} +\makeoddfoot{month}{}{}{} +\makeevenfoot{month}{}{}{} + +\pagestyle{month} + +\NewCoffin\@wall@pageWrap +\NewCoffin\@wall@photo +\NewCoffin\@wall@quote +\NewCoffin\@wall@calendar +\NewCoffin\@wall@events + +\newlength\@t@bleed +\newlength\@t@rightOffset +\newlength\@t@minipageWidth +\newlength\@t@calendar@height +\newlength\@t@calendar@hmargin +\newlength\@t@calendar@dayYshift +\newlength\@t@calendar@dayXshift +\newlength\@t@calendar@gridHeight +\newlength\@t@calendar@gridHeightFiveRows +\newlength\@t@calendar@gridHeightSixRows +\newlength\@t@xOffset +\newlength\@t@yOffset +\def\@t@file{} + +\newcommand*\monthFmt{}% +\newcommand*\yearFmt{}% +\newcommand*\dayLetterColor{}% +\newcommand*\dayLetterFmt{}% +\newcommand*\dayTextFmt{}% +\newcommand*\quoteFmt{}% +\newcommand*\headingFmt{}% +\newcommand*\calendarFmt{}% +\newcommand*\eventsFmt{}% + +\newcommand\@wall@layout@reset{% + \renewcommand*\monthFmt{}% + \renewcommand*\yearFmt{}% + \renewcommand*\dayLetterColor{}% + \renewcommand*\dayLetterFmt{}% + \renewcommand*\dayTextFmt{}% + \renewcommand*\quoteFmt{}% + \renewcommand*\headingFmt{}% + \renewcommand*\calendarFmt{}% + \renewcommand*\eventsFmt{}% + \def\@t@file{}% + \setlength{\@t@calendar@height}{0pt}% + \setlength{\@t@calendar@hmargin}{0pt}% + \setlength{\@t@calendar@dayYshift}{0pt}% + \setlength{\@t@calendar@dayXshift}{0pt}% + \setlength{\@t@bleed}{0pt}% + \setlength{\@t@rightOffset}{0pt}% + \setlength{\@t@minipageWidth}{0pt}% + \setlength{\@t@xOffset}{0pt}% + \setlength{\@t@yOffset}{0pt}% + \setlength{\@t@calendar@gridHeight}{0pt}% + \setlength{\@t@calendar@gridHeightFiveRows}{0pt}% + \setlength{\@t@calendar@gridHeightSixRows}{0pt}% +} + +\newcommand\fullPageFmt{% + \renewcommand*\monthFmt{\LARGE}% + \renewcommand*\yearFmt{\LARGE}% + \renewcommand*\dayLetterColor{}% + \renewcommand*\dayLetterFmt{\tiny}% + \renewcommand*\dayTextFmt{\small}% + \renewcommand*\quoteFmt{}% + \renewcommand*\headingFmt{\centering}% + \renewcommand*\calendarFmt{\centering}% + \renewcommand*\eventsFmt{\setlength{\parindent}{0pt}\raggedleft\footnotesize}% +} + +\newcommand\@wall@fullPageLayout[2][]{% +\makeatletter +\renewcommand*\theMonthName{#2} +\@wall@layout@reset +\fullPageFmt + +\colorlet{weekday}{black} +\colorlet{weekend}{black!70} + +\pgfkeys{/Photo/#2/bleed/.get=\@val} +\setlength{\@t@bleed}{\@val} + +\def\@t@monthnum{\monthToNum{#2}} + +% 40mm = 1.5748 inch +% 43mm = 1.6929 inch +\setlength{\@t@calendar@height}{40mm + \@t@bleed} + +% See if there was a height given in the options +\pgfkeys{/Calendar/#2/minimum height/.get=\@val} +\ifx\@val\empty \relax +\else + \setlength{\@t@calendar@height}{\@val + \@t@bleed} +\fi + +\setlength{\@t@calendar@hmargin}{20pt} + +% NOTE: the -4pt and -2pt offset is somehow necessary for the sides to align +% with the edges +\setlength{\@t@rightOffset}{\@t@bleed +\@t@calendar@hmargin -4pt} +\setlength{\@t@minipageWidth}{\calPaperWidth -2\@t@calendar@hmargin -2pt} + +\SetHorizontalCoffin\@wall@pageWrap{% + \color{white}% + \rule{\textwidth}{0pt}% + \rule{0pt}{\textheight}% +} + +\pgfkeys{/Photo/#2/file/.get=\@t@file} + +\SetHorizontalCoffin\@wall@photo{% + \placeholder[fill=photo-frame]{hasvarnish}{% + \@wall@photo@putPhoto{\@t@file}% + }% +} + +\SetHorizontalCoffin\@wall@quote{% + \placeholder[fill=quote-frame]{}{% + \begin{minipage}{\linewidth}% + \quoteFmt + \pgfkeys{/Quote/#2/text/.get=\@val}% + \@val% + \end{minipage}% + }% +} + +\SetHorizontalCoffin\@wall@calendar{% +\ifvarnishmask\relax +\else +\begin{tikzpicture} + +\node (bg) [ + fill = calendarbg, + opacity = 0.5, + minimum width = {\calPaperWidth + 2\@t@bleed}, + anchor=north west, + /Calendar/#2/bg, + % override the style, in case bleed was set above + minimum height = {\@t@calendar@height}, +] at (0,0) {}; + +\node (heading) [ + below right=10pt and {\@t@rightOffset} of bg.north west, + anchor=north west, +] {% +\placeholder[fill=heading-frame]{}{% +\begin{minipage}{\@t@minipageWidth}% +\headingFmt +{\monthFmt\@tr@monthNumName{\@t@monthnum}} +\hfill +\strcmpblank{\CalendarAltYear}{% + {\yearFmt\CalendarYear}% +}{% + {\yearFmt\CalendarYear/\CalendarAltYear}% +}% +\end{minipage}% +}% +}; + +\node (calendar) [ + below right=35pt and {\@t@rightOffset} of bg.north west, + anchor=north west, +] {% +\placeholder[fill=calendar-frame]{}{% +\begin{minipage}{\@t@minipageWidth}% +\calendarFmt +\tikz{\tikzMonthCalendar@fullpage{\@t@monthnum};}% +\end{minipage}% +}% +}; + +\node (events) [ + below=0pt of calendar.south west, + anchor=north west, +] {% +\placeholder[fill=events-frame]{}{% +\begin{minipage}{\@t@minipageWidth}% +\eventsFmt +\pgfkeys{/Events/#2/text/.get=\@val}% +\@val% +\end{minipage}% +}% +}; + +\end{tikzpicture}% +\fi +}% \SetHorizontalCoffin + +\@wall@photo@setYOffset + +\pgfkeys{/Photo/#2/xOffset/.get=\@val} +\addtolength{\@t@xOffset}{\@val} +\pgfkeys{/Photo/#2/yOffset/.get=\@val} +\addtolength{\@t@yOffset}{\@val} + +% NOTE: a small whitespace is visible on the left edge of the page when bleed is 0pt, a space must be getting in somewhere. +\JoinCoffins*\@wall@pageWrap[l,t]\@wall@photo[l,t](-\spinemargin -\@t@bleed + \@t@xOffset, \uppermargin + \@t@bleed + \@t@yOffset) + +\pgfkeys{/Quote/#2/xOffset/.get=\@val} +\setlength{\@t@xOffset}{\@val} +\pgfkeys{/Quote/#2/yOffset/.get=\@val} +\setlength{\@t@yOffset}{\@val} + +\JoinCoffins*\@wall@pageWrap[l,t]\@wall@quote[l,t](\@t@xOffset, \@t@yOffset) + +\JoinCoffins*\@wall@pageWrap[l,b]\@wall@calendar[l,b](-\spinemargin -\@t@bleed, \textheight +\uppermargin -\paperheight -\@t@bleed) + +\makeatother + +\clearpage +\TypesetCoffin\@wall@pageWrap% +}% \@wall@fullPageLayout + +\newcommand*{\tikzMonthCalendar@fullpage}[1]{% +\pgfkeys{/Events/\monthName{#1}/marks/.get=\@eventmarks}% +\calendar (cal#1) [alnitak, dates=\CalendarYear-#1-01 to \CalendarYear-#1-last] \@eventmarks;% +} + +\newcommand\smallLandscapeFmt{% + \renewcommand*\monthFmt{\LARGE}% + \renewcommand*\yearFmt{\LARGE}% + \renewcommand*\dayLetterColor{}% + \renewcommand*\dayLetterFmt{\tiny}% + \renewcommand*\dayTextFmt{\small}% + \renewcommand*\quoteFmt{\centering}% + \renewcommand*\headingFmt{\centering}% + \renewcommand*\calendarFmt{\centering}% + \renewcommand*\eventsFmt{\setlength{\parindent}{0pt}\raggedright\footnotesize}% +} + +\newcommand\@wall@smallLandscapeLayout[2][]{% +\makeatletter +\renewcommand*\theMonthName{#2} +\@wall@layout@reset +\smallLandscapeFmt + +\colorlet{weekday}{black} +\colorlet{weekend}{black!70} + +\pgfkeys{/Photo/#2/bleed/.get=\@val} +\setlength{\@t@bleed}{\@val} + +\def\@t@monthnum{\monthToNum{#2}} + +\setlength{\@t@calendar@height}{85mm + \@t@bleed} + +% See if there was a height given in the options +\pgfkeys{/Calendar/#2/minimum height/.get=\@val} +\ifx\@val\empty \relax +\else + \setlength{\@t@calendar@height}{\@val + \@t@bleed} +\fi + +\setlength{\@t@calendar@hmargin}{20pt} + +% 5mm: day headings +% 20mm: events +% 6.5mm: vertical spacing +\setlength{\@tmp@a}{20mm + 5mm + 6.5mm} +\setlength{\@tmp@b}{\@t@calendar@height -\@tmp@a} +\setlength{\@t@calendar@dayYshift}{0.1666\@tmp@b}% 1/6 = 0.1666 + +\setlength{\@t@calendar@gridHeightSixRows}{\@tmp@b} +\setlength{\@t@calendar@gridHeightFiveRows}{\@tmp@b -0.1666\@tmp@b} + +% NOTE: the -4pt and -2pt offset is somehow necessary for the sides to align +% with the edges +\setlength{\@t@rightOffset}{\@t@bleed +\@t@calendar@hmargin -4pt} +\setlength{\@t@minipageWidth}{\calPaperWidth -2\@t@calendar@hmargin -2pt} + +\setlength{\@t@calendar@dayXshift}{0.1428\@t@minipageWidth}% 1/7 = 0.1428 + +\SetHorizontalCoffin\@wall@pageWrap{% + \color{white}% + \rule{\textwidth}{0pt}% + \rule{0pt}{\textheight}% +} + +\pgfkeys{/Photo/#2/file/.get=\@t@file} + +\SetHorizontalCoffin\@wall@photo{% + \placeholder[fill=photo-frame]{hasvarnish}{% + \@wall@photo@putPhoto{\@t@file}% + }% +} + +\SetHorizontalCoffin\@wall@quote{% + \placeholder[fill=quote-frame]{}{% + \begin{minipage}{\linewidth}% + \quoteFmt + \pgfkeys{/Quote/#2/text/.get=\@val}% + \@val% + \end{minipage}% + }% +} + +\SetHorizontalCoffin\@wall@calendar{% +\ifvarnishmask\relax +\else +\begin{tikzpicture} + +\node (bg) [ + fill = calendarbg, + opacity = 1, + minimum width = {\calPaperWidth + 2\@t@bleed}, + anchor=north west, + /Calendar/#2/bg, + % override the style, in case bleed was set above + minimum height = {\@t@calendar@height}, +] at (0,0) {}; + +\node (heading) [ + below right=10pt and {\@t@rightOffset} of bg.north west, + anchor=north west, +] {% +\placeholder[fill=heading-frame]{}{% +\begin{minipage}{\@t@minipageWidth}% +\headingFmt +{\monthFmt\@tr@monthNumName{\@t@monthnum}} +\hfill +\strcmpblank{\CalendarAltYear}{% + {\yearFmt\CalendarYear}% +}{% + {\yearFmt\CalendarYear/\CalendarAltYear}% +}% +\end{minipage}% +}% +}; + +\node (calendar) [ + below right=35pt and {\@t@rightOffset} of bg.north west, + anchor=north west, +] {% +\placeholder[fill=calendar-frame]{}{% +\begin{minipage}{\@t@minipageWidth}% +\calendarFmt +\hspace*{-5pt}% FIXME +\tikz{\tikzMonthCalendar@smallLandscape{\@t@monthnum};}% +\end{minipage}% +}% +}; + +\node (events) [ + above right=10mm and {\@t@rightOffset} of bg.south west, + anchor=south west, +] {% +\placeholder[fill=events-frame]{}{% +\begin{minipage}{\@t@minipageWidth}% +\eventsFmt +\pgfkeys{/Events/#2/text/.get=\@val}% +\@val% +\end{minipage}% +}% +}; + +\end{tikzpicture}% +\fi +}% \SetHorizontalCoffin + +% The quote has to be centered betweeen the photo and the calendar with manual tweaking. +% The height of the quote is not known, the height of the calendar plus its heading is not known. + +% TODO move the photo with /Photo/#2/xOffset and yOffset as at the full page layout + +\pgfkeys{/Quote/#2/yOffset/.get=\@val} +\setlength{\@t@yOffset}{\@val} + +\JoinCoffins*\@wall@photo[hc,b]\@wall@quote[hc,t](0pt, \@t@yOffset) + +\pgfkeys{/Photo/#2/yOffset/.get=\@val} +\setlength{\@t@yOffset}{\@val} + +% NOTE: Taking the bottom edge of the photo as fixed. +% yOffset must be set to pull the photo down into position + +\JoinCoffins*\@wall@pageWrap[hc,t]\@wall@photo[hc,b](0pt, \uppermargin + \@t@yOffset) + +% Calendar is aligned to the bottom of the page. + +\JoinCoffins*\@wall@pageWrap[hc,b]\@wall@calendar[hc,b](0pt, \textheight +\uppermargin -\paperheight -\@t@bleed) + +\makeatother + +\clearpage +\TypesetCoffin\@wall@pageWrap% +}% \@wall@smallLandscapeLayout + +\newcommand*{\tikzMonthCalendar@smallLandscape}[1]{% +\pgfkeys{/Events/\monthName{#1}/marks/.get=\@eventmarks}% +\calendar (cal#1) [betelgeuse, dates=\CalendarYear-#1-01 to \CalendarYear-#1-last] \@eventmarks;% +} + +\tikzstyle{day letter headings}=[% + day heading/.style={black!90}, + execute before day scope={% + \ifdate{day of month=1}{% + \pgfmathsetlength\pgf@xa{\tikz@lib@cal@xshift}% + \pgfmathsetlength\pgf@ya{\tikz@lib@cal@yshift}% + \foreach \d in {0,1,2,3,4,5,6} {% + \pgf@xa=\d\pgf@xa% + \pgftransformxshift{\pgf@xa}% + \pgftransformyshift{\pgf@ya}% + \node (d\d) [anchor=south, day heading] {\dayLetterFmt\@tr@dayLetter{\d}};% + };% + }{}% + },% +] + +\newcount\gridRows +\newcount\gridLines +\newcount\n + +\newif\ifGridNoSurround +\GridNoSurroundfalse + +\tikzstyle{no grid surround}=[execute before day scope={\GridNoSurroundtrue}] +\tikzstyle{grid surround}=[execute before day scope={\GridNoSurroundfalse}] + +\tikzstyle{days grid}=[% + execute before day scope={% + \ifdate{day of month=1}{% + % + % Determine if the grid is five or six rows + % + % 31 day months + \ifdate{between=01-01 and 01-31, between=03-01 and 03-31, between=05-01 and 05-31, between=07-01 and 07-31, between=08-01 and 08-31, between=10-01 and 10-31, between=12-01 and 12-31}{% + \ifdate{Saturday,Sunday}{% + \gridRows=6% + \setlength\@t@calendar@gridHeight{\@t@calendar@gridHeightSixRows}% + }{% + \gridRows=5% + \setlength\@t@calendar@gridHeight{\@t@calendar@gridHeightFiveRows}% + } + }{ + % 30 day months and February + \ifdate{between=02-01 and 02-last}{% + \gridRows=5% + \setlength\@t@calendar@gridHeight{\@t@calendar@gridHeightFiveRows}% + }{% + \ifdate{Sunday}{% + \gridRows=6% + \setlength\@t@calendar@gridHeight{\@t@calendar@gridHeightSixRows}% + }{% + \gridRows=5% + \setlength\@t@calendar@gridHeight{\@t@calendar@gridHeightFiveRows}% + } + } + } + % + % Horizontal lines + % + \gridLines=\gridRows + \ifGridNoSurround\relax + \else + \advance\gridLines by 1 + \n=0 + \draw [ + gridcolor, + line width=0.3pt, + xshift=-0.5\@t@calendar@dayXshift, + yshift=0.5\@t@calendar@dayYshift, + ] (0,{-\n\@t@calendar@dayYshift}) -- (7\@t@calendar@dayXshift,{-\n\@t@calendar@dayYshift}); + \fi + \foreach \n in {1,2,3,4,5,6} { + \ifnum\n<\gridLines + \draw [ + gridcolor, + line width=0.3pt, + xshift=-0.5\@t@calendar@dayXshift, + yshift=0.5\@t@calendar@dayYshift, + ] (0,{-\n\@t@calendar@dayYshift}) -- (7\@t@calendar@dayXshift,{-\n\@t@calendar@dayYshift}); + \fi + } + % + % Vertical lines + % + \gridLines=7 + \ifGridNoSurround\relax + \else + \advance\gridLines by 1 + \n=0 + \draw [ + gridcolor, + line width=0.3pt, + xshift=-0.5\@t@calendar@dayXshift, + yshift=0.5\@t@calendar@dayYshift, + ] ({\n\@t@calendar@dayXshift},0) -- ({\n\@t@calendar@dayXshift},{-\gridRows\@t@calendar@dayYshift}); + \fi + \foreach \n in {1,2,3,4,5,6,7} { + \ifnum\n<\gridLines + \draw [ + gridcolor, + line width=0.3pt, + xshift=-0.5\@t@calendar@dayXshift, + yshift=0.5\@t@calendar@dayYshift, + ] ({\n\@t@calendar@dayXshift},0) -- ({\n\@t@calendar@dayXshift},{-\gridRows\@t@calendar@dayYshift}); + \fi + } + % + % If we are not drawing the surrounding lines, it looks better to hide + % some of the top and bottom edges + % + \ifGridNoSurround + \draw [ + color=white, + line width=6pt, + xshift=-0.5\@t@calendar@dayXshift, + yshift={0.5\@t@calendar@dayYshift -1pt}, + ] (0,0) -- (7\@t@calendar@dayXshift,0); + \draw [ + color=white, + line width=6pt, + xshift=-0.5\@t@calendar@dayXshift, + yshift={0.5\@t@calendar@dayYshift +1pt}, + ] (0,-\gridRows\@t@calendar@dayYshift) -- (7\@t@calendar@dayXshift,-\gridRows\@t@calendar@dayYshift); + \fi + }{}% + } +] + +\tikzstyle{headings background rule}=[ + background rule/.style={black!90, line width=0.3pt, yshift={0.3\@t@calendar@dayYshift -3pt}}, + execute before day scope={% + \ifdate{day of month=1}{% + \draw [ + xshift=-0.5\@t@calendar@dayXshift, + yshift=0.5\@t@calendar@dayYshift, + background rule, + ] (0,0) -- (7\@t@calendar@dayXshift,0); + }{}% + } +] + +\tikzstyle{headings background bar}=[ + headings background rule, + background rule/.style={black!20, line width=10pt, yshift={0.3\@t@calendar@dayYshift +3.5pt}}, +] + +\tikzstyle{betelgeuse}=[ + no grid surround, + days grid, + week list, + day xshift=\@t@calendar@dayXshift, + day yshift=\@t@calendar@dayYshift, + headings background bar, + day letter headings, + day heading/.style={black!90, yshift={-0.3\@t@calendar@dayYshift}}, + every day/.append style={anchor=base, inner xsep=0pt, yshift={-0.25\baselineskip}}, + day text={\dayTextFmt\%d-}, +] + +\tikzstyle{alnitak}=[ + day list right, + day xshift={0pt}, + every month/.append style={anchor=base, inner xsep=0pt, yshift=4mm, xshift=-\widthof{\space}}, + day text={\dayTextFmt\%d-}, + every day/.append style={anchor=base, inner xsep=0pt}, + execute before day scope={ + % + % === Moving the day number === + % + % A small offset seems to improve the result, the last day gets closer to the end of the linewidth + \pgftransformxshift{0.01em} + \pgfcalendarjuliantodate{\pgfcalendarendjulian}{\currentyear}{\currentmonth}{\lastday} + % Width of month day digits from 1 - 28 + \setlength{\@tmp@a}{\widthof{12345678910111213141516171819202122232425262728}} + \setlength{\@tmp@b}{\widthof{30}} + \pgfmathparse{(\linewidth - \@tmp@a - \@tmp@b * (\lastday-28)) / \lastday} + \pgftransformxshift{\pgfmathresult} + \let\%=\pgfcalendarshorthand + \setlength{\@tmp@a}{\widthof{\%d-}} + \pgftransformxshift{\@tmp@a} + % + % === Weekday letter above the day === + % + \ifdate{weekend}{\def\dayLetterColor{\color{weekend}}}{\def\dayLetterColor{\color{weekday}}}% + \node[anchor=south,yshift=5mm,inner sep=0pt]{% + \dayLetterColor\dayLetterFmt\@tr@dayLetter{\pgfcalendarcurrentweekday}% + };% + }, +] + +\newcommand\plannerPortraitMonthFmt{\fontsize{11}{11}\selectfont\color{darkgold}} +\newcommand\plannerPortraitDayFmt{\fontsize{8}{8}\selectfont\color{plannerdatenum}} + +\tikzstyle{year planner portrait}=[ + week list, + month text={\plannerPortraitMonthFmt\@tr@monthNumName{\pgfcalendarcurrentmonth}}, + day text={\plannerPortraitDayFmt\%d-}, + every month/.append style={% + anchor=south, + inner xsep=0pt, + yshift=5mm, + xshift=2.5mm, + }, + day letter headings, + day heading/.style={gray, xshift=0pt, scale=0.85}, + month label above centered, + every day/.style={anchor=mid}, +] + +\newcommand\plannerLandscapeDateDayFont{} +\newcommand\plannerLandscapeDayFont{} +\newcommand\plannerLandscapeMonthFont{} + +\newcommand\plannerLandscapeMonthFmt{% + \plannerLandscapeMonthFont% + \fontsize{15}{18}\selectfont% + \color{gold}\bfseries% +} + +\newcommand\plannerLandscapeDayFmt{% + \plannerLandscapeDayFont% + \fontsize{10}{12}\selectfont% +} + +\newcommand*\plannerLandscapeDateDayFormat[1]{% + \plannerLandscapeDateDayFont% + \fontsize{8}{11}\selectfont% + #1% +} + +\newcommand\plannerLandscapeBeginDayScopeHook{% + \ifdate{weekend}{\color{black!60}}{} +} + +\newlength\plannerLandscapeDayXShift +\newlength\plannerLandscapeMonthYShift + +% Assuming 25mm to fit 'September' +\setlength{\@tmp@a}{\calPaperWidth - \@wall@leftMargin - \@wall@rightMargin - 25mm} +% Max week shift is 6 = Sunday. 31 days + 6 = 37. 1/37 = 0.027 +\setlength{\plannerLandscapeDayXShift}{0.027\@tmp@a} + +% Assuming 10mm for day headings (M T W...) and some padding +\setlength{\@tmp@a}{\calPaperHeight - \@wall@topMargin - \@wall@bottomMargin - 10mm} +% 1/12 = 0.0833 +\setlength{\plannerLandscapeMonthYShift}{0.0833\@tmp@a} + +\tikzstyle{year planner landscape}=[ + month list, + day xshift=\plannerLandscapeDayXShift, + month yshift=\plannerLandscapeMonthYShift, + every month/.append style={anchor=base, inner xsep=0pt}, + month text={\plannerLandscapeMonthFmt \%mt}, + day text={\plannerLandscapeDayFmt \%d-}, + every day/.append style={anchor=base, inner xsep=0pt}, + month label left, + execute at begin day scope={ + \plannerLandscapeBeginDayScopeHook + % Weekday headers in January + \ifdate{between=01-01 and 01-31}{ + \def\l{\ifcase\pgfcalendarcurrentweekday M\or T\or W\or T\or F\or S\or S\fi}% + \ifdate{weekend}{\def\daylabelcolor{gold}}{\def\daylabelcolor{black}}% + \node[anchor=south,yshift=5mm,inner sep=0pt]{\color{\daylabelcolor}\plannerLandscapeDateDayFormat{\l}};% + }{} + % Weekday headers in December + \ifdate{between=12-01 and 12-31}{ + \pgftransformyshift{-3mm}% + \def\l{\ifcase\pgfcalendarcurrentweekday M\or T\or W\or T\or F\or S\or S\fi}% + \ifdate{weekend}{\def\daylabelcolor{gold}}{\def\daylabelcolor{black}}% + \node[anchor=south,yshift=5mm,inner sep=0pt]{\color{\daylabelcolor}\plannerLandscapeDateDayFormat{\l}};% + }{} + } +] + +\newcommand\plannerGridMonthFont{} +\newcommand\plannerGridDateDayFont{} +\newcommand\plannerGridNotesFont{} +\newcommand\plannerGridDayFont{} +\newcommand\plannerGridYearNumberFont{} + +\newcommand\plannerGridYearNumberFmt{% + \plannerGridYearNumberFont% + \fontsize{11}{11}\selectfont% + \color{white}% +} + +\newcommand\plannerGridMonthFmt{% + \plannerGridMonthFont% + \fontsize{13}{13}\selectfont% + \color{white}% +} + +\newcommand\plannerGridDayFmt{% + \plannerGridDayFont% + \fontsize{11}{11}\selectfont% +} + +\newcommand\plannerGridDateDayFmt{% + \plannerGridDateDayFont% + \fontsize{9}{9}\selectfont% + \color{black!80}% +} + +\newcommand{\plannerGridNotesFmt}{% + \plannerGridNotesFont% + \fontsize{11}{11}\selectfont% +} + +\newcommand\plannerGridBeginDayScopeHook{% + \ifdate{weekend}{\color{black!60}}{} +} + +\newlength\plannerGridColXShift +\newlength\plannerGridRowYShift + +\newlength\plannerGridCalendarWidth +\newlength\plannerGridCalendarHeight + +\newlength\plannerGridDayHeadingsHeight +\newlength\plannerGridMonthNamesWidth + +\newlength\plannerGridNotesHeight +\setlength{\plannerGridNotesHeight}{10mm} + +\setlength{\plannerGridCalendarWidth}{\calPaperWidth - \@wall@leftMargin - \@wall@rightMargin} +\setlength{\plannerGridCalendarHeight}{\calPaperHeight - \@wall@topMargin - \@wall@bottomMargin - \plannerGridNotesHeight} + +\setlength{\plannerGridDayHeadingsHeight}{10mm} +\setlength{\plannerGridMonthNamesWidth}{10mm} + +\setlength{\@tmp@a}{\plannerGridCalendarWidth - \plannerGridMonthNamesWidth} +% 37 columns. 1/37 = 0.027. Max week shift is 6 = Sunday. 31 days + 6 = 37. +\setlength{\plannerGridColXShift}{0.027\@tmp@a} + +\setlength{\@tmp@a}{\plannerGridCalendarHeight - 2\plannerGridDayHeadingsHeight} +% 12 rows. 1/12 = 0.0833 +\setlength{\plannerGridRowYShift}{0.0833\@tmp@a} + +\newcounter{verticalCount} + +\tikzstyle{year planner landscape grid days}=[ + month list, + day xshift=\plannerGridColXShift, + month yshift=\plannerGridRowYShift, + day text={\plannerGridDayFmt \%d-}, + every day/.append style={anchor=base, yshift=-12pt, inner xsep=0pt}, + execute at begin day scope={% + % White fill to cover the page background color + \node (cell) [ + rectangle, + fill = white, + minimum height = \plannerGridRowYShift - 1pt, + minimum width = \plannerGridColXShift - 1pt, + xshift = -0.5\plannerGridColXShift, + yshift = 4.5pt, + ] {};% + % + \ifdate{Monday}{% + \node (a) [above left = 15pt and -3.5pt of cell.west] {}; + \node (b) [below left = 15pt and -3.5pt of cell.west] {}; + \node (c) [right = 10pt of cell.west] {}; + \path [on layer = one, fill = pagebgcolor] (a.south) -- (b.north) -- (c.west) -- (a.south);% + }{}% + % + \ifdate{Sunday}{% + \node (a) [above left = 15pt and {-3.5pt + 1pt} of cell.east] {}; + \node (b) [below left = 15pt and {-3.5pt + 1pt} of cell.east] {}; + \node (c) [right = {10pt - 1pt} of cell.east] {}; + \path [on layer = two, fill = white] (a.south) -- (b.north) -- (c.west) -- (a.south);% + }{}% + % + \plannerGridBeginDayScopeHook% + }, +] + +\newcommand\plannerMarksDayTextCSV{\@wall@eventsCsv} +\newcommand\plannerMarksNoteCSV{\@wall@eventsCsv} +\newcommand\plannerMarkDefaultsCsv{} + +\newcommand\@wall@plm[1]{% +\luadirect{ +require("wallcalendar-helpers.lua") +monthMarksDayText(\luastring{#1}, nil, \luastring{\plannerMarksDayTextCSV}) +tex.sprint(';') +}} + +\newcommand\@wall@plmYear{% +\luadirect{ +require("wallcalendar-helpers.lua") +yearMarksDayText(tonumber(\CalendarYear), nil, \luastring{\plannerMarksDayTextCSV}) +tex.sprint(';') +}} + +\newcommand\@wall@plNotes{% +\luadirect{ +require("wallcalendar-helpers.lua") +yearMarksNote(tonumber(\CalendarYear), nil, \luastring{\plannerMarksNoteCSV}, \luastring{\plannerMarkDefaultsCsv}, false) +}} + +\newcommand\@wall@plNotesOneCalendar{% +\luadirect{ +require("wallcalendar-helpers.lua") +yearMarksNote(tonumber(\CalendarYear), nil, \luastring{\plannerMarksNoteCSV}, \luastring{\plannerMarkDefaultsCsv}, true) +}} + +\newcommand\plannerEvents{% +\parseYearEvents[filter pred = hasNote]% +} + +\newcommand\YearPlannerPortrait{% +\@wall@useDefaultMoons% +\begin{tikzpicture}[every calendar/.style={year planner portrait}]% + \matrix[column sep=1.5em, row sep=5mm] { + \calendar(cal01)[dates=\CalendarYear-01-01 to \CalendarYear-01-last] \@wall@plm{January}; \pgfmatrixnextcell + \calendar(cal02)[dates=\CalendarYear-02-01 to \CalendarYear-02-last] \@wall@plm{February}; \pgfmatrixnextcell + \calendar(cal03)[dates=\CalendarYear-03-01 to \CalendarYear-03-last] \@wall@plm{March}; \\ + \calendar(cal04)[dates=\CalendarYear-04-01 to \CalendarYear-04-last] \@wall@plm{April}; \pgfmatrixnextcell + \calendar(cal05)[dates=\CalendarYear-05-01 to \CalendarYear-05-last] \@wall@plm{May}; \pgfmatrixnextcell + \calendar(cal06)[dates=\CalendarYear-06-01 to \CalendarYear-06-last] \@wall@plm{June}; \\ + \calendar(cal07)[dates=\CalendarYear-07-01 to \CalendarYear-07-last] \@wall@plm{July}; \pgfmatrixnextcell + \calendar(cal08)[dates=\CalendarYear-08-01 to \CalendarYear-08-last] \@wall@plm{August}; \pgfmatrixnextcell + \calendar(cal09)[dates=\CalendarYear-09-01 to \CalendarYear-09-last] \@wall@plm{September}; \\ + \calendar(cal10)[dates=\CalendarYear-10-01 to \CalendarYear-10-last] \@wall@plm{October}; \pgfmatrixnextcell + \calendar(cal11)[dates=\CalendarYear-11-01 to \CalendarYear-11-last] \@wall@plm{November}; \pgfmatrixnextcell + \calendar(cal12)[dates=\CalendarYear-12-01 to \CalendarYear-12-last] \@wall@plm{December}; \\ + }; + \@wall@plNotes +\end{tikzpicture}% +} + +\newcommand\YearPlannerLandscape{% +\@wall@usePlannerMoons% +\begin{tikzpicture}% + \calendar (cal) [ + year planner landscape, + dates=\CalendarYear-01-01 to \CalendarYear-12-31, + ] \@wall@plmYear; + \@wall@plNotesOneCalendar +\end{tikzpicture}% +} + +\newcommand\YearPlannerLandscapeGrid{% +\@wall@usePlannerMoons% +\begin{tikzpicture} + + % Background frame + + \node (bg) [ + rectangle, + inner sep = 0pt, + minimum width = \plannerGridCalendarWidth, + minimum height = \plannerGridCalendarHeight, + ] {}; + + \foreach \x/\m in {1/\xJanShort, 2/\xFebShort, 3/\xMarShort, 4/\xAprShort, + 5/\xMayShort, 6/\xJunShort, 7/\xJulShort, 8/\xAugShort, 9/\xSepShort, + 10/\xOctShort, 11/\xNovShort, 12/\xDecShort} + { + \setlength{\@tmp@a}{\x\plannerGridRowYShift + \plannerGridDayHeadingsHeight} + + % Month labels + + \node [ + below = \@tmp@a of bg.north west, + yshift = 0.5\plannerGridRowYShift, + xshift = 0.5\plannerGridColXShift - 2pt, + anchor = base, + rotate = 90, + ] {\plannerGridMonthFmt\MakeUppercase{\textls*{\m}}}; + + % Horizontal lines + + \addtolength{\@tmp@a}{-\plannerGridRowYShift} + + \node (h-a-\x) [below = \@tmp@a of bg.north west] {}; + \node (h-b-\x) [below = \@tmp@a of bg.north east] {}; + \draw [gridcolor] (h-a-\x) -- (h-b-\x); + } + + % 13th line + \setlength{\@tmp@a}{12\plannerGridRowYShift + \plannerGridDayHeadingsHeight} + \node (h-a-13) [below = \@tmp@a of bg.north west] {}; + \node (h-b-13) [below = \@tmp@a of bg.north east] {}; + \draw [gridcolor] (h-a-13) -- (h-b-13); + + % Year number in the corner + \node [ + right = 0pt of bg.north west, + xshift = 0.5\plannerGridMonthNamesWidth, + yshift = -0.5\plannerGridDayHeadingsHeight - 5pt, + anchor = base, + ] {\plannerGridYearNumberFmt\CalendarYear}; + + \setcounter{verticalCount}{1} + + \foreach \i in {0,1,2,3,4,5} { + \foreach \j/\d in { + 0/\xMondayDayLetter, + 1/\xTuesdayDayLetter, + 2/\xWednesdayDayLetter, + 3/\xThursdayDayLetter, + 4/\xFridayDayLetter, + 5/\xSaturdayDayLetter, + 6/\xSundayDayLetter} + { + \addtocounter{verticalCount}{1} + \ifnumgreater{\value{verticalCount}}{38}{\relax}{ + \setlength{\@tmp@a}{7\plannerGridColXShift} + \setlength{\@tmp@a}{\i\@tmp@a + \j\plannerGridColXShift + \plannerGridMonthNamesWidth} + + % Day headings (top and bottom) + + \node [ + right = \@tmp@a of bg.north west, + xshift = 0.5\plannerGridColXShift + 4pt, + yshift = -0.5\plannerGridDayHeadingsHeight - 5pt, + anchor = base, + ] {\plannerGridDateDayFmt \d}; + + \node [ + right = \@tmp@a of bg.south west, + xshift = 0.5\plannerGridColXShift + 4pt, + yshift = 0.5\plannerGridDayHeadingsHeight - 5pt, + anchor = base, + ] {\plannerGridDateDayFmt \d}; + + % % Vertical lines + + % \node (v-a-\i-\j) [right = \@tmp@a of bg.north west] {}; + % \node (v-b-\i-\j) [right = \@tmp@a of bg.south west] {}; + % \draw [gridcolor] (v-a-\i-\j) -- (v-b-\i-\j); + } + } + } + + \calendar (cal) [ + year planner landscape grid days, + dates=\CalendarYear-01-01 to \CalendarYear-12-31, + below right = 0pt and 0pt of bg.north west, + anchor = north west, + yshift = -\plannerGridDayHeadingsHeight - 3mm, + xshift = \plannerGridMonthNamesWidth + 0.5\plannerGridColXShift + 4pt, + ] \@wall@plmYear; + + \@wall@plNotesOneCalendar + +\end{tikzpicture}% +} + +\newcommand{\YearPlannerLandscapeGridPage}{% +\pagecolor{pagebgcolor}% +\AddToShipoutPictureFG*{\put(\LenToUnit{\@wall@leftMargin},\LenToUnit{\@wall@bottomMargin})% +{\begin{minipage}[b]{\plannerGridCalendarWidth}% +\YearPlannerLandscapeGrid + +\begin{minipage}[b][10mm][c]{\plannerGridCalendarWidth}% +\plannerGridNotesFmt +\hspace*{2mm}% +\parseYearEvents[% + filter pred = hasNote, + format cmd = {\textsuperscript{\eIdx}~\eMonthShort~\eDay:~\textit{\eNote}\ifnumless{\eIdx}{\eMaxIdx}{,\space}{.}}, +]% +\end{minipage}% +\end{minipage}% +}}} + +% Load internal translations +\InputIfFileExists{i18n/wallcalendar-\@wall@calendarLanguage.tex}{}% +{\ClassError{wallcalendar}{File Not Found: i18n/wallcalendar-\@wall@calendarLanguage.tex}{}} + +% Load user translations if the option was set and translationsAutoload is true + +\newcommand\LoadTranslations{% +\InputIfFileExists{\@wall@translationsInputFile}{}% +{\ClassWarning{wallcalendar}{File Not Found: \@wall@translationsInputFile}{}}} + +\notblank{\@wall@translationsInputFile}{% +\iftranslationsAutoload \LoadTranslations \fi} + +\newcommand*\@tr@monthNumName[1]{% +\ifcase#1 \relax\or \xJanuary\or \xFebruary\or \xMarch\or \xApril\or \xMay\or \xJune\or +\xJuly\or \xAugust\or \xSeptember\or \xOctober\or \xNovember\or \xDecember\fi} + +\newcommand*\@tr@dayLetter[1]{% +\ifcase#1 \xMondayDayLetter\or \xTuesdayDayLetter\or \xWednesdayDayLetter\or +\xThursdayDayLetter\or \xFridayDayLetter\or \xSaturdayDayLetter\or \xSundayDayLetter\fi} + +\newcommand*{\monthToNum}[1]{% +\luadirect{ + local monthToNum = { + january = '01', + february = '02', + march = '03', + april = '04', + may = '05', + june = '06', + july = '07', + august = '08', + september = '09', + october = '10', + november = '11', + december = '12', + } + local key = string.lower('#1') + tex.sprint(monthToNum[key]) +}} + +\newcommand*\monthName[1]{% +% \ifcase might be just fine here +\luadirect{ + local monthName = { + 'January', 'February', 'March', 'April', 'May', 'June', 'July', + 'August', 'September', 'October', 'November', 'December', + } + local key = tonumber('#1') + tex.sprint(monthName[key]) +}} + +% End of wallcalendar.cls |