summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/cje/cjeupmath.sty
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/cje/cjeupmath.sty
Initial commit
Diffstat (limited to 'macros/latex/contrib/cje/cjeupmath.sty')
-rw-r--r--macros/latex/contrib/cje/cjeupmath.sty125
1 files changed, 125 insertions, 0 deletions
diff --git a/macros/latex/contrib/cje/cjeupmath.sty b/macros/latex/contrib/cje/cjeupmath.sty
new file mode 100644
index 0000000000..775cabe5d8
--- /dev/null
+++ b/macros/latex/contrib/cje/cjeupmath.sty
@@ -0,0 +1,125 @@
+%%
+%% This is file `cjeupmath.sty', written for the CEA by Ali Woollatt
+%% 2018/02/22 v1.06
+%%
+%% This package provides 'upright' math (lower-case Greek, A-Z, a-z,
+%% punctuation, < >, \ell, \partial) from the AMS Euler fonts EURM/B.
+%%
+%% Requires the amsbsy.sty and amsgen.sty packages.
+%%
+%%
+%% COPYRIGHT (c) 2017 Canadian Economics Association
+%%
+%% LICENSE
+%% =======
+%%
+%% This work can be distributed and/or modified under the conditions of the LaTeX Project Public License,
+%% either version 1.3 of this license or any later version. The latest version of this license is available at
+%% latex-project.org/lppl.txt. Version 1.3, or later, is part of all distributions of LaTeX version 2005/12/01 or later.
+
+
+\ProvidesPackage{cjeupmath}[2018/02/22 v1.06 CJE LaTeX2e package]
+
+\RequirePackage{amsbsy}[1995/01/20] % also includes amsgen.sty
+
+% Macro for changing \mathversion's
+\providecommand{\mathch}[2]{% Derived from AMSBSY.STY
+ \begingroup
+ \let\@nomath\@gobble \mathversion{#1}%
+ \math@atom{#2}{%
+ \mathchoice%
+ {\hbox{$\m@th\displaystyle#2$}}%
+ {\hbox{$\m@th\textstyle#2$}}%
+ {\hbox{$\m@th\scriptstyle#2$}}%
+ {\hbox{$\m@th\scriptscriptstyle#2$}}}%
+ \endgroup}
+
+%
+% The following is from Ueur.fd: changed encoding from U to OML.
+% This allows to use eurm/b as (more or less) a math italic font.
+%
+\DeclareFontFamily{OML}{eur}{\skewchar\font'177}
+\DeclareFontShape{OML}{eur}{m}{n}{<-7>eurm5<-10>eurm7<10->eurm10}{}
+\DeclareFontShape{OML}{eur}{b}{n}{<-7>eurb5<-10>eurb7<10->eurb10}{}
+
+\DeclareMathVersion{upright}
+\DeclareMathVersion{boldupright}
+
+\SetSymbolFont{letters}{upright} {OML}{eur}{m}{n}
+\SetSymbolFont{letters}{boldupright}{OML}{eur}{b}{n}
+
+\DeclareRobustCommand{\mathup}[1]{\mathch{upright}{#1}}
+\DeclareRobustCommand{\mathbup}[1]{\mathch{boldupright}{#1}}
+
+% lower-case Greek
+\newcommand\ualpha{\mathup{\alpha}}
+\newcommand\ubeta{\mathup{\beta}}
+\newcommand\ugamma{\mathup{\gamma}}
+\newcommand\udelta{\mathup{\delta}}
+\newcommand\uepsilon{\mathup{\epsilon}}
+\newcommand\uzeta{\mathup{\zeta}}
+\newcommand\ueta{\mathup{\eta}}
+\newcommand\utheta{\mathup{\theta}}
+\newcommand\uiota{\mathup{\iota}}
+\newcommand\ukappa{\mathup{\kappa}}
+\newcommand\ulambda{\mathup{\lambda}}
+\newcommand\umu{\mathup{\mu}}
+\newcommand\unu{\mathup{\nu}}
+\newcommand\uxi{\mathup{\xi}}
+\newcommand\upi{\mathup{\pi}}
+\newcommand\urho{\mathup{\rho}}
+\newcommand\usigma{\mathup{\sigma}}
+\newcommand\utau{\mathup{\tau}}
+\newcommand\uupsilon{\mathup{\upsilon}}
+\newcommand\uphi{\mathup{\phi}}
+\newcommand\uchi{\mathup{\chi}}
+\newcommand\upsi{\mathup{\psi}}
+\newcommand\uomega{\mathup{\omega}}
+\newcommand\uvarepsilon{\mathup{\varepsilon}}
+\newcommand\uvartheta{\mathup{\vartheta}}
+\newcommand\uvarpi{\mathup{\varpi}}
+
+\let\uvarrho\varrho % don't exist in eurm.
+\let\uvarsigma\varsigma
+
+\newcommand\uvarphi{\mathup{\varphi}}
+
+\newcommand\ubalpha{\mathbup{\alpha}}
+\newcommand\ubbeta{\mathbup{\beta}}
+\newcommand\ubgamma{\mathbup{\gamma}}
+\newcommand\ubdelta{\mathbup{\delta}}
+\newcommand\ubepsilon{\mathbup{\epsilon}}
+\newcommand\ubzeta{\mathbup{\zeta}}
+\newcommand\uboldeta{\mathbup{\eta}}
+\newcommand\ubtheta{\mathbup{\theta}}
+\newcommand\ubiota{\mathbup{\iota}}
+\newcommand\ubkappa{\mathbup{\kappa}}
+\newcommand\ublambda{\mathbup{\lambda}}
+\newcommand\ubmu{\mathbup{\mu}}
+\newcommand\ubnu{\mathbup{\nu}}
+\newcommand\ubxi{\mathbup{\xi}}
+\newcommand\ubpi{\mathbup{\pi}}
+\newcommand\ubrho{\mathbup{\rho}}
+\newcommand\ubsigma{\mathbup{\sigma}}
+\newcommand\ubtau{\mathbup{\tau}}
+\newcommand\ubupsilon{\mathbup{\upsilon}}
+\newcommand\ubphi{\mathbup{\phi}}
+\newcommand\ubchi{\mathbup{\chi}}
+\newcommand\ubpsi{\mathbup{\psi}}
+\newcommand\ubomega{\mathbup{\omega}}
+\newcommand\ubvarepsilon{\mathbup{\varepsilon}}
+\newcommand\ubvartheta{\mathbup{\vartheta}}
+\newcommand\ubvarpi{\mathbup{\varpi}}
+
+\newcommand\ubvarrho{\boldsymbol{\varrho}} % don't exist in eurb.
+\newcommand\ubvarsigma{\boldsymbol{\varsigma}}
+
+\newcommand\ubvarphi{\mathbup{\varphi}}
+
+% A few other upright symbols
+\newcommand\upartial {\mathup{\partial}}
+\newcommand\ubpartial{\mathbup{\partial}}
+
+\endinput
+
+% end of file `cjeupmath.sty'