From 840a96dec37e3d2847cb038a5aa3843a867b4fd8 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Thu, 2 Nov 2017 14:41:10 +0300
Subject: Colorize horizontal rules

---
 Pancake.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'Pancake.hs')

diff --git a/Pancake.hs b/Pancake.hs
index a9a972e..d136509 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -441,7 +441,8 @@ renderBlock (P.Header _ attr i) = do
   storeLines [[""]]
 renderBlock P.HorizontalRule = do
   st <- get
-  indented [[fromString $ replicate (columns st - indentationLevel st * 2) '-']]
+  indented [[Fg Black $
+             fromString $ replicate (columns st - indentationLevel st * 2) '-']]
 renderBlock (P.Table caption _ widths headers rows) = do
   -- todo: don't ignore alignments
   indented =<< readInlines caption
-- 
cgit v1.2.3