From 1e0b34d85b8c42e5a311b8b063fa37fb3e5cde84 Mon Sep 17 00:00:00 2001
From: Thorsten Glaser <thorsten.glaser@teckids.org>
Date: Sun, 8 Jan 2017 02:56:17 +0100
Subject: [PATCH] [verein.git] clines
---
teckidscaltmp.sty | 52 +++++++++++++++++++++++++++++++++--------------
1 file changed, 37 insertions(+), 15 deletions(-)
diff --git a/teckidscaltmp.sty b/teckidscaltmp.sty
index 53b1037..83e2c64 100644
--- a/teckidscaltmp.sty
+++ b/teckidscaltmp.sty
@@ -129,6 +129,8 @@
\expandafter\newtoks\csname tkCalLine29\endcsname%
\expandafter\newtoks\csname tkCalLine30\endcsname%
\expandafter\newtoks\csname tkCalLine31\endcsname%
+\newtoks\tkCalClineA%
+\newtoks\tkCalClineB%
\newcommand{\tkToJD}[1]{%
\pgfcalendardatetojulian{#1}{\tkjd}%
@@ -385,12 +387,14 @@
\csname tkCalLine29\endcsname={}%
\csname tkCalLine30\endcsname={}%
\csname tkCalLine31\endcsname={}%
+ \tkCalClineA={}%
+ \tkCalClineB={}%
\tkjd=\tkcalbeg%
\@tempcnta=\z@% Jahr
\@tempcntb=\z@% Monat
\loop%
- \tk@BoldenDay%
\tkFromJD{\tkjd}%
+ \tk@BoldenDay%
\ifnum\@tempcnta=\tktmY\else%
\ifnum\@tempcnta=\z@\else%
\tkCalToks={}%
@@ -476,6 +480,21 @@
}%
}%
\csname tkCalLine\number\tktmD\endcsname=\expandafter{\the\expandafter\expandafter\csname tkCalLine\number\tktmD\endcsname \the\tkCalToks}%
+ \ifnum\tktmD<29\else\ifnum\tktmD>30\else%
+ \count@=\tkCalNumMon%
+ \advance\count@ by -1%
+ \multiply\count@ by 3%
+ \advance\count@ by 1%
+ \edef\1{\number\count@}%
+ \advance\count@ by 2%
+ \tkCalToks={\cline}%
+ \tkAddTokp{\1-\number\count@}%
+ \ifnum\tktmD=29%
+ \tkCalClineA=\expandafter{\the\expandafter\tkCalClineA \the\tkCalToks}%
+ \else%
+ \tkCalClineB=\expandafter{\the\expandafter\tkCalClineB \the\tkCalToks}%
+ \fi%
+ \fi\fi%
\ifnum\tkjd < \tkcalend%
\advance\tkjd by 1%
\repeat%
@@ -487,10 +506,13 @@
\tkAddTokp{\number\@tempcnta}%
\tkCalLineY=\expandafter{\the\expandafter\tkCalLineY \the\tkCalToks}%
-%\detokenize\expandafter{\the\csname tkCalLine19\endcsname}
+%\edef\TEMP{\the\tkCalClineA}
+%\meaning\TEMP
+
+%\detokenize\expandafter{\the\tkCalClineA}
\begin{tabu} to \linewidth {|*{\the\tkCalNumMon}{rlX[m]|}}
- \the\tkCalLineY\\\hline
+ \hline\the\tkCalLineY\\\hline
\the\csname tkCalLine0\endcsname\\\hline
\the\csname tkCalLine1\endcsname\\\hline
\the\csname tkCalLine2\endcsname\\\hline
@@ -511,18 +533,18 @@
\the\csname tkCalLine17\endcsname\\\hline
\the\csname tkCalLine18\endcsname\\\hline
\the\csname tkCalLine19\endcsname\\\hline
- 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo & 20 & Mo & foo \\\hline
- 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo & 21 & Mo & foo \\\hline
- 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo & 22 & Mo & foo \\\hline
- 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo & 23 & Mo & foo \\\hline
- 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo & 24 & Mo & foo \\\hline
- 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo & 25 & Mo & foo \\\hline
- 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo & 26 & Mo & foo \\\hline
- 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo & 27 & Mo & foo \\\hline
- 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo & 28 & Mo & foo \\\hline
- 29 & Mo & foo & & & & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo & 29 & Mo & foo \\\cline{1-3}\cline{7-9}\cline{10-39}
- 30 & Mo & foo & & & & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo & 30 & Mo & foo \\\cline{1-3}\cline{7-9}\cline{10-39}
- 31 & Mo & foo & & & & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo & 31 & Mo & foo \\\hline
+ \the\csname tkCalLine20\endcsname\\\hline
+ \the\csname tkCalLine21\endcsname\\\hline
+ \the\csname tkCalLine22\endcsname\\\hline
+ \the\csname tkCalLine23\endcsname\\\hline
+ \the\csname tkCalLine24\endcsname\\\hline
+ \the\csname tkCalLine25\endcsname\\\hline
+ \the\csname tkCalLine26\endcsname\\\hline
+ \the\csname tkCalLine27\endcsname\\\hline
+ \the\csname tkCalLine28\endcsname\\\hline
+ \the\csname tkCalLine19\endcsname\\\the\tkCalClineA
+ \the\csname tkCalLine20\endcsname\\\the\tkCalClineB
+ \the\csname tkCalLine21\endcsname\\\hline
\end{tabu}
Legende:\keinumbruch
--
GitLab