OSDN Git Service

luatexja-preset: add preset noto and noto-jp
[luatex-ja/luatexja.git] / src / addons / luatexja-preset.sty
index 9aa3a47..b1d5873 100644 (file)
 % luatexja-preset.sty
-\ProvidesPackage{luatexja-preset}[2013/10/28 Japanese font presets]
+\ProvidesPackage{luatexja-preset}[2022-06-19 Japanese font presets]
 
-\RequirePackage{expl3}
-\RequirePackage{luatexja-fontspec}
+\RequirePackage{expl3,l3keys2e}
+\RequirePackage{luatexja}
 \ExplSyntaxOn
 
-%%%% message
-
-\bool_new:N \l_ltjpreset_bold_bool % bold
-\bool_set_false:N \l_ltjpreset_bold_bool
-\DeclareOption{bold}  {\bool_set_true:N \l_ltjpreset_bold_bool}
-\DeclareOption{nobold}{\bool_set_false:N \l_ltjpreset_bold_bool}
+%% messages
+\msg_new:nnn { luatexja-preset }{ ltj-fontspec }{
+  The~ luatexja-fontspec~ package~ is~ loaded~ already.~
+  Hence~ we~ ignore~ `nfssonly'~option.
+}
+\msg_new:nnn { luatexja-preset }{ no-font }{
+  Font~ #1~ (#2)~ is~ not~found.~ Hence~ I~ substitute~ #3~ (#4)~ for~ it.
+}
+\msg_new:nnn { luatexja-preset }{ scale }{
+  Japanese~fonts~will~be~scaled~by~#1.
+}
 
-\bool_new:N \l_ltjpreset_expert_bool % expert
-\bool_set_false:N \l_ltjpreset_expert_bool
-\DeclareOption{expert}  {\bool_set_true:N \l_ltjpreset_expert_bool}
-\DeclareOption{noexpert}{\bool_set_false:N \l_ltjpreset_expert_bool}
+\msg_new:nnn { luatexja-preset }{ exist-preset-nooverwrite }{
+  The~ preset~ `#1'~ is~ already~ defined.~
+  To~ redefine~ this~ preset,~ use~ \str_use:N \c_backslash_str ltjnewpreset*~ instead.
+}
+\msg_new:nnn { luatexja-preset }{ exist-preset-overwrite }{
+  The~ preset~ `#1'~ is~ redefined.
+}
 
-\int_new:N \l_ltjpreset_deluxe_int % expert
-\int_set:Nn \l_ltjpreset_deluxe_int { 0 }
-\DeclareOption{deluxe}{\int_set:Nn \l_ltjpreset_deluxe_int { 2 }}   % 6 fonts
-\DeclareOption{nodeluxe}{\int_set:Nn \l_ltjpreset_deluxe_int { 0 }} % 2 fonts
+\msg_new:nnn { luatexja-preset }{ illegal-preset-name }{
+  The~ preset~ `#1'~ cannot~ be~ defined,~
+  since~ the~ luatexja-preset~ package~ an~ option~ with~ the~ same~ name.
+}
 
