aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2020-11-19 09:33:29 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2020-11-19 09:33:29 -0800
commite16df8d2718d3a2901c6ac0d7f35165755cde89f (patch)
tree5c188be920c9db72cb44545a594aa0afa9b080a9 /src/Text/Pandoc/Readers
parent6b057d6d18868bb481134a448c08e70474cde473 (diff)
downloadpandoc-e16df8d2718d3a2901c6ac0d7f35165755cde89f.tar.gz
DocBook reader: drop period in formalpara title...
...and put it in a div with class `formalpara-title`, so that people can reformat with filters. Closes #6562. Thanks to rdmuller.
Diffstat (limited to 'src/Text/Pandoc/Readers')
-rw-r--r--src/Text/Pandoc/Readers/DocBook.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Readers/DocBook.hs b/src/Text/Pandoc/Readers/DocBook.hs
index 115ac617c..5ba48e704 100644
--- a/src/Text/Pandoc/Readers/DocBook.hs
+++ b/src/Text/Pandoc/Readers/DocBook.hs
@@ -782,8 +782,8 @@ parseBlock (Elem e) =
"para" -> parseMixed para (elContent e)
"formalpara" -> do
tit <- case filterChild (named "title") e of
- Just t -> para . strong . (<> str ".") <$>
- getInlines t
+ Just t -> divWith ("",["formalpara-title"],[]) .
+ para . strong <$> getInlines t
Nothing -> return mempty
(tit <>) <$> parseMixed para (elContent e)
"simpara" -> parseMixed para (elContent e)