rilgamon
/
zz_Infoclock
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases 8 Wiki Activity
zz_Infoclock/broker.lua

272 lines
8.8 KiB
Lua
Executable File
Raw Permalink Blame History

local addonName, addon = ...
local childName = addon['childName']
local child = addon[childName]
local db
local zzLDB = LibStub:GetLibrary("zzLDB")
local folder = addonName ~= childName and format("Interface\\AddOns\\%s\\%s", addonName, childName) or format("Interface\\AddOns\\%s", childName)
local L = LibStub("AceLocale-3.0"):GetLocale(childName, true)
local ldbicon = LibStub:GetLibrary("LibDBIcon-1.0")
local GetNumAddOns = GetNumAddOns
local GetAddOnInfo = GetAddOnInfo
local GetAddOnMemoryUsage = GetAddOnMemoryUsage
local GetAddOnCPUUsage = GetAddOnCPUUsage
local replaces = {
['Sunday'] = true,
['Monday'] = true,
['Tuesday'] = true,
['Wednesday'] = true,
['Thursday'] = true,
['Friday'] = true,
['Saturday'] = true,
['January'] = true,
['February'] = true,
['March'] = true,
['April'] = true,
['May'] = true,
['June'] = true,
['July'] = true,
['August'] = true,
['September'] = true,
['October'] = true,
['November'] = true,
['December'] = true,
}
local IsAddOnLoaded = IsAddOnLoaded
local ticker
-- Fix Classic
local C_CVar = C_CVar or {
GetCVarBool = function(value)
return GetCVar(value) and true or false
end
}
local GameTimeFrame_OnClick = GameTimeFrame_OnClick or function(self) TimeManagerClockButton:Click() end
-- End of Fix Classic
local function updateainfo()
child['ainfo'] = child['ainfo'] or {}
local ainfo = child['ainfo']
wipe(ainfo)
UpdateAddOnMemoryUsage()
UpdateAddOnCPUUsage()
local name, enabled, security, mem, cpu, _
for i=1, GetNumAddOns() do
mem = 0
cpu = 0
name, _, _, enabled, _, _, security = GetAddOnInfo(i)
if(name and enabled and IsAddOnLoaded(i)) then
mem = GetAddOnMemoryUsage(i)
cpu = GetAddOnCPUUsage(i)
ainfo[#ainfo+1] = {
['name'] = name,
['mem'] = mem,
['cpu'] = cpu,
}
end
end
end
local function OnClick(self, button)
if(button == 'RightButton') then
if(not InCombatLockdown()) then
if(SettingsPanel) then
if(SettingsPanel:IsVisible()) then
HideUIPanel(SettingsPanel)
HideUIPanel(GameMenuFrame)
else
Settings.OpenToCategory(childName)
end
elseif(InterfaceOptionsFrame) then
if(InterfaceOptionsFrame:IsVisible()) then
InterfaceOptionsFrame:Hide()
else
InterfaceOptionsFrame_OpenToCategory(childName)
InterfaceOptionsFrame_OpenToCategory(childName) -- Twice because of a bug in InterfaceOptionsFrame_OpenToCategory
end
end
end
elseif(button == 'MiddleButton') then
local pCPU = C_CVar.GetCVarBool("scriptProfile")
if(pCPU) then
pCPU = 0
else
pCPU = 1
end
C_CVar.SetCVar("scriptProfile", pCPU)
print(L["CPU setting changed. Please Reload UI."])
updateainfo()
else
if(IsShiftKeyDown()) then
local db = addon['db']['global']['ldbicons']
db[childName]['hide'] = not db[childName]['hide']
if(ldbicon) then
if(db[childName]['hide']) then
ldbicon:Hide(childName)
else
ldbicon:Show(childName)
end
end
elseif(IsControlKeyDown()) then
print(L["garbagecollected"])
collectgarbage("collect")
else
GameTimeFrame_OnClick(_G["GameTimeFrame"])
end
end
end
local function toggleColor(col,col1,col2)
return col == col1 and col2 or col1
end
local function compute_colorpick(name, val)
local color = db[format('%scolor', name)]
if(db[format('%slow', name)] and tonumber(db[format('%slow', name)]) > 0 and val <= tonumber(db[format('%slow', name)])) then
color = db[format('%slowcolor', name)]
end
if(db[format('%smedium', name)] and tonumber(db[format('%smedium', name)]) > 0 and val >= tonumber(db[format('%smedium', name)])) then
color = db[format('%smediumcolor', name)]
end
if(db[format('%shigh', name)] and tonumber(db[format('%shigh', name)]) > 0 and val >= tonumber(db[format('%shigh', name)])) then
color = db[format('%shighcolor', name)]
end
return color
end
local function compute()
local d = date(db['datestring'])
for k in pairs(replaces) do
if(k ~= L[k]) then
d = d:gsub(k, L[k])
end
end
local h, w = select(3,GetNetStats())
local l = db['latencystring']
l = l:gsub("%%world", w)
l = l:gsub("%%local", h)
local f = db['fpsstring']
local fr = floor(GetFramerate())
f = f:gsub("%%fps", fr)
return {
['clockstring'] = date(db['clockstring']),
['datestring'] = d,
['latencystring'] = l,
['latencycolor'] = compute_colorpick('latency', w),
['latencyvalue'] = w,
['latencyhomevalue'] = h,
['latencyhomecolor'] = compute_colorpick('latency', h),
['fpscolor'] = compute_colorpick('fps', fr),
['fpsstring'] = f,
['fpsvalue'] = fr
}
end
local function sortTab(a,b)
return a['mem'] > b['mem']
end
local function sortTab2(a,b)
return a['cpu'] > b['cpu']
end
local function OnTooltipShow(tip)
local lastainfo = child['lastainfo'] or GetTime() - 1
local ainfodelay = child['ainfodelay'] or 2
if(GetTime() > lastainfo) then
updateainfo()
child['lastainfo'] = GetTime() + ainfodelay
end
local ainfo = child['ainfo']
local com = compute()
tip:AddLine(childName)
local col = "00ff00"
if(db['expert']) then
tip:AddLine(child:colorize(com['datestring'], col))
else
tip:AddLine(child:colorize(format("%s, %s.%s",L[date("%A")],date("%d"),L[date("%B")]), col))
end
col = toggleColor(col,"ffffff","00ff00")
if(db["12-Hours"]) then
tip:AddDoubleLine(child:colorize(L['Time'],col),child:colorize(date("%I:%M:%S"),toggleColor(col,"ffffff","00ff00")))
else
tip:AddDoubleLine(child:colorize(L['Time'],col),child:colorize(date("%H:%M:%S"),toggleColor(col,"ffffff","00ff00")))
end
col = toggleColor(col,"ffffff","00ff00")
tip:AddDoubleLine(child:colorize(L['Latency'],col),child:colorize(format("%s ms", com['latencyvalue']), toggleColor(col,"ffffff","00ff00")))
col = toggleColor(col,"ffffff","00ff00")
tip:AddDoubleLine(child:colorize(L['FPS'],col),child:colorize(format("%i fps",com['fpsvalue']),toggleColor(col,"ffffff","00ff00")))
col = toggleColor(col,"ffffff","00ff00")
tip:AddDoubleLine(child:colorize(L['AddOn Memory'],col),child:colorize(format("%i MB",floor(collectgarbage('count')/1024)),toggleColor(col,"ffffff","00ff00")))
tip:AddLine(" ")
tip:AddLine(L["AddOns"])
sort(ainfo,sortTab)
local sum,cnt = 0,0
for _, v in ipairs(ainfo) do
if(cnt<9) then
tip:AddDoubleLine(child:colorize(v['name'],"00ffff"),format(L["%i kB"],v['mem']))
cnt = cnt + 1
end
sum = sum + v['mem']
end
tip:AddDoubleLine(L['total'],format(L["%i kB"],format("%.2f",sum)))
local pCPU = C_CVar.GetCVarBool("scriptProfile")
if(pCPU) then
tip:AddLine(" ")
tip:AddLine(L["CPU"])
sort(ainfo,sortTab2)
sum,cnt = 0,0
for _, v in ipairs(ainfo) do
if(cnt<5) then
tip:AddDoubleLine(child:colorize(v['name'],"00ffff"),format(L["%i ms"],v['cpu']))
cnt = cnt + 1
end
sum = sum + v['cpu']
end
tip:AddDoubleLine(L['total'],format(L["%i ms"],format("%.2f",sum)))
end
tip:AddLine(" ")
tip:AddLine(L['HINT4'])
tip:AddLine(L["garbagecollect"])
tip:AddLine(L['HINT3'])
tip:AddLine(L['HINT5'])
end
local function OnDataUpdate()
local line = childName
if(db['expert']) then
local com = compute()
line = db['ldbstring']
line = line:gsub("%%clock", child:colorize(com['clockstring'], db['clockcolor']))
line = line:gsub("%%date", child:colorize(com['datestring'], db['datecolor']))
line = line:gsub("%%fps", child:colorize(com['fpsvalue'], com['fpscolor']))
line = line:gsub("%%latency", child:colorize(com['latencyvalue'], com['latencycolor']))
line = line:gsub("%%home", child:colorize(com['latencyhomevalue'], com['latencyhomecolor']))
else
line = ''
if(db["showClock"]) then
line = format("%s%s ", line, db["12-Hours"] and date("%I:%M") or date("%H:%M"))
end
if(db["showLatency"]) then
line = format("%s%s", line, child:colorize(format("%s ms ",select(3,GetNetStats())), "ffff00"))
end
if(db["showFPS"]) then
line = format("%s%s fps", line, floor(GetFramerate()))
end
end
if(line ~= '') then
child:OnText(childName, line)
else
child:OnText(childName, childName)
end
end
function child:update()
ticker:Cancel()
ticker = C_Timer.NewTicker(db['update'] or 2, OnDataUpdate)
end
child['ldb'] = { -- https://github.com/tekkub/libdatabroker-1-1/wiki/Data-Specifications
['type'] = 'data source', -- required: 'data source' or 'launcher'
['text'] = childName, -- required/optional for launcher
['icon'] = format("%s\\icon2.tga", folder), -- optional/required for launcher
['OnClick'] = OnClick, -- optional/required for launcher
['OnTooltipShow'] = OnTooltipShow, -- optional
}
local init = {
Setup = function(self, childName, event)
-- print("setup ldb", childName, event)
child.OnText = zzLDB.DefaultOnText
db = child['db']
ticker = C_Timer.NewTicker(db['update'] or 2, OnDataUpdate)
end
}
addon.RegisterCallback(init, format("Init%s", childName), 'Setup', childName)
Reference in New Issue View Git Blame Copy Permalink