src/addons/luatexja-fontspec-25c.sty

   1 %
   2 % luatexja-fontspec-25c.sty
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \ProvidesPackage{luatexja-fontspec-25c}[2017/01/23 fontspec support of LuaTeX-ja]
   7 \RequirePackage{l3keys2e,luatexja}
   8 \ExplSyntaxOn
   9
  10 %%%%%%%% Change Japanese font family by \rmfamily or not
  11 \cs_new:Npn \ltj_fontspec_match_cmd {
  12   \renewcommand\jttdefault{\gtdefault}
  13   \@ltj@match@familytrue
  14   \DeclareDocumentCommand \setmonojfont { O{} m } {
  15     \ltj_fontspec_set_family:Nnn \jttdefault {##1}{##2}
  16     \normalfont
  17   }
  18 }
  19 \bool_if:NT  \ltj_fontspec_match_bool \ltj_fontspec_match_cmd
  20
  21 %%%%%%%% fontspec v2.5c overwrites \rmfamily etc. in \setmainfont
  22 \DeclareDocumentCommand \setmainfont { O{} m O{} }
  23  {
  24   \fontspec_set_family:Nnn \g__fontspec_rmfamily_family {#1,#3} {#2}
  25   \tl_set_eq:NN \rmdefault \g__fontspec_rmfamily_family
  26   \use:x { \exp_not:n { \DeclareRobustCommand \rmfamily }
  27    {
  28     \exp_not:N \fontencoding { \l__fontspec_nfss_enc_tl }
  29     \exp_not:N \fontfamily { \g__fontspec_rmfamily_family }
  30     \exp_not:N\if@ltj@match@family\exp_not:N\kanjifamily\exp_not:N\mcdefault\exp_not:N\fi%%%
  31     \exp_not:N \selectfont
  32    }
  33   }
  34   \str_if_eq_x:nnT {\familydefault} {\rmdefault}
  35     { \tl_set_eq:NN \encodingdefault \l__fontspec_nfss_enc_tl }
  36   \normalfont
  37   \ignorespaces
  38  }
  39 \DeclareDocumentCommand \setsansfont { O{} m O{} }
  40  {
  41   \fontspec_set_family:Nnn \g__fontspec_sffamily_family {#1,#3} {#2}
  42   \tl_set_eq:NN \sfdefault \g__fontspec_sffamily_family
  43   \use:x { \exp_not:n { \DeclareRobustCommand \sffamily }
  44    {
  45     \exp_not:N \fontencoding { \l__fontspec_nfss_enc_tl }
  46     \exp_not:N \fontfamily { \g__fontspec_sffamily_family }
  47     \exp_not:N\if@ltj@match@family\exp_not:N\kanjifamily\exp_not:N\gtdefault\exp_not:N\fi%%%
  48     \exp_not:N \selectfont
  49    }
  50   }
  51   \str_if_eq_x:nnT {\familydefault} {\sfdefault}
  52     { \tl_set_eq:NN \encodingdefault \l__fontspec_nfss_enc_tl }
  53   \normalfont
  54   \ignorespaces
  55  }
  56 \DeclareDocumentCommand \setmonofont { O{} m O{} }
  57  {
  58   \fontspec_set_family:Nnn \g__fontspec_ttfamily_family {#1,#3} {#2}
  59   \tl_set_eq:NN \ttdefault \g__fontspec_ttfamily_family
  60   \use:x { \exp_not:n { \DeclareRobustCommand \ttfamily }
  61    {
  62     \exp_not:N \fontencoding { \l__fontspec_nfss_enc_tl }
  63     \exp_not:N \fontfamily { \g__fontspec_ttfamily_family }
  64     \exp_not:N\if@ltj@match@family\exp_not:N\kanjifamily\exp_not:N\jttdefault\exp_not:N\fi%%%
  65     \exp_not:N \selectfont
  66    }
  67   }
  68   \str_if_eq_x:nnT {\familydefault} {\ttdefault}
  69     { \tl_set_eq:NN \encodingdefault \l__fontspec_nfss_enc_tl }
  70   \normalfont
  71   \ignorespaces
  72  }
  73
  74
  75 %%%%%%%% Messages
  76 \msg_new:nnn {luatexja-fontspec} {addjfontfeatures-ignored}
  77 {
  78   \string\addjfontfeature (s)~ ignored;\\
  79   it~ cannot~ be~ used~ with~ a~ font~ that~ wasn't~ selected~ by~ luatexja-fontspec.
  80 }
  81
  82 \msg_new:nnn {luatexja-fontspec} {altfont-ignored-by-norange}
  83 {
  84   ignored~ sublist~ `#1'~ in~ AltFont~ (no~ range~ is~ specified).
  85 }
  86
  87 \msg_new:nnn {luatexja-fontspec} {altfont-ignored-by-rangeonly}
  88 {
  89   ignored~ sublist~ `#1'~ in~ AltFont~ (only~ range~ is~ specified).
  90 }
  91
  92 \cs_generate_variant:Nn \prg_new_conditional:Nnn {Nnx}
  93
  94 %%%%%%%% Internal control sequences
  95 %% Each CS is ltj_fontspec version that corresponds to original CS of fontspec.
  96 \cs_new:Nn \ltj_fontspec_define_option:nn {
  97   \__fontspec_keys_define_code:nnn {fontspec} {#1} {#2}
  98 }
  99 \cs_new:Nn \ltj_fontspec_define_preparse_external:nn {
 100   \__fontspec_keys_define_code:nnn {fontspec-preparse-external} {#1} {#2}
 101 }
 102 \cs_new:Nn \ltj_fontspec_define_altfont_option:nn {
 103   \__fontspec_keys_define_code:nnn {fontspec-ltjaltfont} {#1} {#2}
 104 }
 105
 106 %% Alternate Fonts
 107 %% Spec: AltFont = {
 108 %%   ...
 109 %%   { Range = <range>, <font features> },
 110 %%   { Range = <range>, Font = <font name>, <font features> },
 111 %%   { Range = <range>, Font = <font name> },
 112 %%   ...
 113 %% }
 114 \tl_new:N  \l_ltj_fontspec_altname_tl
 115 \tl_new:N  \l_ltj_fontspec_altrange_tl
 116 \clist_new:N  \l_ltj_fontspec_altfont_clist
 117 \clist_new:N  \l_ltj_fontspec_altfont_leftover_clist
 118 \int_new:N \g_ltj_fontspec_altnumber_int
 119
 120 \ltj_fontspec_define_altfont_option:nn {Range} {
 121   \tl_set:Nn \l_ltj_fontspec_altrange_tl {#1}
 122 }
 123 \ltj_fontspec_define_altfont_option:nn {Font} {
 124   \fontspec_complete_fontname:Nn \l_ltj_fontspec_altname_tl {#1}
 125 }
 126 \__fontspec_keys_define_code:nnn {fontspec-ltjaltfont-reparse} {AltFont} {
 127   \clist_put_right:Nn \l_ltj_fontspec_altfont_clist  { #1 }
 128 }
 129 \__fontspec_keys_define_code:nnn {fontspec-ltjaltfont-reparse} {YokoFeatures} {
 130   \clist_put_right:Nn \l_ltj_fontspec_fontfeat_yoko_clist { #1 }
 131 }
 132 \__fontspec_keys_define_code:nnn {fontspec-ltjaltfont-reparse} {TateFeatures} {
 133   \clist_put_right:Nn \l_ltj_fontspec_fontfeat_tate_clist { #1 }
 134 }
 135 \__fontspec_keys_define_code:nnn {fontspec-ltjaltfont-reparse} {TateFont} {
 136   \tl_if_empty:nF {#1} {
 137     \fontspec_complete_fontname:Nn \l_ltj_fontspec_fontname_tate_tl {#1}
 138   }
 139 }
 140 %%
 141 \clist_new:N \l_ltj_fontspec_fontfeat_yoko_clist
 142 \clist_new:N \l_ltj_fontspec_fontfeat_tate_clist
 143 \tl_new:N    \l_ltj_fontspec_fontname_tate_tl
 144
 145 \cs_new:Npn \ltj_fontspec_DeclareFontFamily #1 #2 #3 {
 146   \DeclareKanjiFamily {JY3} {#2} {#3}
 147   \DeclareKanjiFamily {JT3} {#2} {#3}
 148 }
 149
 150 \cs_set_eq:NN \__ltj_orig_fontspec_select_font_family:nn \__fontspec_select_font_family:nn
 151 \cs_new_protected:Nn \ltj_fontspec_select_font_family:nn {
 152   \group_begin:
 153   \ltj_fontspec_define_option:nn {NoEmbed} {}
 154   \ltj_fontspec_define_option:nn {AltFont} {
 155     \clist_put_right:Nn \l_ltj_fontspec_altfont_clist { ##1 }
 156   }
 157   \ltj_fontspec_define_option:nn {CID} {
 158     \__fontspec_update_featstr:n {cid=##1}
 159   }
 160   \ltj_fontspec_define_option:nn {Kanjiskip} {
 161     \str_if_eq_x:nnTF {false} { \str_lower_case:n { ##1 } }{
 162       \__fontspec_update_featstr:n {-ltjksp}
 163     } {
 164       \__fontspec_update_featstr:n {+ltjksp}
 165     }
 166   }
 167   \ltj_fontspec_define_option:nn {JFM} {
 168     \__fontspec_update_featstr:n {jfm=##1}
 169   }
 170   % vary by shape
 171   \ltj_fontspec_define_option:nn {YokoFeatures} {
 172     \clist_put_right:Nn \l_ltj_fontspec_fontfeat_yoko_clist { ##1 }
 173   }
 174   \ltj_fontspec_define_option:nn {TateFeatures} {
 175     \clist_put_right:Nn \l_ltj_fontspec_fontfeat_tate_clist { ##1 }
 176   }
 177   \ltj_fontspec_define_option:nn {TateFont}
 178   {
 179     \tl_if_empty:nF {##1} {
 180       \fontspec_complete_fontname:Nn \l_ltj_fontspec_fontname_tate_tl {##1}
 181     }
 182   }
 183   \ltj_fontspec_define_option:nn {JFM-var} {
 184     \__fontspec_update_featstr:n {jfmvar=##1}
 185   }
 186   \ltj_fontspec_define_preparse_external:nn {NoEmbed} {
 187     \cs_set:Npn \__fontspec_fontname_wrap:n ##1 {psft:##1}
 188   }
 189
 190   %% Omit the warning message
 191   %% "OpenType feature 'Kerning=Off' (-kern) not available ..."
 192   \keys_define:nn {fontspec-opentype} {
 193     Kerning/Off.code:n=\__fontspec_update_featstr:n {-kern}
 194   }
 195   \clist_set:Nx \g__fontspec_default_fontopts_clist {
 196     YokoFeatures = { JFM=ujis }, TateFeatures = { JFM=ujisv },
 197     Scale=\fp_use:N \g_ltj_fontspec_scale_fp, Kerning=Off,
 198     \g__ltj_fontspec_default_fontopts_clist
 199   }
 200   \prop_set_eq:NN \g__fontspec_fontopts_prop \g__ltj_fontspec_fontopts_prop
 201   \cs_set_eq:NN \__fontspec_make_font_shapes:Nnnnn \ltj_fontspec_make_font_shapes:Nnnnn
 202   \cs_set_eq:NN \DeclareFontFamily \ltj_fontspec_DeclareFontFamily
 203   \tl_set:Nn \g_fontspec_encoding_tl {JY3}
 204   \__ltj_orig_fontspec_select_font_family:nn{#1}{#2}
 205   \group_end:
 206 }
 207
 208 %% declare_shape
 209
 210 \cs_new:Nn \ltj_fontspec_declare_shape_yoko:nnnn {
 211   \ltj_fontspec_declare_shape_aux:nnnnnn {#1} {#2} {#3} {#4} { JY3 } { \l_ltj_fontspec_fontfeat_yoko_clist }
 212 }
 213 \cs_new:Nn \ltj_fontspec_declare_shape_tate:nnnn {
 214   \ltj_fontspec_declare_shape_aux:nnnnnn {#1} {#2} {#3} {#4} { JT3 } { \l_ltj_fontspec_fontfeat_tate_clist }
 215 }
 216 \cs_new:Nn \ltj_fontspec_declare_shape:nnnn {
 217   \ltj_fontspec_declare_shape_yoko:nnnn {#1} {#2} {#3} {#4}
 218   \ltj_fontspec_declare_shape_tate:nnnn {#1} {#2} {#3} {#4}
 219 }
 220 \cs_generate_variant:Nn \ltj_fontspec_declare_shape:nnnn {nnxx}
 221 \cs_generate_variant:Nn \ltj_fontspec_declare_shape_yoko:nnnn {nnxx}
 222 \cs_generate_variant:Nn \ltj_fontspec_declare_shape_tate:nnnn {nnxx}
 223
 224 \cs_new:Nn \ltj_fontspec_declare_shape_aux:nnnnnn
 225  {
 226   \tl_clear:N \l__fontspec_nfss_tl
 227   \tl_clear:N \l__fontspec_nfss_sc_tl
 228   \tl_set_eq:NN \l__fontspec_saved_fontname_tl \l_fontspec_fontname_tl
 229
 230   \tl_set:Nn \g_fontspec_encoding_tl {#5}
 231   \tl_set:Nn \l__fontspec_nfss_enc_tl {#5}
 232   \exp_args:Nx \clist_map_inline:nn {#4}
 233    {
 234     \tl_clear:N \l__fontspec_size_tl
 235     \tl_set_eq:NN \l__fontspec_sizedfont_tl \l__fontspec_saved_fontname_tl % in case not spec'ed
 236
 237     \keys_set_known:nxN {fontspec-sizing} { \exp_after:wN \use:n ##1 }
 238       \l__fontspec_sizing_leftover_clist
 239     \tl_if_empty:NT \l__fontspec_size_tl { \__fontspec_error:n {no-size-info} }
 240
 241     \str_if_eq:nnTF { #5 } { JY3 } {
 242       % "normal"
 243       \__fontspec_load_fontname:n {\l__fontspec_sizedfont_tl}
 244     } {
 245       \tl_if_empty:NTF \l_ltj_fontspec_fontname_tate_tl
 246         { \__fontspec_load_fontname:n {\l__fontspec_sizedfont_tl} }
 247         { \__fontspec_load_fontname:n {\l_ltj_fontspec_fontname_tate_tl} }
 248     }
 249     \__fontspec_setup_nfss:Nnnn \l__fontspec_nfss_tl {#3} {#6} {}
 250    }
 251   \bool_set_true:N \l__fontspec_nosc_bool
 252   \__fontspec_declare_shapes_normal:nn  {#1} {#2}
 253   \__fontspec_declare_shape_slanted:nn  {#1} {#2}
 254  }
 255
 256 \cs_new:Nn \ltj_fontspec_set_family:Nnn {
 257   \cs_set_eq:NN \__fontspec_select_font_family:nn \ltj_fontspec_select_font_family:nn
 258   \__ltj_orig_fontspec_set_family:Nnn #1 {#2} {#3}
 259   \cs_set_eq:NN \__fontspec_select_font_family:nn \__ltj_orig_fontspec_select_font_family:nn
 260 }
 261 \cs_set_eq:NN \__ltj_orig_fontspec_set_family:Nnn \fontspec_set_family:Nnn
 262 \cs_set_eq:NN \__ltj_orig_fontspec_make_font_shapes:Nnnnn \__fontspec_make_font_shapes:Nnnnn
 263 \cs_set_eq:NN \__ltj_fontspec_orig_DeclareFontShape \DeclareFontShape
 264
 265 \cs_new:Nn \ltj_fontspec_make_font_shapes:Nnnnn {
 266   \group_begin:
 267     %% 基底フォント
 268     \cs_set_eq:NN \__fontspec_font_set:Nnn \use_none:nnn
 269     \cs_set_eq:NN \__fontspec_font_if_null:NT \use_none:nn
 270     \cs_set_eq:NN \__fontspec_declare_shape:nnxx \ltj_fontspec_declare_shape:nnxx
 271     \__ltj_orig_fontspec_make_font_shapes:Nnnnn {#1} {#2} {#3} {#4} {#5}
 272     %%
 273     \ltj_fontspec_make_font_shapes_alt:Nnnnnn {#1}{#2}{#3}
 274      {#4, \l_ltj_fontspec_fontfeat_yoko_clist}{#5} {JY3 }
 275     \ltj_fontspec_make_font_shapes_alt:Nnnnnn {#1}{#2}{#3}
 276      {#4, \l_ltj_fontspec_fontfeat_tate_clist}{#5} {JT3}
 277   \group_end:
 278  }
 279
 280 %%% Altfont 内部処理部
 281 \cs_new:Nn \ltj_fontspec_make_font_shapes_alt:Nnnnnn {
 282   \group_begin:
 283     \str_if_eq:nnTF { #6 } { JY3 } {
 284       \cs_set_eq:NN \__fontspec_declare_shape:nnxx \ltj_fontspec_declare_shape_yoko:nnxx
 285     }{
 286       \cs_set_eq:NN \__fontspec_declare_shape:nnxx \ltj_fontspec_declare_shape_tate:nnxx
 287     }
 288     \keys_set_known:nn {fontspec-ltjaltfont-reparse} { #4 }
 289     \clist_if_empty:NF \l_ltj_fontspec_altfont_clist {
 290       \int_gzero:N \g_ltj_fontspec_altnumber_int
 291       \clist_map_inline:Nn \l_ltj_fontspec_altfont_clist {
 292         \tl_clear:N  \l_ltj_fontspec_altrange_tl
 293         \tl_set:Nn \l_ltj_fontspec_altname_tl { #1 }
 294         \tl_set:Nn \l_tmpa_tl { #1 }
 295
 296         \keys_set_known:nxN {fontspec-ltjaltfont} { \exp_after:wN \use:n ##1 }
 297           \l_ltj_fontspec_altfont_leftover_clist
 298         \keys_set_known:nn {fontspec-ltjaltfont-reparse} { \exp_after:wN \use:n ##1 }
 299
 300         \tl_if_empty:NT \l_ltj_fontspec_altrange_tl {
 301           \msg_warning:nnn  {luatexja-fontspec} {altfont-ignored-by-norange} { ##1 }
 302         } {
 303           \bool_if:nTF {
 304             \tl_if_eq_p:NN \l_ltj_fontspec_altname_tl \l_tmpa_tl
 305             &&
 306             \tl_if_empty_p:N \l_ltj_fontspec_altfont_leftover_clist
 307           } {
 308             \msg_warning:nnn  {luatexja-fontspec} {altfont-ignored-by-rangeonly} { ##1 }
 309           } {
 310             \__ltj_orig_fontspec_make_font_shapes:Nnnnn
 311                 { \l_ltj_fontspec_altname_tl } {#2}
 312                 {#3 _ alt \int_use:N \g_ltj_fontspec_altnumber_int }
 313                 {#4, \l_ltj_fontspec_altfont_leftover_clist }
 314                 {#5}
 315             \DeclareAlternateKanjiFont
 316               { #6 }{ \l_fontspec_family_tl }{#2}{#3}%
 317               { #6 }{ \l_fontspec_family_tl }{#2}
 318               { #3 _alt \int_use:N \g_ltj_fontspec_altnumber_int }
 319               { \l_ltj_fontspec_altrange_tl }
 320             \int_gincr:N \g_ltj_fontspec_altnumber_int
 321           }
 322         }
 323       }
 324     }
 325   \group_end:
 326 }
 327
 328
 329 %%%%%%%% User commands
 330 \DeclareDocumentCommand \jfontspec { O{} m O{} } {
 331   \ltj_fontspec_set_family:Nnn \k@family {#1,#3}{#2}
 332   \selectfont
 333   \ignorespaces
 334 }
 335
 336 \DeclareDocumentCommand \setmainjfont { O{} m O{} } {
 337   \ltj_fontspec_set_family:Nnn \mcdefault {#1,#3}{#2}
 338   \DeclareSymbolFont{mincho}{JY3}{\l_fontspec_family_tl}{m}{n}
 339   \SetSymbolFont{mincho}{bold}{JY3}{\l_fontspec_family_tl}{bx}{n}
 340   \normalfont
 341 }
 342
 343 \DeclareDocumentCommand \setsansjfont { O{} m O{} } {
 344   \ltj_fontspec_set_family:Nnn \gtdefault {#1,#3}{#2}
 345   \DeclareMathAlphabet{\mathgt}{JY3}{\l_fontspec_family_tl}{m}{n}
 346   \normalfont
 347 }
 348
 349 \DeclareDocumentCommand \newjfontfamily { m O{} m O{} } {
 350   \cs_set_eq:NN \fontspec_set_family:Nnn \ltj_fontspec_set_family:Nnn
 351   \newfontfamily #1 [#2,#4] {#3}
 352   \cs_set_eq:NN \fontspec_set_family:Nnn \__ltj_orig_fontspec_set_family:Nnn
 353 }
 354
 355 \DeclareDocumentCommand \newjfontface { m O{} m O{} } {
 356   \newjfontfamily #1 [ BoldFont={},ItalicFont={},SmallCapsFont={},#2,#4 ] {#3}
 357 }
 358
 359 \clist_new:N \g__ltj_fontspec_default_fontopts_clist
 360 \prop_new:N \g__ltj_fontspec_fontopts_prop
 361 \DeclareDocumentCommand \defaultjfontfeatures { t+ o m }
 362  {
 363   \IfNoValueTF {#2}
 364    { \__ltj_fontspec_set_default_features:nn {#1} {#3} }
 365    { \__ltj_fontspec_set_font_default_features:nnn {#1} {#2} {#3} }
 366   \ignorespaces
 367  }
 368 \cs_new:Nn \__ltj_fontspec_set_default_features:nn
 369  {
 370    \clist_set_eq:NN \l__ltj_fontspec_tmp_clist \g__fontspec_default_fontopts_clist
 371    \clist_set_eq:NN \g__fontspec_default_fontopts_clist \g__ltj_fontspec_default_fontopts_clist
 372    \__fontspec_set_default_features:nn {#1} {#2}
 373    \clist_set_eq:NN \g__ltj_fontspec_default_fontopts_clist \g__fontspec_default_fontopts_clist
 374    \clist_set_eq:NN \g__fontspec_default_fontopts_clist \l__ltj_fontspec_tmp_clist
 375  }
 376 \cs_new:Nn \__ltj_fontspec_set_font_default_features:nnn
 377  {
 378    \prop_set_eq:NN \l__ltj_fontspec_tmp_prop \g__fontspec_fontopts_prop
 379    \prop_set_eq:NN \g__fontspec_fontopts_prop \g__ltj_fontspec_fontopts_prop
 380    \__fontspec_set_font_default_features:nnn {#1} {#2} {#3}
 381    \prop_set_eq:NN \g__ltj_fontspec_fontopts_prop \g__fontspec_fontopts_prop
 382    \prop_set_eq:NN \g__fontspec_fontopts_prop \l__ltj_fontspec_tmp_prop
 383  }
 384
 385 \DeclareDocumentCommand \addjfontfeatures {m} {
 386   \ltj_fontspec_if_fontspec_font:TF
 387    {
 388     \group_begin:
 389       \tl_set_eq:NN \f@family \k@family
 390       \cs_set_eq:NN \__fontspec_select_font_family:nn \ltj_fontspec_select_font_family:nn
 391       \addfontfeatures {#1}
 392     \group_end:
 393     \fontfamily\l_fontspec_family_tl\selectfont
 394    }{
 395     \msg_warning:nn  {luatexja-fontspec} {addjfontfeatures-ignored}
 396    }
 397   \ignorespaces
 398 }
 399
 400 \cs_set_eq:NN \addjfontfeature \addjfontfeatures
 401
 402 \prg_new_conditional:Nnn \ltj_fontspec_if_fontspec_font: {TF,T,F}
 403 {
 404   \cs_if_exist:cTF {g__fontspec_ \k@family _prop} \prg_return_true: \prg_return_false:
 405 }
 406
 407 \endinput