Mercurial > wow > buffalo2

annotate Init.lua @ 21:d5ee940de273

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
use hardcoded aesthetic manipulations over loadstring cramming
author Nenue
date Fri, 08 Apr 2016 06:12:05 -0400
parents ed642234f017
children 66b927b46776
rev   line source
Nenue@0 1 --- Modulizer framework
Nenue@0 2 -- OnInitialize
Nenue@0 3 -- OnUpdate
Nenue@0 4 -- OnEnable -- run when GetSpecialization() returns true
Nenue@0 5
Nenue@0 6 local ADDON, A = ...
Nenue@0 7 Veneer = Veneer or CreateFrame('Frame', 'Veneer', UIParent)
Nenue@0 8 local B = Veneer
Nenue@3 9 local wipe, min, max, random, tinsert, tremove = table.wipe, math.min, math.max, math.random, table.insert, table.remove
Nenue@0 10 local pairs, ipairs, select, unpack, _G = pairs, ipairs, select, unpack, _G
Nenue@0 11 local type, tostring, format = type, tostring, string.format
Nenue@0 12 A.frame = B
Nenue@0 13
Nenue@0 14 --- Cache tables
Nenue@0 15 local initOnced
Nenue@0 16 local modules = {}
Nenue@0 17 local queuedModules = {}
Nenue@3 18 local checkForConfig = {}
Nenue@0 19 local moduleStack = {
Nenue@0 20 }
Nenue@0 21
Nenue@0 22 --- Various region categories
Nenue@0 23 B.displays = {}
Nenue@0 24 B.configLayers = {}
Nenue@0 25 B.configLayersRef = {}
Nenue@0 26
Nenue@0 27 --@debug@
Nenue@0 28 --- Generates a print handler pointing to a static channel signature
Nenue@0 29 -- @usage func = B.print(sig)
Nenue@0 30 -- @param sig channel name or number
Nenue@0 31 local printfuncs = {}
Nenue@0 32 B.print = function(pref, ...)
Nenue@0 33 if Devian and Devian.InWorkspace() then
Nenue@0 34 printfuncs[pref] = printfuncs[pref] or function(...) print(pref, ...) end
Nenue@0 35
Nenue@0 36 return printfuncs[pref]
Nenue@0 37 else
Nenue@0 38 return function () end
Nenue@0 39 end
Nenue@0 40 end
Nenue@0 41
Nenue@0 42 local rgb = {}
Nenue@0 43 local getcolor = function()
Nenue@0 44 local n, p = 0, 4
Nenue@0 45 for i = 1, 3 do
Nenue@0 46 rgb[i] = min(random(n,p) * 64, 255)
Nenue@0 47 if rgb[i] == 255 then
Nenue@0 48 p = 4
Nenue@0 49 elseif rgb[i] > 0 then
Nenue@0 50 n = 2
Nenue@0 51 end
Nenue@0 52 end
Nenue@0 53 return unpack(rgb)
Nenue@0 54 end
Nenue@0 55
Nenue@0 56 local color = {}
Nenue@0 57 local fprints = {}
Nenue@0 58 B.fprint = function()
Nenue@0 59 if not (Devian and Devian.InWorkspace()) then
Nenue@0 60 return function() end
Nenue@0 61 end
Nenue@0 62
Nenue@0 63
Nenue@0 64 local sig = debugstack(2,1)
Nenue@0 65 if fprints[sig] then
Nenue@0 66 return fprints[sig]
Nenue@0 67 end
Nenue@0 68
Nenue@0 69 local func = sig:match("%`(%a+)%'")
Nenue@0 70 if not func then
Nenue@0 71 func = sig:match("<(.-)>")
Nenue@0 72 end
Nenue@0 73 func = func:gsub('(%l+)(%u)', function(a, b) return a:sub(0,2) .. b end, 1)
Nenue@0 74 func = func:gsub('^.+%\\', '')
Nenue@0 75 if not func then
Nenue@0 76 func = 'noname'
Nenue@0 77 end
Nenue@0 78
Nenue@0 79 local r, g, b = getcolor()
Nenue@0 80 color[sig] = color[sig] or format('|cFF%02X%02X%02X%s|r', r, g, b, func)
Nenue@0 81
Nenue@0 82 --print(color[func] .. ' ( ' .. table.concat(args, ', ')..' )' )
Nenue@0 83 func = B.print(func)
Nenue@0 84 fprints[sig] = func
Nenue@0 85 return func
Nenue@0 86 end
Nenue@0 87
Nenue@0 88 --@end-debug@
Nenue@0 89 --[=[@non-debug@
Nenue@0 90 B.print = function() end
Nenue@0 91 --@end-non-debug@]=]
Nenue@0 92
Nenue@0 93 -- for the Mikk script
Nenue@0 94 -- GLOBALS: NUM_LE_RAID_BUFF_TYPES
Nenue@0 95 -- GLOBALS: BUFF_FLASH_TIME_ON, BUFF_FLASH_TIME_OFF, BUFF_MIN_ALPHA, BUFF_WARNING_TIME, BUFF_DURATION_WARNING_TIME
Nenue@0 96 -- GLOBALS: BUFFS_PER_ROW, BUFF_MAX_DISPLAY, BUFF_ACTUAL_DISPLAY, DEBUFF_MAX_DISPLAY, DEBUFF_ACTUAL_DISPLAY, BUFF_ROW_SPACING
Nenue@0 97 -- GLOBALS: CONSOLIDATED_BUFFS_PER_ROW, CONSOLIDATED_BUFF_ROW_HEIGHT, NUM_TEMP_ENCHANT_FRAMES
Nenue@0 98 -- GLOBALS: BUFF_BUTTON_HEIGHT, BUFF_FRAME_BASE_EXTENT, BUFF_HORIZ_SPACING
Nenue@0 99
Nenue@0 100 local print = B.print('Bfl')
Nenue@0 101
Nenue@0 102 --- Template for making perpendicular traversals of the displays structure; also makes sure the table is there
Nenue@0 103 B.Abstract = function(dest, key, table)
Nenue@0 104 if table then
Nenue@0 105 for _, v in pairs(dest) do
Nenue@0 106 v[key] = {}
Nenue@0 107 end
Nenue@0 108 end
Nenue@0 109 B[key] = setmetatable({}, {
Nenue@0 110 __index = function(t, k)
Nenue@0 111 return dest[k][key]
Nenue@0 112 end,
Nenue@0 113 __newindex = function(_, k, v)
Nenue@0 114 print('abstract write ('..key..'):', k)
Nenue@0 115 dest[k][key] = v
Nenue@0 116 end,
Nenue@0 117 __tostring = function() return 'Abstract:'..key..'' end
Nenue@0 118 })
Nenue@0 119
Nenue@0 120
Nenue@0 121 return B[key]
Nenue@0 122 end
Nenue@0 123
Nenue@0 124
Nenue@0 125 --- localize for speed
Nenue@0 126 local layers, refs, displays = B.configLayers, B.configLayersRef, B.displays
Nenue@0 127
Nenue@0 128 local ModulesCall = function(func)
Nenue@0 129
Nenue@0 130 local n = 0
Nenue@0 131 for i = 1, #moduleStack do
Nenue@0 132 print('calling level '..i)
Nenue@0 133 local stackset = moduleStack[i]
Nenue@0 134
Nenue@0 135 for name, module in pairs(stackset) do
Nenue@0 136 n = n + 1
Nenue@0 137 print(n..' '..name..'.'..func..'()')
Nenue@0 138
Nenue@0 139
Nenue@0 140 if module[func] then
Nenue@0 141 module[func](module)
Nenue@0 142 end
Nenue@0 143 end
Nenue@0 144 end
Nenue@0 145 end
Nenue@0 146
Nenue@0 147
Nenue@0 148 local Enable = function()
Nenue@0 149 end
Nenue@0 150
Nenue@0 151 --- The things that happen repeatedly
Nenue@0 152 local Init = function ()
Nenue@0 153 end
Nenue@0 154
Nenue@0 155
Nenue@0 156 --- Things that happen immediately upon entering world
Nenue@0 157 local InitOnce = function()
Nenue@0 158 print('entering world first time')
Nenue@0 159 local defaults = B.ConfDefaults
Nenue@0 160 print('|cFFFFFF00Veneer|r')
Nenue@0 161 if not VeneerData then
Nenue@0 162 VeneerData = {}
Nenue@0 163 for k,v in pairs(defaults) do
Nenue@0 164 VeneerData[k] = v
Nenue@0 165 end
Nenue@0 166 print('Veneer defaults being used.')
Nenue@0 167 end
Nenue@0 168
Nenue@0 169 B.Conf = setmetatable(VeneerData, {__index = function(_, k) return defaults[k] end})
Nenue@0 170
Nenue@14 171
Nenue@14 172
Nenue@0 173 -- suffix tables
Nenue@0 174 for name, display in pairs(displays) do
Nenue@0 175 display.conf = setmetatable({}, {
Nenue@0 176 __index = function(_, k)
Nenue@0 177 --print('config check '.. name .. k)
Nenue@0 178 return B.Conf[name .. k] or B.Conf['BuffButton' .. k]
Nenue@0 179 end,
Nenue@0 180 __newindex = function(_, k , v)
Nenue@0 181 B.Conf[name..k] = v
Nenue@0 182 end,
Nenue@0 183 })
Nenue@0 184 end
Nenue@0 185
Nenue@0 186 -- To ensure that modules are run in controlled order, walk the dependency list; if the dep shows up
Nenue@0 187 -- in the loaded manifest, remove the value. If the dep list isn't empty, move that module to the next
Nenue@0 188 -- layer.
Nenue@0 189 local loaded = {}
Nenue@0 190 local stackLevels = #moduleStack
Nenue@0 191 local i = 1
Nenue@0 192 moduleStack[1] = modules
Nenue@0 193 repeat
Nenue@0 194 print('setting init level '.. i)
Nenue@0 195 local queue = moduleStack[i]
Nenue@0 196 for name, module in pairs(queue) do
Nenue@0 197
Nenue@0 198 if queuedModules[name] and #queuedModules[name] > 0 then
Nenue@0 199 local p = #queuedModules[name]
Nenue@0 200 for j = 1, p do
Nenue@0 201 local dep = queuedModules[name][j]
Nenue@0 202
Nenue@0 203 if loaded[dep] then
Nenue@0 204 print( ' ' .. dep .. ' OK')
Nenue@0 205 queuedModules[name][j] = nil
Nenue@0 206 for k = j, p do
Nenue@0 207 print(' shift ' .. (k+1) .. ' ('..tostring(queuedModules[name][k+1])..') to ' .. k ..'')
Nenue@0 208 queuedModules[name][k] = queuedModules[name][k+1]
Nenue@0 209 end
Nenue@0 210 end
Nenue@0 211 end
Nenue@0 212
Nenue@0 213 if #queuedModules[name] == 0 then
Nenue@0 214 queuedModules[name] = nil
Nenue@0 215 print(' |cFF00FFFF'.. name ..'|r deps OK')
Nenue@0 216 loaded[name] = true
Nenue@0 217 else
Nenue@0 218
Nenue@0 219 print(' |cFFFF8800' .. name ..'|r pending')
Nenue@0 220 local next = i+1
Nenue@0 221 if not moduleStack[next] then
Nenue@0 222 moduleStack[next] = {}
Nenue@0 223 end
Nenue@0 224 stackLevels = next
Nenue@0 225 moduleStack[next][name] = module
Nenue@0 226 queue[name] = nil
Nenue@0 227 end
Nenue@0 228
Nenue@0 229 else
Nenue@0 230 print(' |cFF00FF00'.. name ..'|r no deps')
Nenue@0 231 loaded[name] = true
Nenue@0 232 end
Nenue@0 233 end
Nenue@0 234 i = i + 1
Nenue@0 235 until i > stackLevels
Nenue@0 236
Nenue@0 237
Nenue@0 238 for level, batch in ipairs(moduleStack) do
Nenue@0 239 print('config level', level)
Nenue@0 240 for name, module in pairs(batch) do
Nenue@14 241 if module.defaults then
Nenue@14 242 print('setting defaults for module', name)
Nenue@14 243 --[===[@non-debug@
Nenue@14 244 if not VeneerData[name] then
Nenue@14 245 --@end-non-debug@]===]
Nenue@14 246 VeneerData[name] = {}
Nenue@14 247 --[===[@non-debug@
Nenue@14 248 end
Nenue@14 249 --@end-non-debug@]===]
Nenue@14 250 for k,v in pairs(module.defaults) do
Nenue@14 251 VeneerData[name][k] = v
Nenue@14 252 end
Nenue@14 253 module.Conf = VeneerData[name]
Nenue@14 254 end
Nenue@0 255
Nenue@0 256 end
Nenue@0 257 end
Nenue@3 258
Nenue@3 259
Nenue@3 260 if #checkForConfig >= 1 then
Nenue@3 261 local queuedFrame = tremove(checkForConfig)
Nenue@3 262 while queuedFrame do
Nenue@3 263 B.SetConfigLayers(queuedFrame)
Nenue@3 264 B.InitXMLFrame(queuedFrame)
Nenue@3 265 queuedFrame = tremove(checkForConfig)
Nenue@3 266 end
Nenue@3 267 end
Nenue@0 268 -- remove from existing
Nenue@0 269 end
Nenue@0 270
Nenue@0 271 --- Fires an update to all modules
Nenue@0 272 local lastUpdate
Nenue@0 273 function B.UpdateAll(...)
Nenue@0 274 lastUpdate = GetTime()
Nenue@0 275 ModulesCall('OnUpdate', lastUpdate)
Nenue@0 276 end
Nenue@0 277
Nenue@0 278 B:RegisterEvent('PLAYER_ENTERING_WORLD')
Nenue@0 279 B:SetScript('OnEvent', function(self, event)
Nenue@0 280 if event == 'PLAYER_ENTERING_WORLD' then
Nenue@0 281 if not initOnced then
Nenue@0 282 InitOnce()
Nenue@0 283 ModulesCall('OnInitialize')
Nenue@0 284 initOnced = true
Nenue@0 285 C_Timer.After(1, function()
Nenue@0 286 if GetSpecialization() then
Nenue@0 287 print(GetSpecialization(), 'enabling')
Nenue@0 288 ModulesCall('OnEnable')
Nenue@0 289 B:SetScript('OnUpdate', nil)
Nenue@0 290 end
Nenue@0 291
Nenue@0 292 end)
Nenue@0 293 end
Nenue@0 294
Nenue@0 295 end
Nenue@0 296
Nenue@0 297 B.UpdateAll()
Nenue@0 298 end)
Nenue@0 299
Nenue@0 300 --- Modulizer method
Nenue@0 301 --
Nenue@0 302 function B:RegisterModule (name, module, ...)
Nenue@0 303 if modules[name] then
Nenue@0 304 print('pulling modules[|cFFFF8800'.. tostring(name) ..'|r]')
Nenue@0 305 return modules[name]
Nenue@0 306 end
Nenue@0 307
Nenue@0 308 print('new module |cFF00BBFF'.. tostring(name) ..'|r')
Nenue@0 309 if module then
Nenue@0 310 if modules[name] then
Nenue@0 311 error("Module table for '"..tostring(name).."' already exists.")
Nenue@0 312 end
Nenue@0 313 else
Nenue@0 314 module = CreateFrame('Frame', 'Veneer' .. tostring(name) .. 'Handler', B, 'VeneerHandlerTemplate')
Nenue@0 315 end
Nenue@0 316 modules[name] = module
Nenue@3 317 B[name] = module
Nenue@0 318 if select('#', ...) >= 1 then
Nenue@0 319 local numDeps = select('#', ...)
Nenue@0 320 print(' '..numDeps..' deps detected')
Nenue@0 321 for i = 1, numDeps do
Nenue@0 322 local dep = select(i, ...)
Nenue@0 323 -- means that init/enable funcs are ordered to run after deps do their things
Nenue@0 324 queuedModules[name] = queuedModules[name] or {}
Nenue@0 325 tinsert(queuedModules[name], dep)
Nenue@0 326 print(' needs '..dep)
Nenue@0 327 end
Nenue@0 328 end
Nenue@0 329 return module
Nenue@0 330 end
Nenue@0 331
Nenue@0 332
Nenue@0 333 B.SetConfigLayers = function(frame)
Nenue@0 334 local print = B.fprint()
Nenue@0 335 if not frame.config then
Nenue@0 336 print(frame:GetName(), 'has no config layers')
Nenue@0 337 return
Nenue@0 338 end
Nenue@0 339 print('Registering config layers from', frame:GetName())
Nenue@0 340
Nenue@0 341 for i, subframe in ipairs(frame.config) do
Nenue@0 342 -- make sure there are no duplicates
Nenue@0 343 if not refs[subframe] then
Nenue@0 344 local key = #layers+1
Nenue@0 345 layers[key] = subframe
Nenue@0 346 refs[subframe] = key
Nenue@0 347 end
Nenue@0 348 print(' ', i, subframe:GetName())
Nenue@0 349 end
Nenue@0 350 end
Nenue@0 351
Nenue@0 352 B.RemoveConfigLayers = function(frame)
Nenue@3 353
Nenue@0 354 local print = B.fprint()
Nenue@0 355 print('|cFFFF0000RemoveConfigLayers', frame:GetName())
Nenue@0 356 for i, subframe in pairs(layers) do
Nenue@0 357 if subframe:GetParent() == frame then
Nenue@0 358 print('|cFFFF8800 ', subframe:GetParent():GetName(), '|cFFFFFF00', subframe:GetName())
Nenue@0 359 layers[i]:Hide()
Nenue@0 360 layers[i] = nil
Nenue@0 361 refs[subframe] = nil
Nenue@0 362 end
Nenue@0 363 end
Nenue@0 364 end
Nenue@0 365
Nenue@0 366 B.UpdateConfigLayers = function()
Nenue@0 367 local print = B.fprint()
Nenue@0 368 local func = B.Conf.GuidesMode and 'Show' or 'Hide'
Nenue@0 369 local numAnchors = 0
Nenue@0 370 for name, display in pairs(displays) do
Nenue@0 371 numAnchors = numAnchors + 1
Nenue@0 372 display.anchor:EnableMouse(B.Conf.GuidesMode)
Nenue@0 373 if B.Conf.GuidesMode then
Nenue@0 374 display.anchor:SetScript('OnUpdate', display.anchor.OnUpdate)
Nenue@0 375 else
Nenue@0 376 display.anchor:SetScript('OnUpdate', nil)
Nenue@0 377
Nenue@0 378 for i, anchorButton in ipairs(display.anchor.anchorButton) do
Nenue@0 379 anchorButton:Hide()
Nenue@0 380 end
Nenue@0 381
Nenue@0 382 end
Nenue@0 383
Nenue@0 384 end
Nenue@0 385 for id, region in pairs(layers) do
Nenue@0 386 print(id, region:GetName(), func)
Nenue@0 387 region[func](region)
Nenue@0 388 end
Nenue@0 389
Nenue@0 390 print('['..func..'] updated', #layers, 'regions,', numAnchors, 'frames')
Nenue@3 391 end
Nenue@3 392
Nenue@3 393 --- Generic handlers for keeping track of XML-defined frames
Nenue@3 394 B.OnLoad = function(self)
Nenue@3 395 tinsert(checkForConfig, self)
Nenue@13 396 self.Minimize = function(self, forceDown)
Nenue@13 397 if not self:IsVisible() then
Nenue@13 398 return
Nenue@13 399 end
Nenue@13 400 local state = (forceDown and 1 or (B.Conf.FrameState[self:GetName()] == 1 and 2 or 1))
Nenue@13 401 local stateFunc = (state == 1) and 'Hide' or 'Show'
Nenue@13 402 for i, region in pairs(self.minimizeFrames) do
Nenue@13 403 region[stateFunc](region)
Nenue@13 404 end
Nenue@13 405 B.Conf.FrameState[self:GetName()] = state
Nenue@13 406 end
Nenue@3 407 end
Nenue@3 408
Nenue@3 409 B.InitXMLFrame = function(self)
Nenue@3 410 print('|cFF00FF00hello from '..self:GetName())
Nenue@3 411
Nenue@21 412 if self.drag then
Nenue@21 413 self:RegisterForDrag('LeftButton')
Nenue@21 414 else
Nenue@21 415 self:EnableMouse(false)
Nenue@21 416 end
Nenue@21 417
Nenue@3 418 if not B.Conf.FramePosition then
Nenue@3 419 B.Conf.FramePosition = {}
Nenue@3 420 end
Nenue@13 421 if not B.Conf.FrameState then
Nenue@13 422 B.Conf.FrameState = {}
Nenue@13 423 end
Nenue@13 424
Nenue@3 425 if B.Conf.FramePosition[self:GetName()] then
Nenue@3 426 print('restoring frame position', unpack(B.Conf.FramePosition[self:GetName()]))
Nenue@3 427 self:ClearAllPoints()
Nenue@3 428 local anchorTo, relativePoint, x, y = unpack(B.Conf.FramePosition[self:GetName()])
Nenue@3 429 self:SetPoint(anchorTo, UIParent, relativePoint, x, y)
Nenue@3 430 end
Nenue@13 431 local state = B.Conf.FrameState[self:GetName()] and B.Conf.FrameState[self:GetName()] or 2
Nenue@13 432 if state == 0 then
Nenue@13 433 self:Hide()
Nenue@13 434 elseif state == 1 then
Nenue@13 435 self.Minimize(self, true)
Nenue@13 436 elseif state == 2 then
Nenue@13 437 self:Show()
Nenue@13 438 end
Nenue@13 439 B.Conf.FrameState[self:GetName()] = state
Nenue@3 440 end
Nenue@3 441
Nenue@3 442 B.OnDragStart = function(self)
Nenue@3 443 self.xA = self:GetLeft()
Nenue@3 444 self.yA = self:GetBottom()
Nenue@3 445 self.anchorTo, self.relativeTo, self.relativePoint, self.x, self.y = self:GetPoint(1)
Nenue@3 446 print('acquire anchor', self:GetPoint(1))
Nenue@3 447 print(self:GetName(), 'start moving ('..self.x..', '..self.y..')')
Nenue@3 448 self:StartMoving()
Nenue@3 449 end
Nenue@3 450
Nenue@3 451 B.OnDragStop = function(self)
Nenue@3 452 print(self:GetName(), 'stop moving ('..self:GetLeft()..', '..self:GetBottom()..')')
Nenue@3 453 local xB = self:GetLeft() - self.xA
Nenue@3 454 local yB = self:GetBottom() - self.yA
Nenue@3 455 print('storing anchor point', self.anchorTo, self.relativePoint, self.x + xB, self.y + yB)
Nenue@3 456
Nenue@3 457 self:StopMovingOrSizing()
Nenue@3 458 B.Conf.FramePosition[self:GetName()] = {self.anchorTo, self.relativePoint, self.x + xB, self.y + yB}
Nenue@3 459 B.InitXMLFrame(self)
Nenue@3 460
Nenue@0 461 end