[dev-context] typo-del.mkiv

Wolfgang Schuster wolfgang.schuster.lists at gmail.com
Thu Apr 30 15:02:49 CEST 2020


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



More information about the dev-context mailing list