Remove obsolete draw.moon script
This commit is contained in:
parent
c7a8bbe2f8
commit
52cdae3b80
1 changed files with 0 additions and 81 deletions
|
@ -1,81 +0,0 @@
|
||||||
-- vim: set noexpandtab :miv --
|
|
||||||
|
|
||||||
-- ┌──────────────────────────┐
|
|
||||||
-- │ Generic Helper Functions │
|
|
||||||
-- └──────────────────────────┘
|
|
||||||
|
|
||||||
match_all = (str, pat, init=0) ->
|
|
||||||
s,e = str\find(pat, init)
|
|
||||||
if s then
|
|
||||||
return str\sub(s,e), match_all(str, pat, e+1)
|
|
||||||
match_lines = (str) -> match_all(str, '[^\n]+')
|
|
||||||
|
|
||||||
-- ┌──────────────────┐
|
|
||||||
-- │ Actual Functions │
|
|
||||||
-- └──────────────────┘
|
|
||||||
|
|
||||||
tree = (tab, pref='') ->
|
|
||||||
print tab.title and tab.title or '┐'
|
|
||||||
|
|
||||||
for idx, element in ipairs tab
|
|
||||||
last = idx == #tab
|
|
||||||
first = idx == 1
|
|
||||||
io.write pref
|
|
||||||
io.write last and "└─" or "├─"
|
|
||||||
switch type element
|
|
||||||
when "table"
|
|
||||||
tree element, pref .. (last and ' ' or '│ ')
|
|
||||||
else
|
|
||||||
print tostring element
|
|
||||||
|
|
||||||
pad = (str='', len) ->
|
|
||||||
str..string.rep(" ", len-#str)
|
|
||||||
|
|
||||||
import max from math
|
|
||||||
|
|
||||||
chktbl = (obj) -> error("Object is not a table", 2) if type(obj) ~= 'table'
|
|
||||||
to_tab = (obj) -> type(obj)=='table' and obj or {match_lines tostring obj}
|
|
||||||
|
|
||||||
tab = (rows) ->
|
|
||||||
-- Get Measurements
|
|
||||||
chktbl(rows)
|
|
||||||
width = {}
|
|
||||||
height = {}
|
|
||||||
for row, fields in ipairs rows
|
|
||||||
chktbl(fields)
|
|
||||||
height[row] = 1
|
|
||||||
for col, lines in ipairs fields
|
|
||||||
lines = to_tab lines
|
|
||||||
height[row] = max(height[row], #lines)
|
|
||||||
for line in *lines do
|
|
||||||
width[col] = max(width[col] or 1, #line)
|
|
||||||
fields[col] = lines
|
|
||||||
bars = [string.rep('─', i+2) for i in *width]
|
|
||||||
-- Top Line
|
|
||||||
print '┌'..table.concat(bars, '┬')..'┐'
|
|
||||||
-- Rows
|
|
||||||
for row, fields in ipairs rows
|
|
||||||
for line=1,height[row]
|
|
||||||
io.write '│' -- Outer Left Border
|
|
||||||
for col, lines in ipairs fields
|
|
||||||
io.write ' '..pad(lines[line], width[col])..' '
|
|
||||||
io.write '│' if col < #fields
|
|
||||||
print '│' -- Outer Left Border
|
|
||||||
print '├'..table.concat(bars, '┼')..'┤' unless row == #rows
|
|
||||||
print '└'..table.concat(bars, '┴')..'┘'
|
|
||||||
|
|
||||||
col = (col) -> tab([{elem} for elem in *col])
|
|
||||||
row = (row) -> tab{row}
|
|
||||||
box = (box) -> tab{{box}}
|
|
||||||
|
|
||||||
line = (len=80) -> print string.rep('─', len)
|
|
||||||
line2 = (len=80) ->
|
|
||||||
error('Length must be at least 2 characters', 2) if len < 2
|
|
||||||
print '┌'..string.rep('─', len-2)..'┐'
|
|
||||||
print '└'..string.rep('─', len-2)..'┘'
|
|
||||||
|
|
||||||
{
|
|
||||||
:tree, :box, :tab, :col, :row, :line, :line2
|
|
||||||
-- Aliases
|
|
||||||
table: tab
|
|
||||||
}
|
|
Loading…
Reference in a new issue