WoWInterface SVN oUF_Smee2

local layoutName = 'oUF_Smee2'
local addon = _G[layoutName]
local configAddonName = layoutName..'_Config'
local configAddon = _G[configAddonName]
local tinsert = table.insert
local db = addon.db.profile
GlobalObject = {}

configAddon.growthYDirections= {
        UP = "UP",
        DOWN = "DOWN",
}
configAddon.growthXDirections= {
        LEFT = "LEFT",
        RIGHT = "RIGHT",
}
configAddon.frameAnchorPoints = {
        TOPLEFT = "TOPLEFT", TOP = "TOP", TOPRIGHT = "TOPRIGHT",
        LEFT = "LEFT", CENTER = "CENTER", RIGHT = "RIGHT",
        BOTTOMLEFT = "BOTTOMLEFT", BOTTOM = "BOTTOM", BOTTOMRIGHT = "BOTTOMRIGHT"
}
configAddon.textHorizontalAlignmentPoints={
        LEFT = "LEFT", CENTER = "CENTER", RIGHT ="RIGHT"
}
configAddon.textVerticalAlignmentPoints={
        TOP = "TOP", MIDDLE = "MIDDLE", BOTTOM = "BOTTOM"
}
configAddon.fontOutlineTypes={
        NONE = "None",
        OUTLINE = "OUTLINE",
        THICKOUTLINE = "THICKOUTLINE",
        MONOCHROME = "MONOCHROME"
}

configAddon.resizeRules = {
        ["Height"] = {
                ['Power'] = function(obj,num)
                         return ((obj:GetParent().db.height - 3) / 100 ) * num
                end,
                ['Health'] = function(obj,num)
                         return ((obj:GetParent().db.height - 3) / 100 ) * num
                end,
                ['Castbar'] = function(obj,num)
                        return num
                end,
                ['RuneBar'] = function(obj,num)
                        return ((obj:GetParent().db.height - 3) / 100 ) * num
                end,
                ['TotemBar'] = function(obj,num)
                        return num
                end,
        },
        ["Width"] = {
                ['Power'] = function(obj,num)
                        return obj:GetWidth()
                end,
                ['Health'] = function(obj,num)
                        return obj:GetWidth()
                end,
                ['Castbar'] = function(obj,num)
                        return num
                end,
                ['RuneBar'] = function(obj,num)
                        return ((obj:GetParent().db.width - 3) / 100 ) * num
                end,
                ['Totembar'] = function(obj,num)
                        return num
                end,
        }
}

function configAddon:UpdateTextures(object,data)
        local textures = addon.db.profile.textures
        
        for bar,obj in pairs(object.bars)do                     
                obj:SetStatusBarTexture(addon.LSM:Fetch('statusbar',data.statusbar))
        end
        
end

function configAddon:PlayerFramesToAnchorTo()
        local AnchorToFrames = {}
        for frame, object in pairs(addon.units)do
                AnchorToFrames[frame] = frame
        end
        AnchorToFrames['UIParent'] = 'UIParent'
        return AnchorToFrames
end
function configAddon:concatLeaves(branch)
        local picture = ""
                for index,value in pairs(branch) do
                        picture = picture .. "["..index.."] - "..tostring(value).."\n"
                end
        return picture
end

function configAddon:SetupUnitOptions(table)
        for index,frame in pairs(table)do
                if frame.unit ~= nil then 
                        self.options.args['frames'].args['units'].args[index] = self:AddUnitOptionSet(frame)
                        self:Debug("Inserting Option Config for : "..frame.unit)
                end
        end     
end

--      MANUPILATORS
function configAddon:ScaleObject(obj,value)
        if obj~=nil then
                obj:SetScale(db.frames.scale)
        else
                db.frames.scale = value
                for index,frame in pairs(oUF.objects)do
                        if(frame.unit ~= nil) then
                                self:ScaleObject(frame)
                        end
                end
        end
