ConTeXt writer:

+ Don't use \(sub)+subject if header level > 5.
+ Modified tests to conform to new treatment of level 4 and 5 headers.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@1083 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 4 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Writers/ConTeXt.hs b/src/Text/Pandoc/Writers/ConTeXt.hs
index 871748e98..e2e240d33 100644
--- a/src/Text/Pandoc/Writers/ConTeXt.hs
+++ b/src/Text/Pandoc/Writers/ConTeXt.hs
@@ -163,8 +163,10 @@ 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 $ char '\\' <> text (concat (replicate (level - 1) "sub")) <> 
-           text base <> char '{' <> contents <> char '}' <> char '\n'
+  return $ if level >= 1 && level <= 5
+              then char '\\' <> text (concat (replicate (level - 1) "sub")) <> 
+                   text base <> char '{' <> contents <> char '}' <> char '\n'
+              else contents <> char '\n'
 blockToConTeXt opts (Table caption aligns widths heads rows) = do
     let colWidths = map printDecimal widths
     let colDescriptor colWidth alignment = (case alignment of