FileBrowser

local tArgs = { ... }
local home
local root
local clipboard
if #tArgs > 0 then
  home = tArgs[1]
  else
  home = ""
  end
  if #tArgs > 1 then
  root = tArgs[2]
  else
    root = "/"
  end
history = {}
history[1] = root .. home
local w,h = term.getSize()
local function split(inputstr, sep)
        if sep == nil then
                sep = "%s"
        end
        local t={} ; i=1
        for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
                t[i] = str
                i = i + 1
        end
        return t
end
local function diabox(txt)
term.setBackgroundColor(colors.white)
term.setTextColor(colors.black)
paintutils.drawFilledBox(math.floor(w/2-(#txt+2)/2),math.floor(h/2)-2,math.floor(w/2+(#txt+2)/2),math.floor(h/2)+2,colors.white)
term.setCursorPos(math.floor(w/2-(#txt+2)/2)+1,math.floor(h/2)-1)
term.write(txt)
term.setCursorPos(math.floor(w/2-(#txt+2)/2)+1,math.floor(h/2)+1)
end
function readtextbox(txt)
diabox(txt)
return read()
end
function buttonbox(txt,buttons)
  if type(buttons) ~= "table" then
    buttons = {{" Yes ",colors.red,colors.white},{" No ",colors.gray,colors.white}}
  end
  if txt == "" or txt == nil then
    txt = " Are you sure? "
  end
  local x,y
  diabox(txt)
  for i=1,#buttons do
    x,y = term.getCursorPos()
    x = math.floor((w/2-(#txt+2)/2)+((#txt+2)/i)*(i-1)) + 1
    term.setCursorPos(x,y)
    term.setBackgroundColor(buttons[i][2])
    term.setTextColor(buttons[i][3])
    term.write(buttons[i][1])
  end
  while true do
    local _,b,x2,y2 = os.pullEvent("mouse_click")
    if b == 1 and y == y2 then
      for i=1,#buttons do
         local x = math.floor((w/2-(#txt+2)/2)+((#txt+2)/i)*(i-1)) + 1
                  if x2 > x - 1 and x2 < x + #buttons[i][1] then
           return i
         end
      end
    end
  end
end
local function clear()
  term.setBackgroundColor(colors.lightBlue)
  term.setTextColor(colors.black)
  term.clear()
  term.setCursorPos(1,1)
end
local function list(path,scroll,selected)
  clear()
  local items = fs.list(path)
  for i=scroll+1,scroll+h-2 do
    if type(items[i]) == "string" then
    if i ~= selected then
    if not fs.isDir(path..items[i]) then
    term.setTextColor(colors.black)
    else
    term.setTextColor(colors.yellow)
    end
    else
    term.setTextColor(colors.white)
    end

    print(items[i])
    end

  end
  return items
end
local function drawMenu(path)
  term.setBackgroundColor(colors.blue)
  term.setTextColor(colors.white)
  term.setCursorPos(1,h-1)
  term.clearLine()
  term.setCursorPos(1,h-1)
  term.write(path)
  term.setCursorPos(1,h)
  term.clearLine()
  term.setCursorPos(1,h)
  term.write("| New | MkDir | More | Root | Home | Back | Exit |")
end
local function rPrint(txt,y)
  if y == nil then _,y = term.getCursorPos() end
  term.setCursorPos(w-#txt,y)
  term.write(txt)
  term.setCursorPos(1,y+1)
end
local function popupMenu(isDir)
  paintutils.drawFilledBox(math.floor(w/2),1,w,h-1)
  if (isDir) then
    rPrint("Open",2)
    rPrint("Unpack")
  else
    rPrint("Edit",2)
    rPrint("Paint")
    rPrint("Open with ...")
    rPrint("Run")
    rPrint("Run w/Args")
  end
    rPrint("Rename",7)
    rPrint("Move")
    rPrint("Copy")
    rPrint("Copy to clipboard")
    rPrint("Delete")
    rPrint("Deselect")
  end
local function createNewName(name,type)
  if type == nil then type = 1 end
  if type == 1 then return "Unpacked_" .. name end
  if type == 2 then return name .. math.random(1,10000) end
  return name .. "_pasted"
end
local function findFile(path)
	local name = readtextbox("Please enter a keyword")
	local results = lookForFile(path,name,{})
	return results
end
function lookForFile(path,name,results)
	local files = fs.list(path)
	for k,v in pairs(files) do
		local str = path..v
		if type(str:find(name)) == "number" then
			results[#results+1] = str
			if fs.isDir(str) then results = lookForFile(str.."/",name,results) end
		end
	end
	return results
end
local function drawLine(y,txt,col)
  if type(col) == nil then col = colors.white end
  term.setCursorPos(1,y)
  term.clearLine()
  term.setCursorPos(math.floor(w/2-#txt/2),y)
  term.write(txt)
end
local function downloadfile(path)
  clear()
  local url = readtextbox("      Please enter url      ")
  clear()
  print("Progress:")
  print("Downloading...")
  local httpgot = http.get(url)
  print("Done")
  local name = readtextbox("Please name the file")
  while fs.exists(path..name) do name = createNewName(name,3) end
  local file = fs.open(path..name,"w")
  file.write(httpgot.readAll())
  file.close()
  httpgot.close()
  clear()
  buttonbox("File downloaded",{{"OK",colors.gray,colors.white}})
end
local function more(path)
while true do
  clear()
  --draw ui
  print("More actions:")
  term.setTextColor(colors.black)
  drawLine(3,"Find file")
  drawLine(5,"Download file")
  drawLine(7,"Paste from clipboard")
  drawLine(9,"Paste from pastebin.com")
  drawLine(11,"Open webpage")
  drawLine(13,"New file...")
  drawLine(15,"Go back")
  --get event
  local _,_,_,y = os.pullEvent()
  if y == 3 then
    --find file
	local results = findFile(path)
	buttonbox(#results.." results saved in current path",{{"OK",colors.gray,colors.white}})
	local file = fs.open(path..createNewName("search_results",2),"w")
	for k,v in pairs(results) do
		file.writeLine(v)
	end
	file.close()
  elseif y == 5 then
    downloadfile(path)
  elseif y == 7 then
    if fs.exists(clipboard) then
      if clipboard:sub(#clipboard,#clipboard) == "/" then clipboard = clipboard:sub(1,#clipboard-1) end
      local splitted = split(clipboard,"/")
      local name = splitted[#splitted]
      while fs.exists(path..name) do name = createNewName(name,3) end
      fs.copy(clipboard,path..name)
      buttonbox("Pasted as "..name.." in directory "..path,{{"OK",colors.gray,colors.white}})
    else
       buttonbox("File not found: "..clipboard,{{"OK",colors.gray,colors.white}})
    end
  elseif y == 9 then
    --paste from pastebin
    local name
   repeat
    name = readtextbox("Please enter a filename")
   until not fs.exists(path..name)
   local url = readtextbox("Please enter the pastebin URL")
   term.setCursorPos(1,1)
   term.setBackgroundColor(colors.white)
   term.setTextColor(colors.gray)
   term.clear()
   print("Downloading file: ")
   shell.run("pastebin get "..url.." "..path..name)
   print("Ended. Press any key to continue")
   os.pullEvent()
  elseif y == 11 then
    --open webpage:
    local url = readtextbox("   Please enter the url   ")
    local httpsth = http.get(url)
    local cont = httpsth.readAll()
    httpsth.close()
    clear()
    print(cont)
    os.pullEvent()
  elseif y == 13 then
    --new file options
    clear()
    local exc = buttonbox("Please choose a program",{{"Paint",colors.yellow,colors.black},{"Custom",colors.yellow,colors.black}})
    clear()
    local filename = readtextbox("Please enter a filename")
    if not fs.exists(path..filename) then
    if exc == 1 then
      shell.run("paint",path..filename)
    else
      clear()
      local prog = readtextbox("Please choose a program "..root)
      shell.run(prog,path..filename)
    end
    end
  elseif y == 15 then
    return
  end
end
end
------------------------------------------------------
--actions:
--folder:
local function openFolder(path,items,selected,history,scroll)
	path = path .. items[selected] .. "/"
    history[#history+1] = path
	return path,history
end
local function unpackFolder(path,items,selected,history,scroll)
	if fs.isDir(path..items[selected]) then
		local con = fs.list(path..items[selected].."/")
		   for i=1,#con do
			 local altname = con[i]
			 while fs.exists(path..altname) do altname = createNewName(altname) end
			 fs.move(path..items[selected].."/"..con[i],path..altname)
		   end
		   fs.delete(path..items[selected])
	end
end
--file:
local function runFile(path,items,selected)
	term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)
    term.clear()
    term.setCursorPos(1,1)
    os.pullEvent()
    shell.run(path..items[selected])
    print("Press any key to continue")
    os.pullEvent()
end
local function runFileWArgs(path,items,selected)
	local args = readtextbox("Please enter all arguments to run with!")
	term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)
    term.clear()
    term.setCursorPos(1,1)
    os.pullEvent()
    shell.run(path..items[selected] .. " " .. args)
    print("Press any key to continue")
    os.pullEvent()
end
local function renamefile(path,items,selected)
local nname = readtextbox("Please enter the new name (empty = cancel)")
     if nname ~= nil or nname ~= "" then
       if not fs.exists(path..nname) then
       fs.move(path..items[selected],path..nname)
       clear()
       buttonbox("Success",{{"OK",colors.gray,colors.white}})
       selected = 0
       else
       clear()
        buttonbox("File already exists",{{"OK",colors.gray,colors.white}})
       end
     end
end
local function moveFile(path,items,selected)
	local dest = readtextbox("Move to (empty=cancel) "..root)
     if dest ~= nil or dest ~= "" then
	   if dest:sub(#dest-#items[selected],#dest) ~= items[selected] then
			if dest:sub(#dest,#dest) == "/" then dest = dest .. items[selected] else
				dest = dest .. "/" .. items[selected]
			end
	   end
       if not fs.exists(root..dest) then
       fs.move(path..items[selected],root..dest)
       clear()
       buttonbox("Success",{{"OK",colors.gray,colors.white}})
       else
       clear()
       buttonbox("File already exists",{{"OK",colors.gray,colors.white}})
       end
     end
end
local function copyFile(path,items,selected)
	local dest = readtextbox("Move to (empty=cancel) "..root)
     if dest ~= nil or dest ~= "" then
	   if dest:sub(#dest-#items[selected],#dest) ~= items[selected] then
			if dest:sub(#dest,#dest) == "/" then dest = dest .. items[selected] else
				dest = dest .. "/" .. items[selected]
			end
	   end
       if not fs.exists(root..dest) then
       fs.copy(path..items[selected],root..dest)
       clear()
       buttonbox("Success",{{"OK",colors.gray,colors.white}})
       else
       clear()
       buttonbox("File already exists",{{"OK",colors.gray,colors.white}})
       end
     end
end
local function deleteFile(path)
	local bclicked = buttonbox()
      if bclicked == 1 then
        fs.delete(path)
        clear()
        buttonbox("File deleted",{{"OK",colors.gray,colors.white}})
        selected = 0
      end
end
local function newFile(path)
      local name = readtextbox("Filename: (empty=cancel)  ")
      if name ~= nil or name ~= "" then
        if not fs.exists(path..name) then
        shell.run("edit",path..name)
        end
      end
end
local function newDir(path)
	local name = readtextbox("Directory's name: (empty=cancel)")
      if name ~= nil or name ~= "" then
        if not fs.exists(path..name) then
        fs.makeDir(path..name)
        end
      end
end
------------------------------------------------------
local path = root .. home
local scroll = 0
local selected = 0
local items
local endprogram = false
while not endprogram do
repeat
    items = list(path,scroll,selected)
    drawMenu(path)
   if items[selected] ~= nil then
     popupMenu(fs.isDir(path..items[selected]))
   end
  local e,b,x,y = os.pullEvent()
  if e == "mouse_click" then
  if items[selected] ~= nil and x > math.floor(w/2) and y < h-1 then
   if fs.isDir(path..items[selected]) then
     --folder specific
     if y == 2 then
       path,history = openFolder(path,items,selected,history,scroll)
	   selected = 0
	   scroll = 0
     end
     if y == 3 then
       unpackFolder(path,items,selected,history,scroll)
	   selected = 0
     end
   else
     --file specific
     if y == 2 then
       --edit
       shell.run("edit",path.. items[selected])
     elseif y == 3 then
       --open with paint
       shell.run("paint",path..items[selected])
     elseif y == 4 then
      --open with...
       local program = readtextbox("Please choose a program: "..root)
        if program ~= nil or program ~= "" then
          shell.run(root..program,path..items[selected])
        end
     elseif y == 5 then
       runFile(path,items,selected)
     elseif y == 6 then
       runFileWArgs(path,items,selected)
     end

   end
   --universal
   if y == 7 then
     renamefile(path,items,selected)
   end
   if y == 8 then
     moveFile(path,items,selected)
   end
   if y == 9 then
     copyFile(path,items,selected)
   end
   if y == 10 then
     --clipboard
     clipboard = path .. items[selected]
   end
   if y == 11 then
	 deleteFile(path..items[selected])
   end
   if y == 12 then
     selected = 0
   end
   break
  end
  if y == h-1 then
    local npath = readtextbox("Enter new path: (empty=cancel) "..root)

    if npath ~= nil and npath ~= "" and fs.isDir(root..npath) then
      path = root .. npath
      selected = 0
      scroll = 0
    end
    history[#history+1] = path
  elseif y == h then
    --new
	if x > 1 and x < 7 then
		newFile(path)
	end
    if x > 7 and x < 15 then
		newDir(path)
    end
    if x > 15 and x < 22 then
    --more...
    more(path)
    end
    if x > 22 and x < 29 then
    path = root
    history[#history+1] = path
    selected = 0
    scroll = 0
    end
    if x > 29 and x < 36 then
		if fs.exists(root .. home) then
			path = root .. home
			history[#history+1] = path
			selected = 0
			scroll = 0
		end
    end
    if x > 36 and x < 43 then
      while true do
        history[#history] = nil
        if #history == 0 then
          if fs.exists(root..home) then
            path = root..home
            history[1] = path
          elseif fs.exists(root) then
            path = root
            history[1] = path
          else
            error("Root folder deleted",0)
          end
        end
        if fs.exists(history[#history]) then
          path = history[#history]
          break
        end
      end
      selected = 0
    end
    if x > 43 and x < 50 then
    term.setBackgroundColor(colors.black)
    term.setTextColor(colors.white)
    term.setCursorPos(1,1)
    term.clear()
    return
    end
  else
    if y + scroll == selected then
       if items[selected] ~= nil then
        if fs.isDir(path..items[selected]) then
          path = path .. items[selected] .. "/"
          history[#history+1] = path
          selected = 0
          scroll = 0
        else
          term.setBackgroundColor(colors.black)
          term.setTextColor(colors.white)
          term.setCursorPos(1,1)
          term.clear()
          shell.run(path..items[selected])
        end
       end
    else
      selected =  y + scroll
    end
  end
  elseif e == "mouse_scroll" then
    if b == 1 and #items - scroll > h-2 then
      scroll = scroll + 1
    end
    if b == -1 and scroll > 0 then
      scroll = scroll - 1
    end
	---------------------------------------------------
	--hotkeys:
  elseif e == "key" then
		if b == keys.f1 then
			clear()
			print("Hotkey help:")
			print([[Up/Down arrow keys + Page Up/Down = navigation
		Insert = new file
		Delete = delete file
		Backspace = exit
		Enter = Open/Run
		M = move
		C = copy
		R = rename
		0 = deselect
		Press any key to go back]])
		os.pullEvent()
		end
		if b == keys.insert then
			newFile(path)
		end
		if b == keys.delete then
			if selected ~= 0 then
				deleteFile(path..items[selected])
			else
				buttonbox("Please select a file",{{"OK",colors.gray,colors.white}})
			end
		end
		if b == keys.backspace then
			term.setBackgroundColor(colors.black)
			term.setTextColor(colors.white)
			term.setCursorPos(1,1)
			term.clear()
			return
		end
		if b == keys.enter then
			if selected ~= 0 then
				if fs.isDir(path..items[selected]) then
					openFolder(path,items,selected,history,scroll)
				else
					runFile(path..items[selected])
				end
			else
				buttonbox("Please select a file",{{"OK",colors.gray,colors.white}})
			end
		end
		if b == keys.m then
			if selected ~= 0 then
				moveFile(path,items,selected)
			else
				buttonbox("Please select a file",{{"OK",colors.gray,colors.white}})
			end
		end
		if b == keys.c then
			if selected ~= 0 then
				copyFile(path,items,selected)
			else
				buttonbox("Please select a file",{{"OK",colors.gray,colors.white}})
			end
		end
		if b == keys.r then
			if selected ~= 0 then
				renamefile(path,items,selected)
			else
				buttonbox("Please select a file",{{"OK",colors.gray,colors.white}})
			end
		end
		if b == keys.zero then
			selected = 0
		end
		if b == keys.up and selected > 1 then
			selected = selected - 1
			if selected < scroll+1 then
				scroll = scroll - 1
			end
		end
		if b == keys.down and selected < #items then
			selected = selected + 1
			if selected > (scroll + h-3) then
				scroll = scroll + 1
			end
		end
		if b == keys.pageUp and selected then
			selected = selected - (h-3)
			scroll = selected-1
			if selected < 0 or scroll < 0 then scroll,selected = 0,1 end
		end
		if b == keys.pageDown and selected < #items-(h-2) then
			selected = selected + (h-3)
			scroll = selected-1
			if scroll > #items-(h-2) or selected > #items then scroll,selected = #items-(h-2),#items end
			if selected < 0 then scroll,selected = 0,0 end
		end
end
until true
end