src/patches/lltjp-siunitx.sty

   1 %
   2 % lltjp-siunitx.sty 2018-11-02
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6
   7 \RequirePackage{luatexja}
   8 \makeatletter
   9 \ExplSyntaxOn
  10 \cs_generate_variant:Nn \tl_if_in:NnT { coT }
  11 \cs_new:Nn \__ltj_siunix_patch_inner:n {
  12   \cs_if_exist:cT { #1_tl } {
  13     \tl_if_in:coT { #1_tl } { \tex_char:D } {
  14           \tl_replace_all:cnn { #1_tl } { \tex_char:D } { \ltjalchar }
  15         }
  16   }
  17 }
  18 \cs_new:Nn \__ltj_siunix_patch_inner_math:n {
  19    \__ltj_siunix_patch_inner:n { l__siunitx_#1_math }
  20    \__ltj_siunix_patch_inner:n { l__siunitx_#1_text }
  21 }
  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 %%%% new table column: S and s
  32 \cs_set_protected:Npn \__siunitx_table_collect_not_braced:N #1
  33   {
  34     \token_if_eq_meaning:NNF #1 \relax {
  35     \token_if_eq_meaning:NNF #1 \ltjfakeboxbdd {
  36     \token_if_eq_meaning:NNF #1 \pltx@next@inhibitglue {
  37     \token_if_eq_meaning:NNF #1 \tex_ignorespaces:D
  38       {
  39         \token_if_eq_meaning:NNF #1 \tex_unskip:D
  40           { \__siunitx_table_collect_not_braced_aux_i:N #1 }
  41       }
  42         }}}
  43     \__siunitx_table_collect_next:
  44   }
  45
  46 \AtBeginDocument
  47   {
  48     \@ifpackageloaded { mdwtab }
  49       {
  50         \cs_set_protected:Npn \__siunitx_table_collect_not_braced:N #1
  51           {
  52             \token_if_eq_meaning:NNF #1 \relax {
  53             \token_if_eq_meaning:NNF #1 \ltjfakeboxbdd {
  54             \token_if_eq_meaning:NNF #1 \pltx@next@inhibitglue {
  55             \token_if_eq_meaning:NNF #1 \tex_ignorespaces:D
  56               {
  57                 \token_if_eq_meaning:NNF #1 \tex_unskip:D
  58                   {
  59                     \token_if_eq_meaning:NNF #1 \tab@setcr
  60                       {
  61                         \token_if_eq_meaning:NNF #1 \@maybe@unskip
  62                           { \__siunitx_table_collect_not_braced_aux_i:N #1 }
  63                       }
  64                   }
  65               }
  66             }}}
  67             \__siunitx_table_collect_next:
  68           }
  69       }
  70       { }
  71   }
  72
  73 \ExplSyntaxOff
  74 \endinput