% luatexja-preset.sty
\ProvidesPackage{luatexja-preset}[2013/10/28 Japanese font presets]

\RequirePackage{expl3}
\RequirePackage{luatexja-fontspec}
\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}

\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}

\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

% scale
\msg_new:nnn { luatexja-preset }{ scale }{
  Japanese~fonts~will~be~scaled~by~\fp_use:N \g_ltj_fontspec_scale_fp.
}
\msg_warning:nn { luatexja-preset }{ scale }

% 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 \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

% 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
  }
  \bool_set_true:N \l_ltjpreset_office_bool
}


% 小塚 (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
  }
}
%% 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
  }
}
%% 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
  }
}

% ヒラギノ (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 , 
  }
}
\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 , 
  }
}

% モリサワ
\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
  }
}
\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
  }
}

% 游明朝/游ゴシック (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
  }
}

% 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
  }
}

% ipa, ipaex, ms
\DeclareOption{ipa}{
  \ltjpreset_set_uni:nn { IPAMincho } { IPAGothic }
}
\DeclareOption{ipaex}{
  \ltjpreset_set_uni:nn { IPAExMincho } { IPAExGothic }
}
\DeclareOption{ms}{
  \ltjpreset_set_uni:nn { MS-Mincho } { MS-Gothic }
}

% {ipa,ipaex,ms}-dx % Office 付属フォントを利用
\DeclareOption{ipaex-hg}{
  \ltjpreset_set_office:nn { IPAExMincho } { IPAExGothic }
}
\DeclareOption{ipa-hg}{
  \ltjpreset_set_office:nn { IPAMincho } { IPAGothic }
}
\DeclareOption{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
}

\ExecuteOptions{noembed}
\ProcessOptions*

%% 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 }
  }
}

%% 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 }
  }
}

%%%%%%%% 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 }
  }
}

% expert 用設定
\tl_new:N \l_ltjpreset_add_features_tl

\tl_set:Nx \l_ltjpreset_add_features_tl {
  \tl_use:N \l_ltjpreset_kanji_shape_tl, 
  JFM   = \ltjpreset_use_jfm:
}

\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, }
}

% （丸）ゴシック体の設定: 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: }
    \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:
  }
  \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 の呼びだし

\addjfontfeature{ Kerning=Off }

\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: }

\ExplSyntaxOff
\endinput
