swa-document-scrbook.sty

%
% KOMA-Book specific properties
%
\@ifclassloaded{scrbook}{}%
  {% not koma
  \PackageError{swa-document-scrbook}%
    {This package should only be used with KOMA script}%
    {You might consider loading swa-document.}}

\newif\if@swa@birdseye
\DeclareOption{birdseyeview}{\@swa@birdseyetrue}
\DeclareOption{birdseyeview=true}{\@swa@birdseyetrue}
\DeclareOption{birdseyeview=false}{\@swa@birdseyefalse}
\ProcessOptions\relax



\KOMAoptions{
    pagesize,
    % DIV=8,
    open=right,
    appendixprefix=true,
    % headinclude=true,
    % footinclude=true
  }

\newif\if@swa@bindingcorrection@set
\@swa@bindingcorrection@setfalse

\newcommand*\bindingcorrection[3][1]{
  % #1 -> "Volumen", typically 1
  % #2 -> pages
  % #3 -> grammage
  %
  % Kohm: Die Bindekorrektur macht bei guter Bindung und gutem Papier maximal die
  % Hälfte des Buchblocks aus.
  %
  % BCOR_max  = (grammage/1000 * sheets * volume) / 2
  %           = grammage/1000 * pages/2 * volume/1 * 1/2
  %           = grammage * pages / 4000 * volume
  %           = grammage * pages * volume * 0.00025
  % Will:
  % Empfohlen wird ein Drittel bis die Hälfte der Buchrückenstärke (teilweise sogar die komplette Buchrückenstärke).
  % Die Buchrückenstärke berechnet sich nach folgender Formel:
  % (Grammatur x Volumen x Seitenzahl) : 2000
  %
  % We guess BCOR = .8 * BCOR_max
  \if@swa@bindingcorrection@set\relax
    \message{^^J Binding correction already set. ignoring}
  \else
    \csdimdef{tempcorrection}{.8\dimexpr#2\dimexpr #1\dimexpr 0.00025\dimexpr #3mm\relax}
    % Set and force recalculation
    \message{^^J Binding correction determined as \tempcorrection}
    \ifcsdef{settypearea}%
      {\csuse{settypearea}{\tempcorrection}}%
      {\KOMAoptions{DIV=8,BCOR=\tempcorrection}%
       \areaset[current]{\textwidth}{1.61803399\textwidth}}
    \@swa@bindingcorrection@settrue
  \fi
}
\csletcs{bindekorrektur}{bindingcorrection}

\providecommand*\papergrammage{80}
\providecommand*\papervolume{1}
\providecommand*\BCORTotPages{0}
\newcommand*\setbindingcorrection{%
  \ifnumcomp{\BCORTotPages}{=}{0}{
      \bindingcorrection[\papervolume]{60}{\papergrammage}
    }{%
      \bindingcorrection[\papervolume]{\BCORTotPages}{\papergrammage}
    }
}
\AfterEndDocument{
  %
  % We cannot rely on the aux file here (where totpages writes TotPages)
  %  beacuse when the aux file is read, the page dimesions are already set,
  %  which is too late.
  %
  \if@filesw
    \newwrite\swa@pagesfile
    \immediate\openout\swa@pagesfile=\jobname.pgs\relax
    \immediate\write\swa@pagesfile{\relax}
    \immediate\write\swa@pagesfile{\string\xdef\string\BCORTotPages{\theTotPages}}
    \immediate\write\swa@pagesfile{\relax}
    \immediate\closeout\swa@pagesfile
    \fi
}
\AtEndPreamble{%
  \@input{\jobname.pgs}
  \setbindingcorrection
}

\RequirePackage{swa-document-koma}

%\def\signed #1{{\leavevmode\unskip\nobreak\hfil\penalty50\hskip2em
%  \hbox{}\nobreak\hfil{#1}%
%  \parfillskip=0pt \finalhyphendemerits=0 \endgraf}}
\ifcsstring{swa@degree}{phd}%
  {%
  \newsavebox{\chaptersummarybox}%
  \newenvironment{chaptersummary}[1][]%
    {\begingroup%
    \setlength{\fboxsep}{4pt}%
    \begin{lrbox}{\chaptersummarybox}% capture
     \begin{minipage}{\dimexpr\linewidth - 2\fboxsep\relax}%
       \addsec*{Summary}\phantomsection\vspace*{-.5\baselineskip}\ignorespaces}%
    {\end{minipage}\end{lrbox}%
    \par\unskip\nobreak% hmode -> vmode, no pg break
    \vfill% fill vertically. this is end of page if no space
    \penalty50\vskip\baselineskip% make pg break point, try to squeze a line in
    \vbox{}\nobreak\vfill% empty box + no pg break + fill; this is fill to e o page if page break at penalty 50
    \noindent% vmode -> hmode
    \colorbox[gray]{.9}{{\usebox{\chaptersummarybox}}}%
    \endgroup%
    \vspace*{2\fboxsep}%
    \clearpage}}%
  {}

\AtEndPreamble{
  % redo document stuff:
  \ifcsvoid{hypersetup}{}{%
    
    \hypersetup{
      pdftitle={\@title{}\ifdefempty{\@subtitle}{}{:\space\@subtitle}},
      pdfauthor={\@author},
      pdfsubject={\@subject}
    }
  }
  \ifboolexpr{bool{@swa@birdseye}}{
    \KOMAoptions{
      twocolumn=true,
      twoside=semi,
      fontsize=8pt,
      headings=small,
      footinclude=false,
      headinclude=false,
      DIV=calc,
      BCOR=0pt,
    }
  }{}
}
% EOF