LeonOS/data/computercraft/lua/rom/programs/set.lua

-- 'set' program

local colors = require("colors")
local settings = require("settings")
local textutils = require("textutils")

local args = {...}

local function coerce(val)
  if val == "nil" then
    return nil
  elseif val == "false" then
    return false
  elseif val == "true" then
    return true
  else
    return tonumber(val) or val
  end
end

local col = {
  string = colors.red,
  table = colors.green,
  number = colors.magenta,
  boolean = colors.lightGray
}

if #args == 0 then
  for _, setting in ipairs(settings.getNames()) do
    local value = settings.get(setting)
    textutils.coloredPrint(colors.cyan, setting, colors.white, " is ",
      col[type(value)], string.format("%q", value))
  end
elseif #args == 1 then
  local setting = args[1]
  local value = settings.get(setting)
  textutils.coloredPrint(colors.cyan, setting, colors.white, " is ",
    col[type(value)], string.format("%q", value))
  local def = settings.getDetails(setting)
  if def then
    print(def.description)
  end
else
  local setting, value = args[1], args[2]
  settings.set(setting, coerce(value))
  settings.save()
end