src/addons/luatexja-preset.sty

   1 % luatexja-preset.sty
   2 \ProvidesPackage{luatexja-preset}[2017/07/30 Japanese font presets]
   3
   4 \RequirePackage{expl3,l3keys2e}
   5 \RequirePackage{luatexja}
   6 \ExplSyntaxOn
   7
   8 \fp_new:N \l_ltjpreset_scale_fp
   9 \group_begin:
  10 \fontsize{10}{10}\selectfont
  11 \fp_gset:Nn \l_ltjpreset_scale_fp {\zw / 10}
  12 \group_end:
  13
  14 \keys_define:nn { luatexja-preset }{
  15   unknown .code:n = \PassOptionsToPackage { \l_keys_key_tl } { luatexja-fontspec },
  16   scale .fp_gset:N = \l_ltjpreset_scale_fp,
  17   match .code: n =
  18     \renewcommand\jttdefault{\gtdefault}\@ltj@match@familytrue
  19     \PassOptionsToPackage { match } { luatexja-fontspec },
  20   match .value_forbidden:n = true
  21 }
  22 \cs_new:Nn \ltjpreset_declare_option:nn {
  23   \keys_define:nn { luatexja-preset }{
  24     #1 .code:n = #2,
  25     #1 .value_forbidden:n = true
  26   }
  27 }
  28 \cs_new:Nn \ltjpreset_declare_bool_option:nn {
  29   \bool_new:c { l_ltjpreset_#1_bool }
  30   \bool_set_false:c { l_ltjpreset_#1_bool }
  31   \keys_define:nn { luatexja-preset }{
  32     #1 .bool_set:c =  { l_ltjpreset_#1_bool },
  33     #2 .bool_set_inverse:c =  { l_ltjpreset_#1_bool },
  34     #1 .default:n =  true,
  35     #2 .default:n =  true,
  36   }
  37 }
  38
  39 %%%%%%%% bool options
  40 \ltjpreset_declare_bool_option:nn { nfssonly }{ fontspec }
  41 \ltjpreset_declare_bool_option:nn { bold }{ nobold }
  42 \ltjpreset_declare_bool_option:nn { expert }{ noexpert }
  43 \ltjpreset_declare_bool_option:nn { deluxe }{ nodeluxe }
  44
  45 % JFM
  46 \tl_new:N \ltjpreset_use_jfm_yoko_tl % 使用する JFM（横）
  47 \tl_set:Nn \ltjpreset_use_jfm_yoko_tl {ujis}
  48 \tl_new:N \ltjpreset_use_jfm_tate_tl % 使用する JFM（縦）
  49 \tl_set:Nn \ltjpreset_use_jfm_tate_tl {ujisv}
  50 \ltjpreset_declare_option:nn{jis}{\tl_set:Nn  \ltjpreset_use_jfm_yoko_tl {jis}}     % jis
  51 \ltjpreset_declare_option:nn{ujis}{\tl_set:Nn  \ltjpreset_use_jfm_yoko_tl {ujis}}   % ujis
  52
  53 % 漢字字形
  54 \tl_new:N \l_ltjpreset_kanji_shape_tl
  55 \ltjpreset_declare_option:nn{90jis}{  \tl_set:Nn \l_ltjpreset_kanji_shape_tl { , CJKShape=JIS1990 }} % 90jis
  56 \ltjpreset_declare_option:nn{jis2004}{\tl_set:Nn \l_ltjpreset_kanji_shape_tl { , CJKShape=JIS2004 }} % jis2004
  57
  58 % font preset
  59 \bool_new:N \l_ltjpreset_office_bool  % MS Office の HG 系フォントを使っているか
  60 \bool_new:N \l_ltjpreset_noembed_bool % 非埋込か
  61
  62 \prop_new:N \l_ltjpreset_font_prop
  63 \keys_define:nn { ltjpreset_set_font_list } {
  64   mc .code:n =
  65      \prop_put:Nnn \l_ltjpreset_font_prop { mc-l } {#1}
  66      \prop_put:Nnn \l_ltjpreset_font_prop { mc-m } {#1}
  67      \prop_put:Nnn \l_ltjpreset_font_prop { mc-bx } {#1},
  68   gt .code:n =
  69      \prop_put:Nnn \l_ltjpreset_font_prop { gt-u } {#1}
  70      \prop_put:Nnn \l_ltjpreset_font_prop { gt-m } {#1}
  71      \prop_put:Nnn \l_ltjpreset_font_prop { gt-bx } {#1}
  72      \prop_put:Nnn \l_ltjpreset_font_prop { gt-eb } {#1},
  73   unknown .code:n =
  74    \prop_put:Non \l_ltjpreset_font_prop { \l_keys_key_tl } {#1}
  75 }
  76
  77
  78
  79 \cs_new:Npn \ltjpreset_set_uni:nn #1#2 {
  80   \keys_set:nn { ltjpreset_set_font_list } {
  81     mc = #1, gt = #2, mc-bx = #2, mg-m = #2,
  82   }
  83 }
  84 \cs_new:Npn \ltjpreset_set_multi:n #1 {
  85   \keys_set:nn { ltjpreset_set_font_list } { #1 }
  86   \bool_set_false:N \l_ltjpreset_office_bool
  87   \bool_set_false:N \l_ltjpreset_noembed_bool
  88 }
  89 \cs_new:Npn \ltjpreset_set_office:nn #1 #2{
  90   \ltjpreset_set_multi:n {
  91     mc-m = #1,         mc-bx = HGMinchoE ,
  92     gt-m = HGGothicM , gt-bx = HGGothicE ,
  93     gt-u = #2 ,        gt-eb = HGSoeiKakugothicUB ,
  94     mg-m = HGMaruGothicMPRO
  95   }
  96   \bool_set_true:N \l_ltjpreset_office_bool
  97 }
  98
  99
 100 %%%%%%%% プリセット達
 101
 102 % カスタム指定
 103  \keys_define:nn { luatexja-preset }{
 104     custom .code:n = \ltjpreset_set_multi:n { #1 },
 105     custom .value_required:n = true,
 106     jfm_yoko .tl_set:N = \ltjpreset_use_jfm_yoko_tl,
 107     jfm_tate .tl_set:N = \ltjpreset_use_jfm_tate_tl,
 108 }
 109
 110 % 小塚 (Adobe)
 111 %% Pro
 112 \ltjpreset_declare_option:nn{kozuka-pro}{
 113   \ltjpreset_set_multi:n {
 114     mc-m =  KozMinPro-Regular, mc-bx = KozMinPro-Bold,
 115     gt-m =  KozGoPro-Regular,  gt-bx = KozGoPro-Bold,
 116     gt-u =  KozGoPro-Medium,   gt-eb = KozGoPro-Heavy,
 117     mg-m =  KozGoPro-Heavy,    mc-l =  KozMinPro-Light,
 118   }
 119 }
 120 %% Pr6
 121 \ltjpreset_declare_option:nn{kozuka-pr6}{
 122   \ltjpreset_set_multi:n {
 123     mc-m =  KozMinProVI-Regular, mc-bx = KozMinProVI-Bold,
 124     gt-m =  KozGoProVI-Regular,  gt-bx = KozGoProVI-Bold,
 125     gt-u =  KozGoProVI-Medium,   gt-eb = KozGoProVI-Heavy,
 126     mg-m =  KozGoProVI-Heavy,    mc-l =  KozMinProVI-Light,
 127   }
 128 }
 129 %% Pr6N
 130 \ltjpreset_declare_option:nn{kozuka-pr6n}{
 131   \ltjpreset_set_multi:n {
 132     mc-m =  KozMinPr6N-Regular, mc-bx = KozMinPr6N-Bold,
 133     gt-m =  KozGoPr6N-Regular,  gt-bx = KozGoPr6N-Bold,
 134     gt-u =  KozGoPr6N-Medium,   gt-eb = KozGoPr6N-Heavy,
 135     mg-m =  KozGoPr6N-Heavy,    mc-l =  KozMinPr6N-Light,
 136   }
 137 }
 138
 139 % ヒラギノ (OSX)
 140 \ltjpreset_declare_option:nn{hiragino-pro}{
 141   \ltjpreset_set_multi:n {
 142     mc-m = HiraMinPro-W3,  mc-bx = HiraMinPro-W6,
 143     gt-m = HiraKakuPro-W3, gt-bx = HiraKakuPro-W6,
 144     gt-u = HiraKakuPro-W6, gt-eb = HiraKakuStd-W8,
 145     mg-m = HiraMaruPro-W4, mc-l =  HiraMinPro-W2,
 146   }
 147 }
 148 \ltjpreset_declare_option:nn{hiragino-pron}{
 149   \ltjpreset_set_multi:n {
 150     mc-m = HiraMinProN-W3,  mc-bx = HiraMinProN-W6,
 151     gt-m = HiraKakuProN-W3, gt-bx = HiraKakuProN-W6,
 152     gt-u = HiraKakuProN-W6, gt-eb = HiraKakuStdN-W8,
 153     mg-m = HiraMaruProN-W4, mc-l =  HiraMinProN-W2,
 154   }
 155 }
 156
 157 % モリサワ
 158 \ltjpreset_declare_option:nn{morisawa-pro}{
 159   \ltjpreset_set_multi:n {
 160     mc =   A-OTF-RyuminPro-Light.otf,      mc-bx = A-OTF-FutoMinA101Pro-Bold.otf,
 161     gt-m = A-OTF-GothicBBBPro-Medium.otf , gt-bx = A-OTF-FutoGoB101Pro-Bold.otf,
 162     gt-u = A-OTF-GothicBBBPro-Medium.otf , gt-eb = A-OTF-MidashiGoPro-MB31.otf,
 163     mg-m = A-OTF-Jun101Pro-Light.otf,
 164   }
 165 }
 166 \ltjpreset_declare_option:nn{morisawa-pr6n}{
 167   \ltjpreset_set_multi:n {
 168     mc =   A-OTF-RyuminPr6N-Light.otf,      mc-bx = A-OTF-FutoMinA101Pr6N-Bold.otf,
 169     gt-m = A-OTF-GothicBBBPr6N-Medium.otf , gt-bx = A-OTF-FutoGoB101Pr6N-Bold.otf,
 170     gt-u = A-OTF-GothicBBBPr6N-Medium.otf , gt-eb = A-OTF-MidashiGoPr6N-MB31.otf,
 171     mg-m = A-OTF-Jun101Pr6N-Light.otf,
 172   }
 173 }
 174
 175 % 游明朝/游ゴシック (Win8.1)
 176 \ltjpreset_declare_option:nn{yu-win}{
 177   \ltjpreset_set_multi:n {
 178     mc-m = YuMincho-Regular, mc-bx = YuMincho-Demibold,
 179     gt-m = YuGothic-Regular, gt-bx = YuGothic-Bold,
 180     gt-u = YuGothic-Regular, gt-eb = YuGothic-Bold,
 181     mg-m = YuGothic-Bold,    mc-l =  YuMincho-Light
 182   }
 183 }
 184 % Win10
 185 \ltjpreset_declare_option:nn{yu-win10}{
 186   \ltjpreset_set_multi:n {
 187     mc-m = YuMincho-Regular, mc-bx = YuMincho-Demibold,
 188     gt-m = YuGothic-Regular, gt-bx = YuGothic-Bold,
 189     gt-u = YuGothic-Medium,  gt-eb = YuGothic-Bold,
 190     mg-m = YuGothic-Bold,    mc-l =  YuMincho-Light
 191   }
 192 }
 193
 194 % Yu fonts in OSX
 195 % according to http://support.apple.com/kb/HT5944
 196 \ltjpreset_declare_option:nn{yu-osx}{
 197   \ltjpreset_set_multi:n {
 198     mc =  YuMincho~Medium, mc-bx = YuMincho~Demibold,
 199     gt-m =  YuGothic~Medium, gt-u =  YuGothic~Medium,
 200     gt-bx = YuGothic~Bold,   gt-eb = YuGothic~Bold,
 201     mg-m =  YuGothic~Bold
 202   }
 203 }
 204
 205 % moga-mobo
 206 \ltjpreset_declare_option:nn{moga-mobo}{
 207   \ltjpreset_set_multi:n {
 208     mc =   Moga90Mincho, mc-bx = Moga90Mincho~Bold,
 209     gt-m = Moga90Gothic, gt-bx = Moga90Gothic~Bold,
 210     gt-u = Moga90Gothic, gt-eb = Moga90Gothic~Bold,
 211     mg-m = Mobo90Gothic
 212   }
 213 }
 214 \ltjpreset_declare_option:nn{moga-mobo-ex}{
 215   \ltjpreset_set_multi:n {
 216     mc =   MogaEx90Mincho, mc-bx = MogaEx90Mincho~Bold,
 217     gt-m = MogaEx90Gothic, gt-bx = MogaEx90Gothic~Bold,
 218     gt-u = MogaEx90Gothic, gt-eb = MogaEx90Gothic~Bold,
 219     mg-m = MoboEx90Gothic
 220   }
 221 }
 222
 223 % Ume fones
 224 \ltjpreset_declare_option:nn{ume}{
 225   \ltjpreset_set_multi:n {
 226     mc = Ume~Mincho,
 227     gt-m = Ume~Gothic,    gt-bx = Ume~Gothic~O5,
 228     gt-u = Ume~Gothic~O5, gt-eb = Ume~Gothic~O5,
 229     mg-m = Ume~Gothic~O4
 230   }
 231 }
 232
 233 % Source Han {Serif,Sans}
 234 \ltjpreset_declare_option:nn{sourcehan}{
 235   \ltjpreset_set_multi:n {
 236     mc-m =  Source~Han~Serif~Regular,
 237     mc-bx = Source~Han~Serif~Bold,
 238     gt-m =  Source~Han~Sans~Regular,
 239     gt-bx = Source~Han~Sans~Bold,
 240     gt-u =  Source~Han~Sans~Medium,
 241     gt-eb = Source~Han~Sans~Heavy,
 242     mg-m =  Source~Han~Sans~Heavy,
 243     mc-l =  Source~Han~Serif~Light,
 244   }
 245 }
 246 \ltjpreset_declare_option:nn{sourcehan-jp}{
 247   \ltjpreset_set_multi:n {
 248     mc-m =  Source~Han~Serif~JP~Regular,
 249     mc-bx = Source~Han~Serif~JP~Bold,
 250     gt-m =  Source~Han~Sans~JP~Regular,
 251     gt-bx = Source~Han~Sans~JP~Bold,
 252     gt-u =  Source~Han~Sans~JP~Medium,
 253     gt-eb = Source~Han~Sans~JP~Heavy,
 254     mg-m =  Source~Han~Sans~JP~Heavy,
 255     mc-l =  Source~Han~Serif~JP~Light,
 256   }
 257 }
 258 \ltjpreset_declare_option:nn{noto-otc}{
 259   \ltjpreset_set_multi:n {
 260     mc-m =  Noto~Serif~CJK~Regular,
 261     mc-bx = Noto~Serif~CJK~Bold,
 262     gt-m =  Noto~Sans~CJK~Regular,
 263     gt-bx = Noto~Sans~CJK~Bold,
 264     gt-u =  Noto~Sans~CJK~Medium,
 265     gt-eb = Noto~Sans~CJK~Black,
 266     mg-m =  Noto~Sans~CJK~Black,
 267     mc-l =  Noto~Serif~CJK~Light,
 268   }
 269 }
 270 \ltjpreset_declare_option:nn{noto-otf}{
 271   \ltjpreset_set_multi:n {
 272     mc-m =  Noto~Serif~CJK~JP~Regular,
 273     mc-bx = Noto~Serif~CJK~JP~Bold,
 274     gt-m =  Noto~Sans~CJK~JP~Regular,
 275     gt-bx = Noto~Sans~CJK~JP~Bold,
 276     gt-u =  Noto~Sans~CJK~JP~Medium,
 277     gt-eb = Noto~Sans~CJK~JP~Black,
 278     mg-m =  Noto~Sans~CJK~JP~Black,
 279     mc-l =  Noto~Serif~CJK~JP~Light,
 280   }
 281 }
 282
 283
 284 % ipa, ipaex, ms
 285 \ltjpreset_declare_option:nn{ipa}{
 286   \ltjpreset_set_uni:nn { IPAMincho } { IPAGothic }
 287 }
 288 \ltjpreset_declare_option:nn{ipaex}{
 289   \ltjpreset_set_uni:nn { IPAExMincho } { IPAExGothic }
 290 }
 291 \ltjpreset_declare_option:nn{ms}{
 292   \ltjpreset_set_uni:nn { MS-Mincho } { MS-Gothic }
 293 }
 294
 295 % {ipa,ipaex,ms}-dx % Office 付属フォントを利用
 296 \ltjpreset_declare_option:nn{ipaex-hg}{
 297   \ltjpreset_set_office:nn { IPAExMincho } { IPAExGothic }
 298 }
 299 \ltjpreset_declare_option:nn{ipa-hg}{
 300   \ltjpreset_set_office:nn { IPAMincho } { IPAGothic }
 301 }
 302 \ltjpreset_declare_option:nn{ms-hg}{
 303   \ltjpreset_set_office:nn { MS-Mincho } { MS-Gothic }
 304 }
 305
 306
 307 % 非埋込
 308 \ltjpreset_declare_option:nn{noembed}{
 309   \ltjpreset_set_uni:nn { Ryumin-Light } { GothicBBB-Medium }
 310   \bool_set_true:N \l_ltjpreset_noembed_bool
 311 }
 312
 313 \keys_set:nn { luatexja-preset }{ ipaex }
 314 \ProcessKeysOptions { luatexja-preset }
 315
 316 %%%%%%%% main routine
 317
 318 \msg_new:nnn { luatexja-preset }{ ltj-fontspec }{
 319   The~ luatexja-fontspec~ package~ is~ loaded~ already.~
 320   Hence~ we~ ignore~ `nfssonly'~option.
 321 }
 322 \@ifpackageloaded{luatexja-fontspec}{
 323   \bool_if:NT \l_ltjpreset_nfssonly_bool
 324     { \msg_warning:nn { luatexja-preset }{ ltj-fontspec } }
 325   \bool_set_false:N \l_ltjpreset_nfssonly_bool
 326 }{}
 327
 328 \bool_new:N \l_ltjpreset_shape_nlck_bool
 329 %% KozMinPr6N, HiraMinProN-W3 の場合はjp04 feature がないので，nlck にする
 330 \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS2004 }
 331 \tl_if_eq:NNTF \l_ltjpreset_kanji_shape_tl \l_tmpa_tl {
 332   \tl_set:Nx \l_tmpb_tl { \prop_item:Nn \l_ltjpreset_font_prop { mc-m } }
 333   \tl_if_in:NnT  \l_tmpb_tl { KozMinPr6N-Regular }
 334    { \bool_set_true:N \l_ltjpreset_shape_nlck_bool }
 335   \tl_if_in:NnT  \l_tmpb_tl { HiraMinProN-W3 }
 336    { \bool_set_true:N \l_ltjpreset_shape_nlck_bool }
 337   \tl_if_in:NnT  \l_tmpb_tl { Moga90Mincho }
 338    {
 339      \prop_clear:N \l_tmpa_prop
 340      \prop_map_inline:Nn \l_ltjpreset_font_prop {
 341        \tl_set:Nn \l_tmpb_tl { #2 }
 342        \tl_remove_all:Nn \l_tmpb_tl {90}
 343        \prop_put:Nnx \l_tmpa_prop { #1 } { \tl_use:N \l_tmpb_tl }
 344      }
 345      \prop_set_eq:NN \l_ltjpreset_font_prop \l_tmpa_prop
 346      \tl_clear:N \l_ltjpreset_kanji_shape_tl
 347    }
 348   \tl_if_in:NnT  \l_tmpb_tl { MogaEx90Mincho }
 349    {
 350      \prop_clear:N \l_tmpa_prop
 351      \prop_map_inline:Nn \l_ltjpreset_font_prop {
 352        \tl_set:Nn \l_tmpb_tl { #2 }
 353        \tl_remove_all:Nn \l_tmpb_tl {90}
 354        \prop_put:Nnx \l_tmpa_prop { #1 } { \tl_use:N \l_tmpb_tl }
 355      }
 356      \prop_set_eq:NN \l_ltjpreset_font_prop \l_tmpa_prop
 357      \tl_clear:N \l_ltjpreset_kanji_shape_tl
 358    }
 359 }{
 360   \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS1990 }
 361   \tl_if_eq:NNT \l_ltjpreset_kanji_shape_tl \l_tmpa_tl {
 362     \tl_set:Nx \l_tmpb_tl { \prop_item:Nn \l_ltjpreset_font_prop { mc-m } }
 363     \tl_if_in:NnT  \l_tmpb_tl { Moga90Mincho }
 364       { \tl_clear:N \l_ltjpreset_kanji_shape_tl }
 365   }
 366 }
 367
 368 %%%%  リストからの展開
 369 % mc/m
 370 \cs_set:Nx \ltjpreset_font_mc_l:  { \prop_item:Nn \l_ltjpreset_font_prop { mc-l } }
 371 \cs_set:Nx \ltjpreset_font_mc_m:  { \prop_item:Nn \l_ltjpreset_font_prop { mc-m } }
 372 \cs_set:Nx \ltjpreset_font_mc_bx: { \prop_item:Nn \l_ltjpreset_font_prop { mc-bx } }
 373 \cs_set:Nx \ltjpreset_font_gt_m:  { \prop_item:Nn \l_ltjpreset_font_prop { gt-m } }
 374 \cs_set:Nx \ltjpreset_font_gt_u:  { \prop_item:Nn \l_ltjpreset_font_prop { gt-u } }
 375 \cs_set:Nx \ltjpreset_font_gt_bx: { \prop_item:Nn \l_ltjpreset_font_prop { gt-bx } }
 376 \cs_set:Nx \ltjpreset_font_gt_eb: { \prop_item:Nn \l_ltjpreset_font_prop { gt-eb } }
 377 \cs_set:Nx \ltjpreset_font_mg_m:  { \prop_item:Nn \l_ltjpreset_font_prop { mg-m } }
 378
 379 %\prop_show:N \l_ltjpreset_font_prop
 380
 381 %% HG 系フォント + JIS2004/90JIS のときはフォント名を置換
 382 \bool_if:NT \l_ltjpreset_office_bool {
 383   \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS2004 }
 384   \tl_if_eq:NNT \l_ltjpreset_kanji_shape_tl \l_tmpa_tl {
 385     \cs_set:Nx \ltjpreset_font_mc_bx: { hgrme04.ttc }
 386     \cs_set:Nx \ltjpreset_font_gt_bx: { hgrge04.ttc }
 387     \cs_set:Nx \ltjpreset_font_gt_eb: { hgrsgu04.ttc }
 388     \cs_set:Nx \ltjpreset_font_mg_m:    { hgrsmp04.ttf }
 389     \cs_set_eq:NN \ltjpreset_font_gt_m: \ltjpreset_font_gt_u:
 390     % HG ゴシックM のときはそうはいかないので 1 ウェイト時のゴシック体を使う
 391   }
 392   \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS1990 }
 393   \tl_if_eq:NNT \l_ltjpreset_kanji_shape_tl \l_tmpa_tl {
 394     \cs_set:Nx \ltjpreset_font_mc_bx: { hgrme.ttc }
 395     \cs_set:Nx \ltjpreset_font_gt_bx: { hgrge.ttc }
 396     \cs_set:Nx \ltjpreset_font_gt_eb: { hgrsgu.ttc }
 397     \cs_set:Nx \ltjpreset_font_mg_m:  { hgrsmp.ttf }
 398   }
 399 }
 400
 401 % mc/l
 402 \tl_set:Nx \l_tmpa_tl { \ltjpreset_font_mc_l: }
 403 \tl_if_empty:NT \l_tmpa_tl {\tl_set:Nn \l_tmpa_tl {~}}
 404 \cs_set:Nx \ltjpreset_font_mc_l: {
 405    \tl_if_blank:nTF \l_tmpa_tl { \ltjpreset_font_mc_m: } {\tl_use:N \l_tmpa_tl }
 406 }
 407
 408 %% 90JIS/JIS2004 字形指定のオプション
 409 \bool_if:NTF \l_ltjpreset_nfssonly_bool {
 410   \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS1990 }
 411   \tl_if_eq:NNT \l_ltjpreset_kanji_shape_tl \l_tmpa_tl {
 412     \tl_set:Nn \l_ltjpreset_kanji_shape_tl { +jp90 }
 413   }
 414   \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS2004 }
 415   \tl_if_eq:NNT \l_ltjpreset_kanji_shape_tl \l_tmpa_tl {
 416     \bool_if:NTF \l_ltjpreset_shape_nlck_bool
 417       { \tl_set:Nn \l_ltjpreset_kanji_shape_tl { +nlck } }
 418       { \tl_set:Nn \l_ltjpreset_kanji_shape_tl { +jp04 } }
 419   }
 420 } {
 421   \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS2004 }
 422   \tl_if_eq:NNT \l_ltjpreset_kanji_shape_tl \l_tmpa_tl {
 423     \bool_if:NT \l_ltjpreset_shape_nlck_bool
 424       { \tl_set:Nn \l_ltjpreset_kanji_shape_tl { , CJKShape=NLC } }
 425   }
 426 }
 427
 428
 429 %%%%%%%% 存在判定
 430 \cs_new:Nn \ltjpreset_substitute:nnnn {
 431   \group_begin:
 432     \suppressfontnotfounderror=1
 433     \font \l_ltjpreset_font_test: = "\cs:w ltjpreset_font_#1_#2: \cs_end:"\relax
 434     \ifx \l_ltjpreset_font_test: \nullfont
 435       \msg_warning:nnxxxx { luatexja-preset }{ no-font }
 436         { \cs:w ltjpreset_font_#1_#2: \cs_end: }{ #1/#2 }
 437         { \cs:w ltjpreset_font_#3_#4: \cs_end: }{ #3/#4 }
 438       \cs_gset_eq:cc { ltjpreset_font_#1_#2: } { ltjpreset_font_#3_#4: }
 439     \fi
 440   \group_end:
 441 }
 442
 443 \msg_new:nnn { luatexja-preset }{ no-font }{
 444   Font~ for~ #1~ (#2)~ is~ not~found.~ Hence~ I~ substitute~ #3~ (#4)~ for~ it.
 445 }
 446 \bool_if:NT \l_ltjpreset_deluxe_bool {
 447   \ltjpreset_substitute:nnnn { gt } { eb } { gt } { bx }
 448   \ltjpreset_substitute:nnnn { mg } { m  } { gt } { bx }
 449   \ltjpreset_substitute:nnnn { mc } { l  } { mc } { m  }
 450 }
 451
 452 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 453 %%%%%%%% nfss only
 454 \bool_if:NTF \l_ltjpreset_nfssonly_bool {
 455 \msg_new:nnn { luatexja-preset }{ scale }{
 456   Japanese~fonts~will~be~scaled~by~\fp_use:N \l_ltjpreset_scale_fp.
 457 }
 458 \msg_warning:nn { luatexja-preset }{ scale }
 459
 460 \cs_new:Nn \ltj_preset_define_family:nnn {
 461   \DeclareFontShape{JY3}{#1}{#2}{n}{ <-> s*[\fp_use:N \l_ltjpreset_scale_fp]
 462     {\bool_if:NT \l_ltjpreset_noembed_bool {psft:} "#3"
 463     : jfm=\tl_use:N \ltjpreset_use_jfm_yoko_tl ;-kern;\tl_use:N \l_ltjpreset_kanji_shape_tl
 464     ; script=hani \bool_if:NT \l_ltjpreset_expert_bool { ;+hkna }}
 465   } {}
 466   \DeclareFontShape{JT3}{#1}{#2}{n}{ <-> s*[\fp_use:N \l_ltjpreset_scale_fp]
 467     {\bool_if:NT \l_ltjpreset_noembed_bool {psft:} "#3"
 468     : jfm=\tl_use:N \ltjpreset_use_jfm_tate_tl ;-kern;\tl_use:N \l_ltjpreset_kanji_shape_tl;
 469     ; script=hani \bool_if:NT \l_ltjpreset_expert_bool { ;+vkna }}
 470   } {}
 471   \bool_if:NT \l_ltjpreset_expert_bool {
 472     \DeclareFontShape{JY3}{#1}{#2}{rb}{ <-> s*[\fp_use:N \l_ltjpreset_scale_fp]
 473       {\bool_if:NT \l_ltjpreset_noembed_bool {psft:} "#3"
 474       : jfm=\tl_use:N \ltjpreset_use_jfm_yoko_tl ;-kern;\tl_use:N \l_ltjpreset_kanji_shape_tl ;+ruby
 475       ; script=kana}
 476     } {}
 477     \DeclareFontShape{JT3}{#1}{#2}{rb}{ <-> s*[\fp_use:N \l_ltjpreset_scale_fp]
 478       {\bool_if:NT \l_ltjpreset_noembed_bool {psft:} "#3"
 479       : jfm=\tl_use:N \ltjpreset_use_jfm_tate_tl ;-kern;\tl_use:N \l_ltjpreset_kanji_shape_tl ;+ruby
 480       ; script=kana}
 481     } {}
 482   }
 483 }
 484
 485 \DeclareKanjiFamily{JY3}{ltjpm}{}\DeclareKanjiFamily{JT3}{ltjpm}{}
 486 \DeclareKanjiFamily{JY3}{ltjpg}{}\DeclareKanjiFamily{JT3}{ltjpg}{}
 487
 488 \bool_if:NTF \l_ltjpreset_deluxe_bool {
 489   \bool_if:NT \l_ltjpreset_bold_bool {
 490     \cs_set_eq:NN \ltjpreset_font_mc_bx: \ltjpreset_font_gt_bx:
 491   }
 492 }{
 493   \bool_if:NTF \l_ltjpreset_bold_bool {
 494     \cs_set_eq:NN \ltjpreset_font_gt_m: \ltjpreset_font_gt_bx:
 495   }{
 496     \cs_set_eq:NN \ltjpreset_font_gt_m: \ltjpreset_font_gt_u:
 497   }
 498   \cs_set_eq:NN \ltjpreset_font_gt_bx: \ltjpreset_font_gt_m:
 499   \cs_set_eq:NN \ltjpreset_font_mc_bx: \ltjpreset_font_gt_m:
 500 }
 501
 502 \ltj_preset_define_family:nnn {ltjpm} {m}  {\ltjpreset_font_mc_m:}
 503 \ltj_preset_define_family:nnn {ltjpm} {bx} {\ltjpreset_font_mc_bx:}
 504 \ltj_preset_define_family:nnn {ltjpg} {m}  {\ltjpreset_font_gt_m:}
 505 \ltj_preset_define_family:nnn {ltjpg} {bx} {\ltjpreset_font_gt_bx:}
 506
 507 \def\mcdefault{ltjpm}\def\gtdefault{ltjpg}
 508 \normalfont
 509
 510 \SetSymbolFont{mincho}{normal}{JY3}{ltjpm}{m}{n}
 511 \SetSymbolFont{mincho}{bold}{JY3}{ltjpm}{bx}{n}
 512 \DeclareMathAlphabet{\mathgt}{JY3}{ltjpg}{m}{n}
 513
 514 \bool_if:NT \l_ltjpreset_expert_bool {
 515   \DeclareRobustCommand\rubyfamily { \kanjishape{rb}\selectfont }
 516 }
 517
 518 \bool_if:NTF \l_ltjpreset_deluxe_bool {
 519   \DeclareKanjiFamily{JY3}{ltjpmg}{}\DeclareKanjiFamily{JT3}{ltjpmg}{}
 520   \def\ltdefault{l}
 521   \DeclareRobustCommand\ltseries { \not@math@alphabet\ltseries\relax\fontseries\ltdefault\selectfont }
 522   \ltj_preset_define_family:nnn {ltjpm}  {l} {\ltjpreset_font_mc_l:}
 523   \def\ebdefault{eb}
 524   \DeclareRobustCommand\ebseries { \not@math@alphabet\ebseries\relax\fontseries\ebdefault\selectfont }
 525   \DeclareRobustCommand\gtebfamily { \kanjifamily{ltjpg}\fontseries{\ebdefault}\selectfont }
 526   \DeclareTextFontCommand{\textgteb}{\gtebfamily}
 527   \ltj_preset_define_family:nnn {ltjpg}  {eb} {\ltjpreset_font_gt_eb:}
 528   \DeclareRobustCommand\mgfamily { \not@math@alphabet\mgfamily\relax\kanjifamily{ltjpmg}\selectfont }
 529   \DeclareTextFontCommand{\textmg}{\mgfamily}
 530   \ltj_preset_define_family:nnn {ltjpmg} {m}  {\ltjpreset_font_mg_m:}
 531 }
 532
 533 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 534 %%%%%%%% fontspec
 535 } {
 536 \PassOptionsToPackage { scale = \fp_use:N \l_ltjpreset_scale_fp } { luatexja-fontspec }
 537 \RequirePackage{luatexja-fontspec}
 538 % scale
 539 \msg_new:nnn { luatexja-preset }{ scale }{
 540   Japanese~fonts~will~be~scaled~by~\fp_use:N \g_ltj_fontspec_scale_fp.
 541 }
 542 \msg_warning:nn { luatexja-preset }{ scale }
 543
 544 % expert 用設定
 545 \tl_new:N \l_ltjpreset_add_features_tl
 546
 547 \tl_set:Nx \l_ltjpreset_add_features_tl {
 548   \tl_use:N \l_ltjpreset_kanji_shape_tl,
 549   YokoFeatures = { JFM = \tl_use:N \ltjpreset_use_jfm_yoko_tl },
 550   TateFeatures = { JFM = \tl_use:N \ltjpreset_use_jfm_tate_tl },
 551   Script=CJK,
 552 }
 553
 554 \bool_if:NT \l_ltjpreset_expert_bool {
 555   \cs_set:Npn \rubyfamily { \addjfontfeatures {
 556     Style=Ruby , YokoFeatures={RawFeature=-hkna} , TateFeatures={RawFeature=-vkna}
 557   } }
 558   \tl_put_left:Nn \l_ltjpreset_add_features_tl {
 559     YokoFeatures = {Style = HorizontalKana},
 560     TateFeatures = {Style = VerticalKana},
 561   }
 562 }
 563
 564 % （丸）ゴシック体の設定: bold option もここで
 565 \bool_if:NTF \l_ltjpreset_deluxe_bool {
 566 %% mg
 567  \newjfontfamily \mgfamily [
 568       BoldFont = \ltjpreset_font_mg_m:,
 569       \bool_if:NT \l_ltjpreset_noembed_bool { NoEmbed,  }
 570       \tl_use:N \l_ltjpreset_add_features_tl
 571     ] { \ltjpreset_font_mg_m: }
 572     \DeclareTextFontCommand{\textmg}{\mgfamily}
 573 %% gt/eb
 574   \def\ebdefault{eb}
 575   \DeclareRobustCommand\ebseries { \not@math@alphabet\ebseries\relax\fontseries\ebdefault\selectfont }
 576   \DeclareRobustCommand\gtebfamily { \kanjifamily{\gtdefault}\fontseries{\ebdefault}\selectfont }
 577   \DeclareTextFontCommand{\textgteb}{\gtebfamily}
 578 %% mc/l
 579   \def\ltdefault{l}
 580   \DeclareRobustCommand\ltseries { \not@math@alphabet\ltseries\relax\fontseries\ltdefault\selectfont }
 581   \bool_if:NT \l_ltjpreset_bold_bool {
 582     \cs_set_eq:NN \ltjpreset_font_mc_bx: \ltjpreset_font_gt_bx:
 583   }
 584 }{
 585   \bool_if:NTF \l_ltjpreset_bold_bool {
 586     \cs_set_eq:NN \ltjpreset_font_gt_m: \ltjpreset_font_gt_bx:
 587   }{
 588     \cs_set_eq:NN \ltjpreset_font_gt_m: \ltjpreset_font_gt_u:
 589   }
 590   \cs_set_eq:NN \ltjpreset_font_gt_bx: \ltjpreset_font_gt_m:
 591   \cs_set_eq:NN \ltjpreset_font_mc_bx: \ltjpreset_font_gt_m:
 592 }
 593
 594
 595 % 実際の fontspec の呼びだし
 596
 597 \addjfontfeature{ Kerning=Off }
 598
 599 \setmainjfont [
 600   \bool_if:NT \l_ltjpreset_deluxe_bool {
 601     FontFace={l}{n}{\ltjpreset_font_mc_l:},
 602   }
 603   BoldFont = \ltjpreset_font_mc_bx:
 604   \bool_if:NT \l_ltjpreset_noembed_bool { , NoEmbed },
 605   \tl_use:N \l_ltjpreset_add_features_tl
 606 ] { \ltjpreset_font_mc_m: }
 607 \setsansjfont [
 608   \bool_if:NT \l_ltjpreset_deluxe_bool {
 609     FontFace={eb}{n}{\ltjpreset_font_gt_eb:},
 610   }
 611   BoldFont = \ltjpreset_font_gt_bx:
 612   \bool_if:NT \l_ltjpreset_noembed_bool { , NoEmbed },
 613   \tl_use:N \l_ltjpreset_add_features_tl
 614 ] { \ltjpreset_font_gt_m: }
 615
 616 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
 617 }
 618 \ExplSyntaxOff
 619 \endinput