local _2afile_2a = "fnl/aniseed/setup.fnl" local _2amodule_name_2a = "conjure-macroreplace.aniseed.setup" local _2amodule_2a do package.loaded[_2amodule_name_2a] = {} _2amodule_2a = package.loaded[_2amodule_name_2a] end local _2amodule_locals_2a do _2amodule_2a["aniseed/locals"] = {} _2amodule_locals_2a = (_2amodule_2a)["aniseed/locals"] end local autoload = (require("conjure-macroreplace.aniseed.autoload")).autoload local a, env, eval, nvim = autoload("conjure-macroreplace.aniseed.core"), autoload("conjure-macroreplace.aniseed.env"), autoload("conjure-macroreplace.aniseed.eval"), autoload("conjure-macroreplace.aniseed.nvim") do end (_2amodule_locals_2a)["a"] = a _2amodule_locals_2a["env"] = env _2amodule_locals_2a["eval"] = eval _2amodule_locals_2a["nvim"] = nvim local function init() if (1 == nvim.fn.has("nvim-0.7")) then local function _1_(cmd) local ok_3f, res = eval.str(cmd.args, {}) if ok_3f then return nvim.echo(res) else return nvim.err_writeln(res) end end nvim.create_user_command("AniseedEval", _1_, {nargs = 1}) local function _3_(cmd) local code local function _4_() if ("" == cmd.args) then return nvim.buf_get_name(nvim.get_current_buf()) else return cmd.args end end code = a.slurp(_4_()) if code then local ok_3f, res = eval.str(code, {}) if ok_3f then return nvim.echo(res) else return nvim.err_writeln(res) end else return nvim.err_writeln(("File '" .. (cmd.args or "nil") .. "' not found")) end end nvim.create_user_command("AniseedEvalFile", _3_, {nargs = "?", complete = "file"}) else end if nvim.g["aniseed#env"] then return env.init(nvim.g["aniseed#env"]) else return nil end end _2amodule_2a["init"] = init return _2amodule_2a