@@ -163,10 +163,8 @@ blockToConTeXt opts HorizontalRule = return $ text "\\thinrule\n"
163blockToConTeXt opts (Header level lst) = do
163blockToConTeXt opts (Header level lst) = do
164 contents <- inlineListToConTeXt opts lst
164 contents <- inlineListToConTeXt opts lst
165 let base = if writerNumberSections opts then "section" else "subject"
165 let base = if writerNumberSections opts then "section" else "subject"
166− return $ if level > 0 && level <= 3
167− then char '\\' <> text (concat (replicate (level - 1) "sub")) <>
166+ return $ char '\\' <> text (concat (replicate (level - 1) "sub")) <>
168− text base <> char '{' <> contents <> char '}' <> char '\n'
167+ text base <> char '{' <> contents <> char '}' <> char '\n'
169− else contents <> char '\n'
170blockToConTeXt opts (Table caption aligns widths heads rows) = do
168blockToConTeXt opts (Table caption aligns widths heads rows) = do
171 let colWidths = map printDecimal widths
169 let colWidths = map printDecimal widths
172 let colDescriptor colWidth alignment = (case alignment of
170 let colDescriptor colWidth alignment = (case alignment of