diff options
author | John MacFarlane <jgm@berkeley.edu> | 2017-08-09 09:26:57 -0700 |
---|---|---|
committer | John MacFarlane <jgm@berkeley.edu> | 2017-08-09 09:26:57 -0700 |
commit | 96933c60432276fcbe2e24163868fffb138e6a11 (patch) | |
tree | b29f47bad51f2019a591b7c074fd946c66f3bdb0 | |
parent | 09b7df472dbc171e6130090dfec0f7b71d1d955e (diff) | |
download | pandoc-96933c60432276fcbe2e24163868fffb138e6a11.tar.gz |
Org reader: use tag-name attribute instead of data-tag-name.
-rw-r--r-- | src/Text/Pandoc/Readers/Org/DocumentTree.hs | 2 | ||||
-rw-r--r-- | test/Tests/Readers/Org.hs | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/Org/DocumentTree.hs b/src/Text/Pandoc/Readers/Org/DocumentTree.hs index 743f6cc0e..3b90c9336 100644 --- a/src/Text/Pandoc/Readers/Org/DocumentTree.hs +++ b/src/Text/Pandoc/Readers/Org/DocumentTree.hs @@ -274,7 +274,7 @@ tagsToInlines tags = -- | Wrap the given inline in a span, marking it as a tag. tagSpan :: Tag -> Inlines -> Inlines -tagSpan t = B.spanWith ("", ["tag"], [("data-tag-name", fromTag t)]) +tagSpan t = B.spanWith ("", ["tag"], [("tag-name", fromTag t)]) diff --git a/test/Tests/Readers/Org.hs b/test/Tests/Readers/Org.hs index 45b10da42..1db3d2deb 100644 --- a/test/Tests/Readers/Org.hs +++ b/test/Tests/Readers/Org.hs @@ -32,7 +32,7 @@ simpleTable' n = table "" (replicate n (AlignDefault, 0.0)) -- | Create a span for the given tag. tagSpan :: String -> Inlines -tagSpan t = spanWith ("", ["tag"], [("data-tag-name", t)]) . smallcaps $ str t +tagSpan t = spanWith ("", ["tag"], [("tag-name", t)]) . smallcaps $ str t tests :: [TestTree] tests = |