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.

1 files changed, 7 insertions, 6 deletions

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)))