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

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

Este é meu primeiro post nesta comunidade online. Procurei uma resposta para essa pergunta por horas. Algumas postagens cobrem partes do que eu preciso, mas nenhuma que encontrei cobre em detalhes.

Estou criando uma edição crítica de um texto grego que possui (1) algumas dezenas de notas de rodapé por página e (2) dois conjuntos de notas de rodapé. Algumas das palavras no corpo do texto principal terão notas de rodapé idênticas e eu gostaria que apenas uma instância de nota de rodapé aparecesse por página. Pode haver várias referências ao mesmo rodapé na mesma página, mas o processo de eliminação de duplicação deve ser "redefinido" para cada página.

Tentei usar o fixfootpacote, mas não consigo descobrir como fazê-lo funcionar com os dois conjuntos de rodapés que estou usando.

Há muita coisa acontecendo no preâmbulo, mas aqui está o que estou usando.

[Código agora editado que retira o preâmbulo para mostrar apenas as partes necessárias para ilustrar o problema. Para obter uma ilustração de uma nota de rodapé duplicada, observe as duas primeiras notas de rodapé na primeira página.]

\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
\newcommand{\onlyonefootnoteB}[1]{%The command to be call instead of \footnoteB
    \ifinlist{#1}{\footnoteBlist}%
    {}%True : does nothing
    {%False : add to the list + add footnote
        \listgadd{\footnoteBlist}{#1}%
        \footnoteB{#1}%
    }%
}

\bhookgroupX[B]{%
    \global\let\footnoteBlist\relax%Declare a list
}

\begin{document}

\selectlanguage{greek}

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

\thispagestyle{empty}
1 Ἐν ἀρχῇ ἦν ὁ λόγος, καὶ ὁ λόγος ἦν πρὸς τὸν Θεόν, καὶ Θεὸς ἦν ὁ λόγος. 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 ἐν αὐτῷ ζωὴ ἦν, καὶ ἡ ζωὴ ἦν τὸ φῶς τῶν ἀνθρώπων, 5 καὶ τὸ φῶς ἐν τῇ σκοτίᾳ\onlyonefootnoteB{σκοτία, ας, ἡ f darkness} φαίνει, καὶ ἡ σκοτία\onlyonefootnoteB{σκοτία, ας, ἡ f darkness} αὐτὸ οὐ κατέλαβεν.\onlyonefootnoteB{καταλαμβάνω 3s 2aor act ind extinguish; perceive}

6 ἐγένετο\onlyonefootnoteB{γίνομαι 3s 2aor mid ind there was} ἄνθρωπος ἀπεσταλμένος παρὰ Θεοῦ, ὄνομα αὐτῷ Ἰωάννης· 7 οὗτος ἦλθεν\onlyonefootnoteB{ἔρχομαι 3s 2aor act ind appear} εἰς μαρτυρίαν, ἵνα μαρτυρήσῃ περὶ τοῦ φωτός, ἵνα πάντες πιστεύσωσι διʼ αὐτοῦ. 8 οὐκ ἦν ἐκεῖνος τὸ φῶς, ἀλλʼ ἵνα μαρτυρήσῃ περὶ τοῦ φωτός. 9 ἦν τὸ φῶς τὸ ἀληθινόν,\onlyonefootnoteB{ἀληθινός, ή, όν  truthful} ὃ φωτίζει\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} καὶ ὁ κόσμος αὐτὸν οὐκ ἔγνω.\onlyonefootnoteB{γινώσκω 3s 2aor act ind know} 11 εἰς τὰ ἴδια ἦλθε,\onlyonefootnoteB{ἔρχομαι 3s 2aor act ind come} καὶ οἱ ἴδιοι αὐτὸν οὐ παρέλαβον.\onlyonefootnoteB{παραλαμβάνω 3p 2aor act ind come} 12 ὅσοι δὲ ἔλαβον\onlyonefootnoteB{λαμβάνω 3p 2aor act ind receive} αὐτόν, ἔδωκεν\onlyonefootnoteB{δίδωμι 3s aor act ind give} αὐτοῖς ἐξουσίαν τέκνα Θεοῦ γενέσθαι,\onlyonefootnoteB{γίνομαι 2aor mid inf become} τοῖς πιστεύουσιν εἰς τὸ ὄνομα αὐτοῦ· 13 οἳ οὐκ ἐξ αἱμάτων, οὐδὲ ἐκ θελήματος σαρκός, οὐδὲ ἐκ θελήματος ἀνδρός, ἀλλʼ ἐκ Θεοῦ ἐγεννήθησαν. 

14 καὶ ὁ λόγος σὰρξ ἐγένετο,\onlyonefootnoteB{γίνομαι 3s 2aor mid ind become} καὶ ἐσκήνωσεν\onlyonefootnoteB{σκηνόω 3s aor act ind take up residence; tabernacle} ἐν ἡμῖν, (καὶ ἐθεασάμεθα\onlyonefootnoteB{θεάομαι 1p aor mid ind behold} τὴν δόξαν αὐτοῦ, δόξαν ὡς μονογενοῦς\onlyonefootnoteB{μονογενής, ές  only one of its kind or class} παρὰ πατρός), πλήρης\onlyonefootnoteB{πλήρης, ες f filled, full} χάριτος καὶ ἀληθείας. 15 Ἰωάννης μαρτυρεῖ περὶ αὐτοῦ, καὶ κέκραγε\onlyonefootnoteB{κράζω 3s pf act ind cry out} λέγων, Οὗτος ἦν ὃν εἶπον,\onlyonefootnoteB{λέγω 1s 2aor act ind say} Ὁ ὀπίσω μου ἐρχόμενος\onlyonefootnoteB{ἔρχομαι pf mid or pas part nom s m come} ἔμπροσθέν μου γέγονεν·\onlyonefootnoteB{γίνομαι 3s pf act ind come} ὅτι πρῶτός μου ἦν. 16 καὶ ἐκ τοῦ πληρώματος\onlyonefootnoteB{πλήρωμα, ατος, τό n fulness} αὐτοῦ ἡμεῖς πάντες ἐλάβομεν,\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{μονογενής, ές m only one of its kind or class} υἱός, ὁ ὢν εἰς τὸν κόλπον\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} ὅτι Οὐκ εἰμὶ\onlyonefootnoteB{εἰμί 1s pf act ind} ἐγὼ ὁ Χριστός. 21 καὶ ἠρώτησαν αὐτόν, Τί οὖν; Ἠλίας εἶ σύ; καὶ λέγει, Οὐκ εἰμί.\onlyonefootnoteB{εἰμί 1s pf act ind} Ὁ προφήτης εἶ σύ; καὶ ἀπεκρίθη,\onlyonefootnoteB{ἀποκρίνομαι 3s aor mid ind answer, reply} Οὔ. 22 εἶπον οὖν αὐτῷ, Τίς εἶ; ἵνα ἀπόκρισιν\onlyonefootnoteB{ἀπόκρισις, εως, ἡ f response} δῶμεν\onlyonefootnoteB{δίδωμι 1p 2aor act sub give} τοῖς πέμψασιν ἡμᾶς τί λέγεις περὶ σεαυτοῦ; 23 \textit{ἔφη, }\onlyonefootnoteB{φημί 3s impf act ind} \textit{Ἐγὼ }\textit{φωνὴ }\textit{βοῶντος}\onlyonefootnoteB{βοάω pres actv part s gen m call, shout, cry out} \textit{ἐν }\textit{τῇ }\textit{ἐρήμῳ, }\textit{Εὐθύνατε}\onlyonefootnoteB{εὐθύνω 2p aor act straighten} \textit{τὴν }\textit{ὁδὸν }\textit{Κυρίου, }καθὼς εἶπεν Ἠσαΐας ὁ προφήτης. 24 καὶ οἱ ἀπεσταλμένοι ἦσαν ἐκ τῶν Φαρισαίων. 25 καὶ ἠρώτησαν αὐτόν, καὶ εἶπον αὐτῷ, Τί οὖν βαπτίζεις, εἰ σὺ οὐκ εἶ ὁ Χριστός, οὔτε Ἠλίας, οὔτε ὁ προφήτης; 29 Τῇ ἐπαύριον\onlyonefootnoteB{ἐπαύριον adv next day} βλέπει* \footnote{\textbf{\fontspec{Times}{1:29 }}omit ο ιωαννης Pickering, H-F, R-P}ὁ Ἰωάννης τὸν Ἰησοῦν ἐρχόμενον\onlyonefootnoteB{ἔρχομαι pres mid or pas part ac s m come} πρὸς αὐτόν, καὶ λέγει, Ἴδε ὁ ἀμνὸς\onlyonefootnoteB{ἀμνός, οῦ, ὁ m lamb} τοῦ Θεοῦ, ὁ αἴρων τὴν ἁμαρτίαν τοῦ κόσμου. 30 οὗτός ἐστι περὶ οὗ ἐγὼ εἶπον,\onlyonefootnoteB{λέγω 1s 2aor act ind say} Ὀπίσω μου ἔρχεται\onlyonefootnoteB{ἔρχομαι 3s pf mid or pas ind come} ἀνὴρ, ὃς ἔμπροσθέν μου γέγονεν,\onlyonefootnoteB{γίνομαι 3s pf act ind be} ὅτι πρῶτός μου ἦν. 31 κἀγὼ οὐκ ᾔδειν αὐτόν· ἀλλʼ ἵνα φανερωθῇ τῷ Ἰσραὴλ διὰ τοῦτο ἦλθον\onlyonefootnoteB{ἔρχομαι 1s 2aor act ind come} ἐγὼ ἐν τῷ ὕδατι βαπτίζων. 

32 καὶ ἐμαρτύρησεν Ἰωάννης, λέγων ὅτι Τεθέαμαι\onlyonefootnoteB{θεάομαι 1s pf mid or pas ind see, behold, perceive} τὸ Πνεῦμα καταβαῖνον ὡσεὶ* \footnote{\textbf{\fontspec{Times}{1:32 }}ως Patriarchal, Pickering, R-P}περιστερὰν\onlyonefootnoteB{περιστερά, ᾶς, ἡ f pigeon or dove} ἐξ οὐρανοῦ, καὶ ἔμεινεν ἐπʼ αὐτόν. 33 κἀγὼ οὐκ ᾔδειν αὐτόν· ἀλλʼ ὁ πέμψας με βαπτίζειν ἐν ὕδατι ἐκεῖνός μοι εἶπεν, Ἐφʼ ὃν ἂν ἴδῃς\onlyonefootnoteB{ὁράω 2s 2aor act sub see} τὸ Πνεῦμα καταβαῖνον καὶ μένον ἐπʼ αὐτόν, οὗτός ἐστιν ὁ βαπτίζων ἐν Πνεύματι Ἁγίῳ. 34 κἀγὼ ἑώρακα, καὶ μεμαρτύρηκα ὅτι οὗτός ἐστιν ὁ υἱὸς τοῦ Θεοῦ. 35 Τῇ ἐπαύριον\onlyonefootnoteB{ἐπαύριον adv next day} πάλιν εἱστήκει\onlyonefootnoteB{ἵστημι 3s pl act ind stand} ὁ Ἰωάννης, καὶ ἐκ τῶν μαθητῶν αὐτοῦ δύο· 36 καὶ ἐμβλέψας\onlyonefootnoteB{ἐμβλέπω aor act part s n m look at, gaze on} τῷ Ἰησοῦ περιπατοῦντι, λέγει, Ἴδε ὁ ἀμνὸς\onlyonefootnoteB{ἀμνός, οῦ, ὁ m lamb} τοῦ Θεοῦ. 37 καὶ ἤκουσαν αὐτοῦ οἱ δύο μαθηταὶ λαλοῦντος, καὶ ἠκολούθησαν τῷ Ἰησοῦ. 38 στραφεὶς\onlyonefootnoteB{στρέφω 2aor pres part n s m turn around, turn toward} δὲ ὁ Ἰησοῦς καὶ θεασάμενος\onlyonefootnoteB{θεάομαι aor mid part n s m see, look at, behold} αὐτοὺς ἀκολουθοῦντας, λέγει αὐτοῖς, Τί ζητεῖτε; οἱ δὲ εἶπον αὐτῷ, Ῥαββί (ὃ λέγεται ἑρμηνευόμενον,\onlyonefootnoteB{ἑρμηνεύω pres pas part no s n translate} Διδάσκαλε), ποῦ μένεις; 39 λέγει αὐτοῖς, Ἔρχεσθε\onlyonefootnoteB{ἔρχομαι 2p pres mid or pas imp come} καὶ ἴδετε.\onlyonefootnoteB{ὁράω 2p 2aor act imp see} ἦλθον\onlyonefootnoteB{ἔρχομαι 3p 2aor act ind come} καὶ εἶδον\onlyonefootnoteB{ὁράω 3p 2aor act ind see} ποῦ μένει· καὶ παρʼ αὐτῷ ἔμειναν τὴν ἡμέραν ἐκείνην ὥρα* \footnote{\textbf{\fontspec{Times}{1:39 }}ωρα Patriarchal, Pickering, H-F, R-P}δὲ ἦν ὡς δεκάτη.\onlyonefootnoteB{δέκατος, η, ον f tenth} 

40 ἦν Ἀνδρέας ὁ ἀδελφὸς Σίμωνος Πέτρου εἷς ἐκ τῶν δύο τῶν ἀκουσάντων παρὰ Ἰωάννου καὶ ἀκολουθησάντων αὐτῷ. 41 εὑρίσκει οὗτος πρῶτος τὸν* \footnote{\textbf{\fontspec{Times}{1:41 }}omit ὁ Patriarchal, Pickering, H-F, R-P}ἀδελφὸν τὸν ἴδιον Σίμωνα, καὶ λέγει αὐτῷ, Εὑρήκαμεν τὸν Μεσσίαν,\onlyonefootnoteB{Μεσσίας, ου, ὁ m the Messiah = the Anointed One} (ὅ ἐστι μεθερμηνευόμενον\onlyonefootnoteB{μεθερμηνεύω pres pas part no s n translate} ὁ Χριστός.) 42 καὶ ἤγαγεν\onlyonefootnoteB{ἄγω 3s 2aor act ind lead away} αὐτὸν πρὸς τὸν Ἰησοῦν. ἐμβλέψας\onlyonefootnoteB{ἐμβλέπω aor act part s n m look at, gaze on}* \footnote{\textbf{\fontspec{Times}{1:42 }}omit δε Patriarchal, Pickering, H-F, R-P}δὲ αὐτῷ ὁ Ἰησοῦς εἶπε, Σὺ εἶ Σίμων ὁ υἱὸς Ἰωνᾶ· σὺ κληθήσῃ Κηφᾶς, (ὃ ἑρμηνεύεται\onlyonefootnoteB{ἑρμηνεύω 3s pres pas ind translate} Πέτρος.) 

43 Τῇ ἐπαύριον\onlyonefootnoteB{ἐπαύριον adv next day} ἠθέλησεν* \footnote{\textbf{\fontspec{Times}{1:43 }}omit ο ιησους C-P, Pickering, H-F, R-P}ὁ Ἰησοῦς ἐξελθεῖν\onlyonefootnoteB{ἐξέρχομαι 2oar act inf go out} εἰς τὴν Γαλιλαίαν, καὶ εὑρίσκει Φίλιππον, καὶ λέγει αὐτῷ,* \footnote{\textbf{\fontspec{Times}{1:43 }}αυτω ο ιησους H-F, R-P}Ἀκολούθει μοι. 44 ἦν δὲ ὁ Φίλιππος ἀπὸ Βηθσαϊδά, ἐκ τῆς πόλεως Ἀνδρέου καὶ Πέτρου. 45 εὑρίσκει Φίλιππος τὸν Ναθαναήλ, καὶ λέγει αὐτῷ, Ὃν ἔγραψε Μωσῆς ἐν τῷ νόμῳ καὶ οἱ προφῆται εὑρήκαμεν, Ἰησοῦν τὸν υἱὸν τοῦ* \footnote{\textbf{\fontspec{Times}{1:45 }}omit του C-P, Pickering}Ἰωσὴφ τὸν ἀπὸ Ναζαρέθ. 46 καὶ εἶπεν αὐτῷ Ναθαναήλ, Ἐκ Ναζαρὲθ δύναταί τι ἀγαθὸν εἶναι; λέγει αὐτῷ Φίλιππος, Ἔρχου\onlyonefootnoteB{ἔρχομαι 2s pres mid or pas ind come} καὶ ἴδε. 47 εἶδεν\onlyonefootnoteB{ὁράω 3s 2aor act ind see} ὁ Ἰησοῦς τὸν Ναθαναὴλ ἐρχόμενον\onlyonefootnoteB{ἔρχομαι pres mid or pas part ac s m come} πρὸς αὐτὸν, καὶ λέγει περὶ αὐτοῦ, Ἴδε ἀληθῶς\onlyonefootnoteB{ἀληθῶς adv truly} Ἰσραηλίτης,\onlyonefootnoteB{Ἰσραηλίτης, ου, ὁ m Israelite} ἐν ᾧ δόλος\onlyonefootnoteB{δόλος, ου, ὁ m deceit} οὐκ ἔστι. 48 λέγει αὐτῷ Ναθαναήλ, Πόθεν με γινώσκεις; ἀπεκρίθη\onlyonefootnoteB{ἀποκρίνομαι 3s aor mid ind answer, reply} ὁ Ἰησοῦς καὶ εἶπεν αὐτῷ, Πρὸ τοῦ σε Φίλιππον φωνῆσαι, ὄντα ὑπὸ τὴν συκῆν,\onlyonefootnoteB{συκῆ, ῆς, ἡ f fig tree.} εἶδόν\onlyonefootnoteB{ὁράω 1s 2aor act ind see} σε. 49 ἀπεκρίθη\onlyonefootnoteB{ἀποκρίνομαι 3s aor mid ind answer, reply} Ναθαναήλ καὶ λέγει αὐτῷ, Ῥαββί, σὺ εἶ ὁ υἱὸς τοῦ Θεοῦ, σὺ εἶ ὁ βασιλεὺς τοῦ Ἰσραήλ. 50 ἀπεκρίθη\onlyonefootnoteB{ἀποκρίνομαι 3s aor mid ind answer, reply} Ἰησοῦς καὶ εἶπεν αὐτῷ, Ὅτι εἶπόν\onlyonefootnoteB{λέγω 1s 2aor act ind say} σοι, εἶδόν\onlyonefootnoteB{ὁράω 1s 2aor act ind see} σε ὑποκάτω\onlyonefootnoteB{ὑποκάτω adv under, below} τῆς συκῆς,\onlyonefootnoteB{συκῆ, ῆς, ἡ f fig tree.} πιστεύεις; μείζω τούτων ὄψει. 51 καὶ λέγει αὐτῷ, Ἀμὴν ἀμὴν λέγω ὑμῖν, ἀπʼ ἄρτι ὄψεσθε τὸν οὐρανὸν ἀνεῳγότα,\onlyonefootnoteB{ἀνοίγω 2pf pas part ac s m open} καὶ τοὺς ἀγγέλους τοῦ Θεοῦ ἀναβαίνοντας καὶ καταβαίνοντας ἐπὶ τὸν υἱὸν τοῦ ἀνθρώπου. 


\end{document}

Responder1

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.

informação relacionada