Denote headings

1 files changed, 5 insertions, 5 deletions

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 $