155 lines
3.6 KiB
Lua
155 lines
3.6 KiB
Lua
local _2afile_2a = "fnl/aniseed/fs.fnl"
|
|
local _0_
|
|
do
|
|
local name_0_ = "conjure-macroexpand.aniseed.fs"
|
|
local module_0_
|
|
do
|
|
local x_0_ = package.loaded[name_0_]
|
|
if ("table" == type(x_0_)) then
|
|
module_0_ = x_0_
|
|
else
|
|
module_0_ = {}
|
|
end
|
|
end
|
|
module_0_["aniseed/module"] = name_0_
|
|
module_0_["aniseed/locals"] = ((module_0_)["aniseed/locals"] or {})
|
|
do end (module_0_)["aniseed/local-fns"] = ((module_0_)["aniseed/local-fns"] or {})
|
|
do end (package.loaded)[name_0_] = module_0_
|
|
_0_ = module_0_
|
|
end
|
|
local autoload
|
|
local function _1_(...)
|
|
return (require("conjure-macroexpand.aniseed.autoload")).autoload(...)
|
|
end
|
|
autoload = _1_
|
|
local function _2_(...)
|
|
local ok_3f_0_, val_0_ = nil, nil
|
|
local function _2_()
|
|
return {autoload("conjure-macroexpand.aniseed.core"), autoload("conjure-macroexpand.aniseed.nvim")}
|
|
end
|
|
ok_3f_0_, val_0_ = pcall(_2_)
|
|
if ok_3f_0_ then
|
|
_0_["aniseed/local-fns"] = {autoload = {a = "conjure-macroexpand.aniseed.core", nvim = "conjure-macroexpand.aniseed.nvim"}}
|
|
return val_0_
|
|
else
|
|
return print(val_0_)
|
|
end
|
|
end
|
|
local _local_0_ = _2_(...)
|
|
local a = _local_0_[1]
|
|
local nvim = _local_0_[2]
|
|
local _2amodule_2a = _0_
|
|
local _2amodule_name_2a = "conjure-macroexpand.aniseed.fs"
|
|
do local _ = ({nil, _0_, nil, {{}, nil, nil, nil}})[2] end
|
|
local path_sep
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
do
|
|
local os = string.lower(jit.os)
|
|
if (("linux" == os) or ("osx" == os) or ("bsd" == os)) then
|
|
v_0_0 = "/"
|
|
else
|
|
v_0_0 = "\\"
|
|
end
|
|
end
|
|
_0_["path-sep"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["path-sep"] = v_0_
|
|
path_sep = v_0_
|
|
end
|
|
local basename
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
local function basename0(path)
|
|
return nvim.fn.fnamemodify(path, ":h")
|
|
end
|
|
v_0_0 = basename0
|
|
_0_["basename"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["basename"] = v_0_
|
|
basename = v_0_
|
|
end
|
|
local mkdirp
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
local function mkdirp0(dir)
|
|
return nvim.fn.mkdir(dir, "p")
|
|
end
|
|
v_0_0 = mkdirp0
|
|
_0_["mkdirp"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["mkdirp"] = v_0_
|
|
mkdirp = v_0_
|
|
end
|
|
local relglob
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
local function relglob0(dir, expr)
|
|
local dir_len = a.inc(string.len(dir))
|
|
local function _3_(_241)
|
|
return string.sub(_241, dir_len)
|
|
end
|
|
return a.map(_3_, nvim.fn.globpath(dir, expr, true, true))
|
|
end
|
|
v_0_0 = relglob0
|
|
_0_["relglob"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["relglob"] = v_0_
|
|
relglob = v_0_
|
|
end
|
|
local glob_dir_newer_3f
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
local function glob_dir_newer_3f0(a_dir, b_dir, expr, b_dir_path_fn)
|
|
local newer_3f = false
|
|
for _, path in ipairs(relglob(a_dir, expr)) do
|
|
if (nvim.fn.getftime((a_dir .. path)) > nvim.fn.getftime((b_dir .. b_dir_path_fn(path)))) then
|
|
newer_3f = true
|
|
end
|
|
end
|
|
return newer_3f
|
|
end
|
|
v_0_0 = glob_dir_newer_3f0
|
|
_0_["glob-dir-newer?"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["glob-dir-newer?"] = v_0_
|
|
glob_dir_newer_3f = v_0_
|
|
end
|
|
local macro_file_path_3f
|
|
do
|
|
local v_0_
|
|
do
|
|
local v_0_0
|
|
local function macro_file_path_3f0(path)
|
|
return string.match(path, "macros.fnl$")
|
|
end
|
|
v_0_0 = macro_file_path_3f0
|
|
_0_["macro-file-path?"] = v_0_0
|
|
v_0_ = v_0_0
|
|
end
|
|
local t_0_ = (_0_)["aniseed/locals"]
|
|
t_0_["macro-file-path?"] = v_0_
|
|
macro_file_path_3f = v_0_
|
|
end
|
|
return nil
|