From 276d896c282a9c692507f20dac25569149d31c9f Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 6 Nov 2023 15:06:40 +0000
Subject: Use (term ansi-color) for colors.

* build-aux/test-driver.scm (color): Use colorize-string from (term
ansi-color).
* ccwl/ui.scm (report-formatted-message, source-in-context,
report-ccwl-violation): Use colorize-string from (term ansi-color).
(color, bold, red, magenta): Delete functions.
---
 build-aux/test-driver.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

(limited to 'build-aux')

diff --git a/build-aux/test-driver.scm b/build-aux/test-driver.scm
index 8fc5236..adac481 100644
--- a/build-aux/test-driver.scm
+++ b/build-aux/test-driver.scm
@@ -28,16 +28,17 @@
 (use-modules (ice-9 format)
              (ice-9 match)
              (srfi srfi-26)
-             (srfi srfi-64))
+             (srfi srfi-64)
+             (term ansi-color))
 
-(define (color code str color?)
+(define (color color-symbol str color?)
   (if color?
-      (format #f "~a[~am~a~a[0m" #\esc code str #\esc)
+      (colorize-string str color-symbol)
       str))
 
-(define red (cut color 31 <> <>))
-(define green (cut color 32 <> <>))
-(define magenta (cut color 35 <> <>))
+(define red (cut color 'RED <> <>))
+(define green (cut color 'GREEN <> <>))
+(define magenta (cut color 'MAGENTA <> <>))
 
 (define (my-gnu-runner color?)
   (let ((runner (test-runner-null)))
-- 
cgit v1.2.3