init.lua

-- mod-version:3
-----------------------------------------------------------------------
local core = require("core")
local command = require("core.command")
local os = require("os")

local utils = require("lixling/utils")
local lixlog = require("lixling/lixlog")

local download = require("lixling/download")
local update = require("lixling/update")

local USERDIR = USERDIR or {}

-----------------------------------------------------------------------
local plugins_list = {} -- list of the plugins found in the init.lua
local plugins_path = nil

local function plugins(...)
    local param_num = select("#", ...)

    -- single parameter
    if param_num == 1 then
        local param1 = ...
        if type(param1) ~= "table" then
            lixlog.err("Invalid parameter: expected table.")
            return
        end
        plugins_path = USERDIR .. "/plugins/"
        plugins_list = param1

    -- two parameters
    elseif param_num == 2 then
        local param1, param2 = ...
        if type(param1) ~= "string" or type(param2) ~= "table" then
            lixlog.err("Invalid parameters: expected (string, table).")
            return
        end
        plugins_path = param1
        plugins_list = param2
    else
        lixlog.err("Invalid number of parameters: expected 1 or 2.")
    end
end

-- Looks for unlisted files in the plugins dir
local function clear_plugins()
    lixlog.clear("Running the clearing process. Please wait.")

    local dir_plugs = utils.dir_lookup(plugins_path)
    local clear_list = {}
    local clear_size = 0

    for f in ipairs(dir_plugs) do
        -- If plugin ends with `.lua` AND is in list
        if utils.string_ends_with(dir_plugs[f], ".lua") and plugins_list[dir_plugs[f]:sub(1, -5)] == nil then
            table.insert(clear_list, dir_plugs[f])
            clear_size = clear_size + 1

            lixlog.clear("File '" .. dir_plugs[f] .. "' added to exile list.")

        -- If plugin ends with `/` AND is in list
        elseif utils.string_ends_with(dir_plugs[f], "/") and plugins_list[dir_plugs[f]:sub(1, -2)] == nil then
            table.insert(clear_list, dir_plugs[f])
            clear_size = clear_size + 1

            lixlog.clear("Folder '" .. dir_plugs[f] .. "' added to exile list.")
        end
    end

    -- Handles clearing user input
    if clear_size > 0 then
        core.command_view:enter(
            "LIXLING CLEAR: Found " .. clear_size .. " unlisted plugins, exile them? ([y]es/[N]o/[d]elete)",
            {
                submit = function(input)
                    if string.lower(input) == "y" or string.lower(input) == "yes" then
                        for plug in ipairs(clear_list) do
                            lixlog.clear("Moving: '" .. clear_list[plug] .. "'.")
                            utils.mkdir(USERDIR .. "/lixling/exiled")
                            os.rename(
                                plugins_path .. clear_list[plug],
                                USERDIR .. "/lixling/exiled/" .. clear_list[plug]
                            )
                        end
                        lixlog.clear(
                            clear_size .. " plugins exiled. You can find them in '" .. USERDIR .. "/lixling/exiled'."
                        )
                    elseif string.lower(input) == "d" or string.lower(input) == "delete" then
                        core.command_view:enter("LIXLING CLEAR: Are you sure? Deleting can't be undone. ([y]es/[N]o)", {
                            submit = function(delete)
                                if string.lower(delete) == "y" or string.lower(delete) == "yes" then
                                    for plug in ipairs(clear_list) do
                                        lixlog.clear("Deleting: '" .. clear_list[plug] .. "'.")
                                        --os.remove(plugins_path .. clear_list[plug])
                                        utils.rmrf(plugins_path .. clear_list[plug])
                                    end
                                end
                                lixlog.clear(clear_size .. " plugins deleted. They can't be retrieved.")
                            end,
                        })
                    end
                end,
            }
        )
        return 0
    end
    lixlog.clear("No unlisted plugins found.")
end

-----------------------------------------------------------------------
-- DOWNLOADING
-----------------------------------------------------------------------

local function download_plugins()
    lixlog.install("", "Running the install process. Please wait.")

    local dir_plugs = utils.dir_lookup(plugins_path)

    utils.mkdir(plugins_path)

    core.add_thread(function()
        download.set_plugins_path(plugins_path)

        for plug in pairs(plugins_list) do
            -- single file + default git branch
            if #plugins_list[plug] == 1 then
                download.raw(dir_plugs, plugins_list, plug)
                download.repo(plugins_list, plug)

            -- git branch handling
            elseif #plugins_list[plug] == 2 then
                download.repo(plugins_list, plug, plugins_list[plug][2])

            -- git branch + hook handle
            elseif (#plugins_list[plug] == 3) and (#plugins_list[plug][2] ~= 0) then
                download.repo(plugins_list, plug, plugins_list[plug][2])

            -- if in old srting format
            elseif type(plugins_list[plug]) == "string" then
                local dummy = { [plug] = { plugins_list[plug] } }

                download.raw(dir_plugs, dummy, plug)
                download.repo(dummy, plug)
            end
        end
        lixlog.install("", "All plugins have been downloaded.")
    end)
end

-----------------------------------------------------------------------
-- UPDATING
-----------------------------------------------------------------------

local function update_plugins()
    lixlog.update("", "Running the update process. Please wait.")

    local dir_plugs = utils.dir_lookup(plugins_path)

    core.add_thread(function()
        for plug in pairs(plugins_list) do
            -- single file + default git branch
            if #plugins_list[plug] == 1 then
                update.raw(dir_plugs, plugins_list, plug)
                update.repo(plugins_list, plug)

            -- git branch handling
            elseif #plugins_list[plug] == 2 then
                update.repo(plugins_list, plug, plugins_list[plug] == 2)

            -- git branch + hook handle
            elseif (#plugins_list[plug] == 3) and (#plugins_list[plug][2] ~= 0) then
                update.repo(plugins_list, plug, plugins_list[plug][2])

            -- if in old srting format
            elseif type(plugins_list[plug]) == "string" then
                local dummy = { [plug] = { plugins_list[plug] } }

                update.raw(dir_plugs, dummy, plug)
                update.repo(dummy, plug)
            end
        end
        lixlog.update("", "All plugins are up to date.")
    end)
end

-- Upgrades self
local function upgrade_self()
    lixlog.upgrade("Running the upgrade process. Please wait.")

    core.add_thread(function()
        local status = utils.git_pull(USERDIR .. "/lixling/")
        --core.log(status)

        if status ~= "Already up to date." then
            lixlog.upgrade("Upgraded to the latest version.")
            return 0
        end
        lixlog.upgrade("Already up to date.")
    end)
end

-----------------------------------------------------------------------

command.add(nil, {
    ["lixling:install"] = download_plugins,
    ["lixling:update"] = update_plugins,
    ["lixling:upgrade"] = upgrade_self,
    ["lixling:clear"] = clear_plugins,
})

return { plugins = plugins }