From f4cde7248aab3046dbd3b5b596f8e19656e2c1e2 Mon Sep 17 00:00:00 2001
From: Lennart Spitzner <hexagoxel@hexagoxel.de>
Date: Fri, 4 Mar 2022 16:26:01 +0000
Subject: [PATCH] hxbrief: Change output colouring (skipped lines)

---
 src-hxbrief/Main.hs | 26 ++++++++++++++++++++++----
 1 file changed, 22 insertions(+), 4 deletions(-)

diff --git a/src-hxbrief/Main.hs b/src-hxbrief/Main.hs
index c8d6c7e..9078508 100644
--- a/src-hxbrief/Main.hs
+++ b/src-hxbrief/Main.hs
@@ -237,9 +237,9 @@ dispatchSkipped oldKind i = do
           ++ show i
           ++ " lines "
           ++ kindStr
-          ++ ")"
+          ++ ") …skipped…"
           ++ fReset
-          ++ " …skipped…\n"
+          ++ "\n"
   conf <- gets s_config
   liftIO $ case oldKind of
     StdOut -> when (c_keepStdout conf /= Drop) $ outputConcurrent prettyPat
@@ -369,7 +369,14 @@ processLine newPair@(kind, _) = execStateT $ do
       Just ((StdOut, line), JoinedAll 1) ->
         (fWhiteDis ++ "│ " ++ fReset ++ ellipse line) : prettyLines
       Just ((StdOut, _line), JoinedAll i) ->
-        (fWhiteDis ++ "│ " ++ fReset ++ "…skipped… (" ++ show i ++ " lines)")
+        (  fWhiteDis
+          ++ "│ "
+          ++ fGrey
+          ++ "…skipped… ("
+          ++ show i
+          ++ " lines)"
+          ++ fReset
+          )
           : prettyLines
       Just ((StdOut, line), Joined 1 _ _) ->
         (fWhiteDis ++ "│ " ++ fReset ++ ellipse line) : prettyLines
@@ -378,9 +385,11 @@ processLine newPair@(kind, _) = execStateT $ do
           ++ "│ "
           ++ fReset
           ++ showPattern pat
+          ++ fGrey
           ++ " ("
           ++ show i
           ++ " lines)"
+          ++ fReset
           )
           : prettyLines
       Just ((StdOut, line), JoinedYield) ->
@@ -392,7 +401,14 @@ processLine newPair@(kind, _) = execStateT $ do
       Just ((StdErr, line), JoinedAll 1) ->
         (fRedDis ++ "│ " ++ fReset ++ ellipse line) : prettyLines
       Just ((StdErr, _line), JoinedAll i) ->
-        (fRedDis ++ "│ " ++ fReset ++ "…skipped… (" ++ show i ++ " lines)")
+        (  fRedDis
+          ++ "│ "
+          ++ fGrey
+          ++ "…skipped… ("
+          ++ show i
+          ++ " lines)"
+          ++ fReset
+          )
           : prettyLines
       Just ((StdErr, line), Joined 1 _ _) ->
         (fRedDis ++ "│ " ++ fReset ++ ellipse line) : prettyLines
@@ -401,9 +417,11 @@ processLine newPair@(kind, _) = execStateT $ do
           ++ "│ "
           ++ fReset
           ++ showPattern pat
+          ++ fGrey
           ++ " ("
           ++ show i
           ++ " lines)"
+          ++ fReset
           )
           : prettyLines
   let showCount = min (c_lines conf) (length prettyLinesWithSummary)