summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/chemgreek
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/tex/latex/chemgreek
parent3b56dac24396b4ca0cefca3cc6cd827c149c9848 (diff)
chemgreek (8aug14)
git-svn-id: svn://tug.org/texlive/trunk@34896 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/chemgreek')
-rw-r--r--Master/texmf-dist/tex/latex/chemgreek/chemgreek.sty878
1 files changed, 878 insertions, 0 deletions
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:
+