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}
  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 %%%%%%%% For compatibility with old fontspec.
  53 \prg_new_conditional:Nnx \ltj_fontspec_if_liiikeys: {TF,F} {
  54   \@ifpackagelater {fontspec} {2011/09/13}
  55   { \exp_not:N \prg_return_true: }  % fontspec >= 2.2 (l3keys)
  56   { \exp_not:N \prg_return_false: } % fontspec <  2.2 (xkeyval)
  57 }
  58
  59 %%%%%%%% \g_ltj_fontspec_scale_fp
  60 %% Default scale value for jfont.
  61 \group_begin:
  62 \fontsize{10}{10}\selectfont
  63 \fp_gset:Nn \g_ltj_fontspec_scale_fp {\zw / 10}
  64 \group_end:
  65
  66 %%%%%%%% Internal control sequences
  67 %% Each CS is ltj_fontspec version that corresponds to original CS of fontspec.
  68 \cs_new:Nn \ltj_fontspec_define_option:nn {
  69   \ltj_fontspec_if_liiikeys:TF {
  70     \keys_define:nn {fontspec} { #1 .code:n = {#2}}
  71   } {
  72     \define@key[zf]{options}{#1}{#2}
  73   }
  74 }
  75
  76 \cs_new:Nn \ltj_fontspec_define_preparse_external:nn {
  77   \ltj_fontspec_if_liiikeys:TF {
  78     \keys_define:nn {fontspec-preparse-external} { #1 .code:n = {#2}}
  79   } {
  80     \define@key[zf]{preparse-external}{#1}{#2}
  81   }
  82 }
  83
  84 \cs_new:Nn \ltj_fontspec_select:nn {
  85   \group_begin:
  86   \ltj_fontspec_define_option:nn {CID} {
  87     \fontspec_update_fontid:n  {+cid=##1}
  88     \fontspec_update_featstr:n {cid=##1}
  89   }
  90   \ltj_fontspec_define_option:nn {JFM} {
  91     \fontspec_update_fontid:n  {+jfm=##1}
  92     \fontspec_update_featstr:n {jfm=##1}
  93   }
  94   \ltj_fontspec_define_option:nn {JFM-var} {
  95     \fontspec_update_fontid:n  {+jfmvar=##1}
  96     \fontspec_update_featstr:n {jfmvar=##1}
  97   }
  98   \ltj_fontspec_define_preparse_external:nn {NoEmbed} {
  99     \cs_set:Nn \fontspec_namewrap:n {psft:####1}
 100   }
 101   %% Omit the warning message
 102   %% "OpenType feature 'Kerning=Off' (-kern) not available ..."
 103   \ltj_fontspec_define_option:nn {Kerning/Off} {
 104     \fontspec_update_fontid:n  {-kern}
 105     \fontspec_update_featstr:n {-kern}
 106   }
 107   \ltj_fontspec_if_liiikeys:TF {
 108     \tl_set:Nn \g_fontspec_encoding_tl {JY3}
 109   } {
 110     \tl_set:Nn \zf@enc {JY3}
 111   }
 112   \tl_set:Nx \g_fontspec_default_fontopts_tl
 113              {JFM=ujis,Scale=\fp_use:N \g_ltj_fontspec_scale_fp,Kerning=Off,\g_ltj_fontspec_default_fontopts_tl}
 114   \prop_set_eq:NN \g__fontspec_fontopts_prop \g__ltj_fontspec_fontopts_prop
 115   \cs_set_eq:NN \DeclareFontFamily \DeclareKanjiFamily
 116   \fontspec_select:nn{#1}{#2}
 117   \group_end:
 118   \ltj_fontspec_if_liiikeys:F {
 119     \tl_set_eq:NN \l_fontspec_family_tl \zf@family
 120   }
 121 }
 122
 123 \cs_new:Nn \ltj_fontspec_set_family:Nnn {
 124   \ltj_fontspec_select:nn{#2}{#3}
 125   \tl_set_eq:NN #1 \l_fontspec_family_tl
 126 }
 127
 128 %%%%%%%% User commands
 129 \DeclareDocumentCommand \jfontspec { O{} m } {
 130   \ltj_fontspec_set_family:Nnn \k@family {#1}{#2}
 131   \selectfont
 132   \ignorespaces
 133 }
 134
 135 \DeclareDocumentCommand \setmainjfont { O{} m } {
 136   \ltj_fontspec_set_family:Nnn \mcdefault {#1}{#2}
 137   \DeclareSymbolFont{mincho}{JY3}{\l_fontspec_family_tl}{m}{n}
 138   \SetSymbolFont{mincho}{bold}{JY3}{\l_fontspec_family_tl}{bx}{n}
 139   \normalfont
 140 }
 141
 142 \DeclareDocumentCommand \setsansjfont { O{} m } {
 143   \ltj_fontspec_set_family:Nnn \gtdefault {#1}{#2}
 144   \DeclareMathAlphabet{\mathgt}{JY3}{\l_fontspec_family_tl}{m}{n}
 145   \normalfont
 146 }
 147
 148 \DeclareDocumentCommand \newjfontfamily { m O{} m } {
 149   \ltj_fontspec_select:nn{#2}{#3}
 150   \use:x {
 151     \exp_not:N \DeclareRobustCommand \exp_not:N #1 {
 152       \exp_not:N \kanjifamily {\l_fontspec_family_tl} \exp_not:N \selectfont
 153     }
 154   }
 155 }
 156
 157 \DeclareDocumentCommand \newjfontface { m O{} m } {
 158   \newjfontfamily #1 [ BoldFont={},ItalicFont={},SmallCapsFont={},#2 ] {#3}
 159 }
 160
 161 \tl_new:N \g_ltj_fontspec_default_fontopts_tl
 162 \prop_new:N \g__ltj_fontspec_fontopts_prop
 163 \DeclareDocumentCommand \defaultjfontfeatures { o m }
 164  {
 165   \IfNoValueTF {#1}
 166    { \__ltj_fontspec_set_default_features:n {#2} }
 167    { \__ltj_fontspec_set_font_default_features:nn {#1} {#2} }
 168  }
 169 \cs_new:Nn \__ltj_fontspec_set_default_features:n
 170  {
 171   \tl_set:Nn \g_ltj_fontspec_default_fontopts_tl {#1,}
 172  }
 173 \cs_new:Nn \__ltj_fontspec_set_font_default_features:nn
 174  {
 175   \__fontspec_sanitise_fontname:Nn \l__fontspec_tmp_tl {#1}
 176   \tl_if_empty:nTF {#2}
 177    { \prop_gremove:NV \g__ltj_fontspec_fontopts_prop \l__fontspec_tmp_tl }
 178    { \prop_gput:NVn   \g__ltj_fontspec_fontopts_prop \l__fontspec_tmp_tl {#2} }
 179  }
 180
 181 \DeclareDocumentCommand \addjfontfeatures {m} {
 182   \ifcsname zf@family@fontdef\k@family\endcsname
 183     \group_begin:
 184       \tl_clear:N \g_ltj_fontspec_default_fontopts_tl
 185       \use:x {
 186         \exp_not:N\ltj_fontspec_select:nn
 187           {\csname zf@family@options\k@family\endcsname,#1}
 188           {\csname zf@family@fontname\k@family\endcsname}
 189       }
 190     \group_end:
 191     \fontfamily\l_fontspec_family_tl\selectfont
 192   \else
 193     \ltj_fontspec_warning:n {addjfontfeatures-ignored}
 194   \fi
 195   \ignorespaces
 196 }
 197
 198 \cs_set_eq:NN \addjfontfeature \addjfontfeatures
 199
 200 %%% CJKShape=JIS2004
 201 \fontspec_define_feature_option:nnnnn{CJKShape}{JIS2004}{20}{5}{+jp04}
 202
 203 \ExplSyntaxOff
 204 %%%%%%%% Now we completely ignore kanjifont definition file.
 205
 206 \DeclareRobustCommand\fontfamily[1]{%
 207   \@notkfamfalse\@notffamfalse
 208   \edef\tmp@item{'\luatexluaescapestring{#1}'}%
 209   \edef\tmp@enc{'\luatexluaescapestring{\f@encoding}'}%
 210   \ifcsname \k@encoding+#1\endcsname % if \k@encoding+#1 is already defined
 211     \edef\k@family{#1}%
 212   \else\@notkfamtrue\fi
 213   \ifcsname \f@encoding+#1\endcsname
 214     \edef\f@family{#1}%
 215   \else % search font definition file...
 216     \directlua{luatexja.jfont.is_ffam(\tmp@enc, \tmp@item)}%
 217     \ifin@\edef\k@family{#1}\else%
 218       \directlua{luatexja.jfont.is_Nffam(\tmp@enc, \tmp@item)}%
 219       \ifin@\@notffamtrue\else%
 220         % filename of font definition file is always lowercase
 221         \edef\@temp{\lowercase{\noexpand\IfFileExists{\f@encoding#1.fd}}}%
 222         \message{(I search font definition file)}%
 223         \@temp{\@tempswztrue}{\@tempswzfalse}%
 224         \if@tempswz
 225           \directlua{luatexja.jfont.add_ffam_list(\tmp@enc, \tmp@item)}%
 226           \edef\f@family{#1}%
 227         \else
 228           \directlua{luatexja.jfont.add_Nffam_list(\tmp@enc, \tmp@item)}%
 229           \@notffamtrue%
 230         \fi
 231       \fi
 232     \fi
 233   \fi
 234   \if@notkfam\if@notffam
 235       {\ifcsname D@\k@encoding\endcsname\@nameuse{D@\k@encoding}\fi
 236         \xdef\@@temp{\default@family}}\edef\k@family{\@@temp}%
 237       {\ifcsname D@\f@encoding\endcsname\@nameuse{D@\f@encoding}\fi
 238         \xdef\@@temp{\default@family}}\edef\f@family{\@@temp}%
 239   \fi\fi
 240 }
 241
 242 % We must redefine \try@load@fontshape to ignore kanjifont definitions at all.
 243 \def\try@load@fontshape{%
 244    \expandafter
 245    \ifx\csname \f@encoding+\f@family\endcsname\relax
 246        \directlua{luatexja.jfont.is_kenc('\luatexluaescapestring{\f@encoding}')}%
 247 \ifin@ % Japanese font: we don't search fd.
 248     \@font@warning{We don't search kanjifont definition
 249       \MessageBreak for \f@encoding/\f@family}%
 250 \else % Alphabetic font
 251     \@font@info{Try loading font information for \f@encoding+\f@family}%
 252     \global\expandafter\let
 253        \csname\f@encoding+\f@family\endcsname\@empty
 254      \nfss@catcodes
 255      \let\nfss@catcodes\relax
 256      \edef\reserved@a{%
 257        \lowercase{%
 258          \noexpand\InputIfFileExists{\f@encoding\f@family.fd}}}%
 259      \reserved@a\relax
 260           {\@input@{\f@encoding\f@family.fd}}%
 261 \fi
 262    \fi}
 263
 264
 265 \endinput