DireWolf Edited Button API

mon = peripheral.find("monitor")

if not mon then
  error("Please attatch a monitor")
end

mon.setTextScale(1)
mon.setTextColor(colors.white)
mon.setBackgroundColor(colors.black)
button = {}
charts = {}

function clearAll()
  button = {}
  charts = {}
  mon.clear()
end

function addButton(name, func, xmin, xmax, ymin, ymax, flash, color, activeColor, param)
  color = color or colors.red
  flash = flash or false
  param = param or {}
  activeColor = activeColor or colors.lime
  button[name] = {}
  button[name]["visible"] = false
  button[name]["func"] = func
  button[name]["active"] = false
  button[name]["xmin"] = xmin
  button[name]["ymin"] = ymin
  button[name]["xmax"] = xmax
  button[name]["ymax"] = ymax
  button[name]["color"] = color
  button[name]["activeColor"] = activeColor
  button[name]["flash"] = flash
  button[name]["param"] = param
end

function addChart(name, xmin, xmax, ymin, ymax, value, color, label)
  charts[name] = {}
  charts[name]["xmin"] = xmin
  charts[name]["xmax"] = xmax
  charts[name]["ymin"] = ymin
  charts[name]["ymax"] = ymax
  charts[name]["value"] = value
  charts[name]["color"] = color
  charts[name]["label"] = label
  -- where the values are percentages
end

function updateChart(name, value, color)
  charts[name]["value"] = value
  charts[name]["color"] = color
  screenChart()
end

function screenButton()
  local currcolor
  for name, data in pairs(button)do
    local active = data["active"]
    if active  == true then
      currcolor = data["activeColor"]
    else
      currcolor = data["color"]
    end
    fillButton(name, currcolor, data)
  end
end

function screenChart()
  for name, data in pairs(charts)do
    fillChart(name, data)
  end
end

function fillButton(text, color, bData)
  mon.setBackgroundColor(color)
  button[text]["visible"] = true
  local yspot = math.floor((bData["ymin"] + bData["ymax"])/2)
  local xspot = math.floor((bData["xmax"] - bData["xmin"] - string.len(text)) /2) +1
  for j = bData["ymin"], bData["ymax"] do
    mon.setCursorPos(bData["xmin"], j)
    if j == yspot then
      for k = 0, bData["xmax"] - bData["xmin"] - string.len(text) + 1 do
        if k == xspot then
          mon.write(text)
        else
          mon.write(" ")
        end
      end
    else
      for i = bData["xmin"], bData["xmax"] do
        mon.write(" ")
      end
    end
  end
   mon.setBackgroundColor(colors.black)
end

function fillChart(name, cData)
  local h = cData["ymax"] - cData["ymin"]
  local percentPerStep = math.floor(100/h)
  local barHeight = math.floor(cData["value"]/percentPerStep)

  local xspot = math.floor((cData["xmax"] - cData["xmin"]) /2) -1
  local yspot = math.floor((cData["ymin"] + cData["ymax"]) /2)
  local text = cData["value"] .. "%"

  if cData["label"] ~= nil then
    labelX = math.floor((cData["xmax"] - cData["xmin"] - string.len(cData["label"])) /2)
    label(cData["xmin"] + labelX, cData["ymax"] + 1,  cData["label"])
  end

  local emptyColor = 0
  if cData["color"] == colors.gray then
    emptyColor = colors.lightGray
  else
    emptyColor = colors.gray
  end

  if cData["color"] == colors.white then
    mon.setTextColor(colors.black)
  end

  for j = cData["ymin"], cData["ymax"] do
      mon.setCursorPos(cData["xmin"], j)
      if j == yspot then
        for k = 0, cData["xmax"] - cData["xmin"] - string.len(text) + 1 do
          if barHeight + cData["ymax"] >= cData["ymax"] + (cData["ymax"] - j) then
            mon.setBackgroundColor(cData["color"])
          else
            mon.setBackgroundColor(emptyColor)
          end
          if k == xspot then
            mon.write(text)
          else
            mon.write(" ")
          end
        end
      else
        for i = cData["xmin"], cData["xmax"] do
          if barHeight + cData["ymax"] >= cData["ymax"] + (cData["ymax"] - j)  then
            mon.setBackgroundColor(cData["color"])
          else
            mon.setBackgroundColor(emptyColor)
          end
            mon.write(" ")
         end
      end
   end
   mon.setBackgroundColor(colors.black)
   mon.setTextColor(colors.white)
end

function toggleButton(name)
  button[name]["active"] = not button[name]["active"]
  if button[name]["active"] then
    button[name]["func"](button[name]["param"])
    fillButton(name, button[name]["activeColor"], button[name])
  else
    fillButton(name, button[name]["color"], button[name])
  end
end

function flash(name)
  toggleButton(name)
  sleep(0.15)
  toggleButton(name)
end

function checkxy(x, y)
  for name, data in pairs(button) do
    if data["visible"] then
      if y>=data["ymin"] and y<= data["ymax"] then
        if x>=data["xmin"] and x<=data["xmax"] then
          if data["flash"] then
            flash(name)
          else
            toggleButton(name)
          end
          return true
        end
      end
    end
  end
  return false
end


function heading(text)
  w, h = mon.getSize()
  mon.setCursorPos((w-string.len(text))/2+1, 1)
  mon.write(text)
end

function label(w, h, text)
  mon.setCursorPos(w, h)
  mon.write(text)
end