local component = require("component")
local event = require("event")
local fs = require("filesystem")
local keyboard = require("keyboard")
local shell = require("shell")
local term = require("term")
local text = require("text")
local unicode = require("unicode")
local sides = require("sides")
local colors=require("colors")

local gpu = component.gpu

local menuList = {}
local menuLen = 1
local compList = {}
local compLen = 1
local col = 25
local currRow = 1

local w, h = gpu.getResolution()
local offset = 0
local running = true

local fileCount = -1


local function isAdvanced()
	return (gpu.getDepth() > 1)
end


for address, name in component.list() do
	menuList[menuLen] = name
	for k, v in pairs(component.proxy(address)) do
		compList[compLen] = name.."."..k
		compLen = compLen + 1
	end
	menuLen = menuLen + 1
end
menuList[menuLen] = "Exit"

for a = 1, menuLen do
end


local function hiLiteXY(col, row, menuSel)
	term.setCursorBlink(false)
	gpu.setForeground(theme.promptHighlight)
	gpu.setBackground(theme.prompt)
	component.gpu.set(col, row, menuSel)
end

local function writeXY(col, row, menuSel)
	term.setCursorBlink(false)
	gpu.setForeground(theme.textColor)
	gpu.setBackground(theme.background)
	component.gpu.set(col, row, menuSel)
end

local function printCompXY(menuSel)
	local tmpList = {}
	local tLen = 1
	local w, h = gpu.getResolution()
	local sPos = 0

	for len = 1, compLen - 1 do
		sPos = string.find(compList[len], ".", 1, true)
		if (string.sub(compList[len], 1, sPos - 1) == menuSel) then
			tmpList[tLen] = compList[len]
			tLen = tLen + 1
		end
	end

	local oSet = (h - #tmpList) / 2
	gpu.setForeground(theme.textColor)
	gpu.setBackground(theme.background)
	term.clear()
	term.setCursor(25,1)
	print("List for "..menuSel)
	for b = 1, tLen - 1 do
		if tmpList[b] == "filesystem.lastModified" then
			fileCount = fileCount + 1
		end
		if fileCount < 1 then
			writeXY(col, b + 3, tmpList[b])
		end
	end
	term.setCursor((w - 24)/2, h - 1)
	print("Press ENTER to continue")
	local key = term.read()
	fileCount = -1
	gpu.setForeground(theme.textColor)
	gpu.setBackground(theme.background)
	term.clear()
end

local defaultTheme = {				-- Water Theme
  background = 0x0000FF,
  backgroundHighlight = 0xFFFFFF,
  prompt = 0x000000,
  promptHighlight = 0xFFFFFF,

  err = 0xFF0000,
  errHighlight = 0xFFFFFF,

  editorBackground = 0xBEBEBE,
  editorLineHightlight = 0xADD8E6,
  editorLineNumbers = 0xBEBEBE,
  editorLineNumbersHighlight = 0xD3D3D3,
  editorError = 0xFFC0CB,
  editorErrorHighlight = 0xFF0000,

  textColor = 0xFFFFFF,
  conditional = 0xFFFF00,
  constant = 0xFFA500,
  ["function"] = 0xFF00FF,
  string = 0xFF0000,
  comment = 0x32CD32
  }

local function up()
	writeXY(col, currRow + offset, menuList[currRow])
  if currRow > 1 then
    currRow = currRow - 1
	else
		currRow = #menuList
	end
	hiLiteXY(col, currRow + offset, menuList[currRow])
end

local function down()
	writeXY(col, currRow + offset, menuList[currRow])
  if currRow < #menuList then
    currRow = currRow + 1
	else
		currRow = 1
	end
	hiLiteXY(col, currRow + offset, menuList[currRow])
end

offset = (h - #menuList) / 2

local function printBuf()
	for a = 1, #menuList do
		writeXY(col, offset + a, menuList[a])
	end
end

local function enter()
  term.setCursorBlink(false)
  local w, h = gpu.getResolution()
	if currRow == #menuList then
	  running = false
	else
		term.clear()
		printCompXY(menuList[currRow])
		printBuf()
	end
end

local controlKeyCombos = {[keyboard.keys.s]=true,[keyboard.keys.w]=true,
                          [keyboard.keys.c]=true,[keyboard.keys.x]=true}

local function onKeyDown(char, code)
  if code == keyboard.keys.up then
    up()
  elseif code == keyboard.keys.down then
    down()
  elseif code == keyboard.keys.enter then
    enter()
  end
end

if isAdvanced() then
	theme = defaultTheme
	gpu.setForeground(theme.textColor)
	gpu.setBackground(theme.background)
else
	theme = normalTheme
	gpu.setForeground(theme.textColor)
	gpu.setBackground(theme.background)
end

term.clear()
printBuf()

while running do
	hiLiteXY(col, currRow + offset, menuList[currRow])
  local event, address, arg1, arg2, arg3 = event.pull()
  if type(address) == "string" and component.isPrimary(address) then
    local blink = true
    if event == "key_down" then
      onKeyDown(arg1, arg2)
    end
  end
end


gpu.setForeground(0xFFFFFF)
gpu.setBackground(0x000000)
term.clear()
term.setCursorBlink(false)