better ls - computercraft

function table.contains(table, element)  -- checks if a table contains a given value
  for _, value in pairs(table) do
    if value == element then
      return true
    end
  end
  return false
end


--end functions

local tArgs = { ... }


local dir = ""  --dir to list
local option = {} --given options

for n, arg in pairs(tArgs) do  --search options and dir to list
  if string.sub( arg, 1, 1 ) == "-" then
    for i=1, ( string.len(arg) - 1 ) do
      table.insert(option, string.sub(arg, i+1, i+1))
    end
  else
    dir = arg
  end
end



-- Get all the files in the directory
local sDir = shell.dir()
if dir ~= "" then
    sDir = shell.resolve( dir )
end


-- Sort into dirs/files, and calculate column count
local tAll = fs.list( sDir )
local tFiles = {}
local tDirs = {}

for n, sItem in pairs( tAll ) do
    if string.sub( sItem, 1, 1 ) ~= "." or table.contains(option,"a") then --if option "a" is given, also print dirs starting with "."
        local sPath = fs.combine( sDir, sItem )
        if fs.isDir( sPath ) then
            table.insert( tDirs, sItem )
        else
            table.insert( tFiles, sItem )
        end
    end
end
table.sort( tDirs )
table.sort( tFiles )

if term.isColour() then
    textutils.pagedTabulate( colors.green, tDirs, colours.white, tFiles )
else
    textutils.pagedTabulate( tDirs, tFiles )
end