schleuderpackung/datenschleuder.cls

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Copyright 2013 koeart, john, ben                                         %
%                                                                          %
% This program is free software: you can redistribute it and/or modify it  %
% under the terms of the GNU General Public License as published by the    %
% Free Software Foundation, either version 3 of the License, or (at your   %
% option) any later version.                                               %
%                                                                          %
% This program is distributed in the hope that it will be useful, but      %
% WITHOUT ANY WARRANTY; without even the implied warranty of               %
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU        %
% General Public License for more details.                                 %
%                                                                          %
% You should have received a copy of the GNU General Public License along  %
% with this program.  If not, see <http://www.gnu.org/licenses/>.          %
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\ProvidesClass{datenschleuder}[%
	2013/07/19 v0.1 Datenschleuder
]
\LoadClass[%
	pdftex,
	a5paper,
	twoside,
%	twocolumn,
	fontsize=8pt,
]{scrartcl}

\IfFileExists{luatex85.sty}{%
	\RequirePackage{luatex85} % Fixes Problems with pdfxxx names [http://tex-live.tug.narkive.com/gc2DAmsJ/fwd-proble    m-with-lualatex-in-lexlive-2016]
}{}

\RequirePackage{textcomp}
\RequirePackage{fixltx2e}
\AtBeginDocument{\RequirePackage{ellipsis}}
\RequirePackage{microtype}
\RequirePackage[paper=a5paper,inner=16mm, outer=12mm,top=20mm,bottom=30mm]{geometry}


%FIXME: do so only if specified in document or makefile:
%\RequirePackage[cam,a4,center]{crop}
 

\RequirePackage{multicol}
\RequirePackage{xkeyval}
\newcommand{\@volume}{}
\DeclareOptionX{volume}{\renewcommand{\@volume}{#1}}%
\newcommand{\@year}{}
\DeclareOptionX{year}{\renewcommand{\@year}{#1}}%
\newif\iffree\freetrue
\DeclareOptionX{non-free}{\freefalse}%
\ProcessOptionsX

\RequirePackage{ifluatex}
\ifluatex
	\RequirePackage{luatextra}
	\RequirePackage{lineno}
	\RequirePackage[EU2]{fontenc}
	\RequirePackage{fontspec}
	\iffree
		\newcommand{\DSLogoFont}{\fontspec[Scale=2.36]{Zepto}}
		\setmainfont[Ligatures=TeX,Numbers={OldStyle}]{Linux Libertine O}
		\setsansfont[Ligatures=TeX,Numbers={OldStyle}]{Linux Biolinum O}
		%\setmonofont[Mapping=tex-text]{Courier Prime}
	\else
		\setmainfont[Ligatures=TeX,Numbers={OldStyle}]{FFScala}
		\setsansfont[Ligatures=TeX,Numbers={OldStyle}]{ScalaSans}
		\newcommand{\DSLogoFont}{\fontspec[Scale=2.93]{FFNetwork}}
	\fi
\else
	\ClassError{Datenschleuder}{%
		You need LuaTeX in order to compile \MessageBreak
  a Datenschleuder%
	}{%
		Instead of running "pdflatex \jobname" type:\MessageBreak
		lualatex \jobname\MessageBreak
		\MessageBreak
		Remember to cross two fingers and praise Eris before compiling.\MessageBreak
		Unpredictable things will happen with your computer otherwise...
	}
\fi

\RequirePackage{fmtcount}

\RequirePackage{listings}
\lstset{%
	upquote=true,
	basicstyle=\ttfamily,
	%backgroundcolor=\color{lightgray},
	%frame=single,
	stringstyle=\color{brown},
	keywordstyle=\color{yellow},
%  identifierstyle=\color{green},
	commentstyle=\color{gray},
	keywordstyle=[2]\color{darkgray},
	keywordstyle=[3]\color{darkgray},
	tabsize=2
}

\RequirePackage{booktabs}
\RequirePackage{colortbl}
\RequirePackage{scrlayer-scrpage}
\RequirePackage{graphicx}
\RequirePackage{tikz}
\RequirePackage{qrcode}
\RequirePackage[hyphens]{url}
\RequirePackage[pdftex,%
	citebordercolor={0.9 0.9 1},%
	filebordercolor={0.9 0.9 1},%
	linkbordercolor={0.9 0.9 1},%
	urlbordercolor={0.9 0.9 1},%
	pdfborder={0.9 0.9 1},%
	pagebackref,plainpages=false,pdfpagelabels=true]{hyperref}
\hypersetup{
	pdfauthor={Chaos Computer Club},
	pdftitle={datenschleuder},
	pdfsubject={wissenschaftliches fackblatt fuer datenreisende},
	pdfkeywords={Ausgabe\@volume, Jahr\@year},
	breaklinks,
	colorlinks,
	linkcolor = black,
	filecolor = black,
	urlcolor  = black,
	citecolor = black,
}
% Disable single lines at the start of a paragraph (Schusterjungen) {{{
\clubpenalty = 10000
% Disable single lines at the end of a paragraph (Hurenkinder)
\widowpenalty = 10000
\displaywidowpenalty = 10000
%}}}

\RequirePackage{wallpaper}
\RequirePackage{float}

\pgfdeclareimage[height=5mm]{Pesthoernchen}{schleuderpackung/img/pesthoernchen}
\newcommand{\chaosknoten}[1]{%
	\tikz[yscale=-#1,xscale=#1,every path/.style={fill=\DSPage@fg}]{\input{schleuderpackung/img/chaosknoten.tex}}%
}

\newfloat{impressum}{tpbh}{loi} %impressum als Float, damit kann Text fließen

\pagestyle{scrheadings}

\clearscrheadfoot
\setkomafont{pageheadfoot}{%
\normalfont\normalcolor\small
}
%FIXME: use pgfdeclared image for saving objects in pdf

\newcommand{\@qrpagecode}{\tikz[baseline=(foo.south)]{\node(foo)[inner sep=0]{\qrcode[height=.4cm,level=H]{\arabic{page}}}}}%

\rehead[]{\tikz[overlay]{\node[xshift=0.3mm,yshift=1.1mm]{\chaosknoten{0.017}};}}
\rohead[]{\tikz[overlay]{\node[xshift=0.3mm,yshift=1.1mm]{\chaosknoten{0.017}};}}
\chead{\textcolor{\DSPage@fg}{\directlua{tex.print(ruhetmp or "Bitte runninghead setzen")}}}
\setheadsepline{0.5pt}[\color{\DSPage@fg}]

\ifoot[]{\textcolor{\DSPage@fg}{\vphantom{\@qrpagecode}Datenschleuder. \@volume\ / \@year}}
\rofoot[]{\textcolor{\DSPage@fg}{\texttt{0x\ifthenelse{\value{page}>15}{}{0}\hexadecimal{page}} \@qrpagecode%
}}
\lefoot[]{\textcolor{\DSPage@fg}{\@qrpagecode\ \texttt{0x\ifthenelse{\value{page}>15}{}{0}\hexadecimal{page}}}}
\setfootsepline{0.5pt}[\color{\DSPage@fg}]

%FIXME: use abstract environment in prior of nasty DSabstract command
\renewenvironment{abstract}{%
	\begin{center}
		\bfseries
}{%
	\end{center}
}
\newcommand{\@DSabstract}{}
\newcommand{\DSabstract}[1]{\renewcommand{\@DSabstract}{#1}}

\newtoks{\@DSauthorstok}
\@DSauthorstok={}%
\newcommand{\@addauthor}[1]{\@DSauthorstok=\expandafter{\the\@DSauthorstok #1 }}
\newcommand{\addauthor}[1]{\@addauthor{#1}}


\renewcommand{\maketitle}{%
%	\twocolumn[
	%	\renewcommand{\@runninghead}{\@runningheadtmp}
	\hypertarget{AR\directlua{tex.print(nxruhetmp)}}{\textsf{\Huge\@title}}\pdfbookmark[0]{\directlua{tex.print(nxruhetmp)}}{AR\directlua{tex.print(nxruhetmp)}}
		\begin{center}%
			\textsf{von \@author}%FIXME: implement mail and array of authors
		\end{center}
        \addauthor{Noch ein Test}

		{\bfseries\@DSabstract}
		\vspace*{3mm}
%	]
		\directlua{ruhetmp=nxruhetmp nxruhetmp=nil}
	\normalsize
}

\define@key{DSarticleKeys}{title}{\title{#1}}%
\define@key{DSarticleKeys}{author}{\author{#1}}
\define@key{DSarticleKeys}{DSabstract}{\renewcommand{\@DSabstract}{#1}}
%\newcommand{\@runninghead}{}
%\newcommand{\@runningheadtmp}{}
%\newcommand{\runninghead}[1]{\renewcommand{\@runningheadtmp}{#1}}
\newcommand{\runninghead}[1]{\directlua{nxruhetmp = "\luatexluaescapestring{#1}"}}
\newcommand{\manrunninghead}[1]{\directlua{ruhetmp = "\luatexluaescapestring{#1}"}}
\define@key{DSarticleKeys}{runninghead}[\@title]{\runninghead{#1}}

\newenvironment{DSarticle}[1][]{%
    \newpage
    \setcounter{section}{0}
	\setkeys{DSarticleKeys}{#1}%
    \newpage
    \noindent\maketitle
    \begin{multicols}{2}
    }{%
    \end{multicols}
}
\newenvironment{DSfigure}
  {\par\medskip\noindent\minipage{\linewidth}
  }{%
  \endminipage\par\medskip}


\newcounter{NumOfLetters}

\newenvironment{DSletters}{%
	\hypertarget{MARKLeserbriefe}{}
	\pdfbookmark[0]{Leserbriefe}{MARKLesrbriefe}	
\manrunninghead{Leserbriefe}
\setcounter{NumOfLetters}{0}
\begin{multicols}{2}
}
{%
\end{multicols}
}

\newenvironment{letter}{%
	\setlength{\parskip}{2.5mm}%
	\setlength{\parindent}{0mm}%
	\ifthenelse{\equal{\arabic{NumOfLetters}}{0}}{}{%
		\vspace{-3mm}%
		\begin{center}%
			\hfill%
			\hfill%
%FIXME: use pgfdeclared image for saving objects in pdf
			\pgfuseimage{Pesthoernchen}
			\hfill%
			\pgfuseimage{Pesthoernchen}
			\hfill%
			\pgfuseimage{Pesthoernchen}
			\hfill%
			\hfill\hspace*{0cm}%
		\end{center}%
		\vspace{-5mm}%
	}%
	\stepcounter{NumOfLetters}%
}{%
}

\newcommand{\@letterauthor}{}
\define@key{DSletterKeys}{author}{\renewcommand{\@letterauthor}{#1}}%
\newenvironment{question}[1][]{%
	\setkeys{DSletterKeys}{#1}%
}{%
	\ifthenelse{%
		\equal{\@letterauthor}{}
		}{%
		}{%
			\textit{<\@letterauthor>}%
		}
\par 
}
\newenvironment{answer}[1][]{%
	\setkeys{DSletterKeys}{#1}%
		\itshape%
}{%
	\ifthenelse{%
		\equal{\@letterauthor}{}
		}{%
		}{%
			\textit{<\@letterauthor>}%
		}
}

%%%%%%%%
% Die folgenden Kommandos können auch aus dem Dokument gesetzt werden. Evtl. als DSimpressum Keys machen
%%%%%%%%
\newcommand{\@DSherausgeber}{}
\newcommand{\DSherausgeber}[1]{\renewcommand{\@DSherausgeber}{#1}}

\newcommand{\@DSredaktion}{}
\newcommand{\DSredaktion}[1]{\renewcommand{\@DSredaktion}{#1}}


\newcommand{\@DSdruck}{}
\newcommand{\DSdruck}[1]{\renewcommand{\@DSdruck}{#1}}


\newcommand{\@DSvisdp}{}
\newcommand{\DSvisdp}[1]{\renewcommand{\@DSvisdp}{#1}}

\newcommand{\@DSauthors}{\textbf{Autoren }\\\the\@DSauthorstok}
\newcommand{\DSauthors}{\@DSauthors}

%\define@key{DSimpressumKeys}{ViSdP}{%
%    \DSvisdp{#1}
%}
\newcommand{\DSimpressum}{%
    \begin{impressum*}[b!]
            %minipage: pos., höhe, textpos, breite
        \colorbox{lightgray}{
        \begin{minipage}[t]{1\linewidth}
         \hypertarget{MARKImpressum}{ \large \textbf{Die Datenschleuder Nr. \@volume}}
	\pdfbookmark[0]{Impressum}{MARKImpressum}	
                    \begin{multicols}{2}
                   \normalsize
                   \@DSherausgeber\\
 \@DSredaktion\\
 \@DSdruck\\
 \@DSvisdp\\
                    \DSauthors
                \end{multicols}
            \end{minipage}
        }
        \end{impressum*}
}

\RequirePackage{pgfplotstable}
\newcommand{\DSerfakreise}[1]{%
	\definecolor{color0}{gray}{0.9}%
	\definecolor{color1}{gray}{0.7}%
	\pgfplotstableread[col sep=semicolon]{#1}\addresstable%
	\pgfplotstablegetrowsof{\addresstable}%
	\pgfmathparse{\pgfplotsretval-1}%
	\foreach \index in {0,...,\pgfmathresult}{%
		\pgfmathparse{int(mod(\index,2))}%
		\definecolor{currentcolor}{named}{color\pgfmathresult}%
		\noindent\tikz[baseline,outer sep=0]{\node[
			text width=\textwidth,
			anchor=base,
			outer sep=0,
			%inner sep=0,
			fill=currentcolor
		]{%
		\pgfmathparse{int(mod(\index,2))}%
		\pgfplotstablegetelem{\index}{Erfa}\of\addresstable%
		\noindent\textbf{\pgfplotsretval}, %
		\pgfplotstablegetelem{\index}{Ort}\of\addresstable%
		\ifthenelse{\equal{\pgfplotsretval}{}}{}{\pgfplotsretval, }%
		\pgfplotstablegetelem{\index}{Tag}\of\addresstable%
		\pgfplotsretval, %
		\pgfplotstablegetelem{\index}{Adresse}\of\addresstable%
		\pgfplotsretval, %
		\pgfplotstablegetelem{\index}{Bemerkung}\of\addresstable%
		\url{\pgfplotsretval}%
		}}%
		\\[-1pt]
	}
}

\RequirePackage{environ}
\RequirePackage{eurosym}
\newcommand{\DSPage@fg}{black}
\define@key{DSTitlePage}{fg}[]{\renewcommand{\DSPage@fg}{#1}}
\newcommand{\DSTitlePage@bg}{white}
\define@key{DSTitlePage}{bg}[]{\renewcommand{\DSTitlePage@bg}{#1}}
\newcommand{\DSTitlePage@price}{2,50\,\officialeuro}
\define@key{DSTitlePage}{price}[]{\renewcommand{\DSTitlePage@price}{#1}}

\usetikzlibrary{positioning}

\newlength{\bodywidth}\setlength{\bodywidth}{129mm}
\newlength{\logoXsep}\setlength{\logoXsep}{3mm}

\NewEnviron{DSTitlePage}[1][]{%
\setkeys{DSTitlePage}{#1}%
\thispagestyle{empty}
\begin{tikzpicture}[
		remember picture,
		overlay,
		every node/.append style={color=\DSPage@fg},
		color=\DSPage@fg,
	]
	\path[fill=\DSTitlePage@bg] (current page.north west) rectangle (current page.south east);
	\node[
		font=\DSLogoFont\Huge,
		inner sep=\logoXsep,
		below=6.5mm of current page.north,
	](logo){%
		die datenschleuder.%
	};

	\draw[line width=4pt] (logo.south west) -- +(\bodywidth,0);
	\node[%
		below right=\logoXsep of logo.south west,
		text width=\columnwidth,
		font=\textbf,  %FIX for texlive 2016
		inner xsep=0mm,
	](DSsubtitle){%
		das wissenschaftliche fachblatt für datenreisende\\
		ein organ des chaos computer club
	};
	\node[
		above left=0cm of logo.east|-current page.south,
	](chaosknoten){%
		\chaosknoten{0.035}
	};
	\node[
		left=0cm of chaosknoten.north west,
		anchor=north east,
	]{\fontspec[Scale=3.9]{Linux Biolinum O}\#\@volume};
	\node[
		below right=0cm of logo.west|-chaosknoten.north,
		inner xsep=0pt,
		text width=\columnwidth,
		font=\textbf,
	] (issn) {%
		ISSN 0930-1054 \textbullet\ \@year\\
		\DSTitlePage@price
	};
	\draw[thick] ([yshift=1mm]issn.north west) -- ([yshift=1mm]chaosknoten.north east);
	\node[%
		below right=0mm of DSsubtitle.south-|logo.west,
		inner xsep=0pt,
		]{%
			\begin{minipage}{\bodywidth}
				\BODY
			\end{minipage}
		};
\end{tikzpicture}%
\normalfont
\clearpage
}

\define@key{DSFullImgPage}{fg}[]{\renewcommand{\DSPage@fg}{#1}}
\newcommand{\DSFullImgPage@running}{}
\define@key{DSFullImgPage}{runninghead}[]{\renewcommand{\DSFullImgPage@running}{#1}}
\define@key{DSFullImgPage}{picturepuzzle}[]{%
	\renewcommand{\DSFullImgPage@running}{Das große Datenschleuder-Leser-Bilder-Rätsel}%
}
\newcommand{\DSFullImgPage}[2][runninghead=]{%
	\setkeys{DSFullImgPage}{#1}
	\clearpage
	\manrunninghead{\DSFullImgPage@running}
	\ifthenelse{\equal{\DSFullImgPage@running}{}}{\pagestyle{plain}}{}
	\ThisCenterWallPaper{1}{#2}~
	\clearpage
	\renewcommand{\DSPage@fg}{black}
	\pagestyle{scrheadings}
}