end
function configAddon:MoveObject(object,setting)
        if(object ~= nil) then
                local anchorTo = setting.anchorTo 
                if(anchorTo == nil or anchorTo == 'parent')then
                        anchorTo = object:GetParent()
                elseif(oUF.units[anchorTo])then
                        anchorTo = oUF.units[anchorTo]
                else
                        anchorTo = UIParent
                end 
                object:ClearAllPoints()
                object:SetPoint(setting.anchorFromPoint,anchorTo,setting.anchorToPoint,setting.anchorX,setting.anchorY)
        end     
end
function configAddon:SizeObject(object,settings,parent) 
        if(object ~= nil) then          
                local widthRule = configAddon.resizeRules["Width"][parent] and configAddon.resizeRules["Width"][parent](object,settings.width) or settings.width
                local heightRule =  configAddon.resizeRules["Height"][parent] and configAddon.resizeRules["Height"][parent](object,settings.height)  or settings.height
                object:SetWidth(widthRule)
                object:SetHeight(heightRule)
                if(object.OnSizeChange) then object:OnSizeChange(object) end
        end
end

function configAddon:SetFontType(obj,size,name,outline)
        addon:UpdateFontObjects(obj,size,name,outline)
end

function configAddon:SetAuraTimeFormat(value)
        db.auras.timers.UsingMMSS = value
end
function configAddon:ToggleAuraTimers(value)
        db.auras.timers.enabled = value
end

function configAddon:GetAuraRows(obj)
        local extra = mod(obj.num,obj.Colomns) > 0 and 1 or 0
        local rows = math.floor(obj.num/obj.Colomns)
        return rows + extra
end

function configAddon:SetAuraFontOptions(obj,size,name,outline)
        local fontDb = addon.db.profile.auras.font
        self:Debug(size,name,outline)
         fontDb.size = size or fontDb.size
         fontDb.name = name or fontDb.name
         fontDb.outline = outline or fontDb.outline
         
--       for index,unit in pairs(addon.units)do
--              if unit.Buffs then end
--       end
end

function configAddon:adjustAuraFrame(object,setting,value)
        self:Debug("adjustAuraFrame("..tostring(object)..","..setting..","..value..")")
        object[setting]=value

        if(setting == "count") then 
                if(object.num ~= value) then
                        for index,obj in pairs({object:GetChildren()})do
                                obj:Hide()
                        end
                end
                object.num = value
        elseif(setting == "growth-x" or setting == "growth-y")then              
--
        end

        object:GetParent():UpdateElement('Aura')
        --background helper sizing.
        object:SetHeight(object.size * self:GetAuraRows(object))
        object:SetWidth(object.size * object.Colomns)
end

function configAddon:ToggleFrameLock(obj,value) 
        if obj ~= nil then
                if value == false then  
                        obj:SetBackdropColor(.2,1,.2,.5)
                        obj:EnableMouse(true);
                        obj:SetMovable(true);
                        obj:RegisterForDrag("LeftButton");
                        obj:SetUserPlaced(true)
                        obj:SetScript("OnDragStart", function()
                                if(db.frames.locked == false)then
                                        this.isMoving = true;
                                        this:StartMoving()
                                end
                        end);
                        obj:SetScript("OnDragStop", function() 
                                if(this.isMoving == true)then
                                        this:StopMovingOrSizing()
                                end
                                        local from, obj, to,x,y = this:GetPoint();
                                        this.db.anchorFromPoint = from;
                                        this.db.anchorTo = obj or 'UIParent';
                                        this.db.anchorToPoint = to;
                                        this.db.anchorX = x;
                                        this.db.anchorY = y;
                        end);
                else
                        obj:SetUserPlaced(false)
                        obj:SetMovable(false);
                        obj:RegisterForDrag("");
                        obj:SetBackdropColor(unpack(db.colors.backdropColors))
                end
        else
                db.frames.locked = value
                for index,frame in pairs(oUF.objects)do
                        if(frame.unit ~= nil) then
                                self:ToggleFrameLock(frame,value)
                        end
                end
        end     
