src/addons/luatexja-fontspec-23.sty

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