src/addons/luatexja-fontspec.sty

   1 %
   2 % luatexja-fontspec.sty
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \ProvidesPackage{luatexja-fontspec}[2014/03/25 fontspec support of LuaTeX-ja]
   7 \RequirePackage{l3keys2e,luatexja}
   8 \ExplSyntaxOn
   9
  10 \bool_new:N \ltj_fontspec_match
  11 \cs_set:Nn  \ltj_fontspec_pass_opts: {}
  12 \keys_define:nn { luatexja-fontspec }
  13   {
  14     match .bool_set:N = \ltj_fontspec_match,
  15     match .default:n  = true,
  16     pass .code:n = \cs_set:Nn \ltj_fontspec_pass_opts: {#1},
  17   }
  18 \ProcessKeysOptions { luatexja-fontspec }
  19 \RequirePackage[\ltj_fontspec_pass_opts:]{fontspec}[2011/09/13]
  20
  21 %%%%%%%% Change Japanese font family by \rmfamily or not
  22 \bool_if:NTF  \ltj_fontspec_match
  23 {
  24   \renewcommand\jttdefault{\gtdefault}
  25   \DeclareRobustCommand\rmfamily
  26   {\not@math@alphabet\rmfamily\mathrm
  27      \romanfamily\rmdefault\kanjifamily\mcdefault\selectfont}
  28   \DeclareRobustCommand\sffamily
  29   {\not@math@alphabet\sffamily\mathsf
  30      \romanfamily\sfdefault\kanjifamily\gtdefault\selectfont}
  31   \DeclareRobustCommand\ttfamily
  32   {\not@math@alphabet\ttfamily\mathtt
  33      \romanfamily\ttdefault\kanjifamily\jttdefault\selectfont}
  34   \DeclareDocumentCommand \setmonojfont { O{} m } {
  35     \ltj_fontspec_set_family:Nnn \jttdefault {#1}{#2}
  36     \normalfont
  37   }
  38 }{
  39 }
  40
  41 %%%%%%%% Messages
  42 \cs_new:Npn \ltj_fontspec_warning:n   { \msg_warning:nn   {ltj-fontspec} }
  43
  44 \msg_new:nnn {ltj-fontspec} {addjfontfeatures-ignored}
  45 {
  46   \string\addjfontfeature (s)~ ignored;\\
  47   it~ cannot~ be~ used~ with~ a~ font~ that~ wasn't~ selected~ by~ luatexja-fontspec.
  48 }
  49
  50 \cs_generate_variant:Nn \prg_new_conditional:Nnn {Nnx}
  51
  52 %%%%%%%% \g_ltj_fontspec_scale_fp
  53 %% Default scale value for jfont.
  54 \group_begin:
  55 \fontsize{10}{10}\selectfont
  56 \fp_gset:Nn \g_ltj_fontspec_scale_fp {\zw / 10}
  57 \group_end:
  58
  59 %%%%%%%% Internal control sequences
  60 %% Each CS is ltj_fontspec version that corresponds to original CS of fontspec.
  61 \cs_new:Nn \ltj_fontspec_define_option:nn {
  62   \keys_define:nn {fontspec} { #1 .code:n = {#2}}
  63 }
  64
  65 \cs_new:Nn \ltj_fontspec_define_preparse_external:nn {
  66   \keys_define:nn {fontspec-preparse-external} { #1 .code:n = {#2}}
  67 }
  68
  69 %% Alternate Fonts
  70 \bool_new:N \l_fontspec_alt_bool
  71 \seq_clear_new:N \ltj_fontspec_fontname_alt_seq
  72 \seq_clear_new:N \ltj_fontspec_fontfeat_alt_seq
  73 \seq_clear_new:N \ltj_fontspec_altrange_seq
  74 \tl_clear_new:N \ltj_fontspec_fontname_alt_tl
  75 \tl_clear_new:N \ltj_fontspec_fontfeat_alt_tl
  76 \tl_clear_new:N \ltj_fontspec_altrange_tl
  77
  78 \cs_new:Nn \__ltj_fontspec_altfontrange_key_code:n
  79  {
  80   \fontspec_update_fontid:n {altfrange:#1}
  81   \bool_if:NF \l_fontspec_firsttime_bool
  82    {
  83     \seq_set_split:Nnn \ltj_fontspec_altrange_seq , {#1}
  84    }
  85  }
  86 \cs_new:Nn \__ltj_fontspec_altfontfeature_key_code:n
  87  {
  88   \fontspec_update_fontid:n {altfeat:#1}
  89   \bool_if:NF \l_fontspec_firsttime_bool
  90    {
  91      \seq_set_split:Nnn \ltj_fontspec_fontfeat_alt_seq ,  {#1}
  92    }
  93  }
  94
  95
  96 \cs_new:Nn \__ltj_fontspec_altfont_map:n {
  97   \fontspec_complete_fontname:Nn \l_tmpb_tl {#1}
  98   \seq_put_right:No \l_tmpa_seq \l_tmpb_tl
  99 }
 100
 101 \cs_new:Nn \__ltj_fontspec_altfont_key_code:n
 102  {
 103   \tl_if_empty:nF {#1}
 104    {
 105      \seq_set_split:Nnn \ltj_fontspec_fontname_alt_seq , {#1}
 106      \seq_clear:N \l_tmpa_seq
 107      \seq_map_function:NN \ltj_fontspec_fontname_alt_seq \__ltj_fontspec_altfont_map:n
 108      \seq_set_eq:NN \ltj_fontspec_fontname_alt_seq \l_tmpa_seq
 109      \fontspec_update_fontid:n {alt:#1}
 110    }
 111  }
 112
 113 \cs_new:Nn \ltj_fontspec_select:nn {
 114   \group_begin:
 115   \bool_set_false:N \ltj_fontspec_alt_bool
 116   \ltj_fontspec_define_option:nn {AltFont} {
 117     \__ltj_fontspec_altfont_key_code:n { ##1 }
 118   }
 119   \ltj_fontspec_define_option:nn {AltFontFeatures} {
 120     \__ltj_fontspec_altfontfeature_key_code:n { ##1 }
 121   }
 122   \ltj_fontspec_define_option:nn {AltFontRange} {
 123     \__ltj_fontspec_altfontrange_key_code:n { ##1 }
 124   }
 125   \ltj_fontspec_define_option:nn {CID} {
 126     \fontspec_update_fontid:n  {+cid=##1}
 127     \fontspec_update_featstr:n {cid=##1}
 128   }
 129   \ltj_fontspec_define_option:nn {JFM} {
 130     \fontspec_update_fontid:n  {+jfm=##1}
 131     \fontspec_update_featstr:n {jfm=##1}
 132   }
 133   \ltj_fontspec_define_option:nn {JFM-var} {
 134     \fontspec_update_fontid:n  {+jfmvar=##1}
 135     \fontspec_update_featstr:n {jfmvar=##1}
 136   }
 137   \ltj_fontspec_define_preparse_external:nn {NoEmbed} {
 138     \cs_set:Nn \fontspec_namewrap:n {psft:####1}
 139   }
 140   %% Omit the warning message
 141   %% "OpenType feature 'Kerning=Off' (-kern) not available ..."
 142   \ltj_fontspec_define_option:nn {Kerning/Off} {
 143     \fontspec_update_fontid:n  {-kern}
 144     \fontspec_update_featstr:n {-kern}
 145   }
 146   \tl_set:Nn \g_fontspec_encoding_tl {JY3}
 147   \tl_set:Nx \g_fontspec_default_fontopts_tl
 148              {JFM=ujis, Scale=\fp_use:N \g_ltj_fontspec_scale_fp,
 149               Kerning=Off, \g_ltj_fontspec_default_fontopts_tl}
 150   \prop_set_eq:NN \g__fontspec_fontopts_prop \g__ltj_fontspec_fontopts_prop
 151   \cs_set_eq:NN \fontspec_make_font_shapes:nnnn \ltj_fontspec_make_font_shapes:nnnn
 152   \cs_set_eq:NN \DeclareFontFamily \DeclareKanjiFamily
 153   \fontspec_select:nn{#1}{#2}
 154   \group_end:
 155 }
 156
 157 \cs_new:Nn \ltj_fontspec_set_family:Nnn {
 158   \ltj_fontspec_select:nn{#2}{#3}
 159   \tl_set_eq:NN #1 \l_fontspec_family_tl
 160 }
 161 \cs_set_eq:NN \ltj_orig_fontspec_make_font_shapes:nnnn \fontspec_make_font_shapes:nnnn
 162 \cs_set_eq:NN \ltj_fontspec_orig_DeclareFontShape \DeclareFontShape
 163 \def \ltj_fontspec_dummy_DeclareFontShape #1#2#3#4#5#6 {}
 164 \cs_new:Nn \ltj_fontspec_make_font_shapes:nnnn {
 165   \ltj_orig_fontspec_make_font_shapes:nnnn {#1} {#2} {#3} {#4}
 166   \group_begin:
 167     %% Parse font features. However, we have to avoid redefine already defined shape.
 168     \__fontspec_load_fontname:n {#1}
 169     \cs_set_eq:NN \DeclareFontShape \ltj_fontspec_dummy_DeclareFontShape
 170     \fontspec_declare_shape:nnn {#2}{#3}
 171      { \quark_if_no_value:NF \l__fontspec_fontopts_clist {\l__fontspec_fontopts_clist,} #4 }
 172     \cs_set_eq:NN \DeclareFontShape \ltj_fontspec_orig_DeclareFontShape
 173     %%
 174     \bool_if:NF {
 175         \int_compare_p:nNn { \seq_count:N \ltj_fontspec_fontfeat_alt_seq }
 176           < { \seq_count:N \ltj_fontspec_altrange_seq }
 177           ||
 178         \int_compare_p:nNn { \seq_count:N \ltj_fontspec_fontname_alt_seq }
 179           < { \seq_count:N \ltj_fontspec_altrange_seq }
 180     } {
 181       \int_zero:N \l_tmpa_int
 182       \bool_until_do:nn { \seq_if_empty_p:N \ltj_fontspec_altrange_seq  } {
 183         \seq_pop:NN \ltj_fontspec_altrange_seq \ltj_fontspec_altrange_tl
 184         \seq_pop:NN \ltj_fontspec_fontfeat_alt_seq \ltj_fontspec_fontfeat_alt_tl
 185         \seq_pop:NN \ltj_fontspec_fontname_alt_seq \ltj_fontspec_fontname_alt_tl
 186         \group_begin:
 187           \__fontspec_load_fontname:n {
 188             \quark_if_no_value:NTF \ltj_fontspec_fontname_alt_tl
 189              { #1 } {
 190                \tl_if_empty:NTF \ltj_fontspec_fontname_alt_tl
 191                 {#1} \ltj_fontspec_fontname_alt_tl
 192              }
 193           }
 194           \fontspec_declare_shape:nnn {#2}{#3 _ alt \int_use:N \l_tmpa_int } {
 195             \quark_if_no_value:NF \l__fontspec_fontopts_clist {\l__fontspec_fontopts_clist,}
 196             #4 ,
 197             \quark_if_no_value:NF \ltj_fontspec_fontfeat_alt_tl \ltj_fontspec_fontfeat_alt_tl
 198           }
 199           \DeclareAlternateKanjiFont
 200             {JY3}{ \l_fontspec_family_tl }{#2}{#3}%
 201             {JY3}{ \l_fontspec_family_tl }{#2}{ #3 _alt\int_use:N \l_tmpa_int }
 202             { \ltj_fontspec_altrange_tl }
 203         \group_end:
 204         \int_incr:N \l_tmpa_int
 205       }
 206     }
 207   \group_end:
 208  }
 209
 210 %%%%%%%% User commands
 211 \DeclareDocumentCommand \jfontspec { O{} m } {
 212   \ltj_fontspec_set_family:Nnn \k@family {#1}{#2}
 213   \selectfont
 214   \ignorespaces
 215 }
 216
 217 \DeclareDocumentCommand \setmainjfont { O{} m } {
 218   \ltj_fontspec_set_family:Nnn \mcdefault {#1}{#2}
 219   \DeclareSymbolFont{mincho}{JY3}{\l_fontspec_family_tl}{m}{n}
 220   \SetSymbolFont{mincho}{bold}{JY3}{\l_fontspec_family_tl}{bx}{n}
 221   \normalfont
 222 }
 223
 224 \DeclareDocumentCommand \setsansjfont { O{} m } {
 225   \ltj_fontspec_set_family:Nnn \gtdefault {#1}{#2}
 226   \DeclareMathAlphabet{\mathgt}{JY3}{\l_fontspec_family_tl}{m}{n}
 227   \normalfont
 228 }
 229
 230 \DeclareDocumentCommand \newjfontfamily { m O{} m } {
 231   \ltj_fontspec_select:nn{#2}{#3}
 232   \use:x {
 233     \exp_not:N \DeclareRobustCommand \exp_not:N #1 {
 234       \exp_not:N \kanjifamily {\l_fontspec_family_tl} \exp_not:N \selectfont
 235     }
 236   }
 237 }
 238
 239 \DeclareDocumentCommand \newjfontface { m O{} m } {
 240   \newjfontfamily #1 [ BoldFont={},ItalicFont={},SmallCapsFont={},#2 ] {#3}
 241 }
 242
 243 \tl_new:N \g_ltj_fontspec_default_fontopts_tl
 244 \prop_new:N \g__ltj_fontspec_fontopts_prop
 245 \DeclareDocumentCommand \defaultjfontfeatures { o m }
 246  {
 247   \IfNoValueTF {#1}
 248    { \__ltj_fontspec_set_default_features:n {#2} }
 249    { \__ltj_fontspec_set_font_default_features:nn {#1} {#2} }
 250  }
 251 \cs_new:Nn \__ltj_fontspec_set_default_features:n
 252  {
 253   \tl_set:Nn \g_ltj_fontspec_default_fontopts_tl {#1,}
 254  }
 255 \cs_new:Nn \__ltj_fontspec_set_font_default_features:nn
 256  {
 257   \__fontspec_sanitise_fontname:Nn \l__fontspec_tmp_tl {#1}
 258   \tl_if_empty:nTF {#2}
 259    { \prop_gremove:NV \g__ltj_fontspec_fontopts_prop \l__fontspec_tmp_tl }
 260    { \prop_gput:NVn   \g__ltj_fontspec_fontopts_prop \l__fontspec_tmp_tl {#2} }
 261  }
 262
 263 \DeclareDocumentCommand \addjfontfeatures {m} {
 264   \ifcsname zf@family@fontdef\k@family\endcsname
 265     \group_begin:
 266       \tl_clear:N \g_ltj_fontspec_default_fontopts_tl
 267       \use:x {
 268         \exp_not:N\ltj_fontspec_select:nn
 269           {\csname zf@family@options\k@family\endcsname,#1}
 270           {\csname zf@family@fontname\k@family\endcsname}
 271       }
 272     \group_end:
 273     \fontfamily\l_fontspec_family_tl\selectfont
 274   \else
 275     \ltj_fontspec_warning:n {addjfontfeatures-ignored}
 276   \fi
 277   \ignorespaces
 278 }
 279
 280 \cs_set_eq:NN \addjfontfeature \addjfontfeatures
 281
 282 %%% CJKShape=JIS2004
 283 \fontspec_define_feature_option:nnnnn{CJKShape}{JIS2004}{20}{5}{+jp04}
 284
 285 \ExplSyntaxOff
 286 %%%%%%%% Now we completely ignore kanjifont definition file.
 287
 288 \DeclareRobustCommand\fontfamily[1]{%
 289   \@notkfamfalse\@notffamfalse
 290   \edef\tmp@item{'\luatexluaescapestring{#1}'}%
 291   \edef\tmp@enc{'\luatexluaescapestring{\f@encoding}'}%
 292   \ifcsname \k@encoding+#1\endcsname % if \k@encoding+#1 is already defined
 293     \edef\k@family{#1}%
 294   \else\@notkfamtrue\fi
 295   \ifcsname \f@encoding+#1\endcsname
 296     \edef\f@family{#1}%
 297   \else % search font definition file...
 298     \directlua{luatexja.jfont.is_ffam(\tmp@enc, \tmp@item)}%
 299     \ifin@\edef\k@family{#1}\else%
 300       \directlua{luatexja.jfont.is_Nffam(\tmp@enc, \tmp@item)}%
 301       \ifin@\@notffamtrue\else%
 302         % filename of font definition file is always lowercase
 303         \edef\@temp{\lowercase{\noexpand\IfFileExists{\f@encoding#1.fd}}}%
 304         \message{(I search font definition file)}%
 305         \@temp{\@tempswztrue}{\@tempswzfalse}%
 306         \if@tempswz
 307           \directlua{luatexja.jfont.add_ffam_list(\tmp@enc, \tmp@item)}%
 308           \edef\f@family{#1}%
 309         \else
 310           \directlua{luatexja.jfont.add_Nffam_list(\tmp@enc, \tmp@item)}%
 311           \@notffamtrue%
 312         \fi
 313       \fi
 314     \fi
 315   \fi
 316   \if@notkfam\if@notffam
 317       {\ifcsname D@\k@encoding\endcsname\@nameuse{D@\k@encoding}\fi
 318         \xdef\@@temp{\default@family}}\edef\k@family{\@@temp}%
 319       {\ifcsname D@\f@encoding\endcsname\@nameuse{D@\f@encoding}\fi
 320         \xdef\@@temp{\default@family}}\edef\f@family{\@@temp}%
 321   \fi\fi
 322 }
 323
 324 % We must redefine \try@load@fontshape to ignore kanjifont definitions at all.
 325 \def\try@load@fontshape{%
 326    \expandafter
 327    \ifx\csname \f@encoding+\f@family\endcsname\relax
 328        \directlua{luatexja.jfont.is_kenc('\luatexluaescapestring{\f@encoding}')}%
 329 \ifin@ % Japanese font: we don't search fd.
 330     \@font@warning{We don't search kanjifont definition
 331       \MessageBreak for \f@encoding/\f@family}%
 332 \else % Alphabetic font
 333     \@font@info{Try loading font information for \f@encoding+\f@family}%
 334     \global\expandafter\let
 335        \csname\f@encoding+\f@family\endcsname\@empty
 336      \nfss@catcodes
 337      \let\nfss@catcodes\relax
 338      \edef\reserved@a{%
 339        \lowercase{%
 340          \noexpand\InputIfFileExists{\f@encoding\f@family.fd}}}%
 341      \reserved@a\relax
 342           {\@input@{\f@encoding\f@family.fd}}%
 343 \fi
 344    \fi}
 345
 346 \endinput