From 6ca97c245713ea6ba83a3cd1d3c9873bac6bcd99 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Wed, 8 Nov 2017 13:05:35 +0300
Subject: Denote headings

---
 Pancake/Rendering.hs | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'Pancake/Rendering.hs')

diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs
index e88a9ad..0794616 100644
--- a/Pancake/Rendering.hs
+++ b/Pancake/Rendering.hs
@@ -37,6 +37,7 @@ data Listing = Bulleted
 
 data Denotation = Link URI
                 | Math String
+                | Heading Int
                 deriving (Show, Eq)
 
 -- | A styled string.
@@ -339,11 +340,10 @@ renderBlock (P.DefinitionList dl) =
   in mapM_ renderDefinition dl
 renderBlock (P.Header level attr i) = do
   storeAttr attr
-  strings <- readInlines i
-  storeLines [[""]]
-  indented $ map (map (Fg Green) . ([fromString (replicate level '#'), " "] ++)
-                  . map (Bold . Underline)) strings
-  storeLines [[""]]
+  indented =<< map (map (Denote (Heading level) . Fg Green)
+                    . ([fromString (replicate level '#'), " "] ++)
+                    . map (Bold . Underline))
+    <$> readInlines i
 renderBlock P.HorizontalRule = do
   st <- get
   indented [[Fg Black $
-- 
cgit v1.2.3