چطور مکان اشتباه عنوان الگوریتم در صفحات فرد در کلاس biditufte-book رو درست کنم؟

Question

در صفحه ۱ خروجی کد پایین، عنوان الگوریتم به جای اینکه در ستون کناری قرار بگیره، در مکان اشتباهی قرار می‌گیره. در صفحات زوج این مشکل وجود نداره. چطور می‌شه این مشکل رو برطرف کرد؟

\documentclass[showframe]{biditufte-book}
\usepackage{algorithm} 
\usepackage{algorithmic}
\usepackage{xepersian}
\settextfont{Yas}

\begin{document}
مقداری متن معمولی
    \begin{algorithm}
    \caption{الگوریتم اقلیدس و مقداری متن بیشتر برای رفتن به خط بعدی}
    \label{euclid}
    \begin{latin}
        \begin{algorithmic}[1] 
            \STATE $r\gets a \bmod b$
            \STATE    $ X^{i+1}:=Z$
        \end{algorithmic}
    \end{latin}
\end{algorithm}

\newpage
مقداری متن معمولی 

    \begin{algorithm}
    \caption{الگوریتم اقلیدس و مقداری متن بیشتر برای رفتن به خط بعدی}
    \label{euclid2}
    \begin{latin}
        \begin{algorithmic}[1] 
            \STATE $r\gets a \bmod b$
            \STATE    $ X^{i+1}:=Z $
        \end{algorithmic}
    \end{latin}
\end{algorithm}
\end{document}

خروجی صفحه ۱:

Answer 1

ماکروی مربوطه که باید تعریفش رو تغییر بدی \floatc@bidituftefloatplain هست.

\makeatletter
\AtBeginDocument{%
  \bidi@patchcmd{\floatc@bidituftefloatplain}{%
        \smash{\hspace{\@bidituftefloat@caption@fill}\usebox{\@bidituftefloat@caption@box}}%
}{%
       \@bidituftefloat@checkoddpage%
    \ifthenelse{\boolean{@bidituftefloat@odd@page}}%
      {\GlobalSetBoolean{@bidituftefloat@float@recto}{true}\@bidituftefloat@float@debug{Detected page: [recto/odd]}}%
      {\GlobalSetBoolean{@bidituftefloat@float@recto}{false}\@bidituftefloat@float@debug{Detected page: [verso/even]}}%
  \ifthenelse{\NOT\boolean{@bidituftefloat@symmetric}\OR\boolean{@bidituftefloat@float@recto}}{%
    % asymmetric or page is odd, so caption is on the right
\smash{\hspace{-\@bidituftefloat@overhang}\usebox{\@bidituftefloat@caption@box}}%
    \@bidituftefloat@float@debug{Caption position: [right]}%
  }{% symmetric pages and page is even, so caption is on the left
   \smash{\hspace{\@bidituftefloat@caption@fill}\usebox{\@bidituftefloat@caption@box}}%
    \@bidituftefloat@float@debug{Caption position: [left]}%
  }%
}{}{}
}
\makeatother