diff options
Diffstat (limited to 'src/Text/Pandoc/Writers/Docbook.hs')
-rw-r--r-- | src/Text/Pandoc/Writers/Docbook.hs | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/Text/Pandoc/Writers/Docbook.hs b/src/Text/Pandoc/Writers/Docbook.hs index 278bbdcc8..5321d46df 100644 --- a/src/Text/Pandoc/Writers/Docbook.hs +++ b/src/Text/Pandoc/Writers/Docbook.hs @@ -80,7 +80,8 @@ writeDocbook opts (Pandoc meta blocks) = then Just $ writerColumns opts else Nothing render' = render colwidth - opts' = if ("/book>" `isSuffixOf` (trimr $ writerTemplate opts) && + opts' = if (maybe False (("/book>" `isSuffixOf`) . trimr) + (writerTemplate opts) && TopLevelDefault == writerTopLevelDivision opts) then opts{ writerTopLevelDivision = TopLevelChapter } else opts @@ -103,9 +104,9 @@ writeDocbook opts (Pandoc meta blocks) = MathML _ -> True _ -> False) $ metadata - in if writerStandalone opts - then renderTemplate' (writerTemplate opts) context - else main + in case writerTemplate opts of + Nothing -> main + Just tpl -> renderTemplate' tpl context -- | Convert an Element to Docbook. elementToDocbook :: WriterOptions -> Int -> Element -> Doc |