From e4df4da06254873191e548d6a2ad4144cbd8cb23 Mon Sep 17 00:00:00 2001 From: staticvoid Date: Mon, 27 Jun 2022 20:17:32 +0300 Subject: [PATCH] Render ThematicBreak wider --- app/Polysemy/Commonmark/AST.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/app/Polysemy/Commonmark/AST.hs b/app/Polysemy/Commonmark/AST.hs index fb314a8..122089b 100644 --- a/app/Polysemy/Commonmark/AST.hs +++ b/app/Polysemy/Commonmark/AST.hs @@ -174,7 +174,8 @@ instance PrintColor Block where printColor i printBlockOne prefix ThematicBreak = do putTextO prefix - putTextLnO "---" + -- TODO: this should depend on terminal width + putTextLnO . fromString $ replicate (80 - T.length prefix) '─' printBlockOne prefix (BlockQuote b) = printBlockP (prefix <> "> ") b printBlockOne prefix (CodeBlock lang content) = do putTextLnO $ prefix <> "```" <> lang