diff options
author | Albert Krewinkel <albert@zeitkraut.de> | 2021-10-27 22:24:39 +0200 |
---|---|---|
committer | Albert Krewinkel <albert@zeitkraut.de> | 2021-10-27 22:32:19 +0200 |
commit | 7fcf1d61843cde87627b09730fbad01c7a9031be (patch) | |
tree | c0eb0214328a898932755ac110ec97b1887ea7e7 | |
parent | 25a86fc06fd5d7e07251ca9bd758cc42c4234d70 (diff) | |
download | pandoc-7fcf1d61843cde87627b09730fbad01c7a9031be.tar.gz |
Lua: re-add `t` and `tag` property to Attr values
Removal of these properties from Attr values was a regression.
-rw-r--r-- | src/Text/Pandoc/Lua/Marshaling/Attr.hs | 4 | ||||
-rw-r--r-- | test/lua/module/pandoc.lua | 7 |
2 files changed, 11 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Lua/Marshaling/Attr.hs b/src/Text/Pandoc/Lua/Marshaling/Attr.hs index 1b35e40ad..f69acc61e 100644 --- a/src/Text/Pandoc/Lua/Marshaling/Attr.hs +++ b/src/Text/Pandoc/Lua/Marshaling/Attr.hs @@ -56,6 +56,10 @@ typeAttr = deftype "Attr" ### return <#> parameter peekAttr "attr" "Attr" "" =#> functionResult pushAttr "Attr" "new Attr element" + , readonly "tag" "element type tag (always 'Attr')" + (pushText, const "Attr") + + , alias "t" "alias for `tag`" ["tag"] ] pushAttr :: LuaError e => Pusher e Attr diff --git a/test/lua/module/pandoc.lua b/test/lua/module/pandoc.lua index 9b6e360f3..9d0663696 100644 --- a/test/lua/module/pandoc.lua +++ b/test/lua/module/pandoc.lua @@ -40,6 +40,13 @@ return { end ) }, + group 'Properties' { + test('has t and tag property', function () + local attr = pandoc.Attr('') + assert.are_equal(attr.t, 'Attr') + assert.are_equal(attr.tag, 'Attr') + end) + }, group 'AttributeList' { test('allows access via fields', function () local attributes = pandoc.Attr('', {}, {{'a', '1'}, {'b', '2'}}).attributes |