blob: a1211cb10fc2de34e4a2062a9dc8dbcffcb84295 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
\ifx \CatEscape\undefined
\chardef\CatEscape=0
\chardef\CatOpen=1
\chardef\CatClose=2
\chardef\CatIgnore=9
\chardef\CatLetter=11
\chardef\CatOther=12
\chardef\CatActive=13 % is defined in Plain already
\chardef\CatUsCode=\catcode`\_
\fi
\catcode`\_=\CatLetter % top level macro file
\def\l@fn{%
\hbox to \columnwidth
{\luatexpagedir TLT\vbox{\kern -3\p@
\hrule width .4\columnwidth \kern2.6\p@}\hfil}}
\def\r@fn{%
\hrule width .4\columnwidth\kern 2.6\p@}
\def\@makefnmark{\hbox{$^{\hbox{\scriptsize\@thefnmark}}\m@th$}}
\def\leftfootnoterule{\global\def\footnoterule{\l@fn}}
\def\rightfootnoterule{\global\def\footnoterule{\r@fn}}
\leftfootnoterule
%%% \beginprog
\newread\old_foot_file
\newwrite\foot_file
\def\foot_file_name{\jobname.fot\relax}
\def\init_footnote{%
\openin\old_foot_file\foot_file_name
\ifeof\old_foot_file \closein\old_foot_file
\else \closein\old_foot_file
\read_foot_file
\fi
\immediate\openout\foot_file\foot_file_name
\immediate\write\foot_file{\relax}%
\global\let\init_footnote\relax
}
\newcount\foot_name_no % for generating footnote mark names
\newcount\autofootnote
\def\fnpp_next_footnote{%
\init_footnote
\global\advance\foot_name_no\@ne
\global\advance\c@footnote\@ne
\edef\do_write{%
\immediate\write\foot_file{%
\string\advance\autofootnote\@ne
\string\expandafter\xdef
\string\csname\space f@\number\foot_name_no \endcsname{%
\string\number\autofootnote
}%
}%
}%
\do_write
\global\autofootnote 0\csname f@\number\foot_name_no \endcsname \relax
}
\def\read_foot_file{%
\begingroup
\catcode`\@\CatLetter \catcode`\^^M\CatIgnore
\input \foot_file_name
\endgroup
}
\let\fnpp_orig_outputpage=\@outputpage
\def\@outputpage{%
\ifx \init_footnote\relax
\immediate\write\foot_file{\autofootnote\z@}%
\fi
\fnpp_orig_outputpage
}
\let\FnppOrigFootnote=\footnote % save original bindings
\let\FnppOrigFootnotemark=\footnotemark
\def\footnote{%
\@ifnextchar[% % ] (Emacs)
\@xfootnote
{\fnpp_next_footnote \ifnum\autofootnote=1\rightfootnoterule\fi \@xfootnote[\the\c@footnote] %
}%
}
\def\footnotemark{%
\@ifnextchar[% % ] (Emacs)
\@xfootnotemark
{\fnpp_next_footnote \ifnum\autofootnote=1\rightfootnoterule\fi \@xfootnotemark[\the\c@footnote]}%
}
\def\footnotemarkLR{%
\@ifnextchar[% % ] (Emacs)
\@xfootnotemark
{\fnpp_next_footnote \ifnum\autofootnote=1\leftfootnoterule\fi\@xfootnotemark[\the\c@footnote]}%
}
\def\Footnote#1{%
\begingroup
\footnotemarkLR%
\renewcommand{\thefootnote}{\@arabic\c@footnote}%
\luatexpardir TLT \luatextextdir TLT\footnotetext{#1}%
\endgroup
}
|
