@@ -76,6 +76,7 @@ pandocToConTeXt options (Pandoc (Meta title authors date) blocks) = do
7676 , ("body", main)
7777 , ("title", titletext)
7878 , ("date", datetext) ] ++
79+ [ ("number-sections", "yes") | writerNumberSections options ] ++
7980 [ ("author", a) | a <- authorstext ]
8081 return $ if writerStandalone options
8182 then renderTemplate context $ writerTemplate options
@@ -175,11 +176,10 @@ blockToConTeXt (Header level lst) = do
175176 contents <- inlineListToConTeXt lst
176177 st <- get
177178 let opts = stOptions st
178− let base = if writerNumberSections opts then "section" else "subject"
179179 let level' = if writerChapters opts then level - 1 else level
180180 return $ if level' >= 1 && level' <= 5
181181 then char '\\' <> text (concat (replicate (level' - 1) "sub")) <>
182− text base <> char '{' <> contents <> char '}' <> blankline
182+ text "section" <> char '{' <> contents <> char '}' <> blankline
183183 else if level' == 0
184184 then "\\chapter{" <> contents <> "}"
185185 else contents <> blankline