diff options
| author | Florian Beeres <yuuki@protonmail.com> | 2019-11-11 17:55:58 +0100 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2019-11-11 08:55:58 -0800 |
| commit | bf2eb4f288df5d5b5e054cdc4ffa3b3c4dd187fa (patch) | |
| tree | f49ab82d214ec4bd4badf8e67d89362d8c70a10a /src/Text/Pandoc/Shared.hs | |
| parent | 3bf53628984a91d9456d40b1202e9d15f1ad3088 (diff) | |
| download | pandoc-bf2eb4f288df5d5b5e054cdc4ffa3b3c4dd187fa.tar.gz | |
Change the implementation of `htmlSpanLikeElements` and implement `<dfn>` (#5882)
* Add HTML Reader support for `<dfn>`, parsing this as a Span with class `dfn`.
* Change `htmlSpanLikeElements` implementation to retain classes,
attributes and inline content.
Diffstat (limited to 'src/Text/Pandoc/Shared.hs')
| -rw-r--r-- | src/Text/Pandoc/Shared.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Shared.hs b/src/Text/Pandoc/Shared.hs index ff97d16fb..797a0a0b0 100644 --- a/src/Text/Pandoc/Shared.hs +++ b/src/Text/Pandoc/Shared.hs @@ -702,7 +702,7 @@ underlineSpan = B.spanWith ("", ["underline"], []) -- | Set of HTML elements that are represented as Span with a class equal as -- the element tag itself. htmlSpanLikeElements :: Set.Set T.Text -htmlSpanLikeElements = Set.fromList [T.pack "kbd", T.pack "mark"] +htmlSpanLikeElements = Set.fromList [T.pack "kbd", T.pack "mark", T.pack "dfn"] -- | Returns the first sentence in a list of inlines, and the rest. breakSentence :: [Inline] -> ([Inline], [Inline]) |