-% scale
-\msg_new:nnn { luatexja-preset }{ scale }{
-  Japanese~fonts~will~be~scaled~by~\fp_use:N \g_ltj_fontspec_scale_fp.
+\seq_new:N \g__ltjpreset_presets_seq
+
+\keys_define:nn { luatexja-preset }{
+  unknown .code:n =
+    \PassOptionsToPackage { \l_keys_key_str } { luatexja-fontspec },
+  scale .code:n  = \gdef\Cjascale{#1},
+  match .code:n =
+    \renewcommand\jttdefault{\gtdefault}\@ltj@match@familytrue
+    \PassOptionsToPackage { match } { luatexja-fontspec },
+  match .value_forbidden:n = true,
+  __custom  .bool_set:N = \g__ltjpreset_custom_bool,  __custom  .groups:n = { preset },
+  __office  .bool_set:N = \g__ltjpreset_office_bool,  __office  .groups:n = { preset },
+  __noembed .bool_set:N = \g__ltjpreset_noembed_bool, __noembed .groups:n = { preset },
 }
-\msg_warning:nn { luatexja-preset }{ scale }
+\cs_new:Nn \__ltjpreset_declare_option:nn {
+  \keys_define:nn { luatexja-preset }{
+    #1 .code:n = { #2 },
+    #1 .value_forbidden:n = true
+  }
+}
+\cs_new:Nn \ltjpreset_declare_preset:nn {
+  \keys_define:nn { luatexja-preset }{
+    #1 .meta:n = { #2 },
+    #1 .value_forbidden:n = true, #1 .groups:n = { preset },
+  }
+  \seq_put_right:Nn \g__ltjpreset_presets_seq { #1 }
+}
+\cs_generate_variant:Nn \ltjpreset_declare_preset:nn {nx}
+\cs_new:Nn \__ltjpreset_declare_bool_option:nn {
+  \bool_new:c { g__ltjpreset_#1_bool }
+  \bool_set_false:c { g__ltjpreset_#1_bool }
+  \keys_define:nn { luatexja-preset }{
+    #1 .bool_set:c =  { g__ltjpreset_#1_bool },
+    #2 .bool_set_inverse:c =  { g__ltjpreset_#1_bool },
+    #1 .default:n =  true, #2 .default:n =  true,
+  }
+}
+
+%%%%%%%% bool options
+\__ltjpreset_declare_bool_option:nn { nfssonly }{ fontspec }
+\__ltjpreset_declare_bool_option:nn { bold }{ nobold }
+\__ltjpreset_declare_bool_option:nn { expert }{ noexpert }
+\__ltjpreset_declare_bool_option:nn { deluxe }{ nodeluxe }
+\__ltjpreset_declare_bool_option:nn { nocheck }{ check }
 
 % JFM
-\cs_set:Npn \ltjpreset_use_jfm: {ujis}  % 使用する JFM
-%%% \DeclareOption{min}{\cs_set:Npn  \ltjpreset_use_jfm: {min}} % min
-%%% ↑jfm-min.lua が横組み・縦組み専用仮名に追いついていないので使用禁止
-\DeclareOption{jis}{\cs_set:Npn  \ltjpreset_use_jfm: {jis}}     % jis
-\DeclareOption{ujis}{\cs_set:Npn  \ltjpreset_use_jfm: {ujis}}   % ujis
+\tl_new:N \__ltjpreset_use_jfm_yoko_tl % 使用する JFM(横)
+\tl_set:Nn \__ltjpreset_use_jfm_yoko_tl {\ltj@stdyokojfm}
+\tl_new:N \__ltjpreset_use_jfm_tate_tl % 使用する JFM(縦)
+\tl_set:Nn \__ltjpreset_use_jfm_tate_tl {\ltj@stdtatejfm}
+\__ltjpreset_declare_option:nn{jis}{\tl_set:Nn  \__ltjpreset_use_jfm_yoko_tl {jis}}     % jis
+\__ltjpreset_declare_option:nn{ujis}{\tl_set:Nn  \__ltjpreset_use_jfm_yoko_tl {ujis}}   % ujis
 
 % 漢字字形
-\tl_new:N \l_ltjpreset_kanji_shape_tl
-\DeclareOption{90jis}{  \tl_set:Nn \l_ltjpreset_kanji_shape_tl { , CJKShape=JIS1990 }} % 90jis
-\DeclareOption{jis2004}{\tl_set:Nn \l_ltjpreset_kanji_shape_tl { , CJKShape=JIS2004 }} % jis2004
+\tl_new:N \l__ltjpreset_kanji_shape_tl
+\__ltjpreset_declare_option:nn{90jis}{  \tl_set:Nn \l__ltjpreset_kanji_shape_tl { , CJKShape=JIS1990 }} % 90jis
+\__ltjpreset_declare_option:nn{jis90}{  \tl_set:Nn \l__ltjpreset_kanji_shape_tl { , CJKShape=JIS1990 }} % 90jis
+\__ltjpreset_declare_option:nn{jis2004}{\tl_set:Nn \l__ltjpreset_kanji_shape_tl { , CJKShape=JIS2004 }} % jis2004
+\__ltjpreset_declare_option:nn{2004jis}{\tl_set:Nn \l__ltjpreset_kanji_shape_tl { , CJKShape=JIS2004 }} % jis2004
 
 % font preset
-\bool_new:N \l_ltjpreset_office_bool  % MS Office の HG 系フォントを使っているか
-\bool_new:N \l_ltjpreset_noembed_bool % 非埋込か
-\clist_new:N \l_ltjpreset_font_list
-
-\cs_new:Npn \ltjpreset_set_uni:nn #1#2 {
-  \ltjpreset_set_multi:n { #1, #1, #2, #2, #2, #2, #1 }
-}
-\cs_new:Npn \ltjpreset_set_multi:n #1 {
-  \clist_set:Nn \l_ltjpreset_font_list { #1 }
-  \bool_set_false:N \l_ltjpreset_office_bool
-  \bool_set_false:N \l_ltjpreset_noembed_bool
-}
-\cs_new:Npn \ltjpreset_set_office:nn #1 #2{
-  \ltjpreset_set_multi:n {
-    #1, HGMinchoE ,           % mc/m, mc/bx
-    HGGothicM , HGGothicE ,   % gt/m, gt/bx (multiweight))
-    #2 , HGSoeiKakugothicUB , % gt/m (uni), gt/eb
-    HGMaruGothicMPRO          % mg/m
+\prop_new:N \g__ltjpreset_font_prop
+\keys_define:nn { luatexja-preset } {
+  mc .code:n =
+     \prop_put:Nnn \g__ltjpreset_font_prop { mc-l } {#1}
+     \prop_put:Nnn \g__ltjpreset_font_prop { mc-m } {#1}
+     \prop_put:Nnn \g__ltjpreset_font_prop { mc-b } {#1},
+  mc .groups:n = { preset }, mc .value_required:n = true,
+  mc-bx .code:n =
+     \prop_put:Nnn \g__ltjpreset_font_prop { mc-b } {#1},
+  gt .code:n =
+     \prop_put:Nnn \g__ltjpreset_font_prop { gt-u } {#1}
+     \prop_put:Nnn \g__ltjpreset_font_prop { gt-d } {#1}
+     \prop_put:Nnn \g__ltjpreset_font_prop { gt-b } {#1}
+     \prop_put:Nnn \g__ltjpreset_font_prop { gt-eb } {#1},
+  gt-bx .code:n =
+     \prop_put:Nnn \g__ltjpreset_font_prop { gt-b } {#1},
+  gt-m .code:n = % gtfamily , medium series
+     \prop_put:Nnn \g__ltjpreset_font_prop { gt-u } {#1}
+     \prop_put:Nnn \g__ltjpreset_font_prop { gt-d } {#1},
+  gt .groups:n = { preset },   gt .value_required:n = true,
+  gt-m .groups:n = { preset }, gt-m .value_required:n = true,
+}
+\cs_set:Nn \ltjpreset_define_preset_prop:n {
+  \keys_define:nn { luatexja-preset } {
+    #1 .code:n = \prop_put:Non \g__ltjpreset_font_prop { #1 } { ##1 },
+    #1 .groups:n = { preset }, #1 .value_required:n = true,
   }
-  \bool_set_true:N \l_ltjpreset_office_bool
 }
+\ltjpreset_define_preset_prop:n { mc-l }
+\ltjpreset_define_preset_prop:n { mc-m }
+\ltjpreset_define_preset_prop:n { mc-b }
+\ltjpreset_define_preset_prop:n { gt-u }
+\ltjpreset_define_preset_prop:n { gt-d }
+\ltjpreset_define_preset_prop:n { gt-b }
+\ltjpreset_define_preset_prop:n { gt-eb}
+\ltjpreset_define_preset_prop:n { mg-m }
+
+\cs_new:Nn \__ltjpreset_set_uni:nn {
+  mc = #1, gt = #2, mc-b = #2, mg-m = #2,
+  __custom = false, __office = false, __noembed = false,
+}
+\cs_new:Npn \__ltjpreset_set_office:nn #1 #2{
+  mc   = #1,         mc-b = HGMinchoE ,
+  gt-d = HGGothicM , gt-b = HGGothicE ,
+  gt-u = #2 ,        gt-eb = HGSoeiKakugothicUB ,
+  mg-m = HGMaruGothicMPRO,
+  __custom = false, __office = true, __noembed = false,
+}
+
+%%%%%%%% プリセット達
 
+% カスタム指定
+ \keys_define:nn { luatexja-preset }{
+    custom .meta:n = { #1, __custom = true, }, 
+    custom .value_required:n = true,
+    jfm_yoko .tl_set:N = \__ltjpreset_use_jfm_yoko_tl,
+    jfm_tate .tl_set:N = \__ltjpreset_use_jfm_tate_tl,
+}
 
 % 小塚 (Adobe)
 %% Pro
-\DeclareOption{kozuka-pro}{
-  \ltjpreset_set_multi:n {
-    KozMinPro-Regular , % mc/m
-    KozMinPro-Bold ,    % mc/bx
-    KozGoPro-Regular , % gt/m  (multi)
-    KozGoPro-Bold ,    % gt/bx
-    KozGoPro-Medium  , % gt/m  (uni)
-    KozGoPro-Heavy ,   % gt/eb
-    KozGoPro-Heavy     % mg/m
-  }
+\ltjpreset_declare_preset:nx{kozuka-pro}{
+    mc-m =  KozMinPro-Regular, mc-b = KozMinPro-Bold,
+    gt-d =  KozGoPro-Regular,  gt-b = KozGoPro-Bold,
+    gt-u =  KozGoPro-Medium,   gt-eb = KozGoPro-Heavy,
+    mg-m =  KozGoPro-Heavy,    mc-l =  KozMinPro-Light,
+    __custom = false, __office = false, __noembed = false,
 }
 %% Pr6
-\DeclareOption{kozuka-pr6}{
-  \ltjpreset_set_multi:n {
-    KozMinProVI-Regular , % mc/m
-    KozMinProVI-Bold ,    % mc/bx
-    KozGoProVI-Regular , % gt/m  (multi)
-    KozGoProVI-Bold ,    % gt/bx
-    KozGoProVI-Medium  , % gt/m  (uni)
-    KozGoProVI-Heavy ,   % gt/eb
-    KozGoProVI-Heavy     % mg/m
-  }
+\ltjpreset_declare_preset:nx{kozuka-pr6}{
+    mc-m =  KozMinProVI-Regular, mc-b = KozMinProVI-Bold,
+    gt-d =  KozGoProVI-Regular,  gt-b = KozGoProVI-Bold,
+    gt-u =  KozGoProVI-Medium,   gt-eb = KozGoProVI-Heavy,
+    mg-m =  KozGoProVI-Heavy,    mc-l =  KozMinProVI-Light,
+    __custom = false, __office = false, __noembed = false,
 }
 %% Pr6N
-\DeclareOption{kozuka-pr6n}{
-  \ltjpreset_set_multi:n {
-    KozMinPr6N-Regular , % mc/m
-    KozMinPr6N-Bold ,    % mc/bx
-    KozGoPr6N-Regular , % gt/m  (multi)
-    KozGoPr6N-Bold ,    % gt/bx
-    KozGoPr6N-Medium  , % gt/m  (uni)
-    KozGoPr6N-Heavy ,   % gt/eb
-    KozGoPr6N-Heavy     % mg/m
-  }
+\ltjpreset_declare_preset:nx{kozuka-pr6n}{
+    mc-m =  KozMinPr6N-Regular, mc-b = KozMinPr6N-Bold,
+    gt-d =  KozGoPr6N-Regular,  gt-b = KozGoPr6N-Bold,
+    gt-u =  KozGoPr6N-Medium,   gt-eb = KozGoPr6N-Heavy,
+    mg-m =  KozGoPr6N-Heavy,    mc-l =  KozMinPr6N-Light,
+    __custom = false, __office = false, __noembed = false,
 }
 
 % ヒラギノ (OSX)
-\DeclareOption{hiragino-pro}{
-  \ltjpreset_set_multi:n {
-    Hiragino~Mincho~Pro~W3 , 
-    Hiragino~Mincho~Pro~W6 , 
-    Hiragino~Kaku~Gothic~Pro~W3 , % gt/m (multi)
-    Hiragino~Kaku~Gothic~Pro~W6 , 
-    Hiragino~Kaku~Gothic~Pro~W6 , % gt/m (uni)
-    Hiragino~Kaku~Gothic~Std~W8 , 
-    Hiragino~Maru~Gothic~Pro~W4 , 
-  }
+\ltjpreset_declare_preset:nx{hiragino-pro}{
+    mc-m = HiraMinPro-W3,  mc-b = HiraMinPro-W6,
+    gt-d = HiraKakuPro-W3, gt-b = HiraKakuPro-W6,
+    gt-u = HiraKakuPro-W6, gt-eb = HiraKakuStd-W8,
+    mg-m = HiraMaruPro-W4, mc-l =  HiraMinPro-W2,
+    __custom = false, __office = false, __noembed = false,
 }
-\DeclareOption{hiragino-pron}{
-  \ltjpreset_set_multi:n {
-    Hiragino~Mincho~ProN~W3 , 
-    Hiragino~Mincho~ProN~W6 , 
-    Hiragino~Kaku~Gothic~ProN~W3 , % gt/m (multi)
-    Hiragino~Kaku~Gothic~ProN~W6 , 
-    Hiragino~Kaku~Gothic~ProN~W6 , % gt/m (uni)
-    Hiragino~Kaku~Gothic~StdN~W8 , 
-    Hiragino~Maru~Gothic~ProN~W4 , 
-  }
+\ltjpreset_declare_preset:nx{hiragino-pron}{
+    mc-m = HiraMinProN-W3,  mc-b = HiraMinProN-W6,
+    gt-d = HiraKakuProN-W3, gt-b = HiraKakuProN-W6,
+    gt-u = HiraKakuProN-W6, gt-eb = HiraKakuStdN-W8,
+    mg-m = HiraMaruProN-W4, mc-l =  HiraMinProN-W2,
+    __custom = false, __office = false, __noembed = false,
 }
 
 % モリサワ
-\DeclareOption{morisawa-pro}{
-  \ltjpreset_set_multi:n {
-    A-OTF-RyuminPro-Light.otf , A-OTF-FutoMinA101Pro-Bold.otf ,    % mc/m, mc/bx
-    A-OTF-GothicBBBPro-Medium.otf , A-OTF-FutoGoB101Pro-Bold.otf , % gt/m, gt/bx (multiweight))
-    A-OTF-GothicBBBPro-Medium.otf , A-OTF-MidashiGoPro-MB31.otf ,  % gt/m (uni), gt/eb
-    A-OTF-Jun101Pro-Light.otf % mg/m
-  }
+\ltjpreset_declare_preset:nx{bizud}{
+    mc =   BIZ-UDMinchoM.ttc,
+    gt-d = BIZ-UDGothicR.ttc, gt-b = BIZ-UDGothicB.ttc,
+    gt-u = BIZ-UDGothicR.ttc, gt-eb = BIZ-UDGothicB.ttc,
+    mg-m = BIZ-UDGothicB.ttc,
+    __custom = false, __office = false, __noembed = false,
 }
-\DeclareOption{morisawa-pr6n}{
-  \ltjpreset_set_multi:n {
-    A-OTF-RyuminPr6N-Light.otf , A-OTF-FutoMinA101Pr6N-Bold.otf ,    % mc/m, mc/bx
-    A-OTF-GothicBBBPr6N-Medium.otf , A-OTF-FutoGoB101Pr6N-Bold.otf , % gt/m, gt/bx (multiweight))
-    A-OTF-GothicBBBPr6N-Medium.otf , A-OTF-MidashiGoPr6N-MB31.otf ,  % gt/m (uni), gt/eb
-    A-OTF-ShinMGoPr6N-Light.otf                                      % mg/m
-  }
+\ltjpreset_declare_preset:nx{morisawa-pro}{
+    mc =   A-OTF-RyuminPro-Light.otf,      mc-b = A-OTF-FutoMinA101Pro-Bold.otf,
+    gt-d = A-OTF-GothicBBBPro-Medium.otf , gt-b = A-OTF-FutoGoB101Pro-Bold.otf,
+    gt-u = A-OTF-GothicBBBPro-Medium.otf , gt-eb = A-OTF-MidashiGoPro-MB31.otf,
+    mg-m = A-OTF-Jun101Pro-Light.otf,
+    __custom = false, __office = false, __noembed = false,
+}
+\ltjpreset_declare_preset:nx{morisawa-pr6n}{
+    mc =   A-OTF-RyuminPr6N-Light.otf,      mc-b = A-OTF-FutoMinA101Pr6N-Bold.otf,
+    gt-d = A-OTF-GothicBBBPr6N-Medium.otf , gt-b = A-OTF-FutoGoB101Pr6N-Bold.otf,
+    gt-u = A-OTF-GothicBBBPr6N-Medium.otf , gt-eb = A-OTF-MidashiGoPr6N-MB31.otf,
+    mg-m = A-OTF-ShinMGoPr6N-Light.otf,
+    __custom = false, __office = false, __noembed = false,
 }
 
 % 游明朝/游ゴシック (Win8.1)
-\DeclareOption{yu-win}{
-  \ltjpreset_set_multi:n {
-    YuMincho-Regular , YuMincho-Demibold , % mc/m, mc/bx
-    YuGothic-Regular , YuGothic-Bold ,     % gt/m, gt/bx (multiweight))
-    YuGothic-Bold    , YuGothic-Bold ,     % gt/m (uni), gt/eb
-    YuGothic-Bold                          % mg/m
-  }
+\ltjpreset_declare_preset:nx{yu-win}{
+    mc-m = YuMincho-Regular, mc-b = YuMincho-Demibold,
+    gt-d = YuGothic-Regular, gt-b = YuGothic-Bold,
+    gt-u = YuGothic-Regular, gt-eb = YuGothic-Bold,
+    mg-m = YuGothic-Bold,    mc-l =  YuMincho-Light,
+    __custom = false, __office = false, __noembed = false,
+}
+% Win10
+\ltjpreset_declare_preset:nx{yu-win10}{
+    mc-m = YuMincho-Regular, mc-b = YuMincho-Demibold,
+    gt-d = YuGothic-Regular, gt-b = YuGothic-Bold,
+    gt-u = YuGothic-Medium,  gt-eb = YuGothic-Bold,
+    mg-m = YuGothic-Bold,    mc-l =  YuMincho-Light,
+    __custom = false, __office = false, __noembed = false,
 }
 
 % Yu fonts in OSX
 % according to http://support.apple.com/kb/HT5944
-\DeclareOption{yu-osx}{
-  \ltjpreset_set_multi:n {
-    YuMincho~Medium , YuMincho~Demibold , % mc/m, mc/bx
-    YuGothic~Medium , YuGothic~Bold ,     % gt/m, gt/bx (multiweight))
-    YuGothic~Bold   , YuGothic~Bold ,     % gt/m (uni), gt/eb
-    YuGothic~Bold                          % mg/m
-  }
+\ltjpreset_declare_preset:nx{yu-osx}{
+    mc =  YuMincho~Medium,   mc-b = YuMincho~Demibold,
+    gt-d =  YuGothic~Medium, gt-u =  YuGothic~Medium,
+    gt-b = YuGothic~Bold,    gt-eb = YuGothic~Bold,
+    mg-m =  YuGothic~Bold,
+    __custom = false, __office = false, __noembed = false,
+}
+
+% moga-mobo
+\ltjpreset_declare_preset:nx{moga-mobo}{
+    mc =   Moga90Mincho, mc-b = Moga90Mincho~Bold,
+    gt-d = Moga90Gothic, gt-b = Moga90Gothic~Bold,
+    gt-u = Moga90Gothic, gt-eb = Moga90Gothic~Bold,
+    mg-m = Mobo90Gothic,
+    __custom = false, __office = false, __noembed = false,
+}
+\ltjpreset_declare_preset:nx{moga-mobo-ex}{
+    mc =   MogaEx90Mincho, mc-b = MogaEx90Mincho~Bold,
+    gt-d = MogaEx90Gothic, gt-b = MogaEx90Gothic~Bold,
+    gt-u = MogaEx90Gothic, gt-eb = MogaEx90Gothic~Bold,
+    mg-m = MoboEx90Gothic,
+    __custom = false, __office = false, __noembed = false,
+}
+
+% Ume fones
+\ltjpreset_declare_preset:nx{ume}{
+    mc = Ume~Mincho,
+    gt-d = Ume~Gothic,    gt-b = Ume~Gothic~O5,
+    gt-u = Ume~Gothic~O5, gt-eb = Ume~Gothic~O5,
+    mg-m = Ume~Gothic~O4,
+    __custom = false, __office = false, __noembed = false,
+}
+
+% Source Han {Serif,Sans}
+\ltjpreset_declare_preset:nx{sourcehan}{
+    mc-m =  Source~Han~Serif~Regular,
+    mc-b =  Source~Han~Serif~Bold,
+    gt-d =  Source~Han~Sans~Regular,
+    gt-b =  Source~Han~Sans~Bold,
+    gt-u =  Source~Han~Sans~Medium,
+    gt-eb = Source~Han~Sans~Heavy,
+    mg-m =  Source~Han~Sans~Medium,
+    mc-l =  Source~Han~Serif~Light,
+    __custom = false, __office = false, __noembed = false,
+}
+\ltjpreset_declare_preset:nx{sourcehan-jp}{
+    mc-m =  Source~Han~Serif~JP~Regular,
+    mc-b =  Source~Han~Serif~JP~Bold,
+    gt-d =  Source~Han~Sans~JP~Regular,
+    gt-b =  Source~Han~Sans~JP~Bold,
+    gt-u =  Source~Han~Sans~JP~Medium,
+    gt-eb = Source~Han~Sans~JP~Heavy,
+    mg-m =  Source~Han~Sans~JP~Medium,
+    mc-l =  Source~Han~Serif~JP~Light,
+    __custom = false, __office = false, __noembed = false,
+}
+\ltjpreset_declare_preset:nx{noto-otc}{
+    mc-m =  Noto~Serif~CJK~Regular,
+    mc-b =  Noto~Serif~CJK~Bold,
+    gt-d =  Noto~Sans~CJK~Regular,
+    gt-b =  Noto~Sans~CJK~Bold,
+    gt-u =  Noto~Sans~CJK~Medium,
+    gt-eb = Noto~Sans~CJK~Black,
+    mg-m =  Noto~Sans~CJK~Medium,
+    mc-l =  Noto~Serif~CJK~Light,
+    __custom = false, __office = false, __noembed = false,
+}
+\ltjpreset_declare_preset:nx{noto-otf}{
+    mc-m =  Noto~Serif~CJK~JP~Regular,
+    mc-b =  Noto~Serif~CJK~JP~Bold,
+    gt-d =  Noto~Sans~CJK~JP~Regular,
+    gt-b =  Noto~Sans~CJK~JP~Bold,
+    gt-u =  Noto~Sans~CJK~JP~Medium,
+    gt-eb = Noto~Sans~CJK~JP~Black,
+    mg-m =  Noto~Sans~CJK~JP~Medium,
+    mc-l =  Noto~Serif~CJK~JP~Light,
+    __custom = false, __office = false, __noembed = false,
+}
+\ltjpreset_declare_preset:nx{noto}{
+    noto-otf,
+}
+\ltjpreset_declare_preset:nx{noto-jp}{
+    mc-m =  Noto~Serif~JP~Regular,
+    mc-b =  Noto~Serif~JP~Bold,
+    gt-d =  Noto~Sans~JP~Regular,
+    gt-b =  Noto~Sans~JP~Bold,
+    gt-u =  Noto~Sans~JP~Medium,
+    gt-eb = Noto~Sans~JP~Black,
+    mg-m =  Noto~Sans~JP~Medium,
+    mc-l =  Noto~Serif~JP~Light,
+    __custom = false, __office = false, __noembed = false,
+}
+
+% HaranoAji {Mincho, Gothic}
+\ltjpreset_declare_preset:nx{haranoaji}{
+    mc-m =  HaranoAjiMincho-Regular.otf,
+    mc-b =  HaranoAjiMincho-Bold.otf,
+    gt-d =  HaranoAjiGothic-Regular.otf,
+    gt-b =  HaranoAjiGothic-Bold.otf,
+    gt-u =  HaranoAjiGothic-Medium.otf,
+    gt-eb = HaranoAjiGothic-Heavy.otf,
+    mg-m =  HaranoAjiGothic-Medium.otf,
+    mc-l =  HaranoAjiMincho-Light.otf,
+    __custom = false, __office = false, __noembed = false,
 }
 
+
 % ipa, ipaex, ms
-\DeclareOption{ipa}{
-  \ltjpreset_set_uni:nn { IPAMincho } { IPAGothic }
+\ltjpreset_declare_preset:nx{ipa}{
+  \__ltjpreset_set_uni:nn { IPAMincho } { IPAGothic }
 }
-\DeclareOption{ipaex}{
-  \ltjpreset_set_uni:nn { IPAExMincho } { IPAExGothic }
+\ltjpreset_declare_preset:nx{ipaex}{
+  \__ltjpreset_set_uni:nn { IPAExMincho } { IPAExGothic }
 }
-\DeclareOption{ms}{
-  \ltjpreset_set_uni:nn { MS-Mincho } { MS-Gothic }
+\ltjpreset_declare_preset:nx{ms}{
+  \__ltjpreset_set_uni:nn { MS-Mincho } { MS-Gothic }
 }
 
 % {ipa,ipaex,ms}-dx % Office 付属フォントを利用
-\DeclareOption{ipaex-hg}{
-  \ltjpreset_set_office:nn { IPAExMincho } { IPAExGothic }
+\ltjpreset_declare_preset:nx{ipaex-hg}{
+  \__ltjpreset_set_office:nn { IPAExMincho } { IPAExGothic }
 }
-\DeclareOption{ipa-hg}{
-  \ltjpreset_set_office:nn { IPAMincho } { IPAGothic }
+\ltjpreset_declare_preset:nx{ipa-hg}{
+  \__ltjpreset_set_office:nn { IPAMincho } { IPAGothic }
 }
-\DeclareOption{ms-hg}{
-  \ltjpreset_set_office:nn { MS-Mincho } { MS-Gothic }
+\ltjpreset_declare_preset:nx{ms-hg}{
+  \__ltjpreset_set_office:nn { MS-Mincho } { MS-Gothic }
 }
 
 
 % 非埋込
-\DeclareOption{noembed}{
-  \ltjpreset_set_uni:nn { Ryumin-Light } { GothicBBB-Medium }
-  \bool_set_true:N \l_ltjpreset_noembed_bool
+\ltjpreset_declare_preset:nx{noembed}{
+  \__ltjpreset_set_uni:nn { Ryumin-Light } { GothicBBB-Medium },
+  __custom = false, __office = false, __noembed = true,
 }
 
-\ExecuteOptions{noembed}
-\ProcessOptions*
+\keys_set:nn {luatexja-preset} { haranoaji } %% old: ipaex
+\ProcessKeysOptions { luatexja-preset }
+\@ifpackageloaded{luatexja-fontspec}{
+  \bool_if:NT \g__ltjpreset_nfssonly_bool
+    { \msg_warning:nn { luatexja-preset }{ ltj-fontspec } }
+  \bool_set_false:N \g__ltjpreset_nfssonly_bool
+}{}
 
-%% KozMinPr6N の場合はjp04 feature がないので,nlck にする
-\clist_if_in:NnT \l_ltjpreset_font_list { KozMinPr6N-Regular } {
-  \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS2004 }
-  \tl_if_eq:NNT \l_ltjpreset_kanji_shape_tl \l_tmpa_tl {
-    \tl_set:Nn \l_ltjpreset_kanji_shape_tl { , CJKShape=NLC }
+%%%%%%%% main routine
+
+\cs_new:Nn \__ltjpreset_extract_fonts: {
+  %% MogaMincho の場合は 90 をつける/はずす
+  \bool_if:NF \g__ltjpreset_custom_bool {
+    \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS2004 }
+    \tl_if_eq:NNT \l__ltjpreset_kanji_shape_tl \l_tmpa_tl {
+      \tl_set:Nx \l_tmpb_tl { \prop_item:Nn \g__ltjpreset_font_prop { mc-m } }
+      \tl_if_in:NnT  \l_tmpb_tl { Moga90Mincho } {
+        \prop_clear:N \l_tmpa_prop
+        \prop_map_inline:Nn \g__ltjpreset_font_prop {
+           \tl_set:Nn \l_tmpb_tl { ##2 } \tl_remove_all:Nn \l_tmpb_tl {90}
+          \prop_put:Nnx \l_tmpa_prop { ##1 } { \tl_use:N \l_tmpb_tl }
+         } 
+         \prop_set_eq:NN \g__ltjpreset_font_prop \l_tmpa_prop
+       }
+       \tl_if_in:NnT  \l_tmpb_tl { MogaEx90Mincho } {
+         \prop_clear:N \l_tmpa_prop
+         \prop_map_inline:Nn \g__ltjpreset_font_prop {
+           \tl_set:Nn \l_tmpb_tl { ##2 } \tl_remove_all:Nn \l_tmpb_tl {90}
+           \prop_put:Nnx \l_tmpa_prop { ##1 } { \tl_use:N \l_tmpb_tl }
+         }
+         \prop_set_eq:NN \g__ltjpreset_font_prop \l_tmpa_prop
+       }
+    }
+  }
+  %%%%  リストからの展開
+  \cs_set:Nx \__ltjpreset_font_mc_l:  { \prop_item:Nn \g__ltjpreset_font_prop { mc-l } }
+  \cs_set:Nx \__ltjpreset_font_mc_m:  { \prop_item:Nn \g__ltjpreset_font_prop { mc-m } }
+  \cs_set:Nx \__ltjpreset_font_mc_b:  { \prop_item:Nn \g__ltjpreset_font_prop { mc-b } }
+  \cs_set:Nx \__ltjpreset_font_gt_m:  { \prop_item:Nn \g__ltjpreset_font_prop { gt-d } }
+  \cs_set:Nx \__ltjpreset_font_gt_u:  { \prop_item:Nn \g__ltjpreset_font_prop { gt-u } }
+  \cs_set:Nx \__ltjpreset_font_gt_b:  { \prop_item:Nn \g__ltjpreset_font_prop { gt-b } }
+  \cs_set:Nx \__ltjpreset_font_gt_eb: { \prop_item:Nn \g__ltjpreset_font_prop { gt-eb } }
+  \cs_set:Nx \__ltjpreset_font_mg_m:  { \prop_item:Nn \g__ltjpreset_font_prop { mg-m } }
+  %% HG 系フォント + JIS2004/90JIS のときはフォント名を置換
+  \bool_if:nT { !\g__ltjpreset_custom_bool && \g__ltjpreset_office_bool } {
+    \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS2004 }
+    \tl_if_eq:NNT \l__ltjpreset_kanji_shape_tl \l_tmpa_tl {
+      \cs_set:Nx \__ltjpreset_font_mc_b:  { hgrme04.ttc }
+      \cs_set:Nx \__ltjpreset_font_gt_b:  { hgrge04.ttc }
+      \cs_set:Nx \__ltjpreset_font_gt_eb: { hgrsgu04.ttc }
+      \cs_set:Nx \__ltjpreset_font_mg_m:  { hgrsmp04.ttf }
+      \cs_set_eq:NN \__ltjpreset_font_gt_m: \__ltjpreset_font_gt_u:
+      % HG ゴシックM のときはそうはいかないので 1 ウェイト時のゴシック体を使う
+    }
+    \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS1990 }
+    \tl_if_eq:NNT \l__ltjpreset_kanji_shape_tl \l_tmpa_tl {
+      \cs_set:Nx \__ltjpreset_font_mc_b:  { hgrme.ttc }
+      \cs_set:Nx \__ltjpreset_font_gt_b:  { hgrge.ttc }
+      \cs_set:Nx \__ltjpreset_font_gt_eb: { hgrsgu.ttc }
+      \cs_set:Nx \__ltjpreset_font_mg_m:  { hgrsmp.ttf }
+    }
+  }
+  % mc/l
+  \tl_set:Nx \l_tmpa_tl { \__ltjpreset_font_mc_l: }
+  \tl_if_empty:NT \l_tmpa_tl {\tl_set:Nn \l_tmpa_tl {~}}
+  \cs_set:Nx \__ltjpreset_font_mc_l: {
+    \tl_if_blank:nTF \l_tmpa_tl { \__ltjpreset_font_mc_m: } {\tl_use:N \l_tmpa_tl }
+  }
+  %% bold オプションの処理
+  \bool_if:NTF \g__ltjpreset_deluxe_bool {
+    \bool_if:NT \g__ltjpreset_bold_bool {
+      \cs_set_eq:NN \__ltjpreset_font_mc_b: \__ltjpreset_font_gt_b:
+    }
+  }{
+    \bool_if:NTF \g__ltjpreset_bold_bool
+      { \cs_set_eq:NN \__ltjpreset_font_gt_m: \__ltjpreset_font_gt_b: }
+      { \cs_set_eq:NN \__ltjpreset_font_gt_m: \__ltjpreset_font_gt_u: }
+    \cs_set_eq:NN \__ltjpreset_font_gt_b: \__ltjpreset_font_gt_m:
+    \cs_set_eq:NN \__ltjpreset_font_mc_b: \__ltjpreset_font_gt_m:
   }
 }
 
-%% HiraMinProN の場合はjp04 feature がない??ので,nlck にする
-\clist_if_in:NnT \l_ltjpreset_font_list { Hiragino~Mincho~ProN~W3 } {
-  \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS2004 }
-  \tl_if_eq:NNT \l_ltjpreset_kanji_shape_tl \l_tmpa_tl {
-    \tl_set:Nn \l_ltjpreset_kanji_shape_tl { , CJKShape=NLC }
+%%%%%%%% フォント名を \l__ltjpreset_font_name: に格納
+\clist_new:N \l__ltjpreset_extensions_clist
+\clist_set:Nn \l__ltjpreset_extensions_clist {.otf,.ttf,.OTF,.TTF,.ttc,.TTC}
+\prg_new_conditional:Nnn \__ltjpreset_if_detect_external:n {TF} {
+  \clist_map_inline:Nn \l__ltjpreset_extensions_clist {
+    \bool_set_false:N \l_tmpa_bool
+    \tl_if_in:nnT {#1 <= end_of_string} {##1 <= end_of_string}
+      { \bool_set_true:N \l_tmpa_bool \clist_map_break: }
   }
+  \bool_if:NTF \l_tmpa_bool \prg_return_true: \prg_return_false:
+}
+\cs_new:Nn \__ltjpreset_wrap_fontname:n {
+  \__ltjpreset_if_detect_external:nTF { #1 }
+    { \cs_set:Nn \l__ltjpreset_font_name: { [#1] } }
+    { \cs_set:Nn \l__ltjpreset_font_name: { "#1" } }
+}
+\cs_generate_variant:Nn \__ltjpreset_wrap_fontname:n { e }
+
+%%%%%%%% 存在判定
+\cs_new:Nn \__ltjpreset_substitute:nnnn {
+  \group_begin:
+    \suppressfontnotfounderror=1
+    \cs_if_exist:cTF { __ltjpreset_font_#1_#2: } {
+      \bool_if:NF \g__ltjpreset_nocheck_bool {
+        \__ltjpreset_wrap_fontname:e { \cs:w __ltjpreset_font_#1_#2: \cs_end: }
+        \font \g__ltjpreset_font_test: = \l__ltjpreset_font_name:\relax
+        \ifx \g__ltjpreset_font_test: \nullfont
+          \msg_warning:nnxxxx { luatexja-preset }{ no-font }
+            { \cs:w __ltjpreset_font_#1_#2: \cs_end: }{ #1/#2 }
+            { \cs:w __ltjpreset_font_#3_#4: \cs_end: }{ #3/#4 }
+          \cs_gset_eq:cc { __ltjpreset_font_#1_#2: } { __ltjpreset_font_#3_#4: }
+        \fi
+      }
+    } { \cs_gset_eq:cc { __ltjpreset_font_#1_#2: } { __ltjpreset_font_#3_#4: } }
+  \group_end:
 }
 
-%%%%%%%% main routine
-
-%%%%  リストからの展開
-% mc/m
-\clist_pop:NN \l_ltjpreset_font_list \l_tmpa_tl
-\cs_set:Nx \ltjpreset_font_mc_m: { \tl_use:N \l_tmpa_tl }
-
-% mc/bx
-\clist_pop:NN \l_ltjpreset_font_list \l_tmpa_tl
-\cs_set:Nx \ltjpreset_font_mc_bx: { \tl_use:N \l_tmpa_tl }
-
-% gt/m
-\clist_pop:NN \l_ltjpreset_font_list \l_tmpa_tl
-\cs_set:Nx \ltjpreset_font_gt_m: { \tl_use:N \l_tmpa_tl }
-
-% gt/bx
-\clist_pop:NN \l_ltjpreset_font_list \l_tmpa_tl
-\cs_set:Nx \ltjpreset_font_gt_bx: { \tl_use:N \l_tmpa_tl }
-
-% gt/m-uni
-\clist_pop:NN \l_ltjpreset_font_list \l_tmpa_tl
-\cs_set:Nx \ltjpreset_font_gt_n_uni: { \tl_use:N \l_tmpa_tl }
-
-% gt/eb
-\clist_pop:NN \l_ltjpreset_font_list \l_tmpa_tl
-\cs_set:Nx \ltjpreset_font_gt_eb: { \tl_use:N \l_tmpa_tl }
-
-% mg/m
-\clist_pop:NN \l_ltjpreset_font_list \l_tmpa_tl
-\cs_set:Nx \ltjpreset_font_mg: { \tl_use:N \l_tmpa_tl }
-
-%% HG 系フォント + JIS2004/90JIS のときはフォント名を置換
-\bool_if:NT \l_ltjpreset_office_bool {
-  \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS2004 }
-  \tl_if_eq:NNT \l_ltjpreset_kanji_shape_tl \l_tmpa_tl { 
-    \cs_set:Nx \ltjpreset_font_mc_bx: { hgrme04.ttc }
-    \cs_set:Nx \ltjpreset_font_gt_bx: { hgrge04.ttc }
-    \cs_set:Nx \ltjpreset_font_gt_eb: { hgrsgu04.ttc }
-    \cs_set:Nx \ltjpreset_font_mg:    { hgrsmp04.ttf }
-    \cs_set_eq:NN \ltjpreset_font_gt_m: \ltjpreset_font_gt_n_uni:
-    % HG ゴシックM のときはそうはいかないので 1 ウェイト時のゴシック体を使う
-  }
-  \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS1990 }
-  \tl_if_eq:NNT \l_ltjpreset_kanji_shape_tl \l_tmpa_tl { 
-    \cs_set:Nx \ltjpreset_font_mc_bx: { hgrme.ttc }
-    \cs_set:Nx \ltjpreset_font_gt_bx: { hgrge.ttc }
-    \cs_set:Nx \ltjpreset_font_gt_eb: { hgrsgu.ttc }
-    \cs_set:Nx \ltjpreset_font_mg:    { hgrsmp.ttf }
+%%%%%%%% deluxe (\mgfamily はあとで定義)
+\bool_if:NTF \g__ltjpreset_deluxe_bool {
+  \cs_new:Nn \__ltjpreset_check_deluxe_existence: {
+    \__ltjpreset_substitute:nnnn { gt } { eb } { gt } { b }
+    \__ltjpreset_substitute:nnnn { mg } { m  } { gt } { b }
+    \__ltjpreset_substitute:nnnn { mc } { l  } { mc } { m }
   }
+  \def\ltdefault{l}
+  \DeclareRobustCommand\ltseries { \not@math@alphabet\ltseries\relax\fontseries\ltdefault\selectfont }
+  \def\ebdefault{eb}
+  \DeclareRobustCommand\ebseries { \not@math@alphabet\ebseries\relax\fontseries\ebdefault\selectfont }
+  \DeclareRobustCommand\gtebfamily { \gtfamily\fontseries{\ebdefault}\selectfont }
+  \DeclareTextFontCommand{\textlt}{\ltseries}
+  \DeclareTextFontCommand{\texteb}{\ebseries}
+} {
+  \cs_set_eq:NN \__ltjpreset_check_deluxe_existence: \prg_do_nothing:
 }
 
-% expert 用設定
-\tl_new:N \l_ltjpreset_add_features_tl
+\int_new:N \g__ltjpreset_applycount_int
 
-\tl_set:Nx \l_ltjpreset_add_features_tl {
-  \tl_use:N \l_ltjpreset_kanji_shape_tl, 
-  YokoFeatures = { JFM = \ltjpreset_use_jfm: }, 
-}
+\bool_if:NTF \g__ltjpreset_nfssonly_bool {
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%% nfss only
+  \cs_if_exist:NF \Cjascale {
+    \group_begin:
+    \fontsize{16}{16}\selectfont
+    \cs_gset:Npx \Cjascale { \fp_to_decimal:n {\zw / 16} }
+    \group_end:
+  }
 
-\bool_if:NT \l_ltjpreset_expert_bool {
-  \cs_set:Npn \rubyfamily { \addfontfeatures { Style = Ruby} }
-  \tl_put_left:Nn \l_ltjpreset_add_features_tl { Style = HorizontalKana, }
-}
+  \msg_warning:nnx { luatexja-preset }{ scale }{ \Cjascale }
 
-% (丸)ゴシック体の設定: bold option もここで
-\int_compare:nTF { \l_ltjpreset_deluxe_int ==  2 } {
-%% mg
- \newjfontfamily \mgfamily [
-      BoldFont = \ltjpreset_font_mg:,
-      \tl_use:N \l_ltjpreset_add_features_tl
-      \bool_if:NT \l_ltjpreset_noembed_bool { , NoEmbed }, 
-      \tl_use:N \l_ltjpreset_add_features_tl 
-    ] { \ltjpreset_font_mg: }
+  % {1: encoding}{2: family}{3: series}{4: shape}{5: fontname}{6: feature}{7: scale}
+  \cs_new:Nn \__ltjpreset_declare_font_shape:nnnnnnn {
+    \DeclareFontShape{#1}{#2}{#3}{#4}{ <-> s*[#7]
+      \bool_if:NT \g__ltjpreset_noembed_bool {psft:} #5
+      ;-kern \tl_use:N \l__ltjpreset_kanji_shape_tl; #6 } {}
+  }
+  \cs_new:Nn \__ltjpreset_define_family:nnn {
+       \__ltjpreset_wrap_fontname:e { #3 }
+    \__ltjpreset_declare_font_shape:nnnnnnn { JY3 }
+      { ltjp #1 \int_to_arabic:n { \g__ltjpreset_applycount_int }} { #2 } { n }
+      { \l__ltjpreset_font_name: : jfm=\tl_use:N \__ltjpreset_use_jfm_yoko_tl }
+      { script=hani \bool_if:NT \g__ltjpreset_expert_bool { ;+hkna } }
+         { \Cjascale }
+    \__ltjpreset_declare_font_shape:nnnnnnn { JT3 }
+      { ltjp #1 \int_to_arabic:n { \g__ltjpreset_applycount_int }} { #2 } { n }
+      { \l__ltjpreset_font_name:  : jfm=\tl_use:N \__ltjpreset_use_jfm_tate_tl }
+      { script=hani \bool_if:NT \g__ltjpreset_expert_bool { ;+vkna } }
+         { \Cjascale }
+    \bool_if:NT \g__ltjpreset_expert_bool {
+      \__ltjpreset_declare_font_shape:nnnnnnn { JY3 }
+        { ltjp #1 \int_to_arabic:n { \g__ltjpreset_applycount_int }} { #2 } { rb }
+        { \l__ltjpreset_font_name:  : jfm=\tl_use:N \__ltjpreset_use_jfm_yoko_tl } { script=kana; +ruby }
+           { \Cjascale }
+      \__ltjpreset_declare_font_shape:nnnnnnn { JT3 }
+        { ltjp #1 \int_to_arabic:n { \g__ltjpreset_applycount_int }} { #2 } { rb }
+        { \l__ltjpreset_font_name:  : jfm=\tl_use:N \__ltjpreset_use_jfm_tate_tl } { script=kana; +ruby }
+           { \Cjascale }
+    }
+    \cs_if_exist:NT \ltjpreset_define_family_hook_nfssonly:nnn
+      { \ltjpreset_define_family_hook_nfssonly:nnn { #1 } { #2 } { #3 } }
+  }
+  \bool_if:NT \g__ltjpreset_deluxe_bool {
+    \let\mgfamily\undefined
+    \DeclareRobustCommand\mgfamily {
+      \not@math@alphabet\mgfamily\relax
+      \kanjifamily{ltjpmg \int_to_arabic:n { \g__ltjpreset_applycount_int }}\selectfont
+    }
     \DeclareTextFontCommand{\textmg}{\mgfamily}
-%% gt/eb
-%% 注意: ファミリは 'gteb'.シリーズは \mdseries のまま.
-%%       \bfseries を追加したほうが良い?
-  \newjfontfamily \gtebfamily [
-      BoldFont = \ltjpreset_font_gt_eb:, 
-      \tl_use:N \l_ltjpreset_add_features_tl
-      \bool_if:NT \l_ltjpreset_noembed_bool { , NoEmbed }, 
-      \tl_use:N \l_ltjpreset_add_features_tl 
-    ] { \ltjpreset_font_gt_eb: }
-  \DeclareTextFontCommand{\textgteb}{\gtebfamily}
-  \bool_if:NT \l_ltjpreset_bold_bool {
-    \cs_set_eq:NN \ltjpreset_font_mc_bx: \ltjpreset_font_gt_bx:
   }
-}{
-  \bool_if:NTF \l_ltjpreset_bold_bool {
-    \cs_set_eq:NN \ltjpreset_font_gt_m: \ltjpreset_font_gt_bx:
-  }{
-    \cs_set_eq:NN \ltjpreset_font_gt_m: \ltjpreset_font_gt_n_uni:
+  \bool_if:NT \g__ltjpreset_expert_bool {
+    \DeclareRobustCommand\rubyfamily { \kanjishape{rb}\selectfont }
+  }
+  %
+  \cs_new:Nn \__ltjpreset_do_fontset: { \group_begin:
+    % ======
+    \xdef\mcdefault{ltjpmc \int_to_arabic:n { \g__ltjpreset_applycount_int }}
+    \xdef\gtdefault{ltjpgt \int_to_arabic:n { \g__ltjpreset_applycount_int }}
+    \DeclareKanjiFamily{JY3}{\mcdefault}{}
+    \DeclareKanjiFamily{JT3}{\mcdefault}{}
+    \DeclareKanjiFamily{JY3}{\gtdefault}{}
+    \DeclareKanjiFamily{JT3}{\gtdefault}{}
+    \unless\ifltj@disablejfam
+      \SetSymbolFont{mincho}{normal}{JY3}{\mcdefault}{m}{n}
+      \SetSymbolFont{mincho}{bold}{JY3}{\mcdefault}{b}{n}
+      \DeclareMathAlphabet{\mathgt}{JY3}{\gtdefault}{m}{n}
+    \fi
+    \bool_if:NT \g__ltjpreset_deluxe_bool {
+      \DeclareKanjiFamily{JY3}{ltjpmg \int_to_arabic:n { \g__ltjpreset_applycount_int }}{}
+      \DeclareKanjiFamily{JT3}{ltjpmg \int_to_arabic:n { \g__ltjpreset_applycount_int }}{}
+    }
+    % ======
+    \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS1990 }
+    \tl_if_eq:NNT \l__ltjpreset_kanji_shape_tl \l_tmpa_tl {
+      \tl_set:Nn \l__ltjpreset_kanji_shape_tl { ;+jp90 }
+    }
+    \tl_set:Nn \l_tmpa_tl {, CJKShape=JIS2004 }
+    \tl_if_eq:NNT \l__ltjpreset_kanji_shape_tl \l_tmpa_tl {
+      \tl_set:Nx \l__ltjpreset_kanji_shape_tl { ;+jp04 }
+    }
+    \__ltjpreset_define_family:nnn {mc} {m}  {\__ltjpreset_font_mc_m:}
+    \__ltjpreset_define_family:nnn {mc} {bx} {\__ltjpreset_font_mc_b:}
+    \__ltjpreset_define_family:nnn {mc} {b}  {\__ltjpreset_font_mc_b:}
+    \__ltjpreset_define_family:nnn {gt} {m}  {\__ltjpreset_font_gt_m:}
+    \__ltjpreset_define_family:nnn {gt} {bx} {\__ltjpreset_font_gt_b:}
+    \__ltjpreset_define_family:nnn {gt} {b}  {\__ltjpreset_font_gt_b:}
+    \normalfont
+    \bool_if:NT \g__ltjpreset_deluxe_bool {
+      \__ltjpreset_define_family:nnn {mc}  {l} {\__ltjpreset_font_mc_l:}
+      \__ltjpreset_define_family:nnn {gt}  {eb} {\__ltjpreset_font_gt_eb:}
+      \__ltjpreset_define_family:nnn {mg} {m}  {\__ltjpreset_font_mg_m:}
+    }
+    \group_end:
+  }
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%%%%%%%% fontspec
+} {
+  \RequirePackage{luatexja-fontspec}
+  % scale
+  \msg_warning:nnx { luatexja-preset }{ scale }{ \Cjascale }
+  \tl_new:N \l__ltjpreset_add_features_tl
+
+  \bool_if:NT \g__ltjpreset_expert_bool {
+    \cs_set:Npn \rubyfamily { \addjfontfeatures {
+      Style=Ruby , YokoFeatures={RawFeature=-hkna} , TateFeatures={RawFeature=-vkna}
+    } }
+  }
+  \addjfontfeature{ Kerning=Off }
+  % 実際の fontspec の呼びだし
+  \cs_new:Nn \__ltjpreset_do_fontset: { \group_begin:
+      \tl_gset:Nx \l__ltjpreset_add_features_tl {
+        \tl_use:N \l__ltjpreset_kanji_shape_tl,
+        YokoFeatures = { JFM = \tl_use:N \__ltjpreset_use_jfm_yoko_tl },
+        TateFeatures = { JFM = \tl_use:N \__ltjpreset_use_jfm_tate_tl },
+        Script=CJK, \bool_if:NT \g__ltjpreset_noembed_bool { , NoEmbed }
+      }
+    \group_end:
+    \bool_if:NT \g__ltjpreset_expert_bool {
+      \tl_put_left:Nn \l__ltjpreset_add_features_tl {
+        , YokoFeatures = {Style = HorizontalKana}, TateFeatures = {Style = VerticalKana}
+      }
+    }
+    \setmainjfont [
+      \bool_if:NT \g__ltjpreset_deluxe_bool {
+           FontFace={l}{n}{ Font = \__ltjpreset_font_mc_l:,
+          \cs_if_exist:NT \ltjpreset_define_family_hook_fontspec:nnn {
+            \ltjpreset_define_family_hook_fontspec:nnn
+                         { mc } { l } { \__ltjpreset_font_mc_l: }
+             }
+               },
+         }
+      BoldFont = \__ltjpreset_font_mc_b: \tl_use:N \l__ltjpreset_add_features_tl,
+      \cs_if_exist:NT \ltjpreset_define_family_hook_fontspec:nnn {
+               UprightFeatures = { \ltjpreset_define_family_hook_fontspec:nnn
+                 { mc } { m } { \__ltjpreset_font_mc_m: } },
+               BoldFeatures = { \ltjpreset_define_family_hook_fontspec:nnn
+                 { mc } { b } { \__ltjpreset_font_mc_b: } },
+         }
+    ] { \__ltjpreset_font_mc_m: }
+    \setsansjfont [
+      \bool_if:NT \g__ltjpreset_deluxe_bool {
+               FontFace={eb}{n}{ Font = \__ltjpreset_font_gt_eb:,
+          \cs_if_exist:NT \ltjpreset_define_family_hook_fontspec:nnn {
+            \ltjpreset_define_family_hook_fontspec:nnn
+                         { gt } { eb } { \__ltjpreset_font_gt_eb: }
+             }
+           },
+         }
+      BoldFont = \__ltjpreset_font_gt_b: \tl_use:N \l__ltjpreset_add_features_tl,
+      \cs_if_exist:NT \ltjpreset_define_family_hook_fontspec:nnn {
+               UprightFeatures = { \ltjpreset_define_family_hook_fontspec:nnn
+                 { gt } { m } { \__ltjpreset_font_gt_m: } },
+               BoldFeatures = { \ltjpreset_define_family_hook_fontspec:nnn
+                 { gt } { b } { \__ltjpreset_font_gt_b: } },
+         }
+    ] { \__ltjpreset_font_gt_m: }
+    \bool_if:NT \g__ltjpreset_deluxe_bool {
+      %% mg
+      \bool_if_exist:NTF \setfontfamily {
+        \setjfontfamily \mgfamily [
+          BoldFont = \__ltjpreset_font_mg_m: \tl_use:N \l__ltjpreset_add_features_tl,
+          \cs_if_exist:NT \ltjpreset_define_family_hook_fontspec:nnn {
+                   \ltjpreset_define_family_hook_fontspec:nnn
+                     { mg } { m } { \__ltjpreset_font_mg_m: },
+          }
+        ] { \__ltjpreset_font_mg_m: }
+      } {
+        \newjfontfamily \mgfamily [
+          BoldFont = \__ltjpreset_font_mg_m: \tl_use:N \l__ltjpreset_add_features_tl,
+          \cs_if_exist:NT \ltjpreset_define_family_hook_fontspec:nnn {
+                   \ltjpreset_define_family_hook_fontspec:nnn
+                     { mg } { m } { \__ltjpreset_font_mg_m: },
+          }
+        ] { \__ltjpreset_font_mg_m: }
+      }
+      \DeclareTextFontCommand{\textmg}{\mgfamily}
+    }
+  }
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+}
+
+\def\ltjnewpreset{
+    \@ifstar{\__ltjpreset_new_preset:nnn{ true }}{\__ltjpreset_new_preset:nnn{ false }}}
+\cs_set:Nn \__ltjpreset_new_preset:nnn {
+  \keys_if_exist:nnTF { luatexja-preset } { #2 } {
+    \seq_if_in:NnTF \g__ltjpreset_presets_seq { #2 } {
+      \bool_if:cTF { c_ #1 _bool } {
+        \msg_warning:nnn { luatexja-preset }{ exist-preset-overwrite } { #2 }
+        \keys_define:nn { luatexja-preset } {
+        #2 .meta:n = { #3, __custom = true, __noembed = false, __office = false, },
+        #2 .value_forbidden:n = true, #2 .groups:n = { preset },
+        }
+      } {
+        \msg_error:nnn { luatexja-preset }{ exist-preset-nooverwrite } { #2 }
+      }
+    } {
+      \msg_error:nnn { luatexja-preset }{ illegal-preset-name } { #2 }
+    }
+  } {
+    \keys_define:nn { luatexja-preset } {
+      #2 .meta:n = { #3, __custom = true, __noembed = false, __office = false, },
+      #2 .value_forbidden:n = true, #2 .groups:n = { preset },
+    }
+    \seq_put_right:Nn \g__ltjpreset_presets_seq { #2 }
   }
-  \cs_set_eq:NN \ltjpreset_font_gt_bx: \ltjpreset_font_gt_m:
-  \cs_set_eq:NN \ltjpreset_font_mc_bx: \ltjpreset_font_gt_m:
 }
 
 
-% 実際の fontspec の呼びだし
+\cs_set:Npn \ltjapplypreset #1 {
+  \int_gincr:N \g__ltjpreset_applycount_int
+  \keys_set_groups:nnn { luatexja-preset } { preset } { #1 }
+  % \prop_map_inline:Nn \g__ltjpreset_font_prop {\typeout{ [##1] = "##2" } }
+  \__ltjpreset_extract_fonts:
+  \__ltjpreset_check_deluxe_existence:
+  \__ltjpreset_do_fontset:
+  \normalfont
+}
 
-\addjfontfeature{ Kerning=Off }
+\ltjapplypreset {}
 
-\setmainjfont [ 
-  BoldFont = \ltjpreset_font_mc_bx:
-  \bool_if:NT \l_ltjpreset_noembed_bool { , NoEmbed }, 
-  \tl_use:N \l_ltjpreset_add_features_tl 
-] { \ltjpreset_font_mc_m: }
-\setsansjfont [ 
-  BoldFont = \ltjpreset_font_gt_bx: 
-  \bool_if:NT \l_ltjpreset_noembed_bool { , NoEmbed }, 
-  \tl_use:N \l_ltjpreset_add_features_tl 
-] { \ltjpreset_font_gt_m: }
+\@onlypreamble\ltjnewpreset
+\@onlypreamble\ltjapplypreset
 
 \ExplSyntaxOff
+
 \endinput