Touch Keyboard (WIP)

os.loadAPI("/apis/touchpoint")
--------------------------------------
monside = "none"
--------------------------------------
function updateMonitorSide()
  if peripheral.getType("top") == "monitor" then
    monside = "top"
  elseif peripheral.getType("bottom") == "monitor" then
    monside = "bottom"
  elseif peripheral.getType("right") == "monitor" then
    monside = "right"
  elseif peripheral.getType("left") == "monitor" then
    monside = "left"
  elseif peripheral.getType("front") == "monitor" then
    monside = "front"
  elseif peripheral.getType("back") == "monitor" then
    monside = "back"
  end
  local periLists = peripheral.getNames()
  for i = 1, #periLists do
    if peripheral.getType(periLists[i]) == "monitor" then
      monside = periLists[i]
    end
  end
end
function getMonMid(text)
  if peripheral.getType(monside) == "monitor" then
    local monn = peripheral.wrap(monside)
    local x, y = monn.getSize()
    local cY = y/2
    local cX = math.floor(x-string.len(text))/2
    return cX, cY
  else
    return 0, 0
  end
end
--------------------------------------
updateMonitorSide()
if monside == "none" then
  error("Couldn't find any monitors!")
else
  local oldcol = term.getTextColor()
  term.setTextColor(colors.green)
  write("Found Monitor on " ..monside .. " side.\n")
  term.setTextColor(oldcol)
end
monitorget = peripheral.wrap(monside)
local monw, monh = monitorget.getSize()
monitorget.clear()
tp = touchpoint.new(monside)
monitorget.setTextScale(1.5)
tp:add("a", nil, 2, 11, 2, 11, colors.red, colors.white)
monitorget.setTextScale(1.5)
tp:draw()

while true do
  local evenk, args1 = os.pullEvent()
  if evenk == "key" then
    monitorget.clear()
    monitorget.setCursorPos(1,1)
    monitorget.write(keys.getName(args1))
    print(keys.getName(args1))
    tp:draw()
  end
  local event, btn = tp:handleEvents(os.pullEvent())
  if event == "button_click" then
    if btn == "a" then
      print("Pressed a")
      os.queueEvent("key", 30)
    end
    tp:toggleButton(btn)
    tp:draw()
       sleep(0.1)
       tp:toggleButton(btn)
    tp:draw()
  end
end