<..context core-fig..>
\def\dodoplaceexternalfigure[#1][#2][#3][#4][#5][#6]{%
\doifsomething{#3}%
{\bgroup
\def\textunderscore{_}% brrr, temp hack
\calculateexternalfigure[#1][#2][#3][#4][#5][#6]%
\calculateexternalscreenfigure[#1][#2][#3][#4][#5][#6]%
\a:externalfigure{#3}%
\egroup}}
\NewConfigure{externalfigure}{1}
-_-_-
Toc of figures:
<..context core-fig..>+
\NewConfigure{figure-li}[4]{%
\expandafter\def\csname a:figure-li\endcsname{%
#1%
\def\:tempc####1####2{#2\o:limitatedlistentry:{####1}{####2}#3}%
\HLet\limitatedlistentry\:tempc
}%
\expandafter\def\csname b:figure-li\endcsname{#4}%
}
\Configure{figure-li}{}{}{}{}
\NewConfigure{title-ko}{2}
-_-_-
Captions:
<..context core-fig..>+
\NewConfigure{-@@kjfigure}{2}
-_-_-
<..context page-flt..>
\def\dodocomplexplacefloat[#1][#2][#3]#4%
{\flushnotes
\flushsidefloats
\ifsomefloatwaiting
\doifinsetelse\v!always{#2}
{\showmessage\m!floatblocks5\empty}
{\expanded{\doifcommonelse{#2}{\flushfloatslist}}\doflushfloats
\donothing}%
\fi
\ifmargeblokken
\doifinset\v!margin{#2}\endgraf
\fi
\global\insidefloattrue
\a:placefloat
\begingroup
\ifmargeblokken
\doifinset\v!margin{#2}{\hsize\@@mbwidth}%
\fi
\the\everyinsidefloat
\let\@@extrafloat\empty
\presetmorefloatvariables{#2}%
\aftergroup \b:placefloat
\dowithnextboxcontent
{\setlocalfloathsize
\getvalue{\??fl#1\c!inner}%
\fuzzysnappingfalse
\postponenotes} % new
{\doifvaluesomething{\??fl#1\c!criterium}
{\ifdim\wd\nextbox>\getvalue{\??fl#1\c!criterium}\relax
\edef\forcedfloatmethod{\executeifdefined
{\??fl#1\c!fallback}\v!here}%
\fi}%
\xdocompletefloat{#1}{#3}{#1}{#2}{#1}{#4}%
\doifnotinset\v!text{#2}{\carryoverpar\endgroup}%
\global\sidefloatdownshift \zeropoint
\global\sidefloatextrashift\zeropoint
\ifparfloat
\doifinset\v!reset{#2}\forgetsidefloats
\doinhibitblank
\fi}%
\vbox}
\NewConfigure{placefloat}{2}
-_-_-