auto-save.nvim/lua/autosave/modules/autocmds.lua

local api = vim.api
local fn = vim.fn
local cmd = vim.cmd

local opts = require("autosave.config").options
local autosave = require("autosave")
local default_events = {"InsertLeave", "TextChanged"}

local M = {}

local function table_has_value(tbl, value)
    for key, _ in pairs(tbl) do
        if (tbl[key] == value) then
            return true
        end
    end

    return false
end

local function set_modified(value)
    modified = value
end

local function get_modified()
    return modified
end

local function actual_save()
    -- might use  update, but in that case it can't be checekd if a file was modified and so it will always
    -- print opts["execution_message"]
    if (api.nvim_eval([[&modified]]) == 1) then
        cmd("silent! write")
        if (get_modified() == nil or get_modified() == false) then
            set_modified(true)
        end
    end
end

local function assert_user_conditions()
    local sc_exists, sc_filetype, sc_modifiable = true, true, true

    for condition, value in pairs(opts["conditions"]) do
        if (condition == "exists") then
            if (value == true) then
                if (fn.filereadable(fn.expand("%:p")) == 0) then
                    sc_exists = false
                    break
                end
            end
        elseif (condition == "modifiable") then
            if (value == true) then
                if (api.nvim_eval([[&modifiable]]) == 0) then
                    sc_modifiable = false
                    break
                end
            end
        elseif (condition == "filetype_is_not") then
            if not (next(opts["conditions"]["filetype_is_not"]) == nil) then
                if (table_has_value(opts["conditions"]["filetype_is_not"], api.nvim_eval([[&filetype]])) == true) then
                    sc_filetype = false
                    break
                end
            end
        end
    end

    return {sc_exists, sc_filetype, sc_modifiable}
end

local function assert_return(values, expected)
    for key, value in pairs(values) do
        if (value ~= expected) then
            return false
        end
    end

    return true
end

function M.message_and_interval()
    if (get_modified() == true) then
        set_modified(false)
        if (opts["execution_message"] ~= "") then
            print(opts["execution_message"])
        end

        if (opts["clean_command_line_interval"] > 0) then
            cmd(
                [[call timer_start(]] ..
                    opts["clean_command_line_interval"] .. [[, funcref('g:AutoSaveClearCommandLine'))]]
            )
        end
    end
end

function M.do_save()
    if (assert_return(assert_user_conditions(), true)) then
        actual_save()
    end
end

function M.save()
    if (autosave.hook_before_saving ~= nil) then
        autosave.hook_before_saving()
    end

    M.do_save()

    if (autosave.hook_after_saving ~= nil) then
        autosave.hook_after_saving()
    end
end

local function events()
  if (next(opts["events"]) == nil or opts["events"] == nil) then
    return default_events
  else
    return opts["events"]
  end
end

local function parse_events()
  return table.concat(events(), ",")
end

function M.load_autocommands()
    if (opts["write_all_buffers"] == false) then
        api.nvim_exec(
            [[
			aug autosave_save
				au!
				au ]] ..
                parse_events() ..
                    [[ * execute "lua require'autosave.modules.autocmds'.save()" | execute "lua require'autosave.modules.autocmds'.message_and_interval()"
			aug END
		]],
            false
        )
    else
        local event_1 = events()[1]
        api.nvim_exec(
            [[
			aug autosave_save
				au!
				au ]] ..
                parse_events() ..
                    [[ * if !exists("g:autosave_changed") | let g:autosave_changed="t" | doautoall autosave_save ]] ..
                        event_1 ..
                            [[ | unlet g:autosave_changed | execute "lua require'autosave.modules.autocmds'.message_and_interval()" | else | execute "lua require'autosave.modules.autocmds'.save()" | endif
			aug END
		]],
            false
        )
    end
end

function M.unload_autocommands()
    api.nvim_exec([[
		aug autosave_save
			au!
		aug END
	]], false)
end

return M