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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
|
--
-- ion/share/delib.lua -- Helper functions for defining drawing engine
-- styles
--
-- Copyright (c) Tuomo Valkonen 2004.
--
-- Ion is free software; you can redistribute it and/or modify it under
-- the terms of the GNU Lesser General Public License as published by
-- the Free Software Foundation; either version 2.1 of the License, or
-- (at your option) any later version.
--
-- This is a slight abuse of the _LOADED variable perhaps, but library-like
-- packages should handle checking if they're loaded instead of confusing
-- the user with require/include differences.
if _LOADED["delib"] then return end
local stylecache={}
local function lookup_substyle(list, pattern)
for k, v in ipairs(list) do
if type(v)=="table" then
if v.substyle_pattern and v.substyle_pattern==pattern then
return v
end
end
end
end
local function base_on(name, list)
if not stylecache[list.based_on] then
warn("Attempt to base style "..name.." on style "..list.based_on
.." that is not defined.")
return false
end
for k, v in stylecache[list.based_on] do
if type(k)=="number" then
if type(v)=="table" then
if v.substyle_pattern then
if not lookup_substyle(list, v.substyle_pattern) then
table.insert(list, v)
end
end
end
elseif not list[k] then
list[k]=v
end
end
return true
end
local translations={
["frame-tab"] = "tab-frame",
["frame-tab-ionframe"] = "tab-frame-ionframe",
["frame-tab-floatframe"] = "tab-frame-floatframe",
}
--DOC
-- Define a new style for the default drawing engine (that must've
-- been loaded with \fnref{gr_select_engine}.
function de_define_style(name, list)
if translations[name] then
warn('The style "'..name..'" has been renamed to "'
..translations[name]..'"')
name=translations[name]
end
if not list then
return function(list2)
de_define_style(name, list2)
end
end
if list.based_on then
if not base_on(name, list) then
return
end
end
stylecache[name]=list
for xscr, rootwin in root_windows() do
if not de_do_define_style(rootwin, name, list) then
break
end
end
end
local subtranslations={
["cursor"]="*-cursor",
["selection"]="*-selection",
}
--DOC
-- Define a substyle for the default drawing engine. This function
-- is to be used in constructing style definitions for
-- \fnref{de_define_style}.
function de_substyle(pattern, list)
if subtranslations[pattern] then
warn('The substyle "'..pattern..'" has been renamed to "'
..subtranslations[pattern]..'"')
pattern=subtranslations[pattern]
end
if not list then
return function(list2)
substyle(pattern, list2)
end
end
list.substyle_pattern=pattern
return list
end
-- Mark ourselves loaded.
_LOADED["delib"]=true
|
