From 0bca972ee68bd673a6a4b928f55ccce9c513d05a Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Thu, 2 Nov 2017 15:21:01 +0300
Subject: Prefix headers

---
 Pancake.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'Pancake.hs')

diff --git a/Pancake.hs b/Pancake.hs
index d136509..0c15648 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -433,11 +433,12 @@ renderBlock (P.DefinitionList dl) =
         indented =<< readInlines term
         mapM_ renderBlocks definition
   in mapM_ renderDefinition dl
-renderBlock (P.Header _ attr i) = do
+renderBlock (P.Header level attr i) = do
   storeAttr attr
   strings <- readInlines i
   storeLines [[""]]
-  indented $ map (map $ Fg Green . Main.Bold . Main.Underline) strings
+  indented $ map (map (Fg Green) . ([fromString (replicate level '#'), " "] ++)
+                  . (map (Main.Bold . Main.Underline))) strings
   storeLines [[""]]
 renderBlock P.HorizontalRule = do
   st <- get
-- 
cgit v1.2.3