From 112bfa20a8b8690521eeecc939647d1bdaae4753 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Wed, 8 Nov 2017 13:57:40 +0300
Subject: Colorize code inlines and blocks

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

(limited to 'Pancake/Rendering.hs')

diff --git a/Pancake/Rendering.hs b/Pancake/Rendering.hs
index c8922cf..cada6d3 100644
--- a/Pancake/Rendering.hs
+++ b/Pancake/Rendering.hs
@@ -267,7 +267,7 @@ readInline (P.Quoted P.DoubleQuote s) = wrappedInlines "“" "”" s
 readInline (P.Cite _ s) = concat <$> mapM readInline s
 readInline (P.Code attr s) = do
   storeAttr attr
-  pure . map fromString $ intersperse "\n" $ lines s
+  pure . map (Fg Green . fromString) $ intersperse "\n" $ lines s
 readInline P.Space = pure [" "]
 readInline P.SoftBreak = pure [" "]
 readInline P.LineBreak = pure ["\n"]
@@ -321,7 +321,7 @@ renderBlock (P.LineBlock i) =
   indented =<< concat <$> mapM (mapM readInline) i
 renderBlock (P.CodeBlock attr s) = do
   storeAttr attr
-  indented $ map (pure . fromString) $ lines s
+  indented $ map (pure . Fg Green . fromString) $ lines s
 renderBlock (P.RawBlock _ s) =
   indented $ map (pure . fromString) $ lines s
 renderBlock (P.BlockQuote bs) = renderBlocks bs
-- 
cgit v1.2.3