From 09cd7d45bca470b1c4fee5f6a4cf1ff85ad5b844 Mon Sep 17 00:00:00 2001
From: Igor Timofeev <eliteclubsessions@gmail.com>
Date: Tue, 4 Aug 2015 22:43:32 +0300
Subject: [PATCH] Create ls.lua

---
 Applications/ls.lua | 109 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 109 insertions(+)
 create mode 100644 Applications/ls.lua

diff --git a/Applications/ls.lua b/Applications/ls.lua
new file mode 100644
index 00000000..19680f1f
--- /dev/null
+++ b/Applications/ls.lua
@@ -0,0 +1,109 @@
+local component = require("component")
+local fs = require("filesystem")
+local shell = require("shell")
+local text = require('text')
+
+local dirs, options = shell.parse(...)
+if #dirs == 0 then
+  table.insert(dirs, ".")
+end
+
+local function formatOutput()
+  return component.isAvailable("gpu") and io.output() == io.stdout
+end
+
+io.output():setvbuf("line")
+for i = 1, #dirs do
+  local path = shell.resolve(dirs[i])
+  if #dirs > 1 then
+    if i > 1 then
+      io.write("\n")
+    end
+    io.write(path, ":\n")
+  end
+  local list, reason = fs.list(path)
+  if not list then
+    io.write(reason .. "\n")
+  else
+    local function setColor(c)
+      if formatOutput() and component.gpu.getForeground() ~= c then
+        io.stdout:flush()
+        component.gpu.setForeground(c)
+      end
+    end
+    local lsd = {}
+    local lsf = {}
+    local m = 1
+    for f in list do
+      m = math.max(m, f:len() + 2)
+      if f:sub(-1) == "/" then
+        if options.p then
+          table.insert(lsd, f)
+        else
+          table.insert(lsd, f:sub(1, -2))
+        end
+      else
+        table.insert(lsf, f)
+      end
+    end
+    table.sort(lsd)
+    table.sort(lsf)
+    setColor(0x00cc00)
+
+    local col = 1
+    local columns = math.huge
+    if formatOutput() then
+      columns = math.max(1, math.floor((component.gpu.getResolution() - 1) / m))
+    end
+
+    for _, d in ipairs(lsd) do
+      if options.a or d:sub(1, 1) ~= "." then
+        if options.l or not formatOutput() or col % columns == 0 then
+          io.write(d .. "\n")
+        else
+          io.write(text.padRight(d, m))
+        end
+        col = col + 1
+      end
+    end
+
+    for _, f in ipairs(lsf) do
+      if fs.isLink(fs.concat(path, f)) then
+        setColor(0xffff00)
+      elseif f:sub(-4) == ".lua" then
+        setColor(0xff5555)
+      else
+        setColor(0xcccccc)
+      end
+      if options.a or f:sub(1, 1) ~= "." then
+        if not formatOutput() then
+          io.write(f)
+          if options.l then
+            io.write(" " .. fs.size(fs.concat(path, f)))
+          end
+          io.write("\n")
+        else
+          io.write(text.padRight(f, m))
+          if options.l then
+            setColor(0xcccccc)
+            io.write(fs.size(fs.concat(path, f)), "\n")
+          elseif col % columns == 0 then
+            io.write("\n")
+          end
+        end
+        col = col + 1
+      end
+    end
+
+    setColor(0xcccccc)
+    if options.M then
+      io.write("\n" .. tostring(#lsf) .. " File(s)")
+      io.write("\n" .. tostring(#lsd) .. " Dir(s)")
+    end
+    if not options.l then
+      io.write("\n")
+    end
+  end
+end
+io.output():setvbuf("no")
+io.output():flush()