OC-KittenOS/code/apps/app-control.lua

-- Copyright (C) 2018-2021 by KittenOS NEO contributors
--
-- Permission to use, copy, modify, and/or distribute this software for any purpose with or without fee is hereby granted.
--
-- THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF
-- THIS SOFTWARE.

-- app-control: Settings changer
local settings = neo.requireAccess("x.neo.sys.manage", "management")
local globals = neo.requireAccess("x.neo.pub.globals", "gbm")

local event = require("event")(neo)
local neoux, err = require("neoux")
if not neoux then error(err) end
neoux = neoux(event, neo)

local running = true

local mainGen
local currentGen
local window

local function returner()
 currentGen = mainGen
 window.reset(currentGen())
end

local function scrGen()
 local tx = {}
 local elems = {
 }
 local y = 1
 for k, v in ipairs(globals.getKnownMonitors()) do
  table.insert(tx, v[1]:sub(1, 16) .. "..." )
  table.insert(tx, "")
  table.insert(elems, neoux.tcbutton(21, y, "max", function (w)
   globals.changeMonitorSetup(v[1], 320, 200, 32, v[6])
   globals.forceRescan()
  end))
  local cw, ch = v[3], v[4]
  table.insert(elems, neoux.tcfield(1, y + 1, 5, function (tx)
   if tx then cw = math.max(0, math.floor(tonumber(tx) or 0)) end
   return tostring(cw)
  end))
  table.insert(elems, neoux.tcfield(6, y + 1, 5, function (tx)
   if tx then ch = math.max(0, math.floor(tonumber(tx) or 0)) end
   return tostring(ch)
  end))
  table.insert(elems, neoux.tcbutton(12, y + 1, "set", function (w)
   globals.changeMonitorSetup(v[1], math.max(cw, 1), math.max(ch, 1), v[5], v[6])
   globals.forceRescan()
  end))
  local nx = 8
  if v[5] == 8 then
   nx = 4
  elseif v[5] == 4 then
   nx = 1
  end
  table.insert(elems, neoux.tcbutton(18, y + 1, v[5] .. "b", function (w)
   globals.changeMonitorSetup(v[1], v[3], v[4], nx, v[6])
   globals.forceRescan()
  end))
  local tm = "ti"
  local to = "yes"
  if v[6] == "yes" then
   tm = "TI"
   to = "no"
  end
  table.insert(elems, neoux.tcbutton(22, y + 1, tm, function (w)
   globals.changeMonitorSetup(v[1], v[3], v[4], v[5], to)
   globals.forceRescan()
  end))
  y = y + 2
 end
 table.insert(elems, neoux.tcrawview(1, 1, tx))
 return 25, #tx, nil, neoux.tcwindow(25, #tx, elems, returner, 0xFFFFFF, 0)
end
local function logGen()
 local computer = neo.requireAccess("k.computer", "user management")
 local tx = {
   "Password:",
   " (Keep blank to disable.)",
   "MC Usernames Allowed:"
 }
 local users = table.pack(computer.users())
 for k, v in ipairs(users) do
  tx[k + 3] = " " .. v
 end
 local workingName = ""
 return 25, #tx + 1, nil, neoux.tcwindow(25, #tx + 1, {
  neoux.tcrawview(1, 1, tx),
  neoux.tcfield(11, 1, 15, function (str)
   if str then
    settings.setSetting("password", str)
   end
   return settings.getSetting("password")
  end),
  neoux.tcfield(1, #tx + 1, 19, function (str)
   workingName = str or workingName
   return workingName
  end),
  neoux.tcbutton(20, #tx + 1, "+", function (w)
   local ok, err = computer.addUser(workingName)
   if not ok then
    neoux.startDialog(err)
   end
   w.reset(logGen())
  end),
  neoux.tcbutton(23, #tx + 1, "-", function (w)
   computer.removeUser(workingName)
   w.reset(logGen())
  end),
 }, returner, 0xFFFFFF, 0)
