نحوه تبدیل LTRfootnote به LTRendnote

Question

باسلام
برای این که زیرنویس ها به آخرنویس ها تبدیل شوند برای حالت footnote کار ساده است. برای LTRfootnote چه کاری می توان انجام داد؟
کدکمینه:

\documentclass{report}
\usepackage{endnotes}
\usepackage{ptext}
\usepackage{xepersian}
\settextfont{XB Niloofar}
\renewcommand{\notesname}{آخرنویس‌ها}
\let\footnote=\endnote

\begin{document}
این یک مثال است\footnote{سلام}
\ptext[1-12]

\theendnotes

\end{document}

Answer 1

من در تالار قدیمی یک بسته برای این کار نوشته بودم به نام endnotes-chg.sty که محتویاتش به شکل زیر است:

\def\LTRendnote{\@ifnextchar[\@xendnote{\stepcounter{endnote}%
     \protected@xdef\@theenmark{\theendnote}%
     \@endnotemark\@LTRendnotetext}}
\def\RTLendnote{\@ifnextchar[\@xendnote{\stepcounter{endnote}%
     \protected@xdef\@theenmark{\theendnote}%
     \@endnotemark\@RTLendnotetext}}
\let\@LTRdoanenote=0
\let\@RTLdoanenote=0
\long\def\@endnotetext#1{%
     \if@enotesopen \else \@openenotes \fi
     \immediate\write\@enotes{\@doanenote{\@theenmark}}%
     \begingroup
        \def\next{\if@RTL@footnote\else\latinfont\fi#1}%
        \newlinechar='40
        \immediate\write\@enotes{\meaning\next}%
     \endgroup
     \immediate\write\@enotes{\@endanenote}}
\long\def\@LTRendnotetext#1{%
     \if@enotesopen \else \@openenotes \fi
     \immediate\write\@enotes{\@LTRdoanenote{\@theenmark}}%
     \begingroup
        \def\next{\latinfont#1}%
        \newlinechar='40
        \immediate\write\@enotes{\meaning\next}%
     \endgroup
     \immediate\write\@enotes{\@endanenote}}
\long\def\@RTLendnotetext#1{%
     \if@enotesopen \else \@openenotes \fi
     \immediate\write\@enotes{\@RTLdoanenote{\@theenmark}}%
     \begingroup
        \def\next{\persianfont#1}%
        \newlinechar='40
        \immediate\write\@enotes{\meaning\next}%
     \endgroup
     \immediate\write\@enotes{\@endanenote}}
\def\theendnotes{\immediate\closeout\@enotes \global\@enotesopenfalse
  \begingroup
    \makeatletter
    \edef\@tempa{`\string >}%
    \ifnum\catcode\@tempa=12%
      \let\@ResetGT\relax
    \else
      \edef\@ResetGT{\noexpand\catcode\@tempa=\the\catcode\@tempa}%
      \@makeother\>%
    \fi
    \def\@doanenote##1##2>{\def\@theenmark{##1}\par\begingroup\if@RTL@footnote\@RTLtrue\else\@RTLfalse\fi
        \@ResetGT
        \edef\@currentlabel{\csname p@endnote\endcsname\@theenmark}%
        \enoteformat}
     \def\@LTRdoanenote##1##2>{\def\@theenmark{##1}\par\begingroup\@RTLfalse
        \@ResetGT
        \edef\@currentlabel{\csname p@endnote\endcsname\@theenmark}%
        \enoteformat}
         \def\@RTLdoanenote##1##2>{\def\@theenmark{##1}\par\begingroup\@RTLtrue
        \@ResetGT
        \edef\@currentlabel{\csname p@endnote\endcsname\@theenmark}%
        \enoteformat}
    \def\@endanenote{\par\endgroup}%
    \enoteheading
    \enotesize
    \input{\jobname.ent}%
  \endgroup}

و فایل نمونه زیر به این صورت:

\documentclass{article}
\usepackage{endnotes}
\usepackage{xepersian}
\settextfont{Yas}
\usepackage{endnotes-chg}
\let\footnote\endnote
\let\RTLfootnote\RTLendnote
\let\LTRfootnote\LTRendnote
\renewcommand{\notesname}{پانویس‌ها}
\begin{document}
...
\newpage‎‎
\theendnotes
\end{document}

Comments

باتشکر به خوبی کار کرد.

---

با سلام چه طور می‌توانم طوری از ltrfootnote استفاده نمایم که ارقام انگلیسی باشند؟