Right-to-Left Babel

<..rlbabel everypar ..>

\expandafter\ifx \csname o@everypar\endcsname\relax \else
\expandafter\ifx \csname ht:everypar\endcsname\relax
\let\ht:everypar\o@everypar
\fi\fi

-_-_-

<..dir ltr/rtl ..>

dir="\if@rl rtl\else ltr\fi"

-_-_-

<..configure html-mltx rlbabel ..>

\Configure{moreL}
   {\ifmathltx <.ltr rlbabel mtext .>%
    \else
       \ifvmode \let\end:moreRL=\empty
       \else\HCode{<span dir="ltr" >}%
         \def\end:moreRL{\HCode{</span>}}%
       \fi
    \fi
   }
   {\end:moreRL}
\Configure{moreR}
   {\ifmathltx <.rtl rlbabel mtext .>%
    \else
       \ifvmode \let\end:moreRL=\empty
       \else\HCode{<span dir="rtl" >}\def\end:moreRL{\HCode{</span>}}\fi
    \fi
   }
   {\end:moreRL}
\Css{.rtl {direction: rtl}
      .ltr {direction: ltr} }

-_-_-

<..ltr rlbabel mtext ..>

\ifmtext
     \leavevmode\special{t4ht@+</mtext><mtext{32}\mml:class="ltr">}x%
     \def\end:moreRL{\HCode{</mtext><mtext>}}%
\else
    \let\end:moreRL=\empty
\fi

-_-_-

<..rtl rlbabel mtext ..>

\ifmtext
     \leavevmode\special{t4ht@+</mtext><mtext{32}\mml:class="rtl">}x%
     \def\end:moreRL{\HCode{</mtext><mtext>}}%
\else
     \let\end:moreRL=\empty
\fi

-_-_-

3.1 Right-to-Left Babel