From 0794862aacdb5d28616dadc3d681a63c36251212 Mon Sep 17 00:00:00 2001
From: Albert Krewinkel <albert@zeitkraut.de>
Date: Sat, 15 May 2021 16:36:13 +0200
Subject: [PATCH] HTML writer: parse `<header>` as a Div
HTML5 `<header>` elements are treated like `<div>` elements.
---
src/Text/Pandoc/Readers/HTML.hs | 2 ++
test/Tests/Readers/HTML.hs | 14 +++++++++-----
2 files changed, 11 insertions(+), 5 deletions(-)
diff --git a/src/Text/Pandoc/Readers/HTML.hs b/src/Text/Pandoc/Readers/HTML.hs
index b305de7b5..0a9e4addf 100644
--- a/src/Text/Pandoc/Readers/HTML.hs
+++ b/src/Text/Pandoc/Readers/HTML.hs
@@ -205,6 +205,7 @@ block = ((do
| otherwise
-> pDiv
"section" -> pDiv
+ "header" -> pDiv
"main" -> pDiv
"figure" -> pFigure
"iframe" -> pIframe
@@ -404,6 +405,7 @@ pLineBlock = try $ do
isDivLike :: Text -> Bool
isDivLike "div" = True
isDivLike "section" = True
+isDivLike "header" = True
isDivLike "main" = True
isDivLike _ = False
diff --git a/test/Tests/Readers/HTML.hs b/test/Tests/Readers/HTML.hs
index f23af2cb1..7f5849991 100644
--- a/test/Tests/Readers/HTML.hs
+++ b/test/Tests/Readers/HTML.hs
@@ -99,11 +99,15 @@ tests = [ testGroup "base tag"
plain (codeWith ("",["sample"],[]) "Answer is 42")
]
, testGroup "var"
- [
- test html "inline var block" $
- "<var>result</var>" =?>
- plain (codeWith ("",["variable"],[]) "result")
- ]
+ [ test html "inline var block" $
+ "<var>result</var>" =?>
+ plain (codeWith ("",["variable"],[]) "result")
+ ]
+ , testGroup "header"
+ [ test htmlNativeDivs "<header> is parsed as a div" $
+ "<header id=\"title\">Title</header>" =?>
+ divWith ("title", mempty, mempty) (plain "Title")
+ ]
, askOption $ \(QuickCheckTests numtests) ->
testProperty "Round trip" $
withMaxSuccess (if QuickCheckTests numtests == defaultValue