git.iko.soy/typeable/pandoc
on master help sign in
Org reader: use tag-name attribute instead of data-tag-name.
96933c6John MacFarlane
src/Text/Pandoc/Readers/Org/DocumentTree.hs+1−1
compare with master
unifiedsplit
@@ -274,7 +274,7 @@ tagsToInlines tags =
274
274
275-- | Wrap the given inline in a span, marking it as a tag.
275-- | Wrap the given inline in a span, marking it as a tag.
276tagSpan :: Tag -> Inlines -> Inlines
276tagSpan :: Tag -> Inlines -> Inlines
277−tagSpan t = B.spanWith ("", ["tag"], [("data-tag-name", fromTag t)])
277+tagSpan t = B.spanWith ("", ["tag"], [("tag-name", fromTag t)])
278
278
279
279
280
280
test/Tests/Readers/Org.hs+1−1
@@ -32,7 +32,7 @@ simpleTable' n = table "" (replicate n (AlignDefault, 0.0))
32
32
33-- | Create a span for the given tag.
33-- | Create a span for the given tag.
34tagSpan :: String -> Inlines
34tagSpan :: String -> Inlines
35−tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) . smallcaps $ str t
35+tagSpan t = spanWith ("", ["tag"], [("tag-name", t)]) . smallcaps $ str t
36
36
37tests :: [TestTree]
37tests :: [TestTree]
38tests =
38tests =