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

Muse writer: improve span writing

Browse source 
Test more cases when span has or hasn't anchor, class and contents in different combinations.
This commit is contained in:
Alexander Krotov 2018-03-25 01:18:33 +03:00
parent d58b961a6d
commit 4a8993f9b0
2 changed files with 13 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/Text/Pandoc/Writers/Muse.hs
View file

@ -441,6 +441,8 @@ inlineToMuse (Span (anchor,names,_) inlines) = do
let anchorDoc = if null anchor
then mempty
else text ('#':anchor) <> space
return $ anchorDoc <> if null names
then contents
else "<class name=\"" <> text (head names) <> "\">" <> contents <> "</class>"
return $ anchorDoc <> (if null inlines && not (null anchor)
then mempty
else (if null names
then "<class>"
else "<class name=\"" <> text (head names) <> "\">") <> contents <> "</class>")

10
test/Tests/Writers/Muse.hs
View file

@ -400,9 +400,15 @@ tests = [ testGroup "block elements"
, "[1] Foo"
]
, "span with class" =: spanWith ("",["foobar"],[]) (text "Some text")
=?> "<class name=\"foobar\">Some text</class>"
, "span with anchor" =: spanWith ("anchor", [], []) (text "Foo bar")
=?> "<class name=\"foobar\">Some text</class>"
, "span without class" =: spanWith ("",[],[]) (text "Some text")
=?> "<class>Some text</class>"
, "span with anchor" =: spanWith ("anchor", [], []) (mempty) <> (text "Foo bar")
=?> "#anchor Foo bar"
, "empty span with anchor" =: spanWith ("anchor", [], []) (mempty)
=?> "#anchor"
, "empty span without class and anchor" =: spanWith ("", [], []) (mempty)
=?> "<class><verbatim></verbatim></class>"
, "span with class and anchor" =: spanWith ("anchor", ["foo"], []) (text "bar")
=?> "#anchor <class name=\"foo\">bar</class>"
, "adjacent spans" =: spanWith ("", ["syllable"], []) (str "wa") <>