1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
|
--- Additional readline
local function lib_load(path, name)
if not _G[name] then
os.loadAPI(fs.combine(path, "lib/" .. name .. ".lua"))
if not _G[name] then _G[name] = _G[name .. ".lua"] end
end
end
return {
description =
"This module extends the default read function, adding keybindings similar to " ..
"those provided by Emacs or GNU readline as well as additional configuration options.",
dependencies = {
"lib/readline.lua",
},
settings = {
{
name = "mbs.readline.enabled",
description = "Whether the readline module is enabled.",
default = true,
},
{
name = "mbs.readline.complete_bg",
description = "The background colour for completions.",
default = "none",
},
{
name = "mbs.readline.complete_fg",
description = "The foreground colour for completions.",
default = "grey",
},
},
enabled = function() return settings.get("mbs.readline.enabled") end,
setup = function(path)
lib_load(path, "readline")
-- Replace the default read function
_G.read = function(replace_char, history, complete, default)
if replace_char ~= nil and type(replace_char) ~= "string" then
error("bad argument #1 (expected string, got " .. type(replace_char) .. ")", 2)
end
if history ~= nil and type(history) ~= "table" then
error("bad argument #2 (expected table, got " .. type(history) .. ")", 2)
end
if complete ~= nil and type(complete) ~= "function" then
error("bad argument #3 (expected function, got " .. type(complete) .. ")", 2)
end
if default ~= nil and type(default) ~= "string" then
error("bad argument #4 (expected string, got " .. type(default) .. ")", 2)
end
return readline.read {
replace_char = replace_char,
history = history,
complete = complete,
default = default,
}
end
end,
}
|
