mtx-context-fonts.tex /size: 2697 b    last modification: 2020-07-01 14:35
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