Source Browser ?

1
%D \module
2
%D   [       file=mtx-context-fonts,
3
%D        version=2018.10.10,
4
%D          title=\CONTEXT\ Extra Trickry,
5
%D       subtitle=Show Font Info,
6
%D         author=Hans Hagen,
7
%D           date=\currentdate,
8
%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
9
%C
10
%C This module is part of the \CONTEXT\ macro||package and is
11
%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
12
%C details.
13
14
% begin help
15
%
16
% usage: context --extra=fonts [options] name
17
%
18
% --topspace=dimension  : distance above first line
19
% --backspace=dimension : distance before left margin
20
% --paperformat=spec    : paper*print or paperxprint
21
% --compact             : small margins, 8pt font
22
% --verycompact         : small margins, 7pt font
23
%
24
% example: context --extra=fonts --name=dejavu-serif
25
% end help
26
27
\input
 
mtx
-
context
-
common
.
tex
28
29
\usemodule
[
fonts
-
charts
]
30
\usemodule
[
fonts
-
tables
]
31
32
\input
 
mtx
-
context
-
common
.
tex
33
34
\doifdocumentargument
 
{
compact
}
 
{
35    
\setdocumentargument
{
topspace
}
 
{
5
mm
}
36    
\setdocumentargument
{
backspace
}{
5
mm
}
37    
\setdocumentargument
{
bodyfont
}
 
{
8
pt
}
38
}
39
40
\doifdocumentargument
 
{
verycompact
}
 
{
41    
\setdocumentargument
{
topspace
}
 
{
5
mm
}
42    
\setdocumentargument
{
backspace
}{
5
mm
}
43    
\setdocumentargument
{
bodyfont
}
 
{
7
pt
}
44
}
45
46
\setupbodyfont
47  
[
dejavu
,
9
pt
,
tt
,
\getdocumentargument
{
bodyfont
}
]
 
% dejavu is more complete
48
49
\setuplayout
50  
[
header
=
0
cm
,
51   
footer
=
1
.
5
cm
,
52   
topspace
=
\getdocumentargumentdefault
{
topspace
}{
1
.
5
cm
}
,
53   
backspace
=
\getdocumentargumentdefault
{
backspace
}{
1
.
5
cm
}
,
54   
width
=
middle
,
55   
height
=
middle
]
56
57
\setuppapersize
58  
[
\getdocumentargument
{
paperformat
_
paper
}
]
59  
[
\getdocumentargument
{
paperformat
_
print
}
]
60
61
\starttexdefinition
 
unexpanded
 
showfontdetails
 
[#
1
]
62    
\starttitle
[
title
=#
1
]
63        
\startsubject
[
title
=
Properties
]
64            
\showfontproperties
[#
1
]
65        
\stopsubject
66        
\startsubject
[
title
=
Parameters
]
67            
\showfontparameters
[#
1
]
68        
\stopsubject
69        
\startsubject
[
title
=
Positionings
]
70            
\showfontpositionings
[#
1
]
71        
\stopsubject
72        
\startsubject
[
title
=
Substitutions
]
73            
\showfontsubstitutions
[#
1
]
74        
\stopsubject
75        
\startsubject
[
title
=
Unicodevariants
]
76            
\showfontunicodevariants
[#
1
]
77        
\stopsubject
78        
\startsubject
[
title
=
Ligatures
]
79            
\showfontligatures
[#
1
]
80        
\stopsubject
81        
\showfontchart
[#
1
,
page
=
yes
]
82    
\stoptitle
83
\stoptexdefinition
84
85
\starttext
86
87    
\startluacode
88        
local
 
files
 
=
 
document
.
files
89        
if
 
#
files
 
>
 
0
 
then
90            
for
 
i
=
1
,
#
files
 
do
91                
context
.
showfontdetails
 
{
 
name
 
=
 
files
[
i
]
 
.
.
 
"
*default
"
 
}
92            
end
93        
else
94            
context
(
"
No font name(s) given.
"
)
95        
end
96    
\stopluacode
97
98
\stoptext
99