aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-04-25 23:07:30 +0200
committerJohn MacFarlane <jgm@berkeley.edu>2017-04-25 23:07:30 +0200
commit66b08391b38b0812112ff03d7610d4592c3a1017 (patch)
tree6855f95891085143e0aaa7c3272f8d0d41c49968 /src/Text/Pandoc
parentee160d7c4cc912554fe0a1c7ff9fb802e9e72b64 (diff)
downloadpandoc-66b08391b38b0812112ff03d7610d4592c3a1017.tar.gz
HTML line block: Use class instead of style attribute.
We now issue `<div class="line-block">` and include a default definition for `line-block` in the default templates, instead of hard-coding a `style` on the div. Closes #1623.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/HTML.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/HTML.hs b/src/Text/Pandoc/Writers/HTML.hs
index d56a6e4ae..9f41f77d1 100644
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@@ -600,7 +600,7 @@ blockToHtml opts (LineBlock lns) =
else do
let lf = preEscapedString "\n"
htmlLines <- mconcat . intersperse lf <$> mapM (inlineListToHtml opts) lns
- return $ H.div ! A.style "white-space: pre-line;" $ htmlLines
+ return $ H.div ! A.class_ "line-block" $ htmlLines
blockToHtml opts (Div attr@(ident, classes, kvs) bs) = do
html5 <- gets stHtml5
let speakerNotes = "notes" `elem` classes