This is a follow-up question to a previous ConTeXt solution. That solution dealt with wrapped figures in a ConTeXt document generated from Pandoc Markdown.

Now, I would like to extend that solution to allow for a short caption below a wrapped figure. Moreover, I would like to have the short caption typeset differently, say small-sized bold sans-serif.
Below is a minimal working example that shows how the layout of the original solution gets messed up when adding the short caption text. What do I need to change to the description definition to allow for short captions under wrapped figures?
\setuptolerance[horizontal, tolerant, stretch]
\setuppapersize [A4][A4]
\setuplayout [width=middle, backspace=1.5in, cutspace=1.5in,
height=middle, topspace=0.75in, bottomspace=0.75in]
\setuppagenumbering[location={footer,center}]
% Inter-paragraph spacing
\setupwhitespace[medium]
% Break at hyphens
\setbreakpoints[compound]
\setupexternalfigures[location=default]
% Remaining code is for descriptions with a left floating figure
% https://tex.stackexchange.com/a/133372/26348
\startsetups placefigure
\setupexternalfigure
[wfactor=fit]
\stopsetups
% Floats do not have "before=" nor a setup key
\appendtoks \setups{placefigure} \to \everyinsidefloat
\definemeasure[pageheight][\dimexpr(\pagegoal-\pagetotal-2\lineheight)]
\define[1]\startdescription{
\setbox\scratchbox\vbox{\setupexternalfigure[width=4cm]#1}%
\ifdim\ht\scratchbox>\dimexpr\measure{pageheight}\relax
\page
\fi
\startplacefigure[location={left,high,none}]
\box\scratchbox
\stopplacefigure
}
\define\stopdescription{\endgraf}
\starttext
\input douglas.tex
\startdescription{{\externalfigure[cow]}Short caption}
\input linden.tex
\stopdescription
\input bryson.tex
\stoptext




\hbox{\box\scratchbox}does not work. As for MarkDown, it really is the best way to get easily maintainable output in both HTML and PDF. See for yourself. – Serge Stroobandt Nov 13 '13 at 02:12