Head Placement

<..context core-sec..>+
 \pend:defI\beginheadplacement{%
    \expandafter\ifx \csname c:##1-head:\endcsname\relax
       \:warning{adding \string\NewConfigure{##1-head}{3}
            to equal \string\Configure{headplacement}{...}{...}{...}}%
       \NewConfigure{##1-head}{3}%
       \Configure{##1-head}%
           {\a:headplacement}{\b:headplacement}{\c:headplacement}%
    \fi
    \csname c:##1-head\endcsname}
 \pend:defII\endheadplacement{\csname a:##1-head\endcsname}
 \append:defII\endheadplacement{\csname b:#1-head\endcsname}
 \NewConfigure{headplacement}{3}
 \Configure{headplacement}{}{}{\IgnorePar}
 -_-_-

<..context core-sec..>+
 \def\:tmp#1{%
   \let\:tempb=#1%
   \Def:Section#1{\finalsectionnumber}{##1}%
   \expandafter\let
      \csname teskt:\expandafter\:gobble\string #1\endcsname=#1%
   \let#1=\:tempb }
 \def\:tempd#1{%
      <.config core-sec.>%
      \edef\:temp{#1}%
      \expandafter\:tmp\csname \:temp\endcsname
 }
 <.context core-sec name.>
 -_-_-

<..config core-sec..>
 \NewConfigure{#1-ko}{2}
 \NewConfigure{#1-head}{3}
 \Configure{#1-head}
    {}
    {\csname teskt:#1\endcsname{\text:headplacement}}
    {%
      \Configure{#1-ko}{}{}%
      \expandafter\def\csname \??ko #1\c!numbercommand
                              \endcsname{\gdef\deepnummber:headplacement}%
      \expandafter\def\csname \??ko #1\c!deeptextcommand
                              \endcsname{\gdef\text:headplacement}%
      \IgnorePar
    }
 -_-_-  
 \ifx \v!paragraaf\:UnDef
   <.context core-sec name.>
   <.context core-sec 2005.>
 \else
   <.context core-sec name pre 2005.>
 \fi -_-_-

<..context core-sec 2005 ..>
 \let\o:endheadplacement\endheadplacement
 \def\endheadplacement#1#2{%
   \expandafter\ifx \csname teskt:#1\endcsname\relax
       \o:endheadplacement{#1}{#2}%
   \else
      \def\marking[##1]##2{\expandafter\ifx\csname #1\expandafter
                                 \endcsname\csname ##1\endcsname##2\fi}%
      \csname teskt:#1\endcsname{#2}%
   \fi
 }
 -_-_-

The following is for mark-less (number-less) sectioning commands.

<..context core-sec ..>
 %%%%%% pre 2005
 \def\:tempc#1#2#3#4{%
    \ifverhoognummer
      \ifplaatskop
         \ifkopnummer \else
             \expandafter\ifx
                \csname teskt:\v!sub \v!paragraaf\endcsname\relax
                \:warning{Sectioning \expandafter\string
                        \csname \v!sub \v!paragraaf\endcsname ?}%
             \else
                \let\sv:endheadplacement\endheadplacement
                \def\endheadplacement##1##2{%
                   \global\let\endheadplacement\sv:endheadplacement
                   \setbox0=\hbox{}\endheadplacement{#1}{#4}%
                   \def\finalsectionnumber{}%
                   \csname teskt:\v!sub \v!paragraaf\endcsname{#3}%
                }%
    \fi\fi\fi\fi
    \o:doplaatskoptekst:{#1}{#2}{#3}{#4}%
 }
 \ifx \doplaatskoptekst\:UnDef\else
    \HLet\doplaatskoptekst\:tempc
 \fi
 -_-_-