diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2017-04-25 23:07:30 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2017-04-25 23:07:30 +0200 |
| commit | 66b08391b38b0812112ff03d7610d4592c3a1017 (patch) | |
| tree | 6855f95891085143e0aaa7c3272f8d0d41c49968 /src/Text/Pandoc | |
| parent | ee160d7c4cc912554fe0a1c7ff9fb802e9e72b64 (diff) | |
| download | pandoc-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.hs | 2 |
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 |