The variable \NewGroup is introduced to record the index of entry in current
group.
\let\VBorder=\empty \let\AllColMargins=\empty
\Configure{VBorder}
{\let\VBorder=\empty \let\AllColMargins=\empty
\global\let\GROUPS=\empty \HAssign\NewGroup = 0
\gHAdvance\Next:TableNo by 1 \global\let\TableNo=\Next:TableNo
<.init vborder??.>%
}
{<.vborder solid??.>%
\xdef\VBorder{\VBorder\ifnum \NewGroup> 0 </colgroup>\fi}
\HAssign\NewGroup = 0 \gdef\GROUPS{rules="groups"}}
{\Advance:\NewGroup by 1
<.record cur vborder??.>%
\ifnum \NewGroup=1 \xdef\VBorder{\VBorder<colgroup
id="TBL-\TableNo-\ar:cnt g">}\fi
\xdef\VBorder{\VBorder<col\Hnewline id="TBL-\TableNo
-\ar:cnt"\xml:empty>}\xdef\AllColMargins{\AllColMargins1}}
{\xdef\AllColMargins{\AllColMargins 0}} -_-_-
\expandafter\tmp:toks\expandafter{\Clr}%
\HCode{<!--\the\tmp:toks-->}%
-_-_-
The above doesn’t work, for instance on ‘|r||r@{--}l|p{1.25in}|’ due to thge
extra --..
\Configure{halignTR}
{}
\Configure{halignTBL}
% {t}{\HCode{valign-top}}
% {b}{\HCode{valign-baseline}}
% {c}{\HCode{valign-middle}}
{}
-_-_-
sty-\LR:VBars\Left:Marg\Right:Marg\Aligh:Wrap
-_-_-
\csname not:Pcell\endcsname{\HCode{</text:p>}}%
-_-_-
\ifnum \HMultispan>1
\HCode{table:number-columns-spanned="\HMultispan"\Hnewline}%
\bgroup
\def\:temp{\ifnum \HMultispan>1
\HAdvance\HMultispan by -1
\HCode{<table:covered-table-cell/>}%
\expandafter\:temp
\fi}%
\egroup
\fi
-_-_-