ANSI writer: use black rather than green for headings.

src/Text/Pandoc/Writers/ANSI.hs

@@ -134,17 +134,14 @@ blockToANSI _ HorizontalRule = return $ D.blankline $$ hr $$ D.blankline
 
 blockToANSI opts (Header level (_, classes, kvs) inlines) = do
   contents <- inlineListToANSI opts inlines
-  inner <- gets stInner
   let secnum = fromMaybe mempty $ lookup "number" kvs
   let doNumber = writerNumberSections opts && not (T.null secnum) && "unnumbered" `notElem` classes
   let number | doNumber = D.hang (D.realLength secnum + 1) (header level (D.literal secnum) <> D.space)
              | otherwise = id
-  return $ number (color inner (header level contents)) $$ D.blankline where
+  return $ number (header level contents) $$ D.blankline where
     header 1 = (fmap T.toUpper) . D.bold
     header 2 = D.bold
     header _ = D.italic
-    color False = D.fg D.green
-    color True = id
 
 -- The approach to code blocks and highlighting here is a best-effort with
 -- existing tools. The Skylighting formatANSI function produces fully-rendered

test/ansi-test.ansi

@@ -1,20 +1,20 @@
-LEVEL 1 HEADING
+LEVEL 1 HEADING
 
 Text
 
-Level 2 heading
+Level 2 heading
 
 Text
 
-Level 3 heading
+Level 3 heading
 
 Text
 
-Level 4 heading
+Level 4 heading
 
 Text
 
-Level 5 heading
+Level 5 heading
 
 Text
 
@@ -73,7 +73,7 @@ Footnote¹
 Multiple blocks in a cell
 
 ────────────────── ─────────── ────────────
-COL 1              COL 2       COL 3
+COL 1              COL 2       COL 3
                                
 col 1              col 2       col 3
 r1 a               • b         c c 2 c 2