blob: db6fb8a36b502b84d9d511de7073ad2e2de1325d (
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
|
\NeedsTeXFormat{LaTeX2e}
\def\superiorsVersion{1.04}
\def\superiorsDate{2014/01/18}
\ProvidesPackage{superiors}[\superiorsDate\space-\space\superiorsVersion
superiors (License LPPL) Michael Sharpe]
\RequirePackage{xkeyval}
\def\supstfm{ntxsups}
\newdimen\superiors@scale
\def\superiors@raised{\z@}
\def\superiors@spaced{\z@}
\def\superiors@scaledval{1.0}
\def\superiors@supscale{1.0}
\define@key{superiors}{scaled}[1.0]{\def\superiors@scaledval{#1}}
\define@key{superiors}{supscaled}[1.0]{\def\superiors@supscale{#1}}
\define@key{superiors}{raised}[\z@]{\def\superiors@raised{#1}}
\define@key{superiors}{supstfm}[ntxsups]{\def\supstfm{#1}}
\define@key{superiors}{supspaced}[\z@]{\def\superiors@spaced{#1}}
\DeclareOption*{%
\begingroup
\edef\x{\endgroup
\noexpand\setkeys{superiors}{\CurrentOption}}%
\x}
\ProcessOptions*
\setlength{\superiors@scale}{\superiors@scaledval\p@}
\superiors@scale=\superiors@supscale\superiors@scale %
\def\superiors@scaled{s*[\strip@pt\superiors@scale]}
\let\superiors@makefnmark\@makefnmark
\DeclareFontFamily{U}{zsups}{}%
\DeclareFontShape{U}{zsups}{m}{n}{%
<-> \superiors@scaled \supstfm
}{}
\DeclareRobustCommand{\sustyle}{%
\not@math@alphabet\sustyle\relax
\usefont{U}{zsups}{m}{n}}
\def\textsu#1{\raisebox{\superiors@raised}{\hbox{{\sustyle#1}}}}
%\def\@makefnmark{\hbox{\textsu{\hspace*{\superiors@spaced}\@thefnmark}}}
\def\f@@tn@te{footnote}
\def\@makefnmark{%
\ifx\@mpfn\f@@tn@te% we're not in a minipage
\hbox{\sustyle\hspace*{.04em}\@thefnmark\hspace*{.03em}}%
\else% minipage---use original def
\superiors@makefnmark%
\fi%
}
\endinput
|