end

local advPage = 1
local advPlusH = false

local function advAsker(info, def, r, parent)
 info = unicode.safeTextFormat(info)
 local ww = math.max(25, unicode.len(info))
 return function ()
  return ww, 2, nil, neoux.tcwindow(ww, 2, {
   neoux.tcrawview(1, 1, {info}),
   neoux.tcfield(1, 2, ww, function (tx)
    def = tx or def
    return def
   end)
  }, function (w)
   r(def)
   currentGen = parent
   w.reset(parent())
  end, 0xFFFFFF, 0)
 end
end

local function advGen()
 local set = settings.listSettings()
 table.sort(set)

 -- things get complicated here...
 local pages = math.max(1, math.ceil(#set / 7))
 advPage = math.max(1, math.min(advPage, pages))
 local elems = {
  neoux.tcbutton(23, 1, "+", function (w)
   advPage = advPage + 1
   w.reset(advGen())
  end),
  neoux.tcrawview(4, 1, {neoux.pad(advPage .. " / " .. pages, 14, true, true)}),
  neoux.tcbutton(1, 1, "-", function (w)
   advPage = advPage - 1
   advPlusH = true
   w.reset(advGen())
  end),
  neoux.tcbutton(18, 1, "add", function (w)
   currentGen = advAsker("setting ID", "my.setting", function (r)
    settings.setSetting(r, "")
   end, currentGen)
   w.reset(currentGen())
  end),
 }
 local ofs = (advPage - 1) * 7
 for i = 1, 7 do
  local s = set[i + ofs]
  if s then
   local tx = s .. "=" .. (settings.getSetting(s) or "")
   table.insert(elems, neoux.tcbutton(1, i + 1, unicode.sub(unicode.safeTextFormat(tx), 1, 20), function (w)
    currentGen = advAsker(s .. ":", settings.getSetting(s) or "", function (r)
     settings.setSetting(s, r)
    end, currentGen)
    w.reset(currentGen())
   end))
   table.insert(elems, neoux.tcbutton(23, i + 1, "-", function (w)
    settings.delSetting(s)
   end))
  end
 end
 local ph
 if advPlusH then
  advPlusH = false
  ph = 3
 end
 return 25, 8, nil, neoux.tcwindow(25, 8, elems, returner, 0xFFFFFF, 0, ph)
end

function mainGen()
 return 25, 8, nil, neoux.tcwindow(25, 8, {
  neoux.tcbutton(1, 1, "Screens", function (window)
   currentGen = scrGen
   window.reset(currentGen())
  end),
  neoux.tcrawview(2, 2, {
   "Size, depth, touchmode."
  }),
  neoux.tcbutton(1, 3, "Login & Access", function (window)
   currentGen = logGen
   window.reset(currentGen())
  end),
  neoux.tcrawview(2, 4, {
   "Allowed users, password."
  }),
  neoux.tcbutton(1, 5, "Advanced Settings", function (window)
   advPage = 1
   currentGen = advGen
   window.reset(currentGen())
  end),
  neoux.tcrawview(2, 6, {
   "The raw settings data."
  }),
  neoux.tchdivider(1, 7, 25),
  neoux.tcbutton(1, 8, "Relog", function (window)
   neo.requireAccess("x.neo.sys.session", "Everest session").endSession(true)
  end),
  neoux.tcbutton(8, 8, "Reboot", function (window)
   settings.shutdown(true)
  end),
  neoux.tcbutton(16, 8, "Shutdown", function (window)
   settings.shutdown(false)
  end),
 }, function ()
  window.close()
  running = false
 end, 0xFFFFFF, 0)
end

currentGen = mainGen

window = neoux.create(currentGen())

while running do
 local src, id, k, v = event.pull()
 if src == "x.neo.sys.manage" then
  if id == "set_setting" and currentGen ~= logGen then
   window.reset(currentGen())
  end
 end
end