Hi,
the patch below makes it possible to change the interlinespace for
blockquote etc.
with the style key, e.g. \setupblockquote[style={\setupinterlinespace[...]}.
The extra group is needed for the nextleft and nextright keys.
\def\typo_delimited_start_par_indeed[#1]%
{\let\typo_delimited_stop\typo_delimited_stop_par
\edef\p_delimited_spacebefore{\delimitedtextparameter\c!spacebefore}%
\ifx\p_delimited_spacebefore\empty \else
\blank[\p_delimited_spacebefore]%
\fi
\delimitedtextparameter\c!before
\iffirstargument
\edef\m_delimited_argument{#1}%
\fi
\ifx\m_delimited_argument\empty
\let\m_delimited_argument\m_delimited_argument
\fi
\ifx\m_delimited_argument\empty
\endgraf
\doadaptleftskip {\delimitedtextparameter\c!leftmargin}%
\doadaptrightskip{\delimitedtextparameter\c!rightmargin}%
\let\typo_delimited_stop_par_indeed\endgraf
\else % backward compatible direct directive
\startnarrower[\m_delimited_argument]%
\let\typo_delimited_stop_par_indeed\stopnarrower
\fi
% so far
\push_macro_checkindentation
\useindentingparameter\delimitedtextparameter
%
\begingroup
\usedelimitedtextstyleandcolor\c!style\c!color
%
+ \begingroup
\edef\p_delimited_left {\delimitedtextparameter{\c!left}}%
\edef\p_delimited_right {\delimitedtextparameter{\c!right}}%
\edef\p_delimited_nextleft {\delimitedtextparameter{\c!nextleft}}%
\edef\p_delimited_nextright{\delimitedtextparameter{\c!nextright}}%
%
\leftdelimitedtextmark
%
\setnextleftdelimitedtextmark
\setnextrightdelimitedtextmark
%
\typo_delimited_start_content}
\def\typo_delimited_stop_par
{\typo_delimited_stop_content
\rightdelimitedtextmark
+ \carryoverpar\endgroup
+ \endgraf
+ \endgroup % new per 2013-01-21 ... please left floats
- \carryoverpar\endgroup % new per 2013-01-21 ... please left floats
\pop_macro_checkindentation
\typo_delimited_stop_par_indeed
\delimitedtextparameter\c!after
\edef\p_delimited_spaceafter{\delimitedtextparameter\c!spaceafter}%
\ifx\p_delimited_spaceafter\empty \else
\blank[\p_delimited_spaceafter]%
\fi
\useindentnextparameter\delimitedtextparameter
\aftergroup\dorechecknextindentation}% AM: This was missing!
Wolfgang
_______________________________________________
dev-context mailing list
dev-context@ntg.nl
https://mailman.ntg.nl/mailman/listinfo/dev-context
