cc/inspect.lua
2024-06-03 23:18:16 +02:00

59 lines
1.3 KiB
Lua

local winhlp = require "winhlp"
local function drawLine(termlike, pair)
termlike.setBackgroundColor(colors.black)
termlike.setTextColor(colors.yellow)
termlike.write(tostring(pair.key))
termlike.setTextColor(colors.white)
local value = tostring(pair.value)
local padding = winhlp.alignRightPadding(termlike, #value + 1)
termlike.write(string.format("%" .. padding+1 .. "s", " "))
termlike.write(value)
end
local listview = (require "listview"):new{drawEntry=drawLine}
local keys = {[1]="a", [2]="c"}
local obj = {a="b", c="d"}
local function setTerm(termlike)
listview.frame = termlike
end
local function setObject(other)
obj = other
keys = {}
for key, _ in other do
keys.insert(key)
end
table.sort(keys)
end
local function fetch(wait_for)
local currentIdx = 1
for i, key in pairs(keys) do
listview:updateItemAt(currentIdx, {key=key, value=obj[key]})
currentIdx = currentIdx + 1
end
listview:clearFrom(currentIdx)
end
local function displayTab(self)
listview:updatePage(self.scrollPos)
end
local function estimatedHeight()
return #keys
end
return {
name="inspect",
setTerm=setTerm,
setObject=setObject,
fetch=fetch,
displayTab=displayTab,
estimatedHeight=estimatedHeight,
}