Várias referências à mesma nota de rodapé por página com vários conjuntos de notas de rodapé

Question

Ok, agora entendi que “notas de rodapé duplicadas” são “notas de rodapé com o mesmo conteúdo”. A melhor maneira de resolver seu problema é armazenar as notas de rodapé em uma lista. Então, antes de inserir uma nota de rodapé, você poderia testar se ela já está na lista.

Para reiniciar a cada página, você deve prefixar o valor armazenado pelo número da página. Para obtê-lo, você usará o mecanismo crossref do reledmac, para obter o número da página. Cada nota, composta ou não, possui um id único, armazenado em onlyonefootnoteBcontador, aumentado a cada nota de rodapé (composta ou não). Isso nos permite ter um sistema de referência cruzada automático.

Para gerenciar a lista, você pode usar a ferramenta fornecida pelo etoolboxpacote, que reledmac carrega.

Aquilo é

\let\footnoteBlist\relax%Declare a list
\newcounter{onlyonefootnoteB}%Declare a counter to have unique id
\newcommand{\onlyonefootnoteB}[1]{%The command to be call instead of \footnoteB
  \addtocounter{onlyonefootnoteB}{1}%Increase counter value
  \edlabel{B:\theonlyonefootnoteB}%put crossref label
  \xifinlist{\xpageref{B:\theonlyonefootnoteB}-\detokenize{#1}}{\footnoteBlist}%Make test
  {}%True : does nothing
  {%False : add to the list + add footnote
    \listxadd{\footnoteBlist}{\xpageref{B:\theonlyonefootnoteB}-\detokenize{#1}}%
    \footnoteB{#1}%
  }%
}

Observe que usamos \detokenizepara evitar problemas com a troca de recursos de fonte.

Por fim, nosso código final seria:

\documentclass[12pt]{book}
\usepackage[papersize={6.5in,9.5in},margin=1in,headheight=28pt]{geometry}
\usepackage{layout} % shows you the layout composition of the pages.

\usepackage{fontspec}
\usepackage{reledmac}
\usepackage[polutonikogreek]{babel}
\usepackage{setspace}
\usepackage{etoolbox}
\usepackage{fancyhdr}
\usepackage{perpage} %the perpage package


%footnote sets arrangement
\arrangementX[A]{paragraph}
\arrangementX[B]{twocol}
\colalignX{\justifying}
\makeatletter
\bhooknoteX[A]{\setstretch {\setspace@singlespace}}
\bhookgroupX[A]{\setstretch {\setspace@singlespace}}
\makeatother
\let\footnote\footnoteA
\let\footnoteruleA=\relax
\let\footnoteruleB=\relax
\renewcommand{\thefootnoteA}{\roman{footnote}}
%\usepackage{microtype} % I guess this one is optional
\interfootnotelinepenalty=10000
\setmainfont{Palatino Linotype}
\setsansfont{Gill Sans Std}[
Scale=MatchLowercase,
]
\setmonofont{Andale Mono}[
Scale=MatchLowercase,
]

%This makes the footnote numbering restart for every page
\MakePerPage{footnoteB} %the perpage package command
\let\footnoteBlist\relax%Declare a list
\newcounter{onlyonefootnoteB}%Declare a counter to have unique id
\newcommand{\onlyonefootnoteB}[1]{%The command to be call instead of \footnoteB
  \addtocounter{onlyonefootnoteB}{1}%Increase counter value
  \edlabel{B:\theonlyonefootnoteB}%put crossref label
  \xifinlist{\xpageref{B:\theonlyonefootnoteB}-\detokenize{#1}}{\footnoteBlist}%Make test
  {}%True : does nothing
  {%False : add to the list + add footnote
    \listxadd{\footnoteBlist}{\xpageref{B:\theonlyonefootnoteB}-\detokenize{#1}}%
    \footnoteB{#1}%
  }%
}


\begin{document}
    \selectlanguage{greek}

    \chapter*{ΚΑΤΑ ΙΩΑΝΝΗΝ}

    \thispagestyle{empty}

    1 Ἐν\onlyonefootnoteB{A} ἀρχῇ ἦν\onlyonefootnoteB{A} ὁ λόγος, καὶ ὁ λόγος ἦν πρὸς τὸν θεόν, καὶ θεὸς ἦν ὁ λόγος. 2 Οὗτος ἦν ἐν ἀρχῇ πρὸς τὸν θεόν. 3 Πάντα δι’ αὐτοῦ ἐγένετο,\onlyonefootnoteB{γίνομαι 3s 2aor mid ind come to exist} καὶ χωρὶς αὐτοῦ ἐγένετο\onlyonefootnoteB{γίνομαι 3s 2aor mid ind come to exist} οὐδὲ ἓν ὃ γέγονεν.\onlyonefootnoteB{γίνομαι 3s pf act ind come to exist} 4 Ἐν αὐτῷ ζωὴ ἦν, καὶ ἡ ζωὴ ἦν τὸ φῶς τῶν ἀνθρώπων, 55αὶ τὸ φῶς ἐν τῇ σκοτίᾳ\onlyonefootnoteB{σκοτία, ας, ἡ f darkness; fig. evil world} φαίνει, καὶ ἡ σκοτία\onlyonefootnoteB{σκοτία, ας, ἡ f darkness; fig. evil world} αὐτὸ οὐ κατέλαβεν. 6 Ἐγένετο ἄνθρωπος ἀπεσταλμένος παρὰ θεοῦ, ὄνομα αὐτῷ Ἰωάννης. 7 Οὗτος ἦλθεν\onlyonefootnoteB{ἔρχομαι 3s 2aor act ind. appear} εἰς μαρτυρίαν, ἵνα μαρτυρήσῃ περὶ τοῦ φωτός, ἵνα πάντες πιστεύσωσιν δι’ αὐτοῦ. 8 Οὐκ ἦν ἐκεῖνος τὸ φῶς, ἀλλ’ ἵνα μαρτυρήσῃ περὶ τοῦ φωτός. 9 Ἦν τὸ φῶς τὸ ἀληθινόν,\onlyonefootnoteB{ἀληθινός, ή, όν genuine, authentic, real} ὃ φωτίζει\onlyonefootnoteB{φωτίζω 3s pres act ind enlighten} πάντα ἄνθρωπον ἐρχόμενον\onlyonefootnoteB{ἔρχομαι pres mid or pas part ac s m come} εἰς τὸν κόσμον. 10 Ἐν τῷ κόσμῳ ἦν, καὶ ὁ κόσμος δι’ αὐτοῦ ἐγένετο,\onlyonefootnoteB{γίνομαι 3s 2aor mid ind come to exist} καὶ ὁ κόσμος αὐτὸν οὐκ ἔγνω. 11 Εἰς τὰ ἴδια ἦλθεν,\onlyonefootnoteB{ἔρχομαι 3s 2aor act ind. come} καὶ οἱ ἴδιοι αὐτὸν οὐ παρέλαβον. 12 Ὅσοι δὲ ἔλαβον αὐτόν, ἔδωκεν αὐτοῖς ἐξουσίαν τέκνα θεοῦ γενέσθαι,\onlyonefootnoteB{γίνομαι 2aor mid inf become} τοῖς πιστεύουσιν εἰς τὸ ὄνομα αὐτοῦ· 13 οἳ οὐκ ἐξ αἱμάτων, οὐδὲ ἐκ θελήματος σαρκός, οὐδὲ ἐκ θελήματος ἀνδρός, ἀλλ’ ἐκ θεοῦ ἐγεννήθησαν.\onlyonefootnoteB{γεννάω 3p aor pas ind beget} 14 Καὶ ὁ λόγος σὰρξ ἐγένετο,\onlyonefootnoteB{γίνομαι 3s 2aor mid ind become} καὶ ἐσκήνωσεν ἐν ἡμῖν καὶ ἐθεασάμεθα\onlyonefootnoteB{θεάομαι 1p aor mid ind behold} τὴν δόξαν αὐτοῦ, δόξαν ὡς μονογενοῦς\onlyonefootnoteB{μονογενής, ές unique, only; only begotten} παρὰ πατρός πλήρης\onlyonefootnoteB{πλήρης, ες filled, full} χάριτος καὶ ἀληθείας. 15 Ἰωάννης μαρτυρεῖ περὶ αὐτοῦ, καὶ κέκραγεν\onlyonefootnoteB{κράζω 3s pf act ind come} λέγων, Οὗτος ἦν ὃν εἶπον, Ὁ ὀπίσω μου ἐρχόμενος\onlyonefootnoteB{ἔρχομαι pf mid or pas part nom s m come} ἔμπροσθέν μου γέγονεν·\onlyonefootnoteB{γίνομαι 3s 2aor mid ind come to exist} ὅτι πρῶτός μου ἦν. 16 Καὶ ἐκ τοῦ πληρώματος\onlyonefootnoteB{πλήρωμα, ατος, τό n sum total, fullness} αὐτοῦ ἡμεῖς πάντες ἐλάβομεν,\onlyonefootnoteB{receive} καὶ χάριν ἀντὶ\onlyonefootnoteB{ἀντί prep in place of} χάριτος. 17 Ὅτι ὁ νόμος διὰ Μωσέως ἐδόθη,\onlyonefootnoteB{δίδωμι 3s aor pas ind grant} ἡ χάρις καὶ ἡ ἀλήθεια διὰ Ἰησοῦ χριστοῦ ἐγένετο.\onlyonefootnoteB{γίνομαι 3s 2aor mid ind come} 18 Θεὸν οὐδεὶς ἑώρακεν πώποτε·\onlyonefootnoteB{πώποτε adv ever, at any time} ὁ μονογενὴς\onlyonefootnoteB{μονογενής, ές unique, only; only begotten} υἱός, ὁ ὢν εἰς τὸν κόλπον\onlyonefootnoteB{κόλπος, ου, ὁ m bosom, breast, chest} τοῦ πατρός, ἐκεῖνος ἐξηγήσατο.\onlyonefootnoteB{ἐξηγέομαι 3s aor mid ind expound}

    19 Καὶ αὕτη ἐστὶν ἡ μαρτυρία τοῦ Ἰωάννου, ὅτε ἀπέστειλαν οἱ Ἰουδαῖοι ἐξ Ἱεροσολύμων ἱερεῖς καὶ Λευΐτας\onlyonefootnoteB{Λευΐτης m Levite} ἵνα ἐρωτήσωσιν αὐτόν, Σὺ τίς εἶ; 20 αὶ ὡμολόγησεν,\onlyonefootnoteB{ὁμολογέω 3s aor act ind declare} καὶ οὐκ ἠρνήσατο·\onlyonefootnoteB{ἀρνέομαι 3s aor mid ind deny} καὶ ὡμολόγησεν\onlyonefootnoteB{ὁμολογέω 3s aor act ind declare} ὅτι Οὐκ εἰμὶ ἐγὼ ὁ χριστός. 21 Καὶ ἠρώτησαν αὐτόν, Τί οὖν; Ἠλίας εἶ σύ; Καὶ λέγει, Οὐκ εἰμί. Ὁ προφήτης εἶ σύ; Καὶ ἀπεκρίθη,\onlyonefootnoteB{ἀποκρίνομαι 3s aor mid ind answer, reply} Οὔ. 22 Εἶπον οὖν αὐτῷ, Τίς εἶ; Ἵνα ἀπόκρισιν\onlyonefootnoteB{ἀπόκρισις, εως, ἡ f answer} δῶμεν\onlyonefootnoteB{δίδωμι  give} τοῖς πέμψασιν ἡμᾶς. Τί λέγεις περὶ σεαυτοῦ; 23 Ἔφη, Ἐγὼ φωνὴ βοῶντος\onlyonefootnoteB{βοάω pres actv part s gen m call, shout, cry out} ἐν τῇ ἐρήμῳ, Εὐθύνατε\onlyonefootnoteB{εὐθύνω 2p aor act straighten, make straight} τὴν ὁδὸν κυρίου, καθὼς εἶπεν Ἠσαΐας ὁ προφήτης. 24 Καὶ οἱ ἀπεσταλμένοι ἦσαν ἐκ τῶν Φαρισαίων. 25 Καὶ ἠρώτησαν αὐτόν, καὶ εἶπον αὐτῷ, Τί οὖν βαπτίζεις, εἰ σὺ οὐκ εἶ ὁ χριστός, οὔτε Ἠλίας, οὔτε ὁ προφήτης; 26 Ἀπεκρίθη\onlyonefootnoteB{ἀποκρίνομαι 3s aor mid ind answer, reply} αὐτοῖς ὁ Ἰωάννης λέγων, Ἐγὼ βαπτίζω ἐν ὕδατι· μέσος δὲ ὑμῶν ἕστηκεν ὃν ὑμεῖς οὐκ οἴδατε.\onlyonefootnoteB{A}
    \newpage
    \begin{itemize}
      \renewcommand*{\do}[1]{\item #1}%
        \dolistloop{\footnoteBlist}%
    \end{itemize}
\end{document}

O código após o final newpagenos mostra a lista de composições de notas de rodapé.

Observe que, como usamos ferramentas crossref, você precisará de várias execuções. Use latexmkferramentas semelhantes para ter certeza de obter um bom número de execuções. Neste MWE; eram 3, mas eu poderia ser mais para uso em casos reais.

Answer 1