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
38
39
40
41
42
43
|
if not modules then modules = { } end modules ['spac-hor'] = {
version = 1.001,
comment = "companion to spac-hor.mkiv",
author = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
copyright = "PRAGMA ADE / ConTeXt Development Team",
license = "see context related readme files"
}
local lpegmatch, P, C = lpeg.match, lpeg.P, lpeg.C
local context = context
local chardata = characters.data
local p_check = P("the ") * (P("letter") + P("character")) * P(" ") * lpeg.patterns.utf8byte -- is a capture already
local can_have_space = table.tohash {
"lu", "ll", "lt", "lm", "lo", -- letters
-- "mn", "mc", "me", -- marks
"nd", "nl", "no", -- numbers
"ps", "pi", -- initial
-- "pe", "pf", -- final
-- "pc", "pd", "po", -- punctuation
"sm", "sc", "sk", "so", -- symbols
-- "zs", "zl", "zp", -- separators
-- "cc", "cf", "cs", "co", "cn", -- others
}
local function autonextspace(str) -- todo: make a real not intrusive lookahead
local b = lpegmatch(p_check,str)
if b then
local d = chardata[b]
if d and can_have_space[d.category] then
context.space()
end
end
end
interfaces.implement {
name = "autonextspace",
actions = autonextspace,
arguments = "string",
}
|