src/luatexja-fontspec.sty

   1 %
   2 % luatexja-fontspec.sty
   3 %
   4
   5 \NeedsTeXFormat{LaTeX2e}
   6 \ProvidesPackage{luatexja-fontspec}[2011/09/23 v0.2]
   7
   8 \RequirePackage{fontspec}
   9 \RequirePackage{luatexja}
  10
  11 \ExplSyntaxOn
  12
  13 \cs_new:Npn \ltj_fontspec_warning:n   { \msg_warning:nn   {ltj-fontspec} }
  14
  15 \msg_new:nnn {ltj-fontspec} {addjfontfeatures-ignored}
  16 {
  17   \string\addjfontfeature (s)~ ignored;\\
  18   it~ cannot~ be~ used~ with~ a~ font~ that~ wasn't~ selected~ by~ luatexja-fontspec.
  19 }
  20
  21 \cs_generate_variant:Nn \prg_new_conditional:Nnn {Nnx}
  22
  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 \cs_new:Nn \ltj_fontspec_define_option:nn {
  30   \ltj_fontspec_if_liiikeys:TF {
  31     \keys_define:nn {fontspec} { #1 .code:n = {#2}}
  32   } {
  33     \define@key[zf]{options}{#1}{#2}
  34   }
  35 }
  36
  37 \cs_new:Nn \ltj_fontspec_define_preparse_external:nn {
  38   \ltj_fontspec_if_liiikeys:TF {
  39     \keys_define:nn {fontspec-preparse-external} { #1 .code:n = {#2}}
  40   } {
  41     \define@key[zf]{preparse-external}{#1}{#2}
  42   }
  43 }
  44
  45 \cs_new:Nn \ltj_fontspec_select:nn {
  46   \group_begin:
  47   \ltj_fontspec_define_option:nn {JFM} {
  48     \fontspec_update_fontid:n  {+jfm=##1}
  49     \fontspec_update_featstr:n {jfm=##1}
  50   }
  51   \ltj_fontspec_define_option:nn {JFM-var} {
  52     \fontspec_update_fontid:n  {+jfmvar=##1}
  53     \fontspec_update_featstr:n {jfmvar=##1}
  54   }
  55   \ltj_fontspec_define_preparse_external:nn {NoEmbed} {
  56     \cs_set:Nn \fontspec_namewrap:n {psft:####1}
  57   }
  58   %% Omit the warning message
  59   %% "OpenType feature 'Kerning=Off' (-kern) not available ..."
  60   \ltj_fontspec_define_option:nn {Kerning/Off} {
  61     \fontspec_update_fontid:n  {-kern}
  62     \fontspec_update_featstr:n {-kern}
  63   }
  64   \ltj_fontspec_if_liiikeys:TF {
  65     \tl_set:Nn \g_fontspec_encoding_tl {JY3}
  66   } {
  67     \tl_set:Nn \zf@enc {JY3}
  68   }
  69   \tl_set:Nx \g_fontspec_default_fontopts_tl
  70              {JFM=ujis,Scale=0.962216,Kerning=Off,\g_ltj_fontspec_default_fontopts_tl}
  71   \cs_set_eq:NN \DeclareFontFamily \DeclareKanjiFamily
  72   \fontspec_select:nn{#1}{#2}
  73   \group_end:
  74   \ltj_fontspec_if_liiikeys:F {
  75     \tl_set_eq:NN \l_fontspec_family_tl \zf@family
  76   }
  77 }
  78
  79 \cs_new:Nn \ltj_fontspec_set_family:Nnn {
  80   \ltj_fontspec_select:nn{#2}{#3}
  81   \tl_set_eq:NN #1 \l_fontspec_family_tl
  82 }
  83
  84 \DeclareDocumentCommand \jfontspec { O{} m } {
  85   \ltj_fontspec_set_family:Nnn \k@family {#1}{#2}
  86   \selectfont
  87   \ignorespaces
  88 }
  89
  90 \DeclareDocumentCommand \setmainjfont { O{} m } {
  91   \ltj_fontspec_set_family:Nnn \mcdefault {#1}{#2}
  92   \normalfont
  93 }
  94
  95 \DeclareDocumentCommand \setsansjfont { O{} m } {
  96   \ltj_fontspec_set_family:Nnn \gtdefault {#1}{#2}
  97   \normalfont
  98 }
  99
 100 \DeclareDocumentCommand \newjfontfamily { m O{} m } {
 101   \ltj_fontspec_select:nn{#2}{#3}
 102   \use:x {
 103     \exp_not:N \DeclareRobustCommand \exp_not:N #1 {
 104       \exp_not:N \kanjifamily {\l_fontspec_family_tl} \exp_not:N \selectfont
 105     }
 106   }
 107 }
 108
 109 \DeclareDocumentCommand \newjfontface { m O{} m } {
 110   \newjfontfamily #1 [ BoldFont={},ItalicFont={},SmallCapsFont={},#2 ] {#3}
 111 }
 112
 113 \DeclareDocumentCommand \defaultjfontfeatures {m} {
 114   \tl_set:Nn \g_ltj_fontspec_default_fontopts_tl {#1,}
 115 }
 116
 117 \tl_clear:N \g_ltj_fontspec_default_fontopts_tl
 118
 119 \DeclareDocumentCommand \addjfontfeatures {m} {
 120   \ifcsname zf@family@fontdef\k@family\endcsname
 121     \group_begin:
 122       \tl_clear:N \g_ltj_fontspec_default_fontopts_tl
 123       \use:x {
 124         \exp_not:N\ltj_fontspec_select:nn
 125           {\csname zf@family@options\k@family\endcsname,#1}
 126           {\csname zf@family@fontname\k@family\endcsname}
 127       }
 128     \group_end:
 129     \fontfamily\l_fontspec_family_tl\selectfont
 130   \else
 131     \ltj_fontspec_warning:n {addjfontfeatures-ignored}
 132   \fi
 133   \ignorespaces
 134 }
 135
 136 \cs_set_eq:NN \addjfontfeature \addjfontfeatures
 137
 138 \endinput