blob: 5549845cce512fc2c47220531ba7e4d9abda8323 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
|
%D \module
%D [ file=t-zhfonts,
%D version=2010.01.06,
%D title=\CONTEXT\ User Module,
%D subtitle=zhfonts,
%D author=Li Yanrui,
%D date=\currentdate,
%D copyright=Li Yanrui,
%D email=liyanrui.m2@gmail.com,
%D license=Public Domain]
\writestatus{loading}{ConTeXt User Module / zhfonts}
\startmodule[zhfonts]
\unprotect
\setupmodule[style=rm,size=11pt]
%D Lua code
\ctxloadluafile{t-zhfonts}
\ctxloadluafile{t-zhspuncs}
\def\setupzhfonts{\dodoubleempty\dosetupzhfonts}
\def\dosetupzhfonts[#1][#2]{%
\ctxlua{zhfonts.setup ('#1', '#2')}
}
\def\zhfonts[#1]{%
\ctxlua{zhfonts.use ("#1")}
}
\edef\@@@@??style{\currentmoduleparameter{style}}
\edef\@@@@??size{\currentmoduleparameter{size}}
\prependtoks \zhfonts[\@@@@??style, \@@@@??size] \to \everystarttext
\protect
\stopmodule
\endinput
|