diff options
author | defanor <defanor@uberspace.net> | 2017-11-02 14:41:10 +0300 |
---|---|---|
committer | defanor <defanor@uberspace.net> | 2017-11-02 14:41:10 +0300 |
commit | 840a96dec37e3d2847cb038a5aa3843a867b4fd8 (patch) | |
tree | b634fe2715bdf85a383b2b84f19bdb630309f126 /Pancake.hs | |
parent | ef753eb1aa1c7370299ba7fa46652758c5adaab2 (diff) |
Colorize horizontal rules
Diffstat (limited to 'Pancake.hs')
-rw-r--r-- | Pancake.hs | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 |