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
51
52
53
|
--for highlight 3.57
Description="Adapt HTML to ancient MS Web Controls"
Categories = {"format", "html", "compatibility" }
-- optional parameter: syntax description
function syntaxUpdate(desc)
if (HL_OUTPUT ~= HL_FORMAT_HTML and HL_OUTPUT ~= HL_FORMAT_XHTML) then
return
end
function DecorateLineBegin(lineNumber)
return ' '
end
if OnStateChange ~= nil then
OrigOnStateChange = OnStateChange;
end
-- trigger OverrideParam
function OnStateChange(oldState, newState, token, groupID, lineno, column)
if (called==nil) then
OverrideParam("format.spacer", " ")
OverrideParam("format.maskws", "true")
called=1
end
if OrigOnStateChange then
return OrigOnStateChange(oldState, newState, token, groupID, lineno, column)
end
return newState
end
end
Plugins={
{ Type="lang", Chunk=syntaxUpdate },
}
--[[============================================================================
CHANGELOG
================================================================================
v1.1 (2020/05/12) | Highlight 3.57
- makes use of OverrideParam to change default HTML whitespace handling
v1.0
- initial version
--]]
|
