src/addons/luatexja-fontspec.sty

   1 %
   2 % luatexja-fontspec.sty
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \ProvidesPackage{luatexja-fontspec}[2013/08/17 fontspec support of LuaTeX-ja]
   7
   8 \RequirePackage{fontspec,luatexja}
   9 \ExplSyntaxOn
  10
  11 %%%%%%%% Messages
  12 \cs_new:Npn \ltj_fontspec_warning:n   { \msg_warning:nn   {ltj-fontspec} }
  13
  14 \msg_new:nnn {ltj-fontspec} {addjfontfeatures-ignored}
  15 {
  16   \string\addjfontfeature (s)~ ignored;\\
  17   it~ cannot~ be~ used~ with~ a~ font~ that~ wasn't~ selected~ by~ luatexja-fontspec.
  18 }
  19
  20 \cs_generate_variant:Nn \prg_new_conditional:Nnn {Nnx}
  21
  22 %%%%%%%% For compatibility with old fontspec.
  23 \prg_new_conditional:Nnx \ltj_fontspec_if_liiikeys: {TF,F} {
  24   \@ifpackagelater {fontspec} {2011/09/13}
  25   { \exp_not:N \prg_return_true: }  % fontspec >= 2.2 (l3keys)
  26   { \exp_not:N \prg_return_false: } % fontspec <  2.2 (xkeyval)
  27 }
  28
  29 %%%%%%%% \g_ltj_fontspec_scale_fp
  30 %% Default scale value for jfont.
  31 \group_begin:
  32 \fontsize{10}{10}\selectfont
  33 \fp_gset:Nn \g_ltj_fontspec_scale_fp {\zw / 10}
  34 \group_end:
  35
  36 %%%%%%%% Internal control sequences
  37 %% Each CS is ltj_fontspec version that corresponds to original CS of fontspec.
  38 \cs_new:Nn \ltj_fontspec_define_option:nn {
  39   \ltj_fontspec_if_liiikeys:TF {
  40     \keys_define:nn {fontspec} { #1 .code:n = {#2}}
  41   } {
  42     \define@key[zf]{options}{#1}{#2}
  43   }
  44 }
  45
  46 \cs_new:Nn \ltj_fontspec_define_preparse_external:nn {
  47   \ltj_fontspec_if_liiikeys:TF {
  48     \keys_define:nn {fontspec-preparse-external} { #1 .code:n = {#2}}
  49   } {
  50     \define@key[zf]{preparse-external}{#1}{#2}
  51   }
  52 }
  53
  54 \cs_new:Nn \ltj_fontspec_select:nn {
  55   \group_begin:
  56   \ltj_fontspec_define_option:nn {CID} {
  57     \fontspec_update_fontid:n  {+cid=##1}
  58     \fontspec_update_featstr:n {cid=##1}
  59   }
  60   \ltj_fontspec_define_option:nn {JFM} {
  61     \fontspec_update_fontid:n  {+jfm=##1}
  62     \fontspec_update_featstr:n {jfm=##1}
  63   }
  64   \ltj_fontspec_define_option:nn {JFM-var} {
  65     \fontspec_update_fontid:n  {+jfmvar=##1}
  66     \fontspec_update_featstr:n {jfmvar=##1}
  67   }
  68   \ltj_fontspec_define_preparse_external:nn {NoEmbed} {
  69     \cs_set:Nn \fontspec_namewrap:n {psft:####1}
  70   }
  71   %% Omit the warning message
  72   %% "OpenType feature 'Kerning=Off' (-kern) not available ..."
  73   \ltj_fontspec_define_option:nn {Kerning/Off} {
  74     \fontspec_update_fontid:n  {-kern}
  75     \fontspec_update_featstr:n {-kern}
  76   }
  77   \ltj_fontspec_if_liiikeys:TF {
  78     \tl_set:Nn \g_fontspec_encoding_tl {JY3}
  79   } {
  80     \tl_set:Nn \zf@enc {JY3}
  81   }
  82   \tl_set:Nx \g_fontspec_default_fontopts_tl
  83              {JFM=ujis,Scale=\fp_use:N \g_ltj_fontspec_scale_fp,Kerning=Off,\g_ltj_fontspec_default_fontopts_tl}
  84   \prop_set_eq:NN \g__fontspec_fontopts_prop \g__ltj_fontspec_fontopts_prop
  85   \cs_set_eq:NN \DeclareFontFamily \DeclareKanjiFamily
  86   \fontspec_select:nn{#1}{#2}
  87   \group_end:
  88   \ltj_fontspec_if_liiikeys:F {
  89     \tl_set_eq:NN \l_fontspec_family_tl \zf@family
  90   }
  91 }
  92
  93 \cs_new:Nn \ltj_fontspec_set_family:Nnn {
  94   \ltj_fontspec_select:nn{#2}{#3}
  95   \tl_set_eq:NN #1 \l_fontspec_family_tl
  96 }
  97
  98 %%%%%%%% User commands
  99 \DeclareDocumentCommand \jfontspec { O{} m } {
 100   \ltj_fontspec_set_family:Nnn \k@family {#1}{#2}
 101   \selectfont
 102   \ignorespaces
 103 }
 104
 105 \DeclareDocumentCommand \setmainjfont { O{} m } {
 106   \ltj_fontspec_set_family:Nnn \mcdefault {#1}{#2}
 107   \DeclareSymbolFont{mincho}{JY3}{\l_fontspec_family_tl}{m}{n}
 108   \SetSymbolFont{mincho}{bold}{JY3}{\l_fontspec_family_tl}{bx}{n}
 109   \normalfont
 110 }
 111
 112 \DeclareDocumentCommand \setsansjfont { O{} m } {
 113   \ltj_fontspec_set_family:Nnn \gtdefault {#1}{#2}
 114   \DeclareMathAlphabet{\mathgt}{JY3}{\l_fontspec_family_tl}{m}{n}
 115   \normalfont
 116 }
 117
 118 \DeclareDocumentCommand \newjfontfamily { m O{} m } {
 119   \ltj_fontspec_select:nn{#2}{#3}
 120   \use:x {
 121     \exp_not:N \DeclareRobustCommand \exp_not:N #1 {
 122       \exp_not:N \kanjifamily {\l_fontspec_family_tl} \exp_not:N \selectfont
 123     }
 124   }
 125 }
 126
 127 \DeclareDocumentCommand \newjfontface { m O{} m } {
 128   \newjfontfamily #1 [ BoldFont={},ItalicFont={},SmallCapsFont={},#2 ] {#3}
 129 }
 130
 131 \tl_new:N \g_ltj_fontspec_default_fontopts_tl
 132 \prop_new:N \g__ltj_fontspec_fontopts_prop
 133 \DeclareDocumentCommand \defaultjfontfeatures { o m }
 134  {
 135   \IfNoValueTF {#1}
 136    { \__ltj_fontspec_set_default_features:n {#2} }
 137    { \__ltj_fontspec_set_font_default_features:nn {#1} {#2} }
 138  }
 139 \cs_new:Nn \__ltj_fontspec_set_default_features:n
 140  {
 141   \tl_set:Nn \g_ltj_fontspec_default_fontopts_tl {#1,}
 142  }
 143 \cs_new:Nn \__ltj_fontspec_set_font_default_features:nn
 144  {
 145   \__fontspec_sanitise_fontname:Nn \l__fontspec_tmp_tl {#1}
 146   \tl_if_empty:nTF {#2}
 147    { \prop_gremove:NV \g__ltj_fontspec_fontopts_prop \l__fontspec_tmp_tl }
 148    { \prop_gput:NVn   \g__ltj_fontspec_fontopts_prop \l__fontspec_tmp_tl {#2} }
 149  }
 150
 151 \DeclareDocumentCommand \addjfontfeatures {m} {
 152   \ifcsname zf@family@fontdef\k@family\endcsname
 153     \group_begin:
 154       \tl_clear:N \g_ltj_fontspec_default_fontopts_tl
 155       \use:x {
 156         \exp_not:N\ltj_fontspec_select:nn
 157           {\csname zf@family@options\k@family\endcsname,#1}
 158           {\csname zf@family@fontname\k@family\endcsname}
 159       }
 160     \group_end:
 161     \fontfamily\l_fontspec_family_tl\selectfont
 162   \else
 163     \ltj_fontspec_warning:n {addjfontfeatures-ignored}
 164   \fi
 165   \ignorespaces
 166 }
 167
 168 \cs_set_eq:NN \addjfontfeature \addjfontfeatures
 169
 170 %%% CJKShape=JIS2004
 171 \fontspec_define_feature_option:nnnnn{CJKShape}{JIS2004}{20}{5}{+jp04}
 172
 173 \ExplSyntaxOff
 174 %%%%%%%% Now we completely ignore kanjifont definition file.
 175
 176 \DeclareRobustCommand\fontfamily[1]{%
 177   \@notkfamfalse\@notffamfalse\edef\tmp@item{{#1}}%
 178   \ifcsname \k@encoding+#1\endcsname % if \k@encoding+#1 is already defined
 179     \edef\k@family{#1}%
 180   \else
 181     \def\@temp##1+{\lowercase{\def\@@temp{##1#1.fd}}}\expandafter\@temp\k@encoding+%
 182     \@notkfamtrue
 183   \fi
 184   \ifcsname \f@encoding+#1\endcsname
 185     \edef\f@family{#1}%
 186   \else % search font definition file...
 187      \ifcsname ffam@list@\f@encoding\endcsname\else
 188        \expandafter\gdef\csname ffam@list@\f@encoding\endcsname{}%
 189        \expandafter\gdef\csname notffam@list@\f@encoding\endcsname{}%
 190      \fi
 191      \edef\@templist{\@nameuse{ffam@list@\f@encoding}}%
 192      \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
 193      \ifin@\edef\f@family{#1}\else
 194        \edef\@templist{\@nameuse{notffam@list@\f@encoding}}%
 195        \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
 196        \ifin@\@notffamtrue\else
 197          \def\@temp##1+{\lowercase{\def\@@temp{##1#1.fd}}}\expandafter\@temp\f@encoding+%
 198          \message{(I search font definition file. \@@temp)}%
 199          \IfFileExists{\@@temp}{\@tempswztrue}{\@tempswzfalse}%
 200          \if@tempswz
 201            \expandafter\xdef\csname ffam@list@\f@encoding\endcsname
 202              {\@nameuse{ffam@list@\f@encoding}\fam@elt<#1>}\edef\f@family{#1}%
 203          \else
 204            \expandafter\xdef\csname notffam@list@\f@encoding\endcsname
 205              {\@nameuse{notffam@list@\f@encoding}\fam@elt<#1>}\@notffamtrue%
 206          \fi
 207        \fi
 208      \fi
 209   \fi
 210   \if@notkfam\if@notffam
 211       {\ifcsname D@\k@encoding\endcsname\@nameuse{D@\k@encoding}\fi
 212         \xdef\@@temp{\default@family}}\edef\k@family{\@@temp}%
 213       {\ifcsname D@\f@encoding\endcsname\@nameuse{D@\f@encoding}\fi
 214         \xdef\@@temp{\default@family}}\edef\f@family{\@@temp}%
 215   \fi\fi
 216 }
 217
 218 % We must redefine \try@load@fontshape to ignore kanjifont definitions at all.
 219 \def\try@load@fontshape{%
 220    \expandafter
 221    \ifx\csname \f@encoding+\f@family\endcsname\relax
 222        \edef\tmp@item{{\directlua{%
 223          tex.print(luatexbase.catcodetables["latex-package"], '\f@encoding')}%
 224        }}% \f@encoding の展開結果の catcode は 12 であるため，これで補正．
 225        \expandafter\expandafter\expandafter
 226        \inlist@\expandafter\tmp@item\expandafter{\kenc@list}%
 227 \ifin@ % Japanese font: we don't search fd.
 228     \@font@warning{We don't search kanjifont definition
 229       \MessageBreak for \f@encoding/\f@family}%
 230 \else % Alphabetic font
 231     \@font@info{Try loading font information for
 232                    \f@encoding+\f@family}%
 233     \global\expandafter\let
 234        \csname\f@encoding+\f@family\endcsname\@empty
 235      \nfss@catcodes
 236      \let\nfss@catcodes\relax
 237      \edef\reserved@a{%
 238        \lowercase{%
 239          \noexpand\InputIfFileExists{\f@encoding\f@family.fd}}}%
 240      \reserved@a\relax
 241           {\@input@{\f@encoding\f@family.fd}}%
 242 \fi
 243    \fi}
 244
 245
 246 \endinput