%
\NeedsTeXFormat{LaTeX2e}
-\ProvidesPackage{luatexja-fontspec}[2011/11/16 v0.3]
-
-\def\UTFencname{EU2}\def\XeTeXpicfile{}
-\RequirePackage{xunicode}
-%% Patch for xunicode.sty
-{\catcode`\"=12
-\gdef\check@hexcom@digits@#1#2#3#4#5@!@#6#7#8{%
- \ifx @#4\relax
- \UTFacc@warning@{insufficient hex digits #7 for #6-\string#8}%
- \else
- \ifcat \active\noexpand#8%
- \ifx\add@flag\@ne %
- \expandafter\def\csname\UTFencname\string#8\endcsname{\ltjalchar"#1#2#3#4\relax}%
- \ifx\unDeFiNed@#8%
- \ifx\cf@encoding\UTFencname
- \DeclareTextCommand{#8}{OT1}{\undefined}%
- \else
- \DeclareTextCommand{#8}{\cf@encoding}{\undefined}%
- \fi
- \else {% macro #8 exists already ...
- \let\protect\noexpand
- \edef\UTF@testi{#8}\def\UTF@testii{#8}%
- \ifx\UTF@testi\UTF@testii\aftergroup\UTF@ignore
- \else\aftergroup\UTF@doit\fi
- }%
- \iffalse
- % ... but when it isn't robust, make it so
- \expandafter\let\csname?-\string#8\endcsname#8\relax
- \edef\next@UTF@{{\cf@encoding}%
- {\expandafter\noexpand\csname?-\string#8\endcsname}}%
- \expandafter\DeclareTextCommand\expandafter
- {\expandafter#8\expandafter}\next@UTF@
- \fi
- \fi %
- \else % \add@flag \z@
- \expandafter\global\expandafter
- \let\csname\UTFencname\string#8\endcsname\relax
- \fi % end of \add@flag switch
- \else % not active catcode --- shouldn't happen
- % \typeout{*** did you really mean #8 ? ***}%
- \ifx\add@flag\@ne %
- \edef\tmp@name{\expandafter\string\csname\UTFencname\endcsname
- \expandafter\string\csname#8\endcsname}%
- \expandafter\def\csname\tmp@name\endcsname{\ltjalchar"#1#2#3#4\relax}%
- \ifx\cf@encoding\UTFencname
- \expandafter\DeclareTextCommand\expandafter
- {\csname#8\endcsname}{OT1}{\undefined}%
- \else
- \expandafter\DeclareTextCommand\expandafter
- {\csname#8\endcsname}{\cf@encoding}{\undefined}%
- \fi
- \else % \add@flag \z@
- \expandafter\global\expandafter\let\csname#8\endcsname\relax
- \fi % end of \add@flag switch
- \fi % end of \ifcat
- \fi}
-\gdef\check@hex@digits@#1#2#3#4#5@!@#6#7#8#9{%
- \ifx @#4\relax
- \UTFacc@warning@{insufficient hex digits #7 for #6-\string#8#9}%
- \else
- \def\UTFchar{\ltjalchar"#1#2#3#4\relax}%
- \expandafter\expandafter\expandafter\declare@utf@composite
- \expandafter\expandafter\expandafter
- {\expandafter\csname#6\endcsname}{\UTFchar}{#8}{#9}\relax
- \fi}
-%\gdef\add@UTF@accent#1#2#3{#2\ltjalchar"#1\relax}
-\gdef\add@UTF@accent#1#2#3{\ifx\relax#2\relax\ltjalchar"#3\else
- \ifx\ #2\relax\ltjalchar"#3\else
- \expandafter\ifx\UTF@space#2\relax\ltjalchar"#3\else
- \ifx~#2\ltjalchar"#3\else#2\ltjalchar"#1\fi\fi\fi\fi\relax}
-\gdef\add@UTF@accents#1#2#3{#2\ltjalchar"#1\ltjalchar"#3\relax}
-}
-%% End of patch for xunicode.sty "
-
-\RequirePackage{fontspec}
-\RequirePackage{luatexja}
+\ProvidesPackage{luatexja-fontspec}[2012/09/17 v0.2a]
+\RequirePackage{fontspec,luatexja}
\ExplSyntaxOn
+%%%%%%%% Messages
\cs_new:Npn \ltj_fontspec_warning:n { \msg_warning:nn {ltj-fontspec} }
\msg_new:nnn {ltj-fontspec} {addjfontfeatures-ignored}
\cs_generate_variant:Nn \prg_new_conditional:Nnn {Nnx}
+%%%%%%%% For compatibility with old fontspec.
\prg_new_conditional:Nnx \ltj_fontspec_if_liiikeys: {TF,F} {
\@ifpackagelater {fontspec} {2011/09/13}
{ \exp_not:N \prg_return_true: } % fontspec >= 2.2 (l3keys)
{ \exp_not:N \prg_return_false: } % fontspec < 2.2 (xkeyval)
}
+%%%%%%%% \g_ltj_fontspec_scale_fp
+%% Default scale value for jfont.
+\group_begin:
+\fontsize{10}{10}\selectfont
+\fp_gset:Nn \g_ltj_fontspec_scale_fp {\zw / 10}
+\group_end:
+
+%%%%%%%% Internal control sequences
+%% Each CS is ltj_fontspec version that corresponds to original CS of fontspec.
\cs_new:Nn \ltj_fontspec_define_option:nn {
\ltj_fontspec_if_liiikeys:TF {
\keys_define:nn {fontspec} { #1 .code:n = {#2}}
\cs_new:Nn \ltj_fontspec_select:nn {
\group_begin:
+ \ltj_fontspec_define_option:nn {CID} {
+ \fontspec_update_fontid:n {+cid=##1}
+ \fontspec_update_featstr:n {cid=##1}
+ }
\ltj_fontspec_define_option:nn {JFM} {
\fontspec_update_fontid:n {+jfm=##1}
- \fontspec_update_featstr:n {jfm=##1}
+ \fontspec_update_featstr:n {jfm=##1}
}
\ltj_fontspec_define_option:nn {JFM-var} {
\fontspec_update_fontid:n {+jfmvar=##1}
- \fontspec_update_featstr:n {jfmvar=##1}
+ \fontspec_update_featstr:n {jfmvar=##1}
}
\ltj_fontspec_define_preparse_external:nn {NoEmbed} {
\cs_set:Nn \fontspec_namewrap:n {psft:####1}
%% "OpenType feature 'Kerning=Off' (-kern) not available ..."
\ltj_fontspec_define_option:nn {Kerning/Off} {
\fontspec_update_fontid:n {-kern}
- \fontspec_update_featstr:n {-kern}
- }
+ \fontspec_update_featstr:n {-kern}
+ }
\ltj_fontspec_if_liiikeys:TF {
\tl_set:Nn \g_fontspec_encoding_tl {JY3}
} {
\tl_set:Nn \zf@enc {JY3}
}
- \tl_set:Nx \g_fontspec_default_fontopts_tl
- {JFM=ujis,Scale=0.962216,Kerning=Off,\g_ltj_fontspec_default_fontopts_tl}
+ \tl_set:Nx \g_fontspec_default_fontopts_tl
+ {JFM=ujis,Scale=\fp_use:N \g_ltj_fontspec_scale_fp,Kerning=Off,\g_ltj_fontspec_default_fontopts_tl}
\cs_set_eq:NN \DeclareFontFamily \DeclareKanjiFamily
\fontspec_select:nn{#1}{#2}
\group_end:
\tl_set_eq:NN #1 \l_fontspec_family_tl
}
+%%%%%%%% User commands
\DeclareDocumentCommand \jfontspec { O{} m } {
\ltj_fontspec_set_family:Nnn \k@family {#1}{#2}
\selectfont
\DeclareDocumentCommand \setmainjfont { O{} m } {
\ltj_fontspec_set_family:Nnn \mcdefault {#1}{#2}
+ \DeclareSymbolFont{mincho}{JY3}{\l_fontspec_family_tl}{m}{n}
+ \SetSymbolFont{mincho}{bold}{JY3}{\l_fontspec_family_tl}{bx}{n}
\normalfont
}
\DeclareDocumentCommand \setsansjfont { O{} m } {
\ltj_fontspec_set_family:Nnn \gtdefault {#1}{#2}
+ \DeclareMathAlphabet{\mathgt}{JY3}{\l_fontspec_family_tl}{m}{n}
\normalfont
}
\cs_set_eq:NN \addjfontfeature \addjfontfeatures
-% We reload xunicode package here.
-\ExplSyntaxOff\ReloadXunicode{EU2}
-\endinput
+\ExplSyntaxOff
+%%%%%%%% Now we completely ignore kanjifont definition file.
-%% the following patch is needed to xunicode.sty:
-%%
---- /opt/texlive/2011/texmf-dist/tex/xelatex/xunicode/xunicode.sty 2011-09-12 08:31:47.000000000 +0900
-+++ xunicode.sty 2011-11-16 22:06:17.061413113 +0900
-@@ -1475,7 +1475,11 @@
-
- \newtoks\tipasavetokens
- \newtoks\tipachecktokens
-+
-+\fi
- \newif\iftipaonetoken
-+\expandafter\ifx\csname ReloadXunicode\endcsname\relax
-+
- \def\tipalasttoken{!@! do nothing with this !@!}
- \def\tipacatchonechar#1{\begingroup
- \def\textipa##1{##1}% prevent recursion
+\DeclareRobustCommand\fontfamily[1]{%
+ \@notkfamfalse\@notffamfalse\edef\tmp@item{{#1}}%
+ \ifcsname \k@encoding+#1\endcsname % if \k@encoding+#1 is already defined
+ \edef\k@family{#1}%
+ \else
+ \def\@temp##1+{\lowercase{\def\@@temp{##1#1.fd}}}\expandafter\@temp\k@encoding+%
+ \@notkfamtrue
+ \fi
+ \ifcsname \f@encoding+#1\endcsname
+ \edef\f@family{#1}%
+ \else % search font definition file...
+ \ifcsname ffam@list@\f@encoding\endcsname\else
+ \expandafter\gdef\csname ffam@list@\f@encoding\endcsname{}%
+ \expandafter\gdef\csname notffam@list@\f@encoding\endcsname{}%
+ \fi
+ \edef\@templist{\@nameuse{ffam@list@\f@encoding}}%
+ \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
+ \ifin@\edef\f@family{#1}\else
+ \edef\@templist{\@nameuse{notffam@list@\f@encoding}}%
+ \expandafter\expandafter\expandafter\inlist@\expandafter\tmp@item\expandafter{\@templist}%
+ \ifin@\@notffamtrue\else
+ \def\@temp##1+{\lowercase{\def\@@temp{##1#1.fd}}}\expandafter\@temp\f@encoding+%
+ \message{(I search font definition file. \@@temp)}%
+ \IfFileExists{\@@temp}{\@tempswztrue}{\@tempswzfalse}%
+ \if@tempswz
+ \expandafter\xdef\csname ffam@list@\f@encoding\endcsname
+ {\@nameuse{ffam@list@\f@encoding}\fam@elt<#1>}\edef\f@family{#1}%
+ \else
+ \expandafter\xdef\csname notffam@list@\f@encoding\endcsname
+ {\@nameuse{notffam@list@\f@encoding}\fam@elt<#1>}\@notffamtrue%
+ \fi
+ \fi
+ \fi
+ \fi
+ \if@notkfam\if@notffam
+ {\ifcsname D@\k@encoding\endcsname\@nameuse{D@\k@encoding}\fi
+ \xdef\@@temp{\default@family}}\edef\k@family{\@@temp}%
+ {\ifcsname D@\f@encoding\endcsname\@nameuse{D@\f@encoding}\fi
+ \xdef\@@temp{\default@family}}\edef\f@family{\@@temp}%
+ \fi\fi
+}
+
+% We must redefine \try@load@fontshape to ignore kanjifont definitions at all.
+\def\try@load@fontshape{%
+ \expandafter
+ \ifx\csname \f@encoding+\f@family\endcsname\relax
+ \edef\tmp@item{{\directlua{%
+ tex.print(luatexbase.catcodetables["latex-package"], '\f@encoding')}%
+ }}% \f@encoding の展開結果の catcode は 12 であるため，これで補正．
+ \expandafter\expandafter\expandafter
+ \inlist@\expandafter\tmp@item\expandafter{\kenc@list}%
+\ifin@ % Japanese font: we don't search fd.
+ \@font@warning{We don't search kanjifont definition
+ \MessageBreak for \f@encoding/\f@family}%
+\else % Alphabetic font
+ \@font@info{Try loading font information for
+ \f@encoding+\f@family}%
+ \global\expandafter\let
+ \csname\f@encoding+\f@family\endcsname\@empty
+ \nfss@catcodes
+ \let\nfss@catcodes\relax
+ \edef\reserved@a{%
+ \lowercase{%
+ \noexpand\InputIfFileExists{\f@encoding\f@family.fd}}}%
+ \reserved@a\relax
+ {\@input@{\f@encoding\f@family.fd}}%
+\fi
+ \fi}
+
+\endinput
OSDN Git Service
