From b0d552ffe3e336606de907897181a0f0718b3149 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@hornquist.se>
Date: Sat, 1 Jun 2019 21:56:52 +0200
Subject: Reword terminal output to better modularization.

---
 module/vcomponent/output.scm | 14 +-------------
 1 file changed, 1 insertion(+), 13 deletions(-)

(limited to 'module/vcomponent')

diff --git a/module/vcomponent/output.scm b/module/vcomponent/output.scm
index db4d4f33..77ca2ffb 100644
--- a/module/vcomponent/output.scm
+++ b/module/vcomponent/output.scm
@@ -7,19 +7,7 @@
   #:use-module (srfi srfi-26)
   #:use-module (ice-9 format)
   #:export (print-vcomponent
-            serialize-vcomponent
-            color-if
-            STR-YELLOW STR-RESET))
-
-(define STR-YELLOW "\x1b[0;33m")
-(define STR-RESET "\x1b[m")
-
-(define-syntax-rule (color-if pred color body ...)
-  (let ((pred-value pred))
-    (format #f "~a~a~a"
-            (if pred-value color "")
-            (begin body ...)
-            (if pred-value STR-RESET ""))))
+            serialize-vcomponent))
 
 (define* (print-vcomponent comp #:optional (port #t) #:key (descend? #t) (depth 0))
   (let ((kvs (map (lambda (key) (cons key (attr* comp key)))
-- 
cgit v1.2.3