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   \ltj_fontspec_if_liiikeys:TF {
  59     \tl_set:Nn \g_fontspec_encoding_tl {JY3}
  60   } {
  61     \tl_set:Nn \zf@enc {JY3}
  62   }
  63   \tl_set:Nx \g_fontspec_default_fontopts_tl
  64              {JFM=ujis,Scale=0.960444,\g_ltj_fontspec_default_fontopts_tl}
  65   \cs_set_eq:NN \DeclareFontFamily \DeclareKanjiFamily
  66   \fontspec_select:nn{#1}{#2}
  67   \tl_set:Nn \l_fontspec_lang_tl   {dflt}
  68   \tl_set:Nn \l_fontspec_script_tl {latn}
  69   \fontspec_check_ot_feat:nT {+kern} {
  70     \tl_set:Nx \g_fontspec_default_fontopts_tl
  71                {JFM=ujis,Scale=0.960444,Kerning=Off,\g_ltj_fontspec_default_fontopts_tl}
  72     \fontspec_select:nn{#1}{#2}
  73   }
  74   \group_end:
  75   \ltj_fontspec_if_liiikeys:F {
  76     \tl_set_eq:NN \l_fontspec_family_tl \zf@family
  77   }
  78 }
  79
  80 \cs_new:Nn \ltj_fontspec_set_family:Nnn {
  81   \ltj_fontspec_select:nn{#2}{#3}
  82   \tl_set_eq:NN #1 \l_fontspec_family_tl
  83 }
  84
  85 \DeclareDocumentCommand \jfontspec { O{} m } {
  86   \ltj_fontspec_set_family:Nnn \k@family {#1}{#2}
  87   \selectfont
  88   \ignorespaces
  89 }
  90
  91 \DeclareDocumentCommand \setmainjfont { O{} m } {
  92   \ltj_fontspec_set_family:Nnn \mcdefault {#1}{#2}
  93   \normalfont
  94 }
  95
  96 \DeclareDocumentCommand \setsansjfont { O{} m } {
  97   \ltj_fontspec_set_family:Nnn \gtdefault {#1}{#2}
  98   \normalfont
  99 }
 100
 101 \DeclareDocumentCommand \newjfontfamily { m O{} m } {
 102   \ltj_fontspec_select:nn{#2}{#3}
 103   \use:x {
 104     \exp_not:N \DeclareRobustCommand \exp_not:N #1 {
 105       \exp_not:N \kanjifamily {\l_fontspec_family_tl} \exp_not:N \selectfont
 106     }
 107   }
 108 }
 109
 110 \DeclareDocumentCommand \newjfontface { m O{} m } {
 111   \newjfontfamily #1 [ BoldFont={},ItalicFont={},SmallCapsFont={},#2 ] {#3}
 112 }
 113
 114 \DeclareDocumentCommand \defaultjfontfeatures {m} {
 115   \tl_set:Nn \g_ltj_fontspec_default_fontopts_tl {#1,}
 116 }
 117
 118 \tl_clear:N \g_ltj_fontspec_default_fontopts_tl
 119
 120 \DeclareDocumentCommand \addjfontfeatures {m} {
 121   \ifcsname zf@family@fontdef\k@family\endcsname
 122     \group_begin:
 123       \tl_clear:N \g_ltj_fontspec_default_fontopts_tl
 124       \use:x {
 125         \exp_not:N\ltj_fontspec_select:nn
 126           {\csname zf@family@options\k@family\endcsname,#1}
 127           {\csname zf@family@fontname\k@family\endcsname}
 128       }
 129     \group_end:
 130     \fontfamily\l_fontspec_family_tl\selectfont
 131   \else
 132     \ltj_fontspec_warning:n {addjfontfeatures-ignored}
 133   \fi
 134   \ignorespaces
 135 }
 136
 137 \cs_set_eq:NN \addjfontfeature \addjfontfeatures
 138
 139 \endinput