diff options
| author | Jan Tojnar <jtojnar@gmail.com> | 2021-06-05 14:16:44 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2021-06-05 08:02:21 -0600 |
| commit | af9de925de4a441f4c45a977363f9a56589f57bc (patch) | |
| tree | f5c703dfb48842c5592f4ee968eb226a09611914 /src/Text/Pandoc/Writers/Docbook.hs | |
| parent | b6c04383e403b0962db09e6748760d3ec376f2ed (diff) | |
| download | pandoc-af9de925de4a441f4c45a977363f9a56589f57bc.tar.gz | |
DocBook writer: Remove non-existent admonitions
attention, error and hint are actually just reStructuredText specific.
danger was too until introduced in DocBook 5.2: https://github.com/docbook/docbook/issues/55
Diffstat (limited to 'src/Text/Pandoc/Writers/Docbook.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Docbook.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs index 25bd308bf..33a6f5f0c 100644 --- a/src/Text/Pandoc/Writers/Docbook.hs +++ b/src/Text/Pandoc/Writers/Docbook.hs @@ -198,8 +198,7 @@ blockToDocbook opts (Div (id',"section":_,_) (Header lvl (_,_,attrs) ils : xs)) blockToDocbook opts (Div (ident,classes,_) bs) = do version <- ask let identAttribs = [(idName version, ident) | not (T.null ident)] - admonitions = ["attention","caution","danger","error","hint", - "important","note","tip","warning"] + admonitions = ["caution","danger","important","note","tip","warning"] case classes of (l:_) | l `elem` admonitions -> do let (mTitleBs, bodyBs) = |