---------------------------------------------------------------------------
-- @author Julien Danjou <julien@danjou.info>
-- @copyright 2008-2009 Julien Danjou
-- @release @AWESOME_VERSION@
---------------------------------------------------------------------------

-- Grab environment we need
local math = math
local type = type
local ipairs = ipairs
local pairs = pairs
local setmetatable = setmetatable
local capi = { widget = widget, button = button }
local layout = require("awful.widget.layout")
local util = require("awful.util")

local common = {}

-- Private structures
tagwidgets = setmetatable({}, { __mode = 'k' })

-- Recursively processes a template, replacing the tables representing the icon and
-- the title with the widgets ib and tb
local function replace_in_template(t, ib, tb)
    for i, v in ipairs(t) do
        if type(t[i]) == "table" then
            if v.item == "icon" then
                t[i] = ib
            elseif v.item == "title" then
                tb.align = v.align or "left"
                tb:margin(v.margin or {})
                tb.bg_resize = v.bg_resize or false
                tb.bg_align = v.bg_align or ""
                t[i] = tb
            else
                replace_in_template(v, ib, tb)
            end
        end
    end
end

function common.list_update(w, buttons, label, data, template, objects)
    -- Hack: if it has been registered as a widget in a wibox,
    -- it's w.len since __len meta does not work on table until Lua 5.2.
    -- Otherwise it's standard #w.
    local len = (w.len or #w)

    -- Remove excessive widgets
    if len > #objects then
        for i = #objects, len do
            w[i] = nil
        end
    end

    -- update the widgets, creating them if needed
    for i, o in ipairs(objects) do
        local ib, tb
        if w[i] then
            ib = w[i].icon
            tb = w[i].title
        else
            ib = capi.widget({ type = "imagebox" })
            tb = capi.widget({ type = "textbox" })
            w[i] = util.table.clone(template)
            replace_in_template(w[i], ib, tb)
            w[i].icon = ib
            w[i].title = tb

            if type(o) == "tag" then
                tagwidgets[ib] = o
                tagwidgets[tb] = o
            end
        end

        if buttons then
            -- Use a local variable so that the garbage collector doesn't strike
            -- between now and the :buttons() call.
            local btns = data[o]
            if not btns then
                btns = {}
                data[o] = btns
                for kb, b in ipairs(buttons) do
                    -- Create a proxy button object: it will receive the real
                    -- press and release events, and will propagate them the the
                    -- button object the user provided, but with the object as
                    -- argument.
                    local btn = capi.button { modifiers = b.modifiers, button = b.button }
                    btn:connect_signal("press", function () b:emit_signal("press", o) end)
                    btn:connect_signal("release", function () b:emit_signal("release", o) end)
                    btns[#btns + 1] = btn
                end
            end
            ib:buttons(btns)
            tb:buttons(btns)
        end

        local text, bg, bg_image, icon = label(o)
        tb.text, tb.bg, tb.bg_image = text, bg, bg_image
        ib.bg, ib.image = bg, icon
        if not tb.text then
            tb.visible = false
        else
            tb.visible = true
        end
        if not ib.image then
            ib.visible = false
        else
            ib.visible = true
        end
   end
end

return common

-- vim: filetype=lua:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=80