diff options
| author | defanor <defanor@uberspace.net> | 2017-12-21 22:28:32 +0300 |
|---|---|---|
| committer | defanor <defanor@uberspace.net> | 2017-12-21 22:28:32 +0300 |
| commit | ac6545eb9bd697291a18ef5164653b77cb587047 (patch) | |
| tree | 94328c8d198081dff1901d7a578d6569e190a26a | |
| parent | b32900a7d426f06ee1bd2f69d8cf7899034f5470 (diff) | |
Store breadcrumbs/positions for definition lists
| -rw-r--r-- | Pancake/Rendering.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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) |