summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/superiors/superiors.sty
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