From 0c8ab2ac62c220073a67843612df12f242621062 Mon Sep 17 00:00:00 2001 From: defanor Date: Wed, 8 Nov 2017 13:35:19 +0300 Subject: Do not underline headings --- Pancake/Rendering.hs | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) (limited to 'Pancake/Rendering.hs') diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs index fa8bdfc..c8922cf 100644 --- a/Pancake/Rendering.hs +++ b/Pancake/Rendering.hs @@ -340,9 +340,8 @@ renderBlock (P.DefinitionList dl) = in mapM_ renderDefinition dl renderBlock (P.Header level attr i) = do storeAttr attr - indented =<< map (map (Denote (Heading level) . Fg Green) - . ([fromString (replicate level '#'), " "] ++) - . map (Bold . Underline)) + indented =<< map (map (Denote (Heading level) . Bold . Fg Green) + . ([fromString (replicate level '#'), " "] ++)) <$> readInlines i renderBlock P.HorizontalRule = do st <- get -- cgit v1.2.3