typo-rep.mkiv /size: 1471 b    last modification: 2020-07-01 14:35
1
%D \module
2
%D [ file=typo-rep,
3
%D version=2010.05.23,
4
%D title=\CONTEXT\ Typesetting Macros,
5
%D subtitle=Stripping,
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
\writestatus
{
loading
}
{
ConTeXt
Typesetting
Macros
/
Stripping
}
15 16
% experimental stripping
17 18
%D For a while we had stripping of special chars built into the analyzer
19
%D but Khaled suggested to generalize this so I changed the code into a
20
%D manipulator there.
21
%D
22
%D \starttyping
23
%D \definefontfeature[default][default][mode=node,formatters=strip]
24
%D \stoptyping
25
%D
26
%D However, in \MKIV\ it makes more sense to also provide it as a more
27
%D general feature. Here we implement this as experiment. I might
28
%D cook up a few more variants in both variants.
29
%D
30
%D \starttyping
31
%D \setcharacterstripping[1]
32
%D \stoptyping
33 34
\unprotect
35 36
\registerctxluafile
{
typo
-
rep
}
{
}
37 38
\definesystemattribute
[
stripping
]
[
public
]
39 40
\unexpanded
\def
\setcharacterstripping
[
#
1
]
%
41
{
\clf_setcharacterstripping
{
#
1
}
}
42 43
\unexpanded
\def
\resetcharacterstripping
44
{
\c_attr_stripping
\attributeunsetvalue
}
45 46
% maybe .. this might disappear, but is handy for testing
47 48
\unexpanded
\def
\forcecharacterstripping
% secret command
49
{
\ctxlua{
fonts
.
handlers
.
otf
.
features
.
register
(
"
formatters
"
,
true
)
}
}
50 51
\protect
\endinput
52