From 4c9a85b821e497165821ff4125a23472d6eb2c96 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sat, 17 Nov 2007 23:26:51 +0000 Subject: Modified ConTeXt writer to use \subsubsubsubsection etc., since these are supported (up to at least sub x 5). git-svn-id: https://pandoc.googlecode.com/svn/trunk@1082 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/Text/Pandoc/Writers/ConTeXt.hs | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) (limited to 'src/Text/Pandoc/Writers/ConTeXt.hs') diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs index 40cd721c6..871748e98 100644 --- a/src/Text/Pandoc/Writers/ConTeXt.hs +++ b/src/Text/Pandoc/Writers/ConTeXt.hs @@ -163,10 +163,8 @@ blockToConTeXt opts HorizontalRule = return $ text "\\thinrule\n" blockToConTeXt opts (Header level lst) = do contents <- inlineListToConTeXt opts lst let base = if writerNumberSections opts then "section" else "subject" - return $ if level > 0 && level <= 3 - then char '\\' <> text (concat (replicate (level - 1) "sub")) <> - text base <> char '{' <> contents <> char '}' <> char '\n' - else contents <> char '\n' + return $ char '\\' <> text (concat (replicate (level - 1) "sub")) <> + text base <> char '{' <> contents <> char '}' <> char '\n' blockToConTeXt opts (Table caption aligns widths heads rows) = do let colWidths = map printDecimal widths let colDescriptor colWidth alignment = (case alignment of -- cgit v1.2.3