diff options
| -rw-r--r-- | marigold.lua | 27 | ||||
| -rwxr-xr-x | test.lua | 16 |
2 files changed, 42 insertions, 1 deletions
diff --git a/marigold.lua b/marigold.lua index 4f04052..37cbdfb 100644 --- a/marigold.lua +++ b/marigold.lua @@ -1,6 +1,6 @@ -- ANTI-CAPITALIST SOFTWARE LICENSE (v 1.4) -- --- Copyright (c) 2022 Kate Swanson +-- marigold-cgi Copyright (c) 2022 Kate Swanson -- -- This is anti-capitalist software, released for free use by individuals and -- organizations that do not operate by capitalist principles. @@ -84,4 +84,29 @@ marigold.h = function(tag_type, content, tbl) return tag end + +marigold.html = function(tbl, indent_level) + indent_level = indent_level or 0 + + -- generate attribute strings + local attributes = {} + for k, v in pairs(tbl.attributes) do + table.insert(attributes, string.format(' %s="%s"', k, v)) + end + if test then + -- sort alphabetically for well-defined testing + table.sort(attributes) + end + local a = '' + for _, attrib in ipairs(attributes) do + a = a .. attrib + end + + local open = string.format('<%s%s>', tbl.tag, a) + local close = string.format('</%s>', tbl.tag) + + return string.format('%s%s%s', open, tbl.content, close) +end + + return marigold @@ -127,5 +127,21 @@ test("marigold.h correctly sets attributes and children", function() assert(div.children[1].content == 'the first paragraph') assert(div.children[2].tag == 'p') assert(div.children[2].content == 'the second paragraph') +end) + + +test("marigold.html correctly renders basic html table", function() + local tbl = { tag='p', content='some paragraph', attributes={}, children={}} + local html = marigold.html(tbl) + assert(html == '<p>some paragraph</p>') +end) + +test("marigold.html correctly renders tag attributes", function() + local tbl = { + tag='p', content='some paragraph', + attributes={ id='p1', class='blinking bold' }, + children={}} + local html = marigold.html(tbl) + assert(html == '<p class="blinking bold" id="p1">some paragraph</p>') end) |