minor refactoring...

Signed-off-by: Alex A. Naanou <alex.nanou@gmail.com>
This commit is contained in:
Alex A. Naanou 2023-04-24 12:37:13 +03:00
parent c42d8a4208
commit 2034e4fdfe

View File

@ -2003,11 +2003,11 @@
\newlength\photobook@cliptocell@bottom \newlength\photobook@cliptocell@bottom
\setlength\photobook@cliptocell@bottom{0mm}% \setlength\photobook@cliptocell@bottom{0mm}%
\newenvironment{cliptocell}[1][0mm]{% % XXX EXPERIMENTAL
\begingroup% % XXX should this set the setsepchar back to default???
\newcommand\cliptocellbleeds[1]{
\setsepchar{ }% \setsepchar{ }%
\readlist*\photobook@cliptocell@bleeds{#1}% \readlist*\photobook@cliptocell@bleeds{#1}%
%
% args: size % args: size
\ifnum \photobook@cliptocell@bleedslen = 1% \ifnum \photobook@cliptocell@bleedslen = 1%
\setlength\photobook@cliptocell@left{% \setlength\photobook@cliptocell@left{%
@ -2037,8 +2037,11 @@
\setlength\photobook@cliptocell@right{% \setlength\photobook@cliptocell@right{%
\photobook@cliptocell@bleeds[3]}% \photobook@cliptocell@bleeds[3]}%
\setlength\photobook@cliptocell@top{% \setlength\photobook@cliptocell@top{%
\photobook@cliptocell@bleeds[4]}\fi% \photobook@cliptocell@bleeds[4]}\fi}
%
\newenvironment{cliptocell}[1][0mm]{%
\begingroup%
\cliptocellbleeds{#1}
% NOTE: the spaces at the end of each line here are significant!! % NOTE: the spaces at the end of each line here are significant!!
\begin{trimbox}{{\photobook@cliptocell@left} % \begin{trimbox}{{\photobook@cliptocell@left} %
{\photobook@cliptocell@bottom} % {\photobook@cliptocell@bottom} %