Source Browser ?

1
%D \module
2
%D   [       file=typo-chr,
3
%D        version=2015.01.01, % or about that time
4
%D          title=\CONTEXT\ Typesetting Macros,
5
%D       subtitle=Cleaning Up Mess,
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
 
/
 
Characters
}
15
16
\unprotect
17
18
%D This is a very experimental feature, mostly for Alan and me to play with in
19
%D publication hell.
20
%D
21
%D \startbuffer
22
%D before, after\par
23
%D before,\removepunctuation after\par
24
%D before\markcontent[gone]{\darkred   gone}\removemarkedcontent[gone]after\par
25
%D before\markcontent[kept]{\darkgreen kept}\removemarkedcontent[gone]after\par
26
%D \markcontent[gone]{\darkred   gone}\removemarkedcontent[gone]after\par
27
%D \markcontent[kept]{\darkgreen kept}\removemarkedcontent[gone]after\par
28
%D \stopbuffer
29
%D
30
%D \typebuffer \blank \getbuffer\blank
31
%D
32
%D This feature is paragraph based and is only to be used for small snippets of text,
33
%D for instance when combining bit and pieces where keeping a state is complex compared
34
%D to cleaning up unwanted stuff.
35
36
\registerctxluafile
{
typo
-
chr
}{}
37
38
\definesystemattribute
[
marked
][
public
]
39
40
\unexpanded
\def
\removepunctuation
41  
{
\clf_pickuppunctuation
 
action
{
remove
}
\relax
}
 
% the first experiment
42
43
\unexpanded
\def
\pushpunctuation
44  
{
\clf_pickuppunctuation
 
action
{
push
}
\relax
}
 
% the first experiment
45
46
\unexpanded
\def
\poppunctuation
47  
{
\clf_pickuppunctuation
 
action
{
pop
}
\relax
}
 
% the first experiment
48
49
\unexpanded
\def
\markcontent
50  
{
\dosingleempty
\typo_marked_mark
}
51
52
\def
\typo_marked_mark
[#
1
]#
2
%
53  
{
\dontleavehmode
54   
\bgroup
55   
\clf_markcontent
{
#
1
}
%
56   
\bgroup
57   
#
2
% double grouping makes aftergroups work ok
58   
\egroup
59   
\egroup
}
60
61
\unexpanded
\def
\startmarkedcontent
62  
{
\dontleavehmode
63   
\bgroup
64   
\dosingleempty
\typo_marked_start
}
65
66
\def
\typo_marked_start
[#
1
]
%
67  
{
\clf_markcontent
{
#
1
}
%
68   
% double grouping makes aftergroups work ok
69   
\bgroup
}
70
71
\unexpanded
\def
\stopmarkedcontent
72  
{
\egroup
73   
\egroup
}
74
75
\unexpanded
\def
\removemarkedcontent
76  
{
\dosingleempty
\typo_marked_remove
}
77
78
\def
\typo_marked_remove
[#
1
]
%
79  
{
\clf_pickupmarkedcontent
 
action
{
remove
}
mark
{
#
1
}
\relax
}
80
81
\unexpanded
\def
\doifelsemarkedcontent
#
1
%
82  
{
\clf_doifelsemarkedcontent
{
#
1
}}
83
84
%D A few helpers (put here for convenience):
85
%D
86
%D \starttyping
87
%D test test\doifelselastnode{boundary}{word}{YES}{NOP}test
88
%D test test\wordboundary \doifelselastnode{boundary}{word}{YES}{NOP}test
89
%D test test\wordboundary \doifelseatwordboundary{YES}{NOP}test
90
%D test test \lastnodeidstring test
91
%D test test\lastnodeidstring test
92
%D test test\number\lastnodeid test
93
%D \stoptyping
94
95
\newcount
\c_syst_last_node_id
96
97
\unexpanded
\def
\doifelselastnode
      
{
\clf_lastnodeequals
}
98
\unexpanded
\def
\doifelseatwordboundary
{
\clf_atwordboundary
}
99
\unexpanded
\def
\lastnodeid
            
{
\clf_lastnodeid
\c_syst_last_node_id
}
100
%              \lastnodeidstring      % public expandable
101
%              \lastnodesubstring     % public expandable
102
103
\protect
 
\endinput
104