diff options
| -rw-r--r-- | src/Text/Pandoc/Writers/ConTeXt.hs | 4 | ||||
| m--------- | templates | 10 |
2 files changed, 7 insertions, 7 deletions
diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index ad27daffe..58cba268f 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -76,6 +76,7 @@ pandocToConTeXt options (Pandoc (Meta title authors date) blocks) = do , ("body", main) , ("title", titletext) , ("date", datetext) ] ++ + [ ("number-sections", "yes") | writerNumberSections options ] ++ [ ("author", a) | a <- authorstext ] return $ if writerStandalone options then renderTemplate context $ writerTemplate options @@ -175,11 +176,10 @@ blockToConTeXt (Header level lst) = do contents <- inlineListToConTeXt lst st <- get let opts = stOptions st - let base = if writerNumberSections opts then "section" else "subject" let level' = if writerChapters opts then level - 1 else level return $ if level' >= 1 && level' <= 5 then char '\\' <> text (concat (replicate (level' - 1) "sub")) <> - text base <> char '{' <> contents <> char '}' <> blankline + text "section" <> char '{' <> contents <> char '}' <> blankline else if level' == 0 then "\\chapter{" <> contents <> "}" else contents <> blankline diff --git a/templates b/templates -Subproject 88ec0260641e994069fa1b2c1912306c515420f +Subproject 5dcdf3738f0469143bb61ec9b89e9b34a21e219 |