git.iko.soy/typeable/pandoc
on master help sign in
Org reader: use tag-name attribute instead of data-tag-name.
commit96933c60432276fcbe2e24163868fffb138e6a11 authorJohn MacFarlane <jgm@berkeley.edu> dateWed 9 Aug 2017, 09:26 (9 years ago) parent09b7df4
2 files changed+2−2
src/Text/Pandoc/Readers/Org/DocumentTree.hs+1−1 test/Tests/Readers/Org.hs+1−1
src/Text/Pandoc/Readers/Org/DocumentTree.hs+1−1
@@ -274,7 +274,7 @@ tagsToInlines tags =
274274
275275-- | Wrap the given inline in a span, marking it as a tag.
276276tagSpan :: Tag -> Inlines -> Inlines
277−tagSpan t = B.spanWith ("", ["tag"], [("data-tag-name", fromTag t)])
277+tagSpan t = B.spanWith ("", ["tag"], [("tag-name", fromTag t)])
278278
279279
280280
test/Tests/Readers/Org.hs+1−1
@@ -32,7 +32,7 @@ simpleTable' n = table "" (replicate n (AlignDefault, 0.0))
3232
3333-- | Create a span for the given tag.
3434tagSpan :: 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
3636
3737tests :: [TestTree]
3838tests =