diff options
| author | John MacFarlane <jgm@berkeley.edu> | 2020-11-19 09:33:29 -0800 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2020-11-19 09:33:29 -0800 |
| commit | e16df8d2718d3a2901c6ac0d7f35165755cde89f (patch) | |
| tree | 5c188be920c9db72cb44545a594aa0afa9b080a9 /src | |
| parent | 6b057d6d18868bb481134a448c08e70474cde473 (diff) | |
| download | pandoc-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')
| -rw-r--r-- | src/Text/Pandoc/Readers/DocBook.hs | 4 |
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) |