vanilla-wow-addons – Rev 1

?pathlinks?

Blame – Last modification – View Log – Download

if not SimpleCombatLog then return end

local dewdrop = AceLibrary("Dewdrop-2.0")

local L = SimpleCombatLog.loc.theme

function SimpleCombatLog:SaveTheme(id, themeName)
        if not self.settings[id] -- No settings.
        or self.settings[id].theme then -- It is already a theme, noneed to save.
                return 
        end 
        
        local theme = self.settings[id]
        theme.theme = themeName
        
        self.themes[themeName] = theme
        self.themeDB[themeName] = theme
        
        self.settingDB[id] = themeName
                
end

function SimpleCombatLog:DeleteTheme(id, themeName)
        if not self.themes[themeName] then return end
        
        for id, setting in pairs(self.settingDB) do
                if setting == themeName then
                        self:Print(string.format(L["Delete Theme Failed"], themeName, id) )
                        return false
                end
        end
        
        self.themes[themeName] = nil
        self.themeDB[themeName] = nil

end

local function ThemeMenuSettings(self, id, level, value)
        if level == 1 then
        
                dewdrop:AddLine()
                
                dewdrop:AddLine(
                        'text', L["Load Theme"],
                        'tooltipTitle', L["Load Theme"],
                        'tooltipText', L.tooltip_LoadTheme,
                        'hasArrow', true,
                        'notCheckable', true,
                        'value', 'LoadTheme'
                )

                
                if self.settings[id] and not self:GetValue(id, 'theme') then
                        dewdrop:AddLine(
                                'text', L["Save Theme"],
                        'tooltipTitle', L["Save Theme"],
                        'tooltipText', L.tooltip_SaveTheme,
                                'hasArrow', true,
                                'notCheckable', true,
                                'value', 'SaveTheme'
                        )
                end
                
                dewdrop:AddLine(
                        'text', L["Delete Theme"],
                        'tooltipTitle', L["Delete Theme"],
                        'tooltipText', L.tooltip_DeleteTheme,
                        'hasArrow', true,
                        'notCheckable', true,
                        'value', 'DeleteTheme'
                )
        elseif level == 2 then
                if value == 'LoadTheme' then
                        for themeName in pairs(self.themes) do
                                local themeName = themeName
                                local themeTable = themeTable
                                local title
                                if self.themeDB[themeName] then
                                        title = self:Colorize(themeName, self.defaultColors.dirty)
                                else
                                        title = themeName
                                end
                                        
                                dewdrop:AddLine(
                                        'text', title,
                                        'func', function() self:SetTheme(id, themeName) end,
                                        'checked', (self:GetValue(id, 'theme') == themeName )
                                )
                        end                     
                
                elseif value == 'SaveTheme' then
                        for themeName, themeTable in pairs(self.themes) do
                                local themeName = themeName
                                local themeTable = themeTable
                                dewdrop:AddLine(
                                        'text', themeName,
                                        'func', function() self:SaveTheme(id, themeName) end
                                )
                        end     
                        dewdrop:AddLine(
                                'text', L["Save As"],
                                'hasArrow', true,
                                'hasEditBox', true,
                                'editBoxFunc', function(text) self:SaveTheme(id, text) end
                        )
                
                elseif value == 'DeleteTheme' then
                        for themeName, themeTable in pairs(self.themes) do
                                local themeName = themeName
                                local themeTable = themeTable
                                dewdrop:AddLine(
                                        'text', themeName,
                                        'func', function() self:DeleteTheme(id, themeName) end
                                )
                        end
                end
        
        end
end

SimpleCombatLog.ThemeMenuSettings = ThemeMenuSettings