end
function configAddon:Orientation(obj,value)
                if(obj.SetChildOrientation) then 
                        obj:SetChildOrientation(value)
                else
                        obj:SetOrientation(value)
                end
end

function configAddon:EnableObject(obj,value)
        if value == true then 
                obj:Show()
                if obj.SetupEnabled then obj.SetupEnabled(obj) end
        else
                obj:Hide()
                if obj.SetupDisabled then obj.SetupDisabled(obj) end
        end
end

function configAddon:ToggleConfigAssist(object)
        if(object:GetBackdrop()~=nil)then
                self:Print("Hiding Backdrop")
                object:SetBackdrop(nil)
        else
                self:Print("Showing Backdrop")
                object:SetBackdrop(addon.db.profile.textures.backgrounds.default)
                object:SetBackdropColor(0,0,0,.5)       
        end
end

function configAddon:PositionFontObject(object,settings)
        object:ClearAllPoints()
        object:SetJustifyH(settings.justifyH)
        object:SetJustifyV(settings.justifyV)
--      object:SetFont(db.fonts['default'].name, db.fonts['default'].size, db.fonts['default'].outline)
        object:SetPoint(settings.anchorFromPoint, object.parent.elements[settings.anchorTo], settings.anchorToPoint, settings.anchorX, settings.anchorY)
        self:Debug(' tag : '..settings.tag)
        object.parent:Tag(object, settings.tag) 
        object:UpdateTag()
end

function configAddon:UpdateTagEvents(object,tagstr)
        -- Forcefully strip away any parentheses and the characters in them.
        self:Print("Attempting : "..tagstr)
        local tagEvents = oUF.TagEvents
        tagstr = tagstr:gsub('%b()', '')
        for tag in tagstr:gmatch'[%[]%w+[%]]' do
                local tagevents = tagEvents[tag]
                if(tagevents) then
                        for event in tagevents:gmatch'%S+' do
                                self:Print(event)
                                oUF.RegisterTagEvent(object, event)
                        end
                end
        end
end

