diff options
author | Karl Berry <karl@freefriends.org> | 2013-10-18 23:20:41 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-10-18 23:20:41 +0000 |
commit | 5221ec791539c333a1c02e27b695802891fe0da8 (patch) | |
tree | c3b6ebed32a732f930d4d7d919a05b4b470c4585 /Master/texmf-dist/tex/latex/superiors | |
parent | b4775ec0da5d48800a6abad06e41a68fbe420292 (diff) |
superiors (18oct13)
git-svn-id: svn://tug.org/texlive/trunk@31943 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/superiors')
-rw-r--r-- | Master/texmf-dist/tex/latex/superiors/superiors.sty | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/superiors/superiors.sty b/Master/texmf-dist/tex/latex/superiors/superiors.sty new file mode 100644 index 00000000000..f37f3fbe1cc --- /dev/null +++ b/Master/texmf-dist/tex/latex/superiors/superiors.sty @@ -0,0 +1,52 @@ +\NeedsTeXFormat{LaTeX2e} +\def\superiorsVersion{1.03} +\def\superiorsDate{2013/10/17} +\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} + \else% minipage---use original def + \superiors@makefnmark + \fi% +} + +\endinput
\ No newline at end of file |