From 65598e789be5db363e16efcbd5c5337b68c739c1 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Wed, 8 Nov 2017 13:30:45 +0300
Subject: Colorize terms in definition lists

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

(limited to 'Pancake/Rendering.hs')

diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs
index b1b5350..fa8bdfc 100644
--- a/Pancake/Rendering.hs
+++ b/Pancake/Rendering.hs
@@ -335,7 +335,7 @@ renderBlock (P.BulletList bs) = do
   modify $ \s -> s { listing = Nothing }
 renderBlock (P.DefinitionList dl) =
   let renderDefinition (term, definition) = do
-        indented =<< readInlines term
+        indented =<< map (map (Fg Yellow)) <$> readInlines term
         mapM_ renderBlocks definition
   in mapM_ renderDefinition dl
 renderBlock (P.Header level attr i) = do
-- 
cgit v1.2.3