78.6 Floats

<..context core-flt..>
 \def\:tempc[#1]{%
    \expandafter\ifx \csname c:#1:\endcsname\relax
       <.add contex float configuration.>%
    \fi
    \csname a:#1\endcsname
    <.save everyinsidefloat.>%
    \expandafter\everyinsidefloat\expandafter{%
       \the\everyinsidefloat
       \restore:every \aftergroup\restore:every
       \expandafter \aftergroup\csname b:#1\endcsname
       <.EndP at end of float box.>%
    }%
    \o:dodocomplexplaatsblok:[#1]}
 \HLet\dodocomplexplaatsblok=\:tempc
 \NewConfigure{plaatsblok}{2}
 -_-_-

NOTE: REPLACE plaatsblok WITH placefloat

<..save everyinsidefloat..>
 \expandafter\tmp:toks\expandafter{\the\everyinsidefloat}%
 \def\restore:every{\expandafter\everyinsidefloat
    \expandafter{\the\tmp:toks}}%
 -_-_-

<..EndP at end of float box..>
 \everyvbox{\everyvbox{}\bgroup \aftergroup\EndP\aftergroup\egroup}%
 \def\:tempc##1##2{%
    \let\dowithnextboxcontent\o:dowithnextboxcontent:
    \dowithnextboxcontent{##1}{\everyvbox{}##2}%
 }%
 \HLet\dowithnextboxcontent\:tempc
 -_-_-

<..add contex float configuration..>
 \:warning{adding \string\NewConfigure{#1}{2} initialized to
      \string\Configure{plaatsblok}}%
 \NewConfigure{#1}{2}
 \global\expandafter\let\csname c:#1:\expandafter\endcsname
                                      \csname c:#1:\endcsname
 \expandafter\gdef\csname a:#1\endcsname{\a:plaatsblok}%
 \expandafter\gdef\csname b:#1\endcsname{\b:plaatsblok}%
 -_-_-

<..context core-flt..>+
 \def\:tempc#1#2#3#4{%
    \ifvmode    \IgnorePar\fi
    \o:putcompletecaption:{#1}%
        {\a:caption#2\b:caption}%
        {\c:caption#3\d:caption}{#4}}
 \HLet\putcompletecaption\:tempc
 \NewConfigure{caption}{4}
 -_-_-