From 767e20ba7d349ccc067014c3407baf8bb8c29aa7 Mon Sep 17 00:00:00 2001
From: Michael Tuexen <tuexen@fh-muenster.de>
Date: Sun, 12 Dec 2021 19:16:07 +0100
Subject: [PATCH] Only use colors when writing to tty

---
 run-sua-test.c | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/run-sua-test.c b/run-sua-test.c
index 9b49891..89b92a9 100644
--- a/run-sua-test.c
+++ b/run-sua-test.c
@@ -36,10 +36,10 @@
 #define TIMEOUT        0
 #define COMMAND_LENGTH 2048
 
-#define RED(string) "\033[31m"string"\033[0m"
-#define GREEN(string) "\033[32m"string"\033[0m"
-#define YELLOW(string) "\033[33m"string"\033[0m"
-#define BLUE(string) "\033[34m"string"\033[0m"
+#define RED(string) isatty(fileno(stdout))?"\033[31m"string"\033[0m":string
+#define GREEN(string) isatty(fileno(stdout))?"\033[32m"string"\033[0m":string
+#define YELLOW(string) isatty(fileno(stdout))?"\033[33m"string"\033[0m":string
+#define BLUE(string) isatty(fileno(stdout))?"\033[34m"string"\033[0m":string
 
 char command_skel[] =
 "(load-from-path \"%s/.guile\")"