local _2afile_2a = "fnl/aniseed/fs.fnl" local _2amodule_name_2a = "conjure-macroreplace.aniseed.fs" 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, nvim = autoload("conjure-macroreplace.aniseed.core"), autoload("conjure-macroreplace.aniseed.nvim") do end (_2amodule_locals_2a)["a"] = a _2amodule_locals_2a["nvim"] = nvim local function basename(path) return nvim.fn.fnamemodify(path, ":h") end _2amodule_2a["basename"] = basename local function mkdirp(dir) return nvim.fn.mkdir(dir, "p") end _2amodule_2a["mkdirp"] = mkdirp local function relglob(dir, expr) local dir_len = a.inc(string.len(dir)) local function _1_(_241) return string.sub(_241, dir_len) end return a.map(_1_, nvim.fn.globpath(dir, expr, true, true)) end _2amodule_2a["relglob"] = relglob local function glob_dir_newer_3f(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 else end end return newer_3f end _2amodule_2a["glob-dir-newer?"] = glob_dir_newer_3f local path_sep do local os = string.lower(jit.os) if (("linux" == os) or ("osx" == os) or ("bsd" == os)) then path_sep = "/" else path_sep = "\\" end end _2amodule_2a["path-sep"] = path_sep local function macro_file_path_3f(path) return (a["string?"](string.match(path, "macros?.fnl$")) or a["string?"](string.match(path, (path_sep .. "macros?" .. path_sep)))) end _2amodule_2a["macro-file-path?"] = macro_file_path_3f return _2amodule_2a