src/patches/lltjp-siunitx.sty

   1 %
   2 % lltjp-siunitx.sty
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6
   7 \RequirePackage{luatexja}
   8 \ExplSyntaxOn
   9 \cs_generate_variant:Nn \tl_if_in:NnT { coT }
  10 \cs_new:Nn \__ltj_siunix_patch_inner:n {
  11   \cs_if_exist:cT { #1_tl } {
  12     \tl_if_in:coT { #1_tl } { \tex_char:D } {
  13           \tl_replace_all:cnn { #1_tl } { \tex_char:D } { \ltjalchar }
  14         }
  15   }
  16 }
  17 \cs_new:Nn \__ltj_siunix_patch_inner_math:n {
  18    \__ltj_siunix_patch_inner:n { l__siunitx_#1_math }
  19    \__ltj_siunix_patch_inner:n { l__siunitx_#1_text }
  20 }
  21 \cs_new:Nn \__ltj_siunitx_patch: {
  22   \AtBeginDocument {
  23     \__ltj_siunix_patch_inner:n { c__siunitx_minus }
  24     \__ltj_siunix_patch_inner:n { c__siunitx_mu }
  25     \__ltj_siunix_patch_inner_math:n { angstrom }
  26     \__ltj_siunix_patch_inner_math:n { arcminute }
  27     \__ltj_siunix_patch_inner_math:n { arcsecond }
  28     \__ltj_siunix_patch_inner_math:n { ohm }
  29   }
  30 }
  31 \ifdefined\ltj@patch@siunitx@executed\__ltj_siunitx_patch:\fi
  32
  33 \ExplSyntaxOff
  34 \endinput