Options.lua

local type, pairs, tinsert, tsort = type, pairs, table.insert, table.sort

local Core = LibStub("TotemPlates")
local L = Core.L

Core.defaults = {
    profile = {},
}

function Core:SetColor(option)
    return option.r, option.g, option.b, option.a
end

function Core:option(params)
    local defaults = {
        get = function(info)
            local key = info.arg or info[#info]
            return Core.dbi.profile[key]
        end,
        set = function(info, value)
            local key = info.arg or info[#info]
            Core.dbi.profile[key] = value
            Core:UpdateFrame()
        end,
    }

    for k, v in pairs(params) do
        defaults[k] = v
    end

    return defaults
end

function Core:colorOption(params)
    local defaults = {
        get = function(info)
            local key = info.arg or info[#info]
            return Core.dbi.profile[key].r, Core.dbi.profile[key].g, Core.dbi.profile[key].b, Core.dbi.profile[key].a
        end,
        set = function(info, r, g, b, a)
            local key = info.arg or info[#info]
            Core.dbi.profile[key].r, Core.dbi.profile[key].g, Core.dbi.profile[key].b, Core.dbi.profile[key].a = r, g, b, a
            Core:UpdateFrame()
        end,
    }

    for k, v in pairs(params) do
        defaults[k] = v
    end

    return defaults
end

local function getOpt(info)
    local key = info.arg or info[#info]
    return Core.dbi.profile[key]
end
local function setOpt(info, value)
    local key = info.arg or info[#info]
    Core.dbi.profile[key] = value
    Core:UpdateFrame()
end

function Core:GetFromMultipleOptions(options)
    local val = options[1]
    local isAllSameValue = true
    for _,v in pairs(options) do
        if type(v) == "table" then
            if not (v.r == val.r and v.g == val.g and v.b == val.b and v.a == val.a) then
                isAllSameValue = false
                break
            end
        else
            if val ~= v then
                isAllSameValue = false
                break
            end
        end
    end

    if type(val) == "table" then
        if isAllSameValue then
            return val.r, val.g, val.b, val.a
        else
            return 0,0,0,0
        end
    else
        return isAllSameValue and val or ""
    end
end

function Core:UpdateFrame()
    for _, v in self:IterModules() do
        self:Call(v, "UpdateFrame")
    end
    for _, v in self:IterModules() do
        self:Call(v, "UpdateFrameOnce")
    end
end

function Core:SetupModule(name, module, order)
    local options = module:GetOptions()
    if options then
        self.options.args[name] = {
            type = "group",
            name = L[name],
            desc = L[name] .. " " .. L["settings"],
            childGroups = "tab",
            order = order,
            args = {},
        }

        if (type(options) == "table") then
            self.options.args[name].args = options
            self.options.args[name].args.reset = {
                type = "execute",
                name = L["Reset module"],
                desc = L["Reset module to defaults"],
                order = 1,
                func = function()
                    for k, v in pairs(module.defaults) do
                        self.dbi.profile[k] = v
                    end

                    Core:UpdateFrame()
                    Core:SetupModule(name, module, order) -- For example click names are not reset by default
                end
            }
        else
            self.options.args[name].args.nothing = {
                type = "description",
                name = L["No settings"],
                desc = L["Module has no settings"],
                order = 1,
            }
        end
    end
end

local function pairsByKeys(t)
    local a = {}
    for k in pairs(t) do
        tinsert(a, k)
    end
    tsort(a, function(a, b) return L[a] < L[b] end)

    local i = 0
    return function()
        i = i + 1

        if (a[i] ~= nil) then
            return a[i], t[a[i]]
        else
            return nil
        end
    end
end

function Core:ShowOptions()
    InterfaceOptionsFrame_OpenToFrame("TotemPlates")
end

function Core:SetupOptions()
    self.options = {
        type = "group",
        name = L["TotemPlates"],
        plugins = {},
        childGroups = "tree",
        get = getOpt,
        set = setOpt,
        args = {
            test = {
                order = 2,
                width = 0.7,
                name = L["Test"],
                desc = L["Show Test frames"],
                type = "execute",
                func = function()
                    Core:Test()
                end,
            },
            hide = {
                order = 3,
                width = 0.7,
                name = L["Hide"],
                desc = L["Hide frames"],
                type = "execute",
                func = function()
                    Core:Reset()
                end,
            },
            reload = {
                order = 4,
                width = 0.7,
                name = L["ReloadUI"],
                desc = L["Reloads the UI"],
                type = "execute",
                func = function()
                    ReloadUI()
                end,
            },
            version = {
                order = 5,
                width = 1,
                type = "description",
                name = "     " .. Core.version
            },
        },
    }

    local order = 6
    for k, v in pairsByKeys(self.modules) do
        self:SetupModule(k, v, order)
        order = order + 1
    end

    local options = {
        name = L["TotemPlates"],
        type = "group",
        args = {
            load = {
                name = L["Load configuration"],
                desc = L["Load configuration options"],
                type = "execute",
                func = function()
                    HideUIPanel(InterfaceOptionsFrame)
                    HideUIPanel(GameMenuFrame)
                    LibStub("AceConfigDialog-3.0"):Open("TotemPlates")
                end,
            },
        },
    }

    self.options.plugins.profiles = { profiles = LibStub("AceDBOptions-3.0"):GetOptionsTable(self.dbi) }
    LibStub("AceConfig-3.0"):RegisterOptionsTable("TotemPlates_blizz", options)
    LibStub("AceConfigDialog-3.0"):AddToBlizOptions("TotemPlates_blizz", "TotemPlates")
    LibStub("AceConfig-3.0"):RegisterOptionsTable("TotemPlates", self.options)

end