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
44
45
46
47
48
49
50
|
format = {
nam = 'format';
object_type = true;
system_type = true;
para = false;
para_space = ' ';
quotes = false;
dash = false;
filter = nil;
nopara = '_';
save = function(self, name, h, need)
local k,v
for k,v in pairs(self) do
if k == 'para' or k == 'para_space' or k == 'quotes' or
k == 'dash' or k == 'nopara' then
local s = stead.tostring(v)
h:write(stead.string.format("format[%q] = %s;\n", k, s))
end
end
end;
}
stead.fmt = stead.hook(stead.fmt, function(f, ...)
local utf8
local r = f(...)
if game.codepage == 'UTF-8' or game.codepage == 'utf-8' then
utf8 = true
end
if type(r) == 'string' and stead.state then
if type(format.filter) == 'function' and stead.state then
r = format.filter(r);
end
if stead.call_bool(format, 'dash') and utf8 then
r = r:gsub('([^-])%-%-([^-])', '%1—%2');
r = r:gsub('^%-%-([^-])', '—%1');
end
if stead.call_bool(format, 'quotes') and utf8 then
r = r:gsub('_"','«'):gsub('"_',"»");
r = r:gsub('"([^"]*)"','«%1»');
r = r:gsub(',,','„'):gsub("''",'”');
end
if stead.call_bool(format, 'para') then
r = r:gsub('\n([^\n])', '<¶>%1'):gsub('<¶>[ \t]*'..format.nopara,'\n'):gsub('<¶>[ \t]*', '\n'..txtnb(format.para_space));
r = r:gsub('^[ \t]*', '<¶>'):gsub('<¶>[ \t]*'..format.nopara,''):gsub('<¶>[ \t]*', txtnb(format.para_space));
end
end
return r;
end)
-- vim:ts=4
|
