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
|
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 match = string.match
local utfbyte = utf.byte
local context = context
local commands = commands
local chardata = characters.data
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
}
function commands.autonextspace(str) -- todo: use nexttoken
local ch = match(str,"the letter (.)") or match(str,"the character (.)")
ch = ch and chardata[utfbyte(ch)]
if ch and can_have_space[ch.category] then
context.space()
end
end
|
