local lgi = require "lgi"
local Gio = lgi.Gio
local GObject = lgi.GObject
local GLib = lgi.GLib
local gpcall = require "gears.protected_call"
local gtimer = require "gears.timer"

local methods = {}

local interface = Gio.DBusInterfaceInfo {
    name = "com.twoexem.delta.Curious",
    methods = {
        Gio.DBusMethodInfo {
            name = "Select",
            out_args = {
                Gio.DBusArgInfo {
                    name = "widget_tree",
                    signature = "av"
                }
            }
        }
    }
}

-- iterate with ipairs, get the length of the array, check if key value from pairs is a number lower than the length and if so, use as a dict key cause it's not gonna work with :add anyway
local function serialize(builder, t)
    local array_length = 0
    for i, _ in ipairs(t) do
        array_length = i
    end

    for k, v in pairs(t) do
        local _type = type(v)
        local signature
        local data
        if _type == "number" then
            signature = "d"
            data = v
        elseif _type == "string" then
            signature = "s"
            data = v
        elseif _type == "boolean" then
            signature = "b"
            data = v
        elseif _type == "thread" or _type == "function" or (_type == "userdata" and not getmetatable(v).__tostring) then
            local address = tonumber(tostring(v):match("%a+: 0x(%w+)"), 16)
            signature = "(s(t))"
            data = { _type, address }
        elseif _type == "userdata" then
            if getmetatable(v).emit_signal then -- One of the properties available on any awesome luaobject
                local _, _, content = tostring(v):match("%a+/(.*)")
                local stringified = tostring(v)
                if content then
                    stringified = content
                end
                local type, extra, address = stringified:match("(%a+)(.*): 0x(%w+)")
                if extra ~= "" then
                    extra:sub(2, -2)
                    signature = "(s(st))"
                    data = { type, extra, address }
                else
                    signature = "(s(t))"
                    data = { type, address }
                end
            else
                signature = "(s())"
                data = { _type, {}}
            end
        end

        if type(k) == "number" and k > array_length then
            builder:add("v", GLib.Variant(signature, data))
        else
            print(type(signature), type(data))
            local variant = GLib.Variant("{sd}", { "test", 4})
            builder:add_value(GLib.Variant("v", variant))
        end
    end
end

function methods.Select(parameters, invocation)
    local builder = GLib.VariantBuilder(GLib.VariantType("av"))
    serialize(builder, { "test", some_key = "some_value" })
    local tuple_builder = GLib.VariantBuilder(GLib.VariantType("(av)"))
    tuple_builder:add_value(builder:_end())
    -- builder
    -- invocation:return_value(GLib.Variant("(av)", { builder }))
    invocation:return_value(tuple_builder:_end())
end

local function handle_call(_, _, _, _, method, parameters, invocation)
    if not methods[method] then print("invalid"); return end
    gpcall(methods[method], parameters, invocation)
end

local function acquire(connection)
    connection:register_object("/com/twoexem/delta/Curious", interface, GObject.Closure(handle_call))
end

local connection = Gio.bus_own_name(Gio.BusType.SESSION, "com.twoexem.delta.Curious", Gio.BusNameOwnerFlags.NONE, GObject.Closure(acquire))