\Configure{poemtitle}
{\par\IgnorePar\EndP
\HCode{<div class="poemtitle"><span class="poemtitlemark">}}
{\HCode{</span>}}
{\ifvmode \IgnorePar\fi \EndP \HCode{</div>}\par}
\Configure{likepoemtitle}
{\par\IgnorePar\EndP \HCode{<div class="likepoemtitle">}}
{\ifvmode \IgnorePar\fi \EndP \HCode{</div>}\par}
\Css{.poemtitle, likepoemtitle {margin-left:2em; margin-bottom:0.5em;}}
-_-_-
\ConfigureEnv{verse}
{\ifvmode \IgnorePar\fi\EndP
\HCode{<div class="verse">}%
\bgroup
\Configure{hspace}
{\HCode{<span style="margin-right:\the\tmp:dim">}\:nbsp}
{\HCode{</span>}} {}
\let\end:verseln\empty
}
{\egroup \ifvmode \IgnorePar\fi \EndP \HCode{</div>}}
{}{}
\ConfigureList{verse}
{} {\ifvmode \IgnorePar\fi \EndP \end:verseln}
{\parindent=\z@} {}
\Configure{verseline}
{\ifvmode \IgnorePar\fi \EndP \end:verseln
\HCode{<div class="verseline">}\def\end:verseln{\HCode{</div>}}}
{\ifvmode \IgnorePar\fi \EndP \end:verseln
\HCode{<div class="skip-verseline">}%
\def\end:verseln{\HCode{</div>}}}
\Configure{flagverse}
{\HCode{<span class="flagverse">}\bgroup \setlength{\vleftskip}{0em}}
{\egroup \HCode{</span>}\ignorespaces}
\Css{.skip-verseline {margin-top: 1em;}}
\Css{.skip-verseline, .verseline {white-space: nowrap;}}
\Css{.flagverse {float:right; font-size:85\%;
text-decoration:underline;}}
-_-_-