summaryrefslogtreecommitdiff
path: root/Master/texmf-dist
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2014-08-10 22:25:50 +0000
committerKarl Berry <karl@freefriends.org>2014-08-10 22:25:50 +0000
commit118ad5fd40d58a85598d9e7227466ebf8ad1a946 (patch)
tree75ba7500a1cce7abce8dd12f6df6bb2bc25599d8 /Master/texmf-dist
parent3b56dac24396b4ca0cefca3cc6cd827c149c9848 (diff)
chemgreek (8aug14)
git-svn-id: svn://tug.org/texlive/trunk@34896 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r--Master/texmf-dist/doc/latex/chemgreek/README32
-rw-r--r--Master/texmf-dist/doc/latex/chemgreek/chemgreek_en.pdfbin0 -> 542621 bytes
-rw-r--r--Master/texmf-dist/doc/latex/chemgreek/chemgreek_en.tex353
-rw-r--r--Master/texmf-dist/tex/latex/chemgreek/chemgreek.sty878
4 files changed, 1263 insertions, 0 deletions
diff --git a/Master/texmf-dist/doc/latex/chemgreek/README b/Master/texmf-dist/doc/latex/chemgreek/README
new file mode 100644
index 00000000000..67637476ffb
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/chemgreek/README
@@ -0,0 +1,32 @@
+--------------------------------------------------------------------------
+the CHEMGREEK package v0.5 2014/08/08
+
+ typeset chemical compounds and reactions
+
+--------------------------------------------------------------------------
+Clemens Niederberger
+Web: https://github.com/cgnieder/chemgreek/
+E-Mail: contact@mychemistry.eu
+--------------------------------------------------------------------------
+Copyright 2011-2014 Clemens Niederberger
+
+This work may be distributed and/or modified under the
+conditions of the LaTeX Project Public License, either version 1.3
+of this license or (at your option) any later version.
+The latest version of this license is in
+ http://www.latex-project.org/lppl.txt
+and version 1.3 or later is part of all distributions of LaTeX
+version 2005/12/01 or later.
+
+This work has the LPPL maintenance status `maintained'.
+
+The Current Maintainer of this work is Clemens Niederberger.
+--------------------------------------------------------------------------
+The chemgreek package consists of the following files
+ - chemgreek.sty,
+ - chemgreek_en.tex, chemgreek_en.pdf,
+ - README
+--------------------------------------------------------------------------
+If you have any ideas, questions, suggestions or bugs to report, please
+feel free to contact me.
+--------------------------------------------------------------------------
diff --git a/Master/texmf-dist/doc/latex/chemgreek/chemgreek_en.pdf b/Master/texmf-dist/doc/latex/chemgreek/chemgreek_en.pdf
new file mode 100644
index 00000000000..980282119a6
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/chemgreek/chemgreek_en.pdf
Binary files differ
diff --git a/Master/texmf-dist/doc/latex/chemgreek/chemgreek_en.tex b/Master/texmf-dist/doc/latex/chemgreek/chemgreek_en.tex
new file mode 100644
index 00000000000..043367f0a16
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/chemgreek/chemgreek_en.tex
@@ -0,0 +1,353 @@
+% arara: pdflatex
+% arara: biber
+% arara: pdflatex
+% arara: pdflatex
+% --------------------------------------------------------------------------
+% the CHEMGREEK package
+%
+% interface for upright greek letters for use in chemistry
+%
+% --------------------------------------------------------------------------
+% Clemens Niederberger
+% --------------------------------------------------------------------------
+% https://github.com/cgnieder/chemgreek/
+% contact@mychemistry.eu
+% --------------------------------------------------------------------------
+% If you have any ideas, questions, suggestions or bugs to report, please
+% feel free to contact me.
+% --------------------------------------------------------------------------
+% Copyright 2011-2014 Clemens Niederberger
+%
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Clemens Niederberger.
+% --------------------------------------------------------------------------
+\documentclass[load-preamble+]{cnltx-doc}
+\usepackage[utf8]{inputenc}
+\usepackage[greek=newtx]{chemmacros}
+\setcnltx{
+ package = {chemgreek},
+ info = {interface for upright greek letters for use in chemistry},
+ url = https://github.com/cgnieder/chemgreek/ ,
+ authors = Clemens Niederberger ,
+ email = contact@mychemistry.eu ,
+ abstract = {%
+ \centering
+ \includegraphics{chemmacros-logo.pdf}
+ \par
+ } ,
+ add-cmds = {
+ activatechemgreekmapping,
+ changechemgreeksymbol, chemalpha, chembeta, chemgamma, chemdelta,
+ chemDelta, chemomega, chemphi, chemPhi,
+ declarechemgreekmapping,
+ newchemgreekmapping,
+ printchemgreekalphabet,
+ renewchemgreekmapping,
+ selectchemgreekmapping
+ }
+}
+
+\usepackage{booktabs}
+
+\expandafter\def\csname libertine@figurestyle\endcsname{LF}
+\usepackage[libertine]{newtxmath}
+\expandafter\def\csname libertine@figurestyle\endcsname{OsF}
+
+\usepackage[biblatex]{embrac}
+\ChangeEmph{[}[,.02em]{]}[.055em,-.08em]
+\ChangeEmph{(}[-.01em,.04em]{)}[.04em,-.05em]
+
+\usepackage[accsupp]{acro}
+\acsetup{
+ long-format = \scshape ,
+ short-format = \scshape
+}
+\DeclareAcronym{iupac}{
+ short = iupac ,
+ long = International Union of Pure and Applied Chemistry ,
+ pdfstring = IUPAC ,
+ accsupp = IUPAC
+}
+\DeclareAcronym{pdf}{
+ short = pdf ,
+ long = portable document file ,
+ pdfstring = PDF ,
+ accsupp = PDF
+}
+
+\defbibheading{bibliography}{\addsec{References}}
+
+\newcommand*\tablehead[1]{\textrm{\bfseries#1}}
+
+\BeforeBeginEnvironment{example}{\vspace{\baselineskip}}
+\AfterEndEnvironment{example}{\vspace{\baselineskip}}
+\BeforeBeginEnvironment{sourcecode}{\vspace{\baselineskip}}
+\AfterEndEnvironment{sourcecode}{\vspace{\baselineskip}}
+
+\begin{document}
+
+\section{Introduction}
+The \chemgreek{} package is an auxiliary package for other chemistry packages
+such as \pkg{chemmacros}. In chemistry there is often the need for upright
+greek letters. The \chemgreek{} package provides an interface to various
+other packages that provide upright greek letters. One could mention
+\pkg{textgreek}, \pkg{upgreek}, \pkg{newtx} or \pkg{kpfonts}. All of these
+packages provide upright greek letters, some a whole alphabet some only the
+upright variants of the standard italic symbols for which macros are defined
+in base \LaTeX.
+
+\chemgreek{} offers a possibility to map those different interfaces to a
+unified set of macros for usage in a chemistry package. This is useful as
+then for example names like \iupac{\b\-\D\-gluco\|pyranose} can be typeset
+with a semantic interface and still have matching greek letters while the user
+is not limited to a certain package or font. Consequently this package is
+used by the \pkg{chemmacros} package~\cite{pkg:chemmacros} and its \acs{iupac}
+naming commands, for example, and by the \pkg{chemnum}
+package~\cite{pkg:chemnum}.
+
+\section{Licence and Requirements}
+\license
+
+\chemgreek{} loads the following packages:
+\pkg{expl3}\footnote{\CTANurl{l3kernel}}~\cite{bnd:l3kernel} and
+\pkg{xparse}\footnote{\CTANurl{l3packages}}~\cite{bnd:l3packages}.
+
+\section{News}
+\subsection{Version~0.2}
+\begin{itemize}
+ \item The mapping ``mathdesign'' has been added. In order to use it you
+ need the \pkg{mathdesign} package~\cite{pkg:mathdesign} loaded.
+ \item The mapping ``fourier'' has been added. In order to use it you
+ need the \pkg{fourier} package~\cite{pkg:fourier} loaded.
+\end{itemize}
+
+\subsection{Version~0.3}
+\begin{itemize}
+ \item The provided macros have been renamed from \cs*{Chem\meta{\ldots}}
+ into \cs*{chem\meta{\ldots}}. The uppercase version still are provided
+ for backwards compatibility but issue a warning message and will be
+ removed some time in the future.
+ \item The commands for defining mappings have gotten an optional argument
+ which allows to specify the name of the package a mapping needs. The
+ command \cs{selectchemgreekmapping} now checks for this package and gives
+ a warning if it doesn't find it loaded.
+ \item The mapping ``textalpha'' has been added. In order to use it you
+ need the \pkg{textalpha} package (part of
+ \bnd{greek-fontenc}~\cite{bnd:greek-fontenc}) loaded.
+ \item If the package \pkg{hyperref}~\cite{pkg:hyperref} is loaded with the
+ \code{unicode} option \emph{and} the \pkg{textalpha} package has been
+ loaded at begin document all the \cs*{chem\meta{\ldots}} commands are let
+ to \pkg{textalpha}'s \cs*{text\meta{\ldots}} commands for the \acs{pdf}
+ bookmarks. This allows Greek letters in the bookmarks without worrying
+ about \cs*{texorpdfstring}.
+\end{itemize}
+
+\subsection{Version~0.4}
+\begin{itemize}
+ \item The mapping ``fontspec'' has been added. In order to use it you
+ need the \pkg{fontspec} package~\cite{pkg:fontspec} loaded. This means it
+ can only be used with \LuaLaTeX\ or \XeLaTeX.
+ \item New command \cs{printchemgreekalphabet}.
+\end{itemize}
+
+\subsection{Version~0.5}
+\begin{itemize}
+ \item The package is now distributed independently from the \pkg{chemmacros}
+ package.
+\end{itemize}
+
+\section{Define Mappings}
+\selectchemgreekmapping{default}
+
+\chemgreek's main commands are:
+\begin{commands}
+ \command{newchemgreekmapping}[\oarg{package}\marg{name}\marg{mapping list}]
+ \changedversion{0.3}Add a new mapping to \chemgreek. Issue an error if it
+ already exists. With the optional argument the package that is needed for
+ this mapping can (and should) be specified.
+ \command{renewchemgreekmapping}[\oarg{package}\marg{name}\marg{mapping list}]
+ \changedversion{0.3}Renew a \chemgreek{} mapping. Issue an error if it
+ doesn't exist yet. With the optional argument the package that is needed
+ for this mapping can (and should) be specified.
+ \command{declarechemgreekmapping}[\oarg{package}\marg{name}\marg{mapping list}]
+ \changedversion{0.3}Declare a new mapping to \chemgreek. If the mapping
+ already exists it will be overwritten. With the optional argument the
+ package that is needed for this mapping can (and should) be specified.
+\end{commands}
+
+The command \cs{newchemgreekmapping} needs to get a comma separated list of
+24 pairs divided by a slash. The first entry is the lowercase version und the
+second the uppercase version for the corresponding greek letter at the current
+position. This will become clearer if you look at how the \code{default}
+mapping is defined:
+
+\begin{sourcecode}
+ \newchemgreekmapping{default}
+ {
+ \ensuremath{\alpha} / \ensuremath{\mathrm{A}} , % 1: alpha
+ \ensuremath{\beta} / \ensuremath{\mathrm{B}} , % 2: beta
+ \ensuremath{\gamma} / \ensuremath{\Gamma} , % 3: gamma
+ \ensuremath{\delta} / \ensuremath{\Delta} , % 4: delta
+ \ensuremath{\epsilon} / \ensuremath{\mathrm{E}} , % 5: epsilon
+ \ensuremath{\zeta} / \ensuremath{\mathrm{Z}} , % 6: zeta
+ \ensuremath{\eta} / \ensuremath{\mathrm{H}} , % 7: eta
+ \ensuremath{\theta} / \ensuremath{\Theta} , % 8: theta
+ \ensuremath{\iota} / \ensuremath{\mathrm{I}} , % 9: iota
+ \ensuremath{\kappa} / \ensuremath{\mathrm{K}} , % 10: kappa
+ \ensuremath{\lambda} / \ensuremath{\Lambda} , % 11: lambda
+ \ensuremath{\mu} / \ensuremath{\mathrm{M}} , % 12: mu
+ \ensuremath{\nu} / \ensuremath{\mathrm{N}} , % 13: nu
+ \ensuremath{\xi} / \ensuremath{\Xi} , % 14: xi
+ \ensuremath{o} / \ensuremath{\mathrm{O}} , % 15: omikron
+ \ensuremath{\pi} / \ensuremath{\Pi} , % 16: pi
+ \ensuremath{\rho} / \ensuremath{\mathrm{P}} , % 17: rho
+ \ensuremath{\sigma} / \ensuremath{\Sigma} , % 18: sigma
+ \ensuremath{\tau} / \ensuremath{\mathrm{T}} , % 19: tau
+ \ensuremath{\upsilon} / \ensuremath{\Upsilon} , % 20: upsilon
+ \ensuremath{\phi} / \ensuremath{\Phi} , % 21: phi
+ \ensuremath{\psi} / \ensuremath{\Psi} , % 22: psi
+ \ensuremath{\chi} / \ensuremath{\mathrm{X}} , % 23: chi
+ \ensuremath{\omega} / \ensuremath{\Omega} % 24: omega
+ }
+\end{sourcecode}
+
+There \emph{must} be 24 pairs of entries, \ie, a complete mapping! Those
+entries are the ones that will be used by the interface macros. For each
+letter a pair \cs{chemalpha}/\cs{chemAlpha} is defined that uses the entries
+of the currently active mapping. That means there are 48 (robust) macros
+defined each beginning with \cs*{chem...} followed by the lowercase or
+uppercase name of the Greek letter.
+
+The default mapping is -- as you can probably see -- \emph{not an upright
+ one}. This is because \chemgreek{} will not make any choice for a specific
+package but let's the user (or another package) choose. The \pkg{chemmacros}
+package for example provides a package option that selects one of the
+available mappings.
+
+\begin{example}
+ Default mapping: \chemphi\ and \chemPhi, $\phi$ and $\Phi$
+\end{example}
+
+\section{Predefined Mappings and Selection of a Mapping}
+\chemgreek{} predefines some mappings. Some of the mappings require additional
+packages to be loaded. The mapping names and the required packages are listed
+in table~\ref{tab:mappings}. Ths mapping \code{fontspec} is a bit different
+here: if you use this mapping then the fact is used that \pkg{fontspec} also
+defines commands like \cs*{textalpha}. However, they only work if you also
+use a font that has the Greek glyphs.
+
+\begin{table}
+ \centering
+ \begin{tabular}{>{\ttfamily}ll}
+ \toprule
+ \tablehead{mapping} & \tablehead{package} \\
+ \midrule
+ default & --- \\
+ var-default & --- \\
+ textgreek & \pkg{textgreek} \cite{pkg:textgreek} \\
+ upgreek & \pkg{upgreek} \cite{pkg:upgreek} \\
+ newtx & \pkg*{newtxmath} \cite{pkg:newtx} \\
+ kpfonts & \pkg{kpfonts} \cite{pkg:kpfonts} \\
+ mathdesign & \pkg{mathdesign} \cite{pkg:mathdesign} \\
+ fourier & \pkg{fourier} \cite{pkg:fourier} \\
+ textalpha & \pkg{textalpha} \cite{bnd:greek-fontenc} \\
+ fontspec & \pkg{fontspec} \cite{pkg:fontspec} \\
+ \bottomrule
+ \end{tabular}
+ \caption{Predefined mappings.}
+ \label{tab:mappings}
+\end{table}
+
+A mapping is selected and activated with one of the following commands:
+\begin{commands}
+ \command{activatechemgreekmapping}[\sarg\marg{name}]
+ \changedversion{0.3}This commands selects and activates the mapping
+ \meta{name}. If the star variant is used also the package of mapping
+ \meta{name} (as defined with \cs{newchemgreekmapping} is loaded. The
+ command can only be used in the document preamble.
+ \command{selectchemgreekmapping}[\marg{name}]
+ \changedversion{0.3}This commands selects and activates the mapping
+ \meta{name}. A required package has to be loaded additionally the usual
+ way via \cs*{usepackage} or \cs*{RequirePackage}. If the package hasn't
+ been loaded a warning will be written to the log. The command can be used
+ throughout the document.
+\end{commands}
+
+\begin{example}
+ % requires the `newtxmath' package to be loaded:
+ \chemphi\ and \chemPhi, $\phi$ and $\Phi$\par
+ \selectchemgreekmapping{newtx}
+ \chemphi\ and \chemPhi, $\upphi$ and $\upPhi$
+\end{example}
+
+Since the \code{fontspec} mapping is a little bit different than the others
+I'd like to show a little example for it. The difference is subtle: you need
+to choose a font containing the needed glyphs.
+
+\begin{example}[compile,program=lualatex,runs=1,add-frame=false]
+ \documentclass[margin=3pt]{standalone}
+ \usepackage{fontspec}
+ \setmainfont{Linux Libertine O}% need a font that has the glyphs!
+ \usepackage{chemgreek}
+ \selectchemgreekmapping{fontspec}
+ \begin{document}
+ \printchemgreekalphabet
+ \end{document}
+\end{example}
+
+\section{Changing a Specific Symbol in an Existing Mapping}
+If you should want to change a specific entry of a specific mapping it would
+be rather tedious to redefine the whole mapping. That is why \chemgreek\
+provides a command for that purpose:
+\begin{commands}
+ \command{changechemgreeksymbol}[\marg{mapping
+ name}\Marg{upper|lower}\marg{entry name}\marg{entry}]
+ Changes the \code{upper}- or \code{lower}case entry \meta{entry name} in
+ the mapping \meta{mapping name}.
+\end{commands}
+
+In order to activate the change you need the (re-) activate the affected
+mapping afterwards:
+\begin{example}
+ \chemalpha
+ \changechemgreeksymbol{default}{lower}{alpha}{xxx}%
+ \selectchemgreekmapping{default}
+ \chemalpha
+\end{example}
+
+\section{Inspecting a Mapping}
+\selectchemgreekmapping{newtx}
+If you want to check if a mapping has been correctly set you can use the
+following commands:
+\begin{commands}
+ \command{printchemgreekmapping}[\marg{mapping}]
+ \sinceversion{0.3}This will typeset a table (using a simple \code{tabular}
+ environment) with all~48 characters like the one shown in
+ table~\ref{tab:showmapping}.
+ \command{printchemgreekalphabet}
+ \sinceversion{0.4}This will print the twentyfour pairs of lower- and
+ uppercase letters of the currently active mapping: \printchemgreekalphabet.
+ \command{showchemgreekmapping}[\marg{mapping}]
+ \changedversion{0.3}This command will write information about the
+ definition of all 48~macros for a mapping to the log file.
+\end{commands}
+
+\begin{table}
+ \centering
+ \printchemgreekmapping{newtx}
+ \caption{A demonstration of the \cs*{printchemgreekmapping} command.}
+ \label{tab:showmapping}
+\end{table}
+
+\clearpage
+
+\end{document}
diff --git a/Master/texmf-dist/tex/latex/chemgreek/chemgreek.sty b/Master/texmf-dist/tex/latex/chemgreek/chemgreek.sty
new file mode 100644
index 00000000000..027263dce85
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/chemgreek/chemgreek.sty
@@ -0,0 +1,878 @@
+% --------------------------------------------------------------------------
+% the CHEMGREEK package
+%
+% interface for upright greek letters for use in chemistry
+%
+% --------------------------------------------------------------------------
+% Clemens Niederberger
+% --------------------------------------------------------------------------
+% https://github.org/cgnieder/chemgreek/
+% contact@mychemistry.eu
+% --------------------------------------------------------------------------
+% If you have any ideas, questions, suggestions or bugs to report, please
+% feel free to contact me.
+% --------------------------------------------------------------------------
+% Copyright 2011-2014 Clemens Niederberger
+%
+% This work may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.3
+% of this license or (at your option) any later version.
+% The latest version of this license is in
+% http://www.latex-project.org/lppl.txt
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Clemens Niederberger.
+% --------------------------------------------------------------------------
+\RequirePackage{expl3,xparse}
+\def\chemgreek@version{0.5}
+\def\chemgreek@date{2014/08/07}
+
+\ProvidesExplPackage{chemgreek}{\chemgreek@date}{\chemgreek@version}
+ {interface for upright greek letters for use in chemistry (CN)}
+
+% ----------------------------------------------------------------------------
+% temporary variables:
+\seq_new:N \l__chemgreek_tmpa_seq
+\tl_new:N \l__chemgreek_tmpa_tl
+\tl_new:N \l__chemgreek_tmpb_tl
+\int_new:N \l__chemgreek_tmpa_int
+\int_new:N \g__chemgreek_tmpa_int
+
+% ----------------------------------------------------------------------------
+% an l3 conditional that can test 2e's conditionals that go like
+% \iffoo ... \else ... \fi
+% see http://tex.stackexchange.com/a/119806/5049
+\prg_new_conditional:Npnn \chemgreek_latex_if:n #1 {p,T,F,TF}
+ { \use:c { if #1 } \prg_return_true: \else: \prg_return_false: \fi: }
+
+% let's see if we can test if a package has been loaded after begin document:
+\prg_new_conditional:Npnn \chemgreek_if_package_loaded:n #1 {p,T,F,TF}
+ {
+ \cs_if_exist:cTF { ver@#1.sty }
+ { \prg_return_true: }
+ { \prg_return_false: }
+ }
+\cs_generate_variant:Nn \chemgreek_if_package_loaded:nF { V }
+
+\prg_new_protected_conditional:Npnn \chemgreek_if_package_with:nn #1#2 {T,F,TF}
+ {
+ \cs_if_exist:cTF {opt@#1.sty}
+ {
+ \clist_if_in:cnTF {opt@#1.sty} {#2}
+ { \prg_return_true: }
+ { \prg_return_false: }
+ }
+ { \prg_return_false: }
+ }
+
+% ----------------------------------------------------------------------------
+% messages
+\msg_new:nnnn { chemgreek } { mapping-not-defined }
+ { The~ mapping~ `#1'~ does~ not~ exist~ \msg_line_context: }
+ {
+ You~ chose~ the~ mapping~ `#1'~ \msg_line_context: \c_space_tl which~ has~
+ apparently~ not~ been~ defined,~ yet.~ If~ this~ is~ due~ to~ a~
+ miss-spelling~ you~ need~ to~ declare~ it~ first~ via~ \token_to_str:N
+ \newchemgreekmapping \c_space_tl or~ \token_to_str:N
+ \declarechemgreekmapping .
+ }
+
+\msg_new:nnnn { chemgreek } { mapping-already-defined }
+ { The~ mapping~ `#1'~ does~ already~ exist~ \msg_line_context: }
+ {
+ It~ seems~ you're~ trying~ to~ define~ the~ mapping~ `#1'~
+ \msg_line_context: .~ However,~ this~ mapping~ does~ already~ exist.~ If~
+ this~ is~ not~ due~ to~ a~ miss-spelling~ you~ need~ to~ redefine~ it~
+ via~ \token_to_str:N \renewchemgreekmapping .
+ }
+
+\msg_new:nnnn { chemgreek } { mapping-active }
+ {
+ The~ mapping~ `#1'~ already~ is~ active~ \msg_line_context: .~ I'm~ doing~
+ nothing.
+ }
+ {
+ The~ mapping~ `#1'~ already~ is~ active~ \msg_line_context: .~ I'm~ doing~
+ nothing.
+ }
+
+\msg_new:nnnn { chemgreek } { package-missing }
+ {
+ You've~ activated~ mapping~ `#1'~ which~ needs~ package~ `#2'~ loaded.~
+ However, package~ `#2'~ does~ not~ seem~ to~ be~ loaded~
+ \msg_line_context: .~ If~ I'm~ mistaken~ then~ ignore~ this~ warning.
+ }
+ {
+ You've~ activated~ mapping~ `#1'~ which~ needs~ package~ `#2'~ loaded.~
+ However,~ package~ `#2'~ does~ not~ seem~ to~ be~ loaded~
+ \msg_line_context: .~ Using~ the~ letter~ macros~ will~ probably~ not~
+ work.~ If~ I'm~ mistaken~ then~ ignore~ this~ warning.
+ }
+
+\msg_new:nnnn { chemgreek } { command-deprecated }
+ {
+ The~ command~ \token_to_str:N #1 is~ deprecated.~ Use~ \token_to_str:N #2
+ instead~ \msg_line_context: .~ \token_to_str:N #1 may~ be~ dropped~ in~
+ the~ future~ without~ further~ warning.
+ }
+ {
+ The~ command~ \token_to_str:N #1 is~ deprecated.~ Use~ \token_to_str:N #2
+ instead~ \msg_line_context: .~ \token_to_str:N #1 may~ be~ dropped~ in~
+ the~ future~ without~ further~ warning.
+ }
+
+% ----------------------------------------------------------------------------
+% define a deprecated command with hints to the corresponding new one:
+\cs_new_protected:Npn \chemgreek_define_deprecated:NN #1#2
+ {
+ \cs_new_protected:Npn #1
+ {
+ \msg_warning:nnnn { chemgreek } { command-deprecated }
+ { #1 } { #2 }
+ #2
+ }
+ }
+\cs_generate_variant:Nn \chemgreek_define_deprecated:NN { cc }
+
+% ----------------------------------------------------------------------------
+% a tokenlist constant that will be used to build the mapping property lists
+% both for uppercase and lowercase and also for setting the output macros
+\tl_const:Nn \c__chemgreek_alphabet_tl
+ {
+ { alpha } % 1
+ { beta } % 2
+ { gamma } % 3
+ { delta } % 4
+ { epsilon } % 5
+ { zeta } % 6
+ { eta } % 7
+ { theta } % 8
+ { iota } % 9
+ { kappa } % 10
+ { lambda } % 11
+ { mu } % 12
+ { nu } % 13
+ { xi } % 14
+ { omikron } % 15
+ { pi } % 16
+ { rho } % 17
+ { sigma } % 18
+ { tau } % 19
+ { upsilon } % 20
+ { phi } % 21
+ { psi } % 22
+ { chi } % 23
+ { omega } % 24
+ }
+
+% ----------------------------------------------------------------------------
+% variants of kernel functions:
+\cs_generate_variant:Nn \prop_put:Nnn { cxV }
+\cs_generate_variant:Nn \tl_if_eq:nnTF { V }
+
+% ----------------------------------------------------------------------------
+% helper function to retrieve upper- and lowercase entries while the mapping
+% happens:
+\cs_new_protected:Npn \__chemgreek_get_upper_lower:w #1 / #2 \q_stop
+ {
+ \tl_set:Nn \l__chemgreek_tmpa_tl { #1 }
+ \tl_set:Nn \l__chemgreek_tmpb_tl { #2 }
+ }
+
+% ----------------------------------------------------------------------------
+% a conditional for testing if a mapping exists:
+\prg_new_conditional:Npnn \chemgreek_if_mapping_exists:n #1 {p,T,F,TF}
+ {
+ \bool_if:nTF
+ {
+ \prop_if_exist_p:c { l__chemgreek_uppercase_mapping_#1_prop } &&
+ \prop_if_exist_p:c { l__chemgreek_lowercase_mapping_#1_prop }
+ }
+ { \prg_return_true: }
+ { \prg_return_false: }
+ }
+
+% a conditional for testing if a mapping is active:
+\tl_new:N \l__chemgreek_active_mapping_tl
+\prg_new_conditional:Npnn \chemgreek_if_mapping_active:n #1 {p,T,F,TF}
+ {
+ \tl_if_eq:NcTF
+ \l__chemgreek_active_mapping_tl
+ { c__chemgreek_mapping_#1_tl }
+ { \prg_return_true: }
+ { \prg_return_false: }
+ }
+
+% ----------------------------------------------------------------------------
+% a property lists that holds the needed package names for a mapping
+\prop_new:N \l__chemgreek_packages_prop
+
+% ----------------------------------------------------------------------------
+% the main mapping function:
+% #1: mapping-name
+% #2: package name
+% #3: mapping-entries
+\cs_new_protected:Npn \chemgreek_new_mapping:nnn #1#2#3
+ {
+ \chemgreek_if_mapping_exists:nTF { #1 }
+ { \msg_error:nnn { chemgreek } { mapping-already-defined } { #1 } }
+ {
+ \prop_new:c { l__chemgreek_uppercase_mapping_#1_prop }
+ \prop_new:c { l__chemgreek_lowercase_mapping_#1_prop }
+ \tl_const:cn { c__chemgreek_mapping_#1_tl } { #1 }
+ \prop_put:Nnn \l__chemgreek_packages_prop { #1 } { #2 }
+ \__chemgreek_set_mapping:nn { #1 } { #3 }
+ }
+ }
+
+\cs_new_protected:Npn \chemgreek_renew_mapping:nnn #1#2#3
+ {
+ \chemgreek_if_mapping_exists:nTF { #1 }
+ {
+ \prop_put:Nnn \l__chemgreek_packages_prop { #1 } { #2 }
+ \__chemgreek_set_mapping:nn { #1 } { #3 }
+ }
+ { \msg_error:nnn { chemgreek } { mapping-not-defined } { #1 } }
+ }
+
+\cs_new_protected:Npn \chemgreek_declare_mapping:nnn #1#2#3
+ {
+ \chemgreek_if_mapping_exists:nF { #1 }
+ {
+ \prop_new:c { l__chemgreek_uppercase_mapping_#1_prop }
+ \prop_new:c { l__chemgreek_lowercase_mapping_#1_prop }
+ \tl_const:cn { c__chemgreek_mapping_#1_tl } { #1 }
+ }
+ \prop_put:Nnn \l__chemgreek_packages_prop { #1 } { #2 }
+ \__chemgreek_set_mapping:nn { #1 } { #3 }
+ }
+
+\cs_new_protected:Npn \__chemgreek_set_mapping:nn #1#2
+ {
+ \prop_clear:c { l__chemgreek_lowercase_mapping_#1_prop }
+ \prop_clear:c { l__chemgreek_uppercase_mapping_#1_prop }
+ \int_zero:N \l__chemgreek_tmpa_int
+ \clist_map_inline:nn { #2 }
+ {
+ \int_incr:N \l__chemgreek_tmpa_int
+ \__chemgreek_get_upper_lower:w ##1 \q_stop
+ \prop_put:cxV { l__chemgreek_lowercase_mapping_#1_prop }
+ { \tl_item:Nn \c__chemgreek_alphabet_tl { \l__chemgreek_tmpa_int } }
+ \l__chemgreek_tmpa_tl
+ \prop_put:cxV { l__chemgreek_uppercase_mapping_#1_prop }
+ { \tl_item:Nn \c__chemgreek_alphabet_tl { \l__chemgreek_tmpa_int } }
+ \l__chemgreek_tmpb_tl
+ }
+ }
+
+% the user commands:
+\NewDocumentCommand \newchemgreekmapping { O{}mm }
+ { \chemgreek_new_mapping:nn { #2 } { #1 } { #3 } }
+
+\NewDocumentCommand \renewchemgreekmapping { O{}mm }
+ { \chemgreek_renew_mapping:nnn { #2 } { #1 } { #3 } }
+
+\NewDocumentCommand \declarechemgreekmapping { O{}mm }
+ { \chemgreek_declare_mapping:nnn { #2 } { #1 } { #3 } }
+
+% ----------------------------------------------------------------------------
+% a function to selectively change specific entries in a mapping:
+
+% this will hold all changed mappings until they've been (re-)activated
+% logically a sequence or clist would make more sense; however,
+% \prop_if_in:Nn(TF) is expandable
+\prop_new:N \l__chemgreek_changed_mappings_prop
+
+% #1: mapping-name
+% #2: upper / lower
+% #3: entry-name
+% #4: entry
+\cs_new_protected:Npn \chemgreek_change:nnnn #1#2#3#4
+ {
+ \chemgreek_if_mapping_exists:nTF { #1 }
+ {
+ \prop_put:cnn { l__chemgreek_#2 case_mapping_#1_prop }
+ { #3 }
+ { #4 }
+ \prop_put:Nnn \l__chemgreek_changed_mappings_prop
+ { #1 }
+ { #1 }
+ }
+ { \msg_error:nnn { chemgreek } { mapping-not-defined } { #1 } }
+ }
+
+% the user command:
+\NewDocumentCommand \changechemgreeksymbol { mmmm }
+ { \chemgreek_change:nnnn { #1 } { #2 } { #3 } { #4 } }
+
+% ----------------------------------------------------------------------------
+% a function to activate a mapping:
+% #1: mapping-name
+% TODO: error if needed package has not been loaded
+\cs_new_protected:Npn \chemgreek_activate_mapping:n #1
+ {
+ \chemgreek_if_mapping_exists:nTF { #1 }
+ {
+ \bool_if:nTF
+ {
+ ( \chemgreek_if_mapping_active_p:n { #1 } )
+ &&
+ !( \prop_if_in_p:Nn \l__chemgreek_changed_mappings_prop { #1 } )
+ }
+ { \msg_info:nnn { chemgreek } { mapping-active } { #1 } }
+ {
+ \tl_set:Nn \l__chemgreek_active_mapping_tl { #1 }
+ \prop_get:NnN \l__chemgreek_packages_prop { #1 }
+ \l__chemgreek_tmpa_tl
+ \tl_if_blank:VF \l__chemgreek_tmpa_tl
+ {
+ \chemgreek_if_package_loaded:VF \l__chemgreek_tmpa_tl
+ {
+ \msg_warning:nnxx { chemgreek } { package-missing }
+ { #1 }
+ { \l__chemgreek_tmpa_tl }
+ }
+ }
+ \tl_map_inline:Nn \c__chemgreek_alphabet_tl
+ {
+ \cs_set_protected:cpx { chem \tl_expandable_uppercase:n ##1 }
+ { \prop_get:cn { l__chemgreek_uppercase_mapping_#1_prop } { ##1 } }
+ \cs_set_protected:cpx { chem ##1 }
+ { \prop_get:cn { l__chemgreek_lowercase_mapping_#1_prop } { ##1 } }
+ }
+ \prop_get:NnNT \l__chemgreek_changed_mappings_prop
+ { #1 }
+ \l__chemgreek_tmpa_tl
+ { \prop_remove:Nn \l__chemgreek_changed_mappings_prop { #1 } }
+ }
+ }
+ { \msg_error:nnn { chemgreek } { mapping-not-defined } { #1 } }
+ }
+
+% user command that also loads the needed package:
+% #1: load package
+% #2: mapping-name
+\NewDocumentCommand \activatechemgreekmapping { sm }
+ {
+ \IfBooleanT { #1 }
+ {
+ \prop_get:NnN \l__chemgreek_packages_prop
+ { #2 }
+ \l__chemgreek_tmpa_tl
+ \tl_if_blank:VF \l__chemgreek_tmpa_tl
+ { \exp_args:No \RequirePackage { \l__chemgreek_tmpa_tl } }
+ }
+ \chemgreek_activate_mapping:n { #2 }
+ }
+\@onlypreamble\activatechemgreekmapping
+
+% user command that activates a new mapping without loading the package:
+\NewDocumentCommand \selectchemgreekmapping { m }
+ { \chemgreek_activate_mapping:n { #1 } }
+
+% ----------------------------------------------------------------------------
+% debugging commands:
+\cs_new_protected:Npn \chemgreek_print_mapping:n #1
+ {
+ \int_gzero:N \g__chemgreek_tmpa_int
+ \begin { tabular } { llcc }
+ pos & name & lower & upper \\
+ \tl_map_inline:Nn \c__chemgreek_alphabet_tl
+ {
+ \int_gincr:N \g__chemgreek_tmpa_int
+ \int_use:N \g__chemgreek_tmpa_int . &
+ ##1 &
+ \prop_get:cn { l__chemgreek_lowercase_mapping_#1_prop } { ##1 } &
+ \prop_get:cn { l__chemgreek_uppercase_mapping_#1_prop } { ##1 } \\
+ }
+ \end{tabular}
+ }
+
+\cs_new_eq:NN \printchemgreekmapping \chemgreek_print_mapping:n
+
+\cs_new_protected:Npn \chemgreek_show_mapping:n #1
+ {
+ \int_gzero:N \g__chemgreek_tmpa_int
+ \iow_log:n { ................................................. }
+ \iow_log:n { . ~ chemgreek~ mapping~ `#1': }
+ \tl_map_inline:Nn \c__chemgreek_alphabet_tl
+ {
+ \int_gincr:N \g__chemgreek_tmpa_int
+ \iow_log:x
+ { . ~ \int_use:N \g__chemgreek_tmpa_int . }
+ \iow_log:x
+ {
+ . \c_space_tl \c_space_tl \c_space_tl \c_space_tl \c_space_tl
+ ##1 ~ => ~
+ \prop_get:cn { l__chemgreek_lowercase_mapping_#1_prop } { ##1 }
+ }
+ \iow_log:x
+ {
+ . \c_space_tl \c_space_tl \c_space_tl \c_space_tl \c_space_tl
+ \tl_expandable_uppercase:n ##1 ~ => ~
+ \prop_get:cn { l__chemgreek_uppercase_mapping_#1_prop } { ##1 }
+ }
+ }
+ \iow_log:n { ................................................. }
+ }
+
+\cs_new_eq:NN \showchemgreekmapping \chemgreek_show_mapping:n
+
+\cs_new_protected:Npn \chemgreek_print_alphabet:
+ {
+ \tl_map_inline:Nn \c__chemgreek_alphabet_tl
+ {
+ \use:c { chem ##1 }
+ \use:c { chem \tl_expandable_uppercase:n ##1 }
+ \c_space_tl
+ }
+ \tex_unskip:D
+ }
+
+\cs_new_eq:NN \printchemgreekalphabet \chemgreek_print_alphabet:
+
+% ----------------------------------------------------------------------------
+% deprecate old macro names that started with an uppercase C:
+\cs_new_protected:Npn \chemgreek_deprecate_symbol:n #1
+ { \chemgreek_define_deprecated:cc { Chem#1 } { chem#1 } }
+
+\cs_new_protected:Npn \chemgreek_deprecate_symbols:
+ {
+ \tl_map_inline:Nn \c__chemgreek_alphabet_tl
+ {
+ \chemgreek_deprecate_symbol:n { ##1 }
+ \chemgreek_deprecate_symbol:n { \tl_expandable_uppercase:n ##1 }
+ }
+ }
+
+\chemgreek_deprecate_symbols:
+
+% ----------------------------------------------------------------------------
+% functions to format integers with greek letters; these are basically copies
+% of \int_to_alph:n
+\cs_new:Npn \chemgreek_int_to_greek:n #1
+ {
+ \int_to_symbols:nnn { #1 } { 24 }
+ {
+ { 1 } { \chemalpha }
+ { 2 } { \chembeta }
+ { 3 } { \chemgamma }
+ { 4 } { \chemdelta }
+ { 5 } { \chemepsilon }
+ { 6 } { \chemzeta }
+ { 7 } { \chemeta }
+ { 8 } { \chemiota }
+ { 9 } { \chemtheta }
+ { 10 } { \chemkappa }
+ { 11 } { \chemlambda }
+ { 12 } { \chemmu }
+ { 13 } { \chemnu }
+ { 14 } { \chemxi }
+ { 15 } { \chemomikron }
+ { 16 } { \chempi }
+ { 17 } { \chemrho }
+ { 18 } { \chemsigma }
+ { 19 } { \chemtau }
+ { 20 } { \chemupsilon }
+ { 21 } { \chemphi }
+ { 22 } { \chempsi }
+ { 23 } { \chemchi }
+ { 24 } { \chemomega }
+ }
+ }
+
+\cs_new:Npn \chemgreek_int_to_Greek:n #1
+ {
+ \int_to_symbols:nnn { #1 } { 24 }
+ {
+ { 1 } { \chemAlpha }
+ { 2 } { \chemBeta }
+ { 3 } { \chemGamma }
+ { 4 } { \chemDelta }
+ { 5 } { \chemEpsilon }
+ { 6 } { \chemZeta }
+ { 7 } { \chemEta }
+ { 8 } { \chemIota }
+ { 9 } { \chemTheta }
+ { 10 } { \chemKappa }
+ { 11 } { \chemLambda }
+ { 12 } { \chemMu }
+ { 13 } { \chemNu }
+ { 14 } { \chemXi }
+ { 15 } { \chemOmikron }
+ { 16 } { \chemPi }
+ { 17 } { \chemRho }
+ { 18 } { \chemSigma }
+ { 19 } { \chemTau }
+ { 20 } { \chemUpsilon }
+ { 21 } { \chemPhi }
+ { 22 } { \chemPsi }
+ { 23 } { \chemChi }
+ { 24 } { \chemOmega }
+ }
+ }
+
+% ----------------------------------------------------------------------------
+% predefine some mappings
+% default:
+\chemgreek_new_mapping:nnn { default } { }
+ {
+ \ensuremath{\alpha} / \ensuremath{\mathrm{A}} , % 1
+ \ensuremath{\beta} / \ensuremath{\mathrm{B}} , % 2
+ \ensuremath{\gamma} / \ensuremath{\Gamma} , % 3
+ \ensuremath{\delta} / \ensuremath{\Delta} , % 4
+ \ensuremath{\epsilon} / \ensuremath{\mathrm{E}} , % 5
+ \ensuremath{\zeta} / \ensuremath{\mathrm{Z}} , % 6
+ \ensuremath{\eta} / \ensuremath{\mathrm{H}} , % 7
+ \ensuremath{\theta} / \ensuremath{\Theta} , % 8
+ \ensuremath{\iota} / \ensuremath{\mathrm{I}} , % 9
+ \ensuremath{\kappa} / \ensuremath{\mathrm{K}} , % 10
+ \ensuremath{\lambda} / \ensuremath{\Lambda} , % 11
+ \ensuremath{\mu} / \ensuremath{\mathrm{M}} , % 12
+ \ensuremath{\nu} / \ensuremath{\mathrm{N}} , % 13
+ \ensuremath{\xi} / \ensuremath{\Xi} , % 14
+ \ensuremath{o} / \ensuremath{\mathrm{O}} , % 15
+ \ensuremath{\pi} / \ensuremath{\Pi} , % 16
+ \ensuremath{\rho} / \ensuremath{\mathrm{P}} , % 17
+ \ensuremath{\sigma} / \ensuremath{\Sigma} , % 18
+ \ensuremath{\tau} / \ensuremath{\mathrm{T}} , % 19
+ \ensuremath{\upsilon} / \ensuremath{\Upsilon} , % 20
+ \ensuremath{\phi} / \ensuremath{\Phi} , % 21
+ \ensuremath{\psi} / \ensuremath{\Psi} , % 22
+ \ensuremath{\chi} / \ensuremath{\mathrm{X}} , % 23
+ \ensuremath{\omega} / \ensuremath{\Omega} % 24
+ }
+
+% default-variant:
+\chemgreek_new_mapping:nnn { var-default } { }
+ {
+ \ensuremath{\alpha} / \ensuremath{\mathrm{A}} , % 1
+ \ensuremath{\beta} / \ensuremath{\mathrm{B}} , % 2
+ \ensuremath{\gamma} / \ensuremath{\Gamma} , % 3
+ \ensuremath{\delta} / \ensuremath{\Delta} , % 4
+ \ensuremath{\varepsilon} / \ensuremath{\mathrm{E}} , % 5
+ \ensuremath{\zeta} / \ensuremath{\mathrm{Z}} , % 6
+ \ensuremath{\eta} / \ensuremath{\mathrm{H}} , % 7
+ \ensuremath{\theta} / \ensuremath{\Theta} , % 8
+ \ensuremath{\iota} / \ensuremath{\mathrm{I}} , % 9
+ \ensuremath{\kappa} / \ensuremath{\mathrm{K}} , % 10
+ \ensuremath{\lambda} / \ensuremath{\Lambda} , % 11
+ \ensuremath{\mu} / \ensuremath{\mathrm{M}} , % 12
+ \ensuremath{\nu} / \ensuremath{\mathrm{N}} , % 13
+ \ensuremath{\xi} / \ensuremath{\Xi} , % 14
+ \ensuremath{o} / \ensuremath{\mathrm{O}} , % 15
+ \ensuremath{\pi} / \ensuremath{\Pi} , % 16
+ \ensuremath{\varrho} / \ensuremath{\mathrm{P}} , % 17
+ \ensuremath{\sigma} / \ensuremath{\Sigma} , % 18
+ \ensuremath{\tau} / \ensuremath{\mathrm{T}} , % 19
+ \ensuremath{\upsilon} / \ensuremath{\Upsilon} , % 20
+ \ensuremath{\phi} / \ensuremath{\Phi} , % 21
+ \ensuremath{\psi} / \ensuremath{\Psi} , % 22
+ \ensuremath{\chi} / \ensuremath{\mathrm{X}} , % 23
+ \ensuremath{\omega} / \ensuremath{\Omega} % 24
+ }
+
+% mathdesign:
+\chemgreek_new_mapping:nnn { mathdesign } { mathdesign }
+ {
+ \ensuremath{\alphaup} / \ensuremath{\mathrm{A}} , % 1
+ \ensuremath{\betaup} / \ensuremath{\mathrm{B}} , % 2
+ \ensuremath{\gammaup} / \ensuremath{\Gammaup} , % 3
+ \ensuremath{\deltaup} / \ensuremath{\Deltaup} , % 4
+ \ensuremath{\epsilonup} / \ensuremath{\mathrm{E}} , % 5
+ \ensuremath{\zetaup} / \ensuremath{\mathrm{Z}} , % 6
+ \ensuremath{\etaup} / \ensuremath{\mathrm{H}} , % 7
+ \ensuremath{\thetaup} / \ensuremath{\Thetaup} , % 8
+ \ensuremath{\iotaup} / \ensuremath{\mathrm{I}} , % 9
+ \ensuremath{\kappaup} / \ensuremath{\mathrm{K}} , % 10
+ \ensuremath{\lambdaup} / \ensuremath{\Lambdaup} , % 11
+ \ensuremath{\muup} / \ensuremath{\mathrm{M}} , % 12
+ \ensuremath{\nuup} / \ensuremath{\mathrm{N}} , % 13
+ \ensuremath{\xiup} / \ensuremath{\Xiup} , % 14
+ \ensuremath{\mathrm{o}} / \ensuremath{\mathrm{O}} , % 15
+ \ensuremath{\piup} / \ensuremath{\Piup} , % 16
+ \ensuremath{\rhoup} / \ensuremath{\mathrm{R}} , % 17
+ \ensuremath{\sigmaup} / \ensuremath{\Sigmaup} , % 18
+ \ensuremath{\tauup} / \ensuremath{\mathrm{T}} , % 19
+ \ensuremath{\upsilonup} / \ensuremath{\Upsilonup} , % 20
+ \ensuremath{\phiup} / \ensuremath{\Phiup} , % 21
+ \ensuremath{\psiup} / \ensuremath{\Psiup} , % 22
+ \ensuremath{\chiup} / \ensuremath{\mathrm{X}} , % 23
+ \ensuremath{\omegaup} / \ensuremath{\Omegaup} % 24
+ }
+
+% textgreek:
+\chemgreek_new_mapping:nnn { textgreek } { textgreek }
+ {
+ \mbox{\textalpha} / \mbox{\textAlpha} , % 1
+ \mbox{\textbeta} / \mbox{\textBeta} , % 2
+ \mbox{\textgamma} / \mbox{\textGamma} , % 3
+ \mbox{\textdelta} / \mbox{\textDelta} , % 4
+ \mbox{\textepsilon} / \mbox{\textEpsilon} , % 5
+ \mbox{\textzeta} / \mbox{\textZeta} , % 6
+ \mbox{\texteta} / \mbox{\textEta} , % 7
+ \mbox{\texttheta} / \mbox{\textTheta} , % 8
+ \mbox{\textiota} / \mbox{\textIota} , % 9
+ \mbox{\textkappa} / \mbox{\textKappa} , % 10
+ \mbox{\textlambda} / \mbox{\textLambda} , % 11
+ \mbox{\textmugreek} / \mbox{\textMu} , % 12
+ \mbox{\textnu} / \mbox{\textNu} , % 13
+ \mbox{\textxi} / \mbox{\textXi} , % 14
+ \mbox{\textomikron} / \mbox{\textOmikron} , % 15
+ \mbox{\textpi} / \mbox{\textPi} , % 16
+ \mbox{\textrho} / \mbox{\textRho} , % 17
+ \mbox{\textsigma} / \mbox{\textSigma} , % 18
+ \mbox{\texttau} / \mbox{\textTau} , % 19
+ \mbox{\textupsilon} / \mbox{\textUpsilon} , % 20
+ \mbox{\textphi} / \mbox{\textPhi} , % 21
+ \mbox{\textpsi} / \mbox{\textPsi} , % 22
+ \mbox{\textchi} / \mbox{\textChi} , % 23
+ \mbox{\textomega} / \mbox{\textOmega} % 24
+ }
+
+% upgreek:
+\chemgreek_new_mapping:nnn { upgreek } { upgreek }
+ {
+ \ensuremath{\upalpha} / \ensuremath{\mathrm{A}} , % 1
+ \ensuremath{\upbeta} / \ensuremath{\mathrm{B}} , % 2
+ \ensuremath{\upgamma} / \ensuremath{\Upgamma} , % 3
+ \ensuremath{\updelta} / \ensuremath{\Updelta} , % 4
+ \ensuremath{\upepsilon} / \ensuremath{\mathrm{E}} , % 5
+ \ensuremath{\upzeta} / \ensuremath{\mathrm{Z}} , % 6
+ \ensuremath{\upeta} / \ensuremath{\mathrm{H}} , % 7
+ \ensuremath{\uptheta} / \ensuremath{\Uptheta} , % 8
+ \ensuremath{\upiota} / \ensuremath{\mathrm{I}} , % 9
+ \ensuremath{\upkappa} / \ensuremath{\mathrm{K}} , % 10
+ \ensuremath{\uplambda} / \ensuremath{\Uplambda} , % 11
+ \ensuremath{\upmu} / \ensuremath{\mathrm{M}} , % 12
+ \ensuremath{\upnu} / \ensuremath{\mathrm{N}} , % 13
+ \ensuremath{\upxi} / \ensuremath{\Upxi} , % 14
+ \ensuremath{\mathrm{o}} / \ensuremath{\mathrm{O}} , % 15
+ \ensuremath{\uppi} / \ensuremath{\Uppi} , % 16
+ \ensuremath{\uprho} / \ensuremath{\mathrm{R}} , % 17
+ \ensuremath{\upsigma} / \ensuremath{\Upsigma} , % 18
+ \ensuremath{\uptau} / \ensuremath{\mathrm{T}} , % 19
+ \ensuremath{\upupsilon} / \ensuremath{\Upupsilon} , % 20
+ \ensuremath{\upphi} / \ensuremath{\Upphi} , % 21
+ \ensuremath{\uppsi} / \ensuremath{\Uppsi} , % 22
+ \ensuremath{\upchi} / \ensuremath{\mathrm{X}} , % 23
+ \ensuremath{\upomega} / \ensuremath{\Upomega} % 24
+ }
+
+% kpfonts:
+\chemgreek_new_mapping:nnn { kpfonts } { kpfonts }
+ {
+ \ensuremath{\alphaup} / \ensuremath{\mathrm{A}} , % 1
+ \ensuremath{\betaup} / \ensuremath{\mathrm{B}} , % 2
+ \ensuremath{\gammaup} / \ensuremath{\Gammaup} , % 3
+ \ensuremath{\deltaup} / \ensuremath{\Deltaup} , % 4
+ \ensuremath{\epsilonup} / \ensuremath{\mathrm{E}} , % 5
+ \ensuremath{\zetaup} / \ensuremath{\mathrm{Z}} , % 6
+ \ensuremath{\etaup} / \ensuremath{\mathrm{H}} , % 7
+ \ensuremath{\thetaup} / \ensuremath{\Thetaup} , % 8
+ \ensuremath{\iotaup} / \ensuremath{\mathrm{I}} , % 9
+ \ensuremath{\kappaup} / \ensuremath{\mathrm{K}} , % 10
+ \ensuremath{\lambdaup} / \ensuremath{\Lambdaup} , % 11
+ \ensuremath{\muup} / \ensuremath{\mathrm{M}} , % 12
+ \ensuremath{\nuup} / \ensuremath{\mathrm{N}} , % 13
+ \ensuremath{\xiup} / \ensuremath{\Xiup} , % 14
+ \ensuremath{\mathrm{o}} / \ensuremath{\mathrm{O}} , % 15
+ \ensuremath{\piup} / \ensuremath{\Piup} , % 16
+ \ensuremath{\rhoup} / \ensuremath{\mathrm{R}} , % 17
+ \ensuremath{\sigmaup} / \ensuremath{\Sigmaup} , % 18
+ \ensuremath{\tauup} / \ensuremath{\mathrm{T}} , % 19
+ \ensuremath{\upsilonup} / \ensuremath{\Upsilonup} , % 20
+ \ensuremath{\phiup} / \ensuremath{\Phiup} , % 21
+ \ensuremath{\psiup} / \ensuremath{\Psiup} , % 22
+ \ensuremath{\chiup} / \ensuremath{\mathrm{X}} , % 23
+ \ensuremath{\omegaup} / \ensuremath{\Omegaup} % 24
+ }
+
+% newtx:
+\chemgreek_new_mapping:nnn { newtx } { newtxmath }
+ {
+ \ensuremath{\upalpha} / \ensuremath{\mathrm{A}} , % 1
+ \ensuremath{\upbeta} / \ensuremath{\mathrm{B}} , % 2
+ \ensuremath{\upgamma} / \ensuremath{\upGamma} , % 3
+ \ensuremath{\updelta} / \ensuremath{\upDelta} , % 4
+ \ensuremath{\upepsilon} / \ensuremath{\mathrm{E}} , % 5
+ \ensuremath{\upzeta} / \ensuremath{\mathrm{Z}} , % 6
+ \ensuremath{\upeta} / \ensuremath{\mathrm{H}} , % 7
+ \ensuremath{\uptheta} / \ensuremath{\upTheta} , % 8
+ \ensuremath{\upiota} / \ensuremath{\mathrm{I}} , % 9
+ \ensuremath{\upkappa} / \ensuremath{\mathrm{K}} , % 10
+ \ensuremath{\uplambda} / \ensuremath{\upLambda} , % 11
+ \ensuremath{\upmu} / \ensuremath{\mathrm{M}} , % 12
+ \ensuremath{\upnu} / \ensuremath{\mathrm{N}} , % 13
+ \ensuremath{\upxi} / \ensuremath{\upXi} , % 14
+ \ensuremath{\mathrm{o}} / \ensuremath{\mathrm{O}} , % 15
+ \ensuremath{\uppi} / \ensuremath{\upPi} , % 16
+ \ensuremath{\uprho} / \ensuremath{\mathrm{R}} , % 17
+ \ensuremath{\upsigma} / \ensuremath{\upSigma} , % 18
+ \ensuremath{\uptau} / \ensuremath{\mathrm{T}} , % 19
+ \ensuremath{\upupsilon} / \ensuremath{\upUpsilon} , % 20
+ \ensuremath{\upphi} / \ensuremath{\upPhi} , % 21
+ \ensuremath{\uppsi} / \ensuremath{\upPsi} , % 22
+ \ensuremath{\upchi} / \ensuremath{\mathrm{X}} , % 23
+ \ensuremath{\upomega} / \ensuremath{\upOmega} % 24
+ }
+
+% fourier:
+\cs_new:Npn \__chemgreek_lfourier:n #1
+ {
+ \chemgreek_latex_if:nTF { sloped }
+ { \ensuremath { \use:c { other #1 } } }
+ { \ensuremath { \use:c { #1 } } }
+ }
+
+\cs_new:Npn \__chemgreek_ufourier:n #1
+ {
+ \chemgreek_latex_if:nTF { sloped }
+ { \ensuremath { \use:c { #1 } } }
+ { \ensuremath { \use:c { other #1 } } }
+ }
+
+\chemgreek_new_mapping:nnn { fourier } { fourier }
+ {
+ \__chemgreek_lfourier:n {alpha} / \ensuremath{\mathrm{A}} , % 1
+ \__chemgreek_lfourier:n {beta} / \ensuremath{\mathrm{B}} , % 2
+ \__chemgreek_lfourier:n {gamma} / \__chemgreek_ufourier:n {Gamma} , % 3
+ \__chemgreek_lfourier:n {delta} / \__chemgreek_ufourier:n {Delta} , % 4
+ \__chemgreek_lfourier:n {epsilon} / \ensuremath{\mathrm{E}} , % 5
+ \__chemgreek_lfourier:n {zeta} / \ensuremath{\mathrm{Z}} , % 6
+ \__chemgreek_lfourier:n {eta} / \ensuremath{\mathrm{H}} , % 7
+ \__chemgreek_lfourier:n {theta} / \__chemgreek_ufourier:n {Theta} , % 8
+ \__chemgreek_lfourier:n {iota} / \ensuremath{\mathrm{I}} , % 9
+ \__chemgreek_lfourier:n {kappa} / \ensuremath{\mathrm{K}} , % 10
+ \__chemgreek_lfourier:n {lambda} / \__chemgreek_ufourier:n {Lambda} , % 11
+ \__chemgreek_lfourier:n {mu} / \ensuremath{\mathrm{M}} , % 12
+ \__chemgreek_lfourier:n {nu} / \ensuremath{\mathrm{N}} , % 13
+ \__chemgreek_lfourier:n {xi} / \__chemgreek_ufourier:n {Xi} , % 14
+ \ensuremath {\mathrm{o}} / \ensuremath{\mathrm{O}} , % 15
+ \__chemgreek_lfourier:n {pi} / \__chemgreek_ufourier:n {Pi} , % 16
+ \__chemgreek_lfourier:n {rho} / \ensuremath{\mathrm{R}} , % 17
+ \__chemgreek_lfourier:n {sigma} / \__chemgreek_ufourier:n {Sigma} , % 18
+ \__chemgreek_lfourier:n {tau} / \ensuremath{\mathrm{T}} , % 19
+ \__chemgreek_lfourier:n {upsilon} / \__chemgreek_ufourier:n {Upsilon} , % 20
+ \__chemgreek_lfourier:n {phi} / \__chemgreek_ufourier:n {Phi} , % 21
+ \__chemgreek_lfourier:n {psi} / \__chemgreek_ufourier:n {Psi} , % 22
+ \__chemgreek_lfourier:n {chi} / \ensuremath{\mathrm{X}} , % 23
+ \__chemgreek_lfourier:n {omega} / \__chemgreek_ufourier:n {Omega} % 24
+ }
+
+% textalpha:
+\chemgreek_new_mapping:nnn { textalpha } { textalpha }
+ {
+ \mbox{\textalpha} / \mbox{\textAlpha} , % 1
+ \mbox{\textbeta} / \mbox{\textBeta} , % 2
+ \mbox{\textgamma} / \mbox{\textGamma} , % 3
+ \mbox{\textdelta} / \mbox{\textDelta} , % 4
+ \mbox{\textepsilon} / \mbox{\textEpsilon} , % 5
+ \mbox{\textzeta} / \mbox{\textZeta} , % 6
+ \mbox{\texteta} / \mbox{\textEta} , % 7
+ \mbox{\texttheta} / \mbox{\textTheta} , % 8
+ \mbox{\textiota} / \mbox{\textIota} , % 9
+ \mbox{\textkappa} / \mbox{\textKappa} , % 10
+ \mbox{\textlambda} / \mbox{\textLambda} , % 11
+ \mbox{\textmu} / \mbox{\textMu} , % 12
+ \mbox{\textnu} / \mbox{\textNu} , % 13
+ \mbox{\textxi} / \mbox{\textXi} , % 14
+ \mbox{\textomicron} / \mbox{\textOmicron} , % 15
+ \mbox{\textpi} / \mbox{\textPi} , % 16
+ \mbox{\textrho} / \mbox{\textRho} , % 17
+ \mbox{\textsigma} / \mbox{\textSigma} , % 18
+ \mbox{\texttau} / \mbox{\textTau} , % 19
+ \mbox{\textupsilon} / \mbox{\textUpsilon} , % 20
+ \mbox{\textphi} / \mbox{\textPhi} , % 21
+ \mbox{\textpsi} / \mbox{\textPsi} , % 22
+ \mbox{\textchi} / \mbox{\textChi} , % 23
+ \mbox{\textomega} / \mbox{\textOmega} % 24
+ }
+
+% textgreek:
+\chemgreek_new_mapping:nnn { fontspec } { fontspec }
+ {
+ \mbox{\textalpha} / \mbox{\textAlpha} , % 1
+ \mbox{\textbeta} / \mbox{\textBeta} , % 2
+ \mbox{\textgamma} / \mbox{\textGamma} , % 3
+ \mbox{\textdelta} / \mbox{\textDelta} , % 4
+ \mbox{\textepsilon} / \mbox{\textEpsilon} , % 5
+ \mbox{\textzeta} / \mbox{\textZeta} , % 6
+ \mbox{\texteta} / \mbox{\textEta} , % 7
+ \mbox{\texttheta} / \mbox{\textTheta} , % 8
+ \mbox{\textiota} / \mbox{\textIota} , % 9
+ \mbox{\textkappa} / \mbox{\textKappa} , % 10
+ \mbox{\textlambda} / \mbox{\textLambda} , % 11
+ \mbox{\textmu} / \mbox{\textMu} , % 12
+ \mbox{\textnu} / \mbox{\textNu} , % 13
+ \mbox{\textxi} / \mbox{\textXi} , % 14
+ \mbox{o} / \mbox{O} , % 15
+ \mbox{\textpi} / \mbox{\textPi} , % 16
+ \mbox{\textrho} / \mbox{\textRho} , % 17
+ \mbox{\textsigma} / \mbox{\textSigma} , % 18
+ \mbox{\texttau} / \mbox{\textTau} , % 19
+ \mbox{\textupsilon} / \mbox{\textUpsilon} , % 20
+ \mbox{\textphi} / \mbox{\textPhi} , % 21
+ \mbox{\textpsi} / \mbox{\textPsi} , % 22
+ \mbox{\textchi} / \mbox{\textChi} , % 23
+ \mbox{\textomega} / \mbox{\textOmega} % 24
+ }
+
+% activate default mapping
+\chemgreek_activate_mapping:n { default }
+
+\AtBeginDocument
+ {
+ \chemgreek_if_package_with:nnT {hyperref} {unicode}
+ {
+ \chemgreek_if_package_loaded:nT {textalpha}
+ {
+ \pdfstringdefDisableCommands
+ {
+ \tl_map_inline:Nn \c__chemgreek_alphabet_tl
+ {
+ \cs_set_eq:cc
+ { chem \tl_expandable_uppercase:n #1 }
+ { text \tl_expandable_uppercase:n #1 }
+ \cs_set_eq:cc { chem #1 } { text #1 }
+ }
+ }
+ }
+ }
+ }
+
+\tex_endinput:D
+
+HISTORY:
+2013/06/26 - v0.1 - first working version to be bundled with chemmacros
+2013/07/06 - v0.1a - fixed stupid bug in `upgreek' mapping
+ - added error messages and added \renewchemgreekmapping and
+ \declarechemgreekmapping
+2013/08/24 - v0.2 - new mappings `mathdesign', `fourier'
+ - new functions: \chemgreek_int_to_greek:n and
+ \chemgreek_int_to_Greek:n
+2013/11/20 - v0.2a - fixed typos in `fourier' mapping
+ - added missing \prop_clear: to \__chemgreek_set_mapping:nn
+ - added missing argument to message calls
+2014/01/24 - v0.3 - rename \Chem<name => \chem<name>, the old names will
+ issue warnings but still work
+ - new mappings `textalpha' (cf the package with the same
+ name, part of `greek-fontenc')
+ - \chemgreek_new_mapping:nnn redefined so that package name
+ must be given if needed; \chemgreek_activate_mapping:n
+ now issues a warning if the needed package hasn't been
+ loaded
+ - if hyperref has been loaded with package option `unicode'
+ and `textalpha' package has been loaded, too, we can use
+ greek letters in PDF bookmarks
+ - new command \printchemgreekmapping
+ - \showchemgreekmapping now writes information to the log
+2014/01/29 - v0.4 - add mapping `fontspec'
+ - new command \printchemgreekalphabet
+2014/08/07 - v0.5 - split from `chemmacros' bundle as independent package
+
+TODO:
+