mirror of
https://github.com/20kdc/OC-KittenOS.git
synced 2024-09-07 03:38:46 +10:00
206 lines
4.1 KiB
Lua
206 lines
4.1 KiB
Lua
-- This is released into the public domain.
|
|
-- No warranty is provided, implied or otherwise.
|
|
|
|
-- just don't bother with proper indent here
|
|
return function (event, nexus, retFunc, fs, pkg, mode)
|
|
local fmt = require("fmttext")
|
|
local class = "manage"
|
|
if mode ~= nil then
|
|
if mode then
|
|
class = "save"
|
|
else
|
|
class = "load"
|
|
end
|
|
end
|
|
|
|
local prepareNode
|
|
|
|
local ccb = nil
|
|
local function cb(...)
|
|
local res, e = pcall(ccb, ...)
|
|
if not res then
|
|
prepareNode({
|
|
name = "F.M. Error",
|
|
list = function ()
|
|
local l = {}
|
|
for k, v in ipairs(fmt.fmtText(unicode.safeTextFormat(e), 25)) do
|
|
l[k] = {v, function () return true end}
|
|
end
|
|
return l
|
|
end,
|
|
unknownAvailable = false,
|
|
selectUnknown = function (text) end
|
|
})
|
|
end
|
|
end
|
|
|
|
local w, h = 30, 8
|
|
|
|
local function prepareNodeI(node)
|
|
local l = node.list()
|
|
-- Local State
|
|
-- Selection. Having this equal to #l + 1 means typing area ('unknown')
|
|
local selection = 1
|
|
local unknownTx = ""
|
|
--
|
|
local function format(a)
|
|
if a <= 1 then
|
|
return false, fmt.pad(unicode.safeTextFormat(node.name), w, true, true)
|
|
end
|
|
local camY = math.max(1, selection - 3)
|
|
local idx = a + camY - 2
|
|
local utx = (" "):rep(w)
|
|
if node.unknownAvailable and idx == #l + 1 then
|
|
utx = "<OK>[" .. fmt.pad(unicode.safeTextFormat(unknownTx), w - 6, false, true, true) .. "]"
|
|
end
|
|
if l[idx] then
|
|
utx = "<" .. fmt.pad(unicode.safeTextFormat(l[idx][1]), w - 2, false, true) .. ">"
|
|
end
|
|
return selection == idx, utx
|
|
end
|
|
local function updateLine(wnd, a)
|
|
local colA, colB = 0xFFFFFF, 0
|
|
local sel, text = format(a)
|
|
if sel then
|
|
colB, colA = 0xFFFFFF, 0
|
|
end
|
|
wnd.span(1, a, text, colA, colB)
|
|
end
|
|
local function flush(wnd)
|
|
for i = 1, h do
|
|
updateLine(wnd, i)
|
|
end
|
|
end
|
|
local ctrl = false
|
|
local function key(wnd, ka, kc, down)
|
|
if kc == 29 then
|
|
ctrl = down
|
|
end
|
|
if not down then return end
|
|
if ctrl then
|
|
if kc == 200 then
|
|
h = math.max(2, h - 1)
|
|
elseif kc == 208 then
|
|
h = h + 1
|
|
elseif kc == 203 then
|
|
w = math.max(6, w - 1)
|
|
elseif kc == 205 then
|
|
w = w + 1
|
|
else
|
|
return
|
|
end
|
|
wnd.setSize(w, h)
|
|
return
|
|
end
|
|
if (ka == 9) or (kc == 208) then
|
|
local lo = selection
|
|
selection = selection + 1
|
|
local max = #l
|
|
if node.unknownAvailable then
|
|
max = max + 1
|
|
end
|
|
if selection > max then
|
|
selection = 1
|
|
end
|
|
flush(wnd)
|
|
return
|
|
end
|
|
if kc == 200 then
|
|
local lo = selection
|
|
selection = selection - 1
|
|
local max = #l
|
|
if node.unknownAvailable then
|
|
max = max + 1
|
|
end
|
|
if selection == 0 then
|
|
selection = max
|
|
end
|
|
flush(wnd)
|
|
return
|
|
end
|
|
if ka == 13 then
|
|
local aResult, res
|
|
if selection ~= #l + 1 then
|
|
aResult, res = l[selection][2]()
|
|
else
|
|
aResult, res = node.selectUnknown(unknownTx)
|
|
end
|
|
if aResult then
|
|
retFunc(res)
|
|
nexus.close(wnd)
|
|
else
|
|
prepareNode(res)
|
|
end
|
|
return
|
|
end
|
|
if selection == #l + 1 then
|
|
if ka == 8 then
|
|
unknownTx = unicode.sub(unknownTx, 1, unicode.len(unknownTx) - 1)
|
|
flush(wnd)
|
|
return
|
|
end
|
|
if ka ~= 0 then
|
|
unknownTx = unknownTx .. unicode.char(ka)
|
|
flush(wnd)
|
|
end
|
|
end
|
|
end
|
|
return w, h, function (wnd, evt, a, b, c)
|
|
if evt == "key" then
|
|
key(wnd, a, b, c)
|
|
end
|
|
if evt == "touch" then
|
|
local ns = b + math.max(1, selection - 3) - 2
|
|
local max = #l
|
|
if node.unknownAvailable then
|
|
max = max + 1
|
|
end
|
|
if ns == selection and ((selection ~= #l + 1) or (a <= 4)) then
|
|
key(wnd, 13, 0, true)
|
|
else
|
|
selection = math.min(math.max(1, ns), max)
|
|
flush(wnd)
|
|
end
|
|
end
|
|
if evt == "line" then
|
|
updateLine(wnd, a)
|
|
end
|
|
if evt == "close" then
|
|
retFunc(nil)
|
|
nexus.close(wnd)
|
|
end
|
|
end
|
|
end
|
|
|
|
local text = class .. " " .. pkg
|
|
local window
|
|
|
|
function prepareNode(node)
|
|
local w, h, c = prepareNodeI(node)
|
|
ccb = c
|
|
window.setSize(w, h)
|
|
end
|
|
|
|
local closer = nexus.createNexusThread(function ()
|
|
window = nexus.create(25, 10, text)
|
|
prepareNode(require("sys-filevfs")(fs, mode))
|
|
while window do
|
|
cb(window, coroutine.yield())
|
|
end
|
|
end)
|
|
if not closer then
|
|
retFunc()
|
|
return
|
|
end
|
|
return function ()
|
|
retFunc()
|
|
closer()
|
|
if window then
|
|
nexus.close(window)
|
|
window = nil
|
|
end
|
|
end
|
|
|
|
-- end bad indent
|
|
end
|