From ac6545eb9bd697291a18ef5164653b77cb587047 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Thu, 21 Dec 2017 22:28:32 +0300
Subject: Store breadcrumbs/positions for definition lists

---
 Pancake/Rendering.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Pancake')

diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs
index 778d6f7..8c5b900 100644
--- a/Pancake/Rendering.hs
+++ b/Pancake/Rendering.hs
@@ -431,7 +431,7 @@ renderBlock (P.DefinitionList dl) =
   let renderDefinition (term, definition) = do
         indented =<< map (map (Fg Yellow)) <$> readInlines term
         withIndent $ mapM_ renderBlocks definition
-  in mapM_ renderDefinition dl
+  in zipWithM_ (\n -> withBreadcrumb n . renderDefinition) [1..] dl
 renderBlock (P.Header level attr i) = do
   storeAttr attr
   indented =<< map (map (Denote (Heading level) . Bold . Fg Green)
-- 
cgit v1.2.3