Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Lua: allow to compare, show Citation values

Browse source 
Comparisons of Citation values are performed in Haskell; values are
equal if they represent the same Haskell value. Converting a Citation
value to a string now yields its native Haskell string representation.
This commit is contained in:
Albert Krewinkel 2021-11-02 16:49:50 +01:00
parent 3a0ac52f7b
commit 210e4c98b0
No known key found for this signature in database
GPG key ID: 388DC0B21F631124
2 changed files with 28 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
src/Text/Pandoc/Lua/Marshaling/AST.hs
View file

@ -111,7 +111,18 @@ instance Pushable Block where
push = pushBlock
typeCitation :: LuaError e => DocumentedType e Citation
typeCitation = deftype "Citation" []
typeCitation = deftype "Citation"
[ operation Eq $ lambda
### liftPure2 (==)
<#> parameter (optional . peekCitation) "Citation" "a" ""
<#> parameter (optional . peekCitation) "Citation" "b" ""
=#> functionResult pushBool "boolean" "true iff the citations are equal"
, operation Tostring $ lambda
### liftPure show
<#> parameter peekCitation "Citation" "citation" ""
=#> functionResult pushString "string" "native Haskell representation"
]
[ property "id" "citation ID / key"
(pushText, citationId)
(peekText, \citation cid -> citation{ citationId = cid })

16
test/lua/module/pandoc.lua
View file

@ -481,6 +481,22 @@ return {
end)
},
group 'Other types' {
group 'Citation' {
test('checks equality by comparing Haskell values', function()
assert.are_equal(
pandoc.Citation('a', pandoc.NormalCitation),
pandoc.Citation('a', pandoc.NormalCitation)
)
assert.is_falsy(
pandoc.Citation('a', pandoc.NormalCitation) ==
pandoc.Citation('a', pandoc.AuthorInText)
)
assert.is_falsy(
pandoc.Citation('a', pandoc.NormalCitation) ==
pandoc.Citation('b', pandoc.NormalCitation)
)
end),
},
group 'SimpleTable' {
test('can access properties', function ()
local spc = pandoc.Space()