Update aniseed
This commit is contained in:
Walter Leibbrandt
@@ -1,122 +1,63 @@
|
||||
local _2afile_2a = "fnl/aniseed/nvim/util.fnl"
|
||||
local _0_
|
||||
do
|
||||
local name_0_ = "conjure-macroexpand.aniseed.nvim.util"
|
||||
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.nvim")}
|
||||
end
|
||||
ok_3f_0_, val_0_ = pcall(_2_)
|
||||
if ok_3f_0_ then
|
||||
_0_["aniseed/local-fns"] = {autoload = {nvim = "conjure-macroexpand.aniseed.nvim"}}
|
||||
return val_0_
|
||||
else
|
||||
return print(val_0_)
|
||||
end
|
||||
end
|
||||
local _local_0_ = _2_(...)
|
||||
local nvim = _local_0_[1]
|
||||
local _2amodule_2a = _0_
|
||||
local _2amodule_name_2a = "conjure-macroexpand.aniseed.nvim.util"
|
||||
do local _ = ({nil, _0_, nil, {{}, nil, nil, nil}})[2] end
|
||||
local normal
|
||||
local _2amodule_2a
|
||||
do
|
||||
local v_0_
|
||||
do
|
||||
local v_0_0
|
||||
local function normal0(keys)
|
||||
return nvim.ex.silent(("exe \"normal! " .. keys .. "\""))
|
||||
end
|
||||
v_0_0 = normal0
|
||||
_0_["normal"] = v_0_0
|
||||
v_0_ = v_0_0
|
||||
end
|
||||
local t_0_ = (_0_)["aniseed/locals"]
|
||||
t_0_["normal"] = v_0_
|
||||
normal = v_0_
|
||||
package.loaded[_2amodule_name_2a] = {}
|
||||
_2amodule_2a = package.loaded[_2amodule_name_2a]
|
||||
end
|
||||
local fn_bridge
|
||||
local _2amodule_locals_2a
|
||||
do
|
||||
local v_0_
|
||||
do
|
||||
local v_0_0
|
||||
local function fn_bridge0(viml_name, mod, lua_name, opts)
|
||||
local _let_0_ = (opts or {})
|
||||
local range = _let_0_["range"]
|
||||
local _return = _let_0_["return"]
|
||||
local _3_
|
||||
if range then
|
||||
_3_ = " range"
|
||||
else
|
||||
_3_ = ""
|
||||
end
|
||||
local _5_
|
||||
if (_return ~= false) then
|
||||
_5_ = "return"
|
||||
else
|
||||
_5_ = "call"
|
||||
end
|
||||
local _7_
|
||||
if range then
|
||||
_7_ = "\" . a:firstline . \", \" . a:lastline . \", "
|
||||
else
|
||||
_7_ = ""
|
||||
end
|
||||
return nvim.ex.function_((viml_name .. "(...)" .. _3_ .. "\n " .. _5_ .. " luaeval(\"require('" .. mod .. "')['" .. lua_name .. "'](" .. _7_ .. "unpack(_A))\", a:000)\n endfunction"))
|
||||
end
|
||||
v_0_0 = fn_bridge0
|
||||
_0_["fn-bridge"] = v_0_0
|
||||
v_0_ = v_0_0
|
||||
end
|
||||
local t_0_ = (_0_)["aniseed/locals"]
|
||||
t_0_["fn-bridge"] = v_0_
|
||||
fn_bridge = v_0_
|
||||
_2amodule_2a["aniseed/locals"] = {}
|
||||
_2amodule_locals_2a = (_2amodule_2a)["aniseed/locals"]
|
||||
end
|
||||
local with_out_str
|
||||
do
|
||||
local v_0_
|
||||
do
|
||||
local v_0_0
|
||||
local function with_out_str0(f)
|
||||
nvim.ex.redir("=> g:aniseed_nvim_util_out_str")
|
||||
do
|
||||
local ok_3f, err = pcall(f)
|
||||
nvim.ex.redir("END")
|
||||
nvim.ex.echon("")
|
||||
nvim.ex.redraw()
|
||||
if not ok_3f then
|
||||
error(err)
|
||||
end
|
||||
end
|
||||
return string.gsub(nvim.g.aniseed_nvim_util_out_str, "^(\n?)(.*)$", "%2%1")
|
||||
end
|
||||
v_0_0 = with_out_str0
|
||||
_0_["with-out-str"] = v_0_0
|
||||
v_0_ = v_0_0
|
||||
end
|
||||
local t_0_ = (_0_)["aniseed/locals"]
|
||||
t_0_["with-out-str"] = v_0_
|
||||
with_out_str = v_0_
|
||||
local autoload = (require("conjure-macroexpand.aniseed.autoload")).autoload
|
||||
local nvim = autoload("conjure-macroexpand.aniseed.nvim")
|
||||
do end (_2amodule_locals_2a)["nvim"] = nvim
|
||||
local function normal(keys)
|
||||
return nvim.ex.silent(("exe \"normal! " .. keys .. "\""))
|
||||
end
|
||||
return nil
|
||||
_2amodule_2a["normal"] = normal
|
||||
local function fn_bridge(viml_name, mod, lua_name, opts)
|
||||
local _let_1_ = (opts or {})
|
||||
local range = _let_1_["range"]
|
||||
local _return = _let_1_["return"]
|
||||
local function _2_()
|
||||
if range then
|
||||
return " range"
|
||||
else
|
||||
return ""
|
||||
end
|
||||
end
|
||||
local function _3_()
|
||||
if (_return ~= false) then
|
||||
return "return"
|
||||
else
|
||||
return "call"
|
||||
end
|
||||
end
|
||||
local function _4_()
|
||||
if range then
|
||||
return "\" . a:firstline . \", \" . a:lastline . \", "
|
||||
else
|
||||
return ""
|
||||
end
|
||||
end
|
||||
return nvim.ex.function_((viml_name .. "(...)" .. _2_() .. "\n " .. _3_() .. " luaeval(\"require('" .. mod .. "')['" .. lua_name .. "'](" .. _4_() .. "unpack(_A))\", a:000)\n endfunction"))
|
||||
end
|
||||
_2amodule_2a["fn-bridge"] = fn_bridge
|
||||
local function with_out_str(f)
|
||||
nvim.ex.redir("=> g:aniseed_nvim_util_out_str")
|
||||
do
|
||||
local ok_3f, err = pcall(f)
|
||||
nvim.ex.redir("END")
|
||||
nvim.ex.echon("")
|
||||
nvim.ex.redraw()
|
||||
if not ok_3f then
|
||||
error(err)
|
||||
else
|
||||
end
|
||||
end
|
||||
return string.gsub(nvim.g.aniseed_nvim_util_out_str, "^(\n?)(.*)$", "%2%1")
|
||||
end
|
||||
_2amodule_2a["with-out-str"] = with_out_str
|
||||
return _2amodule_2a
|
||||
|
||||
Reference in New Issue
Block a user