-- GETTERS & SETTERS
function configAddon:getOptionValue(info)
        
        local value = ''
        local key = info[#info]
        local parentKey = info[#info-1]
        local section = 'default'

        self:Debug(parentKey,key,info['arg'])

        if(key == "enabledDebugMessages")then
                value = db.enabledDebugMessages                         
        end
        if(parentKey == "font")then
                if(info['arg']=='global-aura')then 
                        value = db.auras.font[key]
                else
                        value = db.frames.font[key]
                end
        elseif(parentKey == "units")then
                if(key == "lock")then
                        value = db.frames.locked
                elseif(key == "scale") then
                        value = db.frames.scale
                end
        elseif(parentKey == "auras")then
                if(key == "timers")then
                        value = db.auras.timers.enabled
                elseif(key == "format")then
                        value = db.auras.timers.UsingMMSS
                end
        end
        
        self:Debug("get : "..self:concatLeaves(info) .. " : "..tostring(args))

        return value
end

function configAddon:setOptionValue(info,value)
        local key = info[#info]
        local parentKey = info[#info-1]
        self:Debug("\nset : " .. self:concatLeaves(info) )
        
        if(key == "enabledDebugMessages")then
                db.enabledDebugMessages = value
        end

        if(parentKey)then
                if(parentKey == "font")then
                        -- (obj,size,name,outline)
                        if(key == "size")then
                                --change fontsize
                                if(info['arg']=='global-aura')then 
                                        self:SetAuraFontOptions(nil,value,nil,nil)
                                else
                                        self:SetFontType(nil,value,nil,nil)
                                end
                        elseif(key == "name")then
                                --change fonttype
                                if(info['arg']=='global-aura')
                                        then self:SetAuraFontOptions(nil,nil,value,nil)
                                else
                                        self:SetFontType(nil,nil,value,nil)
                                end
                        elseif(key == "outline")then
                                --change fontoutline
                                if(info['arg']=='global-aura')then
                                        self:SetAuraFontOptions(nil,nil,nil,value) 
                                else
                                        self:SetFontType(nil,nil,nil,value)
                                end
                        end                     
                elseif(parentKey == "units")then
                        if(key == "lock") then
                                self:ToggleFrameLock(nil,value)
                        elseif(key == "scale") then
                                self:ScaleObject(nil,value)
                        end
                elseif(parentKey == "auras")then
                        if(key == "timers")then
                                self:ToggleAuraTimers(value)
                        elseif(key == "format")then
                                self:SetAuraTimeFormat(value)
                        end
                end             
        else
                --
        end     
end

-- Handling of the frames.units[unitName]
-- GET--
function configAddon:GetUnitFrameOption(info)
        local object = info['arg']
        local profile = object.db
        local setting = info[#info]
        local output 

        if(#info >= 4)then output = profile end
        if(#info >= 5)then output = output[info[4]] end 
        if(#info >= 6)then output = output[info[5]] end
        if(#info == 7)then output = output[info[6]] end
        if(#info == 8)then output = output[info[7]] end
        
        output = output[setting]
        
        self:Debug("\nGetUnitFrameOption : "..self:concatLeaves(info))
        return output
end
-- SET--
function configAddon:SetUnitFrameOption(info,value)
        local object = info['arg']
        local profile = object.db
        local setting = info[#info]
        local output 
        self:Debug("\nSetUnitFrameOption : "..self:concatLeaves(info))
        local parent = info[#info-1]    

        if(#info >= 4)then output = profile; end
        if(#info >= 5)then output = output[info[4]];object = object[info[4]]; end       
        if(#info >= 6)then output = output[info[5]];object = object[info[5]]; end
        if(#info >= 7)then output = output[info[6]];object = object[info[6]]; end
        if(#info >= 8)then output = output[info[7]];object = object[info[7]]; end

        output[setting] = value

        if(setting == "height" or setting == "width" )then
                self:SizeObject(object,output,parent)
        elseif(setting == "scale" or setting == "anchorX" or setting == "anchorY" or setting == "anchorFromPoint" or setting == "anchorToPoint" )then
                if setting == "scale" or parent == "Timer" then
                        info['arg']:UpdateTotemBar()
                else
                        self:MoveObject(object,output)
                end     
        elseif(setting == "growth-x" or setting == "growth-y") or (setting=="Colomns" or setting =="Rows" or setting =="size" or setting =="playerSize" or setting=="spacing")then
                self:adjustAuraFrame(object,setting,value)
        elseif(setting == "orientation")then
                self:Orientation(value)
        elseif(setting == "count")then 
                self:adjustAuraFrame(object,setting,value)
        elseif setting == "enabled" then
                self:EnableObject(object,value)
        elseif setting == "inRangeAlpha" or setting == "outsideRangeAlpha" then
                object.setting = value
        elseif setting == "setup" then
                self:ToggleConfigAssist(object)
        elseif parent =="textures" then
                self:UpdateTextures(info['arg'],output)
        end
        
end

function configAddon:GetUnitFrameFontObjectOption(info)

end

function configAddon:SetUnitFrameFontObjectOption(info,value)
        local object = info['arg']
        local profile = object.db
        local setting = info[#info]
        local output 
        self:Debug("\nSetUnitFrameFontObjectOption :\n "..self:concatLeaves(info))

        if(#info >= 4)then output = profile; end
        if(#info >= 5)then output = output[info[4]];object = object[info[4]]; end       
        if(#info >= 6)then output = output[info[5]];object = object[info[5]]; end
        if(#info >= 7)then output = output[info[6]];object = object[info[6]]; end
        if(#info >= 8)then output = output[info[7]];object = object[info[7]]; end

        output[setting] = value
        self:PositionFontObject(object.object, output)
end

-- Handling of the frames.units[unitName]
-- GET--
function configAddon:GetColourOption(info)
        local object = info['arg']
        local profile = object.db
        local setting = info[#info]
        local output
        
        if(#info >= 4)then output = profile end
        if(#info >= 5)then output = output[info[4]] end 
        if(#info >= 6)then output = output[info[5]] end
        if(#info >= 7)then output = output[info[6]] end
        if(#info >= 8)then output = output[info[7]] end

        local r, g, b,a = unpack( output[setting] )
        
        self:Debug("\nGetColourOption  : "..self:concatLeaves(info) .. " : " ..tostring(r, g, b,a))
        return r,g,b,a
end
-- SET--
function configAddon:SetColourOption(info,r,g,b,a)
        local object = info['arg']
        local profile = object.db
        local setting = info[#info]
        local parent =  info[#info-1]
        local output

        if(#info >= 4)then output = profile; end
        if(#info >= 5)then output = output[info[4]];object = object[info[4]]; end       
        if(#info >= 6)then output = output[info[5]];object = object[info[5]]; end
        if(#info >= 7)then output = output[info[6]];object = object[info[6]]; end
        if(#info >= 8)then output = output[info[7]];object = object[info[7]]; end

        output[setting]={r,g,b,a}

        if setting == 'bgColor' then
                object.bg:SetTexture(r,g,b,a)
        elseif setting == 'BackdropColor' then
                object:SetBackdropColor(r,g,b,a)
        elseif setting == 'StatusBarColor' then
                object:SetStatusBarColor(r,g,b,a)
        elseif setting == 'colour' and parent=='SafeZone'  then
                object:SetVertexColor(r,g,b,a)
        end

        self:Debug("\nsetColourOption  : "..self:concatLeaves(info) ..tostring(r, g, b,a))
end

--FontTags--
--GET--
function configAddon:GetFontObjectTag(info)
        local object = info['arg']
        local setting = info[#info]

        self:Debug("\nGetFontObjectTag  :\n "..self:concatLeaves(info))

        return "text"
end
--SET--
function configAddon:SetFontObjectTag(info,value)
        local object = info['arg']
        local profile = object.db
        local setting = info[#info]
        local output 

        if(#info >= 4)then output = profile; end
        if(#info >= 5)then output = output[info[4]];object = object[info[4]]; end       
        if(#info >= 6)then output = output[info[5]];object = object[info[5]]; end
        if(#info >= 7)then output = output[info[6]];object = object[info[6]]; end
        if(#info >= 8)then output = output[info[7]];object = object[info[7]]; end

        self:Debug("\nSetFontObjectTag  :\n "..self:concatLeaves(info))

        output[setting] = value
end

--SET--
function configAddon:GetTagOption(info)
        self:Debug("\nGetTagOption  :\n "..self:concatLeaves(info))
        local arg,setting, hash = info['arg'],info[#info],{
                ['inputTagString'] = function(tag) return tag end,
                ['inputTagFunc'] = function(tag) return oUF.TagsLogicStrings[tag] end,
                ['inputTagEvents'] = function(tag) return oUF.TagEvents[tag] end,
        }
        return hash[setting](arg)
end
--SET--
function configAddon:SetTagOption(info,value)
        self:Debug("\nSetTagOption  :\n "..self:concatLeaves(info))
        local tag,setting, hash =info[#info-1],info[#info],{
                ['inputTagString'] = function(tag,value) 
                        self:Debug(" tag moniker : "..tag.." = ".. value .." \"this is supposed to rename the tagstring or create a new one\" ")
                end,
                ['inputTagFunc'] = function(tag,value)
                        oUF.TagsLogicStrings[tag] = value
                        oUF:ReWriteTag(tag,nil,value)
                end,
                ['inputTagEvents'] = function(tag,value)
                         oUF.TagEvents[tag] = value
                         oUF:ReWriteTag(tag,value,nil)
                end,
        }
        hash[setting](tag,value)
end

-- VALIDATE--
function configAddon:CheckUnitFrameOption(info)
        return false
end