% -------------------------------------------------------------------------- % the EMBRAC package % % Upright Brackets in Emphasized Text % % -------------------------------------------------------------------------- % Clemens Niederberger % Web: https://bitbucket.org/cgnieder/embrac/ % E-Mail: contact@mychemistry.eu % -------------------------------------------------------------------------- % Copyright 2012--2015 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 embrac package consists of the files % - embrac.sty, embrac_en.tex, embrac_en.pdf, embrac_kerning_test.tex and % README % -------------------------------------------------------------------------- % > this package is strongly based on an article by Dominik Waßenhoven in % > “Die TeXnische Komödie” 2 (2012), pp. 51--53 % > which introduces code by Bruno Le Floch. Code parts and idea used with % > their kind permission. Many thanks! % -------------------------------------------------------------------------- \RequirePackage { expl3 , xparse , l3keys2e } \ProvidesExplPackage {embrac} {2015/09/06} {0.6b} {Upright Brackets in Emphasized Text} % -------------------------------------------------------------------------- % check expl3 version: \@ifpackagelater {expl3} {2012/11/21} { } { \PackageError {embrac} { Support~package~expl3~too~old } { You~need~to~update~your~installation~of~the~bundles~'l3kernel'~and~ 'l3packages'.\MessageBreak Loading~embrac~will~abort! } \tex_endinput:D } % -------------------------------------------------------------------------- \bool_new:N \l__embrac_treat_biblatex_bool \tl_new:N \l__embrac_tmpa_tl \tl_new:N \l__embrac_treat_biblatex_tl \keys_define:nn { embrac } { biblatex .choice: , biblatex / true .code:n = \bool_set_true:N \l__embrac_treat_biblatex_bool , biblatex / on .code:n = \bool_set_true:N \l__embrac_treat_biblatex_bool , biblatex / parens .code:n = \bool_set_true:N \l__embrac_treat_biblatex_bool , biblatex / false .code:n = \bool_set_false:N \l__embrac_treat_biblatex_bool , biblatex / off .code:n = \bool_set_false:N \l__embrac_treat_biblatex_bool , biblatex / none .code:n = \bool_set_false:N \l__embrac_treat_biblatex_bool , biblatex .default:n = true } \prg_new_conditional:Npnn \embrac_if_fontspec: { T,F,TF } { \@ifpackageloaded {fontspec} { \prg_return_true: } { \prg_return_false: } } % save original commands, delay until begin document to catch `fontspec's % redefinitions: \AtBeginDocument{ \cs_new_eq:Nc \embrac_orig_emph:n { emph~ } \cs_generate_variant:Nn \embrac_orig_emph:n { V } \cs_new_eq:Nc \embrac_orig_textit:n { textit~ } \cs_generate_variant:Nn \embrac_orig_textit:n { V } \cs_new_eq:Nc \embrac_orig_textsl:n { textsl~ } \cs_generate_variant:Nn \embrac_orig_textsl:n { V } \embrac_if_fontspec:T { \cs_new_eq:Nc \embrac_orig_textsi:n { textsi~ } \cs_generate_variant:Nn \embrac_orig_textsi:n { V } } } % preparations: \cs_new_eq:NN \embrac_braces_format:n \textup \cs_new_eq:NN \embrac_kern:n \skip_horizontal:n \prg_new_conditional:Npnn \embrac_empty_or_no_value:n #1 { F,TF } { \IfNoValueTF { #1 } { \prg_return_true: } { \tl_if_blank:nTF { #1 } { \prg_return_true: } { \prg_return_false: } } } \cs_new:Npn \embrac_nobreak: { \tex_penalty:D \c_ten_thousand } % -------------------------------------------------------------------------- % THE MAIN PART: % storage of the tokens to be replaced: \prop_new:N \l__embrac_emph_obrackets_prop \prop_new:N \l__embrac_emph_obrackets_before_prop \prop_new:N \l__embrac_emph_cbrackets_prop \prop_new:N \l__embrac_emph_cbrackets_after_prop % do the replacing: \cs_new_protected:Npn \embrac_replace_brackets:N #1 { \prop_map_inline:Nn \l__embrac_emph_obrackets_prop { \tl_replace_all:Nnn #1 {##1} { \mode_if_math:TF {##1} { \embrac_kern:n { \prop_get:Nn \l__embrac_emph_obrackets_before_prop {##1} } \embrac_nobreak: \embrac_braces_format:n {##1} \embrac_nobreak: \embrac_kern:n {##2} \embrac_nobreak: } } } \prop_map_inline:Nn \l__embrac_emph_cbrackets_prop { \tl_replace_all:Nnn #1 {##1} { \mode_if_math:TF {##1} { \embrac_nobreak: \embrac_kern:n {##2} \embrac_nobreak: \embrac_braces_format:n {##1} \embrac_kern:n { \prop_get:Nn \l__embrac_emph_cbrackets_after_prop {##1} } } } } } % internal \emph command: \cs_new_protected:Npn \__embrac_emph:n #1 { \tl_set:Nn \l__embrac_tmpa_tl { #1 } \embrac_replace_brackets:N \l__embrac_tmpa_tl \embrac_orig_emph:V \l__embrac_tmpa_tl } % internal \textit command: \cs_new_protected:Npn \__embrac_textit:n #1 { \tl_set:Nn \l__embrac_tmpa_tl { #1 } \embrac_replace_brackets:N \l__embrac_tmpa_tl \embrac_orig_textit:V \l__embrac_tmpa_tl } % internal \textsl command: \cs_new_protected:Npn \__embrac_textsl:n #1 { \tl_set:Nn \l__embrac_tmpa_tl { #1 } \embrac_replace_brackets:N \l__embrac_tmpa_tl \embrac_orig_textsl:V \l__embrac_tmpa_tl } % internal \textsi command: \AtBeginDocument{ \embrac_if_fontspec:T { \cs_new_protected:Npn \__embrac_textsi:n #1 { \tl_set:Nn \l__embrac_tmpa_tl { #1 } \embrac_replace_brackets:N \l__embrac_tmpa_tl \embrac_orig_textsi:V \l__embrac_tmpa_tl } } } % biblatex compatibility: \cs_new_protected:Npn \embrac_treat_bibparens: { \bool_if:NT \l__embrac_treat_biblatex_bool { \embrac_replace_brackets:N \bibleftbracket \embrac_replace_brackets:N \bibrightbracket \embrac_replace_brackets:N \bibleftparen \embrac_replace_brackets:N \bibrightparen } } \cs_new_protected:Npn \embrac_treat_bibemph: { \bool_if:NT \l__embrac_treat_biblatex_bool { \patchcmd[\protected\long]\blx@imc@mkbibemph {\emph}{\emph*} {}{} } } % internal \emph command, second layer: \cs_new_protected:Npn \embrac_emph:nn #1#2 { \group_begin: \embrac_treat_bibparens: \tl_if_eq:nnTF { #1 } { * } { \embrac_orig_emph:n { #2 } } { \__embrac_emph:n { #2 } } \group_end: } % internal \textit command, second layer: \cs_new_protected:Npn \embrac_textit:nn #1#2 { \group_begin: \embrac_treat_bibparens: \tl_if_eq:nnTF { #1 } { * } { \embrac_orig_textit:n { #2 } } { \__embrac_textit:n { #2 } } \group_end: } % internal \textsl command, second layer: \cs_new_protected:Npn \embrac_textsl:nn #1#2 { \group_begin: \embrac_treat_bibparens: \tl_if_eq:nnTF { #1 } { * } { \embrac_orig_textsl:n { #2 } } { \__embrac_textsl:n { #2 } } \group_end: } % internal \textsi command, second layer: \AtBeginDocument{ \embrac_if_fontspec:T { \cs_new_protected:Npn \embrac_textsi:nn #1#2 { \group_begin: \embrac_treat_bibparens: \tl_if_eq:nnTF { #1 } { * } { \embrac_orig_textsi:n { #2 } } { \__embrac_textsi:n { #2 } } \group_end: } } } % user command \emph: \RenewDocumentCommand \emph { sm } { \IfBooleanTF { #1 } { \embrac_emph:nn { * } { #2 } } { \embrac_emph:nn { } { #2 } } } % user command \textit: \RenewDocumentCommand \textit { sm } { \IfBooleanTF { #1 } { \embrac_textit:nn { * } { #2 } } { \embrac_textit:nn { } { #2 } } } % user command \textsl: \RenewDocumentCommand \textsl { sm } { \IfBooleanTF { #1 } { \embrac_textsl:nn { * } { #2 } } { \embrac_textsl:nn { } { #2 } } } % user command \textsi: \AtBeginDocument{ \embrac_if_fontspec:T { \RenewDocumentCommand \textsi { sm } { \IfBooleanTF { #1 } { \embrac_textsi:nn { * } { #2 } } { \embrac_textsi:nn { } { #2 } } } } } % -------------------------------------------------------------------------- % TURNING EMBRAC OFF AND ON: % turning embrac off: \NewDocumentCommand \EmbracOff {} { \RenewDocumentCommand \emph { sm } { \embrac_orig_emph:n { ##2 } } \RenewDocumentCommand \textit { sm } { \embrac_orig_textit:n { ##2 } } \RenewDocumentCommand \textsl { sm } { \embrac_orig_textsl:n { ##2 } } \cs_if_exist:NT \textsi { \RenewDocumentCommand \textsi { sm } { \embrac_orig_textsi:n { ##2 } } } } % turning embrac on: \NewDocumentCommand \EmbracOn {} { \RenewDocumentCommand \emph { sm } { \IfBooleanTF { ##1 } { \embrac_emph:nn { * } { ##2 } } { \embrac_emph:nn { } { ##2 } } } \RenewDocumentCommand \textit { sm } { \IfBooleanTF { ##1 } { \embrac_textit:nn { * } { ##2 } } { \embrac_textit:nn { } { ##2 } } } \RenewDocumentCommand \textsl { sm } { \IfBooleanTF { ##1 } { \embrac_textsl:nn { * } { ##2 } } { \embrac_textsl:nn { } { ##2 } } } \cs_if_exist:NT \textsi { \RenewDocumentCommand \textsi { sm } { \IfBooleanTF { ##1 } { \embrac_textsi:nn { * } { ##2 } } { \embrac_textsi:nn { } { ##2 } } } } } % -------------------------------------------------------------------------- % ADDING AND REMOVING BRACKETS: % internal add commands: \cs_new_protected:Npn \embrac_add_op_to_emph:nnn #1#2#3 { \embrac_empty_or_no_value:nTF { #2 } { \prop_put_if_new:Nnn \l__embrac_emph_obrackets_prop { #1 } { 0pt } } { \prop_put_if_new:Nnn \l__embrac_emph_obrackets_prop { #1 } { #2 } } \embrac_empty_or_no_value:nTF { #3 } { \prop_put_if_new:Nnn \l__embrac_emph_obrackets_before_prop { #1 } { 0pt } } { \prop_put_if_new:Nnn \l__embrac_emph_obrackets_before_prop { #1 } { #3 } } } \cs_new_protected:Npn \embrac_add_cl_to_emph:nnn #1#2#3 { \embrac_empty_or_no_value:nTF { #2 } { \prop_put_if_new:Nnn \l__embrac_emph_cbrackets_prop { #1 } { 0pt } } { \prop_put_if_new:Nnn \l__embrac_emph_cbrackets_prop { #1 } { #2 } } \embrac_empty_or_no_value:nTF { #3 } { \prop_put_if_new:Nnn \l__embrac_emph_cbrackets_after_prop { #1 } { 0pt } } { \prop_put_if_new:Nnn \l__embrac_emph_cbrackets_after_prop { #1 } { #3 } } } \cs_new_protected:Npn \embrac_add_to_emph:nnnnnn #1#2#3#4#5#6 { \embrac_add_op_to_emph:nnn { #1 } { #2 } { #3 } \embrac_add_cl_to_emph:nnn { #4 } { #5 } { #6 } } % internal delete commands: \cs_new_protected:Npn \embrac_remove_op_from_emph:n #1 { \prop_remove:Nn \l__embrac_emph_obrackets_prop { #1 } \prop_remove:Nn \l__embrac_emph_obrackets_before_prop { #1 } } \cs_new_protected:Npn \embrac_remove_cl_from_emph:n #1 { \prop_remove:Nn \l__embrac_emph_cbrackets_prop { #1 } \prop_remove:Nn \l__embrac_emph_cbrackets_after_prop { #1 } } \cs_new_protected:Npn \embrac_remove_from_emph:nn #1#2 { \embrac_remove_op_from_emph:n { #1 } \embrac_remove_cl_from_emph:n { #2 } } % internal renew commands: \cs_new_protected:Npn \embrac_renew_op_emph:nnn #1#2#3 { \embrac_empty_or_no_value:nTF { #2 } { \prop_put:Nnn \l__embrac_emph_obrackets_prop { #1 } { 0pt } } { \prop_put:Nnn \l__embrac_emph_obrackets_prop { #1 } { #2 } } \embrac_empty_or_no_value:nTF { #3 } { \prop_put:Nnn \l__embrac_emph_obrackets_before_prop { #1 } { 0pt } } { \prop_put:Nnn \l__embrac_emph_obrackets_before_prop { #1 } { #3 } } } \cs_new_protected:Npn \embrac_renew_cl_emph:nnn #1#2#3 { \embrac_empty_or_no_value:nTF { #2 } { \prop_put:Nnn \l__embrac_emph_cbrackets_prop { #1 } { 0pt } } { \prop_put:Nnn \l__embrac_emph_cbrackets_prop { #1 } { #2 } } \embrac_empty_or_no_value:nTF { #3 } { \prop_put:Nnn \l__embrac_emph_cbrackets_after_prop { #1 } { 0pt } } { \prop_put:Nnn \l__embrac_emph_cbrackets_after_prop { #1 } { #3 } } } \cs_new_protected:Npn \embrac_renew_emph:nnnnnn #1#2#3#4#5#6 { \embrac_renew_op_emph:nnn { #1 } { #2 } { #3 } \embrac_renew_cl_emph:nnn { #4 } { #5 } { #6 } } % internal change commands: \cs_new_protected:Npn \embrac_change_op_emph:nnn #1#2#3 { \prop_if_in:NnT \l__embrac_emph_obrackets_prop { #1 } { \embrac_empty_or_no_value:nF { #2 } { \prop_put:Nnn \l__embrac_emph_obrackets_prop { #1 } { #2 } } \embrac_empty_or_no_value:nF { #3 } { \prop_put:Nnn \l__embrac_emph_obrackets_before_prop { #1 } { #3 } } } } \cs_new_protected:Npn \embrac_change_cl_emph:nnn #1#2#3 { \prop_if_in:NnT \l__embrac_emph_cbrackets_prop { #1 } { \embrac_empty_or_no_value:nF { #2 } { \prop_put:Nnn \l__embrac_emph_cbrackets_prop { #1 } { #2 } } \embrac_empty_or_no_value:nF { #3 } { \prop_put:Nnn \l__embrac_emph_cbrackets_after_prop { #1 } { #3 } } } } \cs_new_protected:Npn \embrac_change_emph:nnnnnn #1#2#3#4#5#6 { \embrac_change_op_emph:nnn { #1 } { #2 } { #3 } \embrac_change_cl_emph:nnn { #4 } { #5 } { #6 } } % -------------------------------------------------------------------------- % user commands: \NewDocumentCommand \AddEmph { m > { \SplitArgument { 1 } { , } } O{,} m > { \SplitArgument { 1 } { , } } O{,} } { \embrac_add_to_emph:nnnnnn { #1 } #2 { #3 } #4 \ignorespaces } \NewDocumentCommand \AddOpEmph { m > { \SplitArgument { 1 } { , } } O{,} } { \embrac_add_op_to_emph:nnn { #1 } #2 \ignorespaces } \NewDocumentCommand \AddClEmph { m > { \SplitArgument { 1 } { , } } O{,} } { \embrac_add_cl_to_emph:nnn { #1 } #2 \ignorespaces } \NewDocumentCommand \DeleteEmph { mm } { \embrac_remove_from_emph:nn { #1 } { #2 } \ignorespaces } \NewDocumentCommand \DeleteOpEmph { mm } { \embrac_remove_op_from_emph:n { #1 } \ignorespaces } \NewDocumentCommand \DeleteClEmph { mm } { \embrac_remove_cl_from_emph:n { #1 } \ignorespaces } \NewDocumentCommand \RenewEmph { m > { \SplitArgument { 1 } { , } } O{,} m > { \SplitArgument { 1 } { , } } O{,} } { \embrac_renew_emph:nnnnnn { #1 } #2 { #3 } #4 \ignorespaces } \NewDocumentCommand \RenewOpEmph { m > { \SplitArgument { 1 } { , } } O{,} } { \embrac_renew_op_emph:nnn { #1 } #2 \ignorespaces } \NewDocumentCommand \RenewClEmph { m > { \SplitArgument { 1 } { , } } O{,} } { \embrac_renew_cl_emph:nnn { #1 } #2 \ignorespaces } \NewDocumentCommand \ChangeEmph { m > { \SplitArgument { 1 } { , } } O{,} m > { \SplitArgument { 1 } { , } } O{,} } { \embrac_change_emph:nnnnnn { #1 } #2 { #3 } #4 \ignorespaces } \NewDocumentCommand \ChangeOpEmph { m > { \SplitArgument { 1 } { , } } O{,} } { \embrac_change_op_emph:nnn { #1 } #2 \ignorespaces } \NewDocumentCommand \ChangeClEmph { m > { \SplitArgument { 1 } { , } } O{,} } { \embrac_change_cl_emph:nnn { #1 } #2 \ignorespaces } % -------------------------------------------------------------------------- % add some defaults and finalize package: \AddEmph{[}{]}[.04em,-.12em] \AddEmph{(}[-.04em]{)}[,-.15em] \ProcessKeysOptions { embrac } \AtBeginDocument { \embrac_treat_bibemph: } \tex_endinput:D % -------------------------------------------------------------------------- % HISTORY 2012/06/29 - v0.1 - first public release 2012/06/29 - v0.1a - renamed \RenewEmph => \ChangeEmph and added new \RenewEmph 2012/07/24 - v0.1b - adapted to deprecated functions in l3kernel and l3packages 2012/11/04 - v0.2 - extended `biblatex' option: parens/full - changed buggy definition of \EmbracOff and \EmbracOn 2013/03/22 - v0.3 - made definitions robust where appropriate - added support for `fontspec's \textsi 2013/04/04 - v0.3a - bug fix in \EmbracOn and \EmbracOff 2013/05/13 - v0.4 - added versions of \AddEmph, \RenewEmph, \DeleteEmph and \ChangeEmph that allow setting opening or closing parts separately 2014/05/07 - v0.5 - renaming of some internal commands - leave brackets unchanged if in math mode 2014/06/24 - v0.6 - add support for \textsl 2014/07/03 - v0.6a - bugfix: remove unwanted (and unnecessary) expansion in \__embrac_emph:n 2015/09/06 - v0.6b - fix https://bitbucket.org/cgnieder/embrac/issues/5