1 files changed, 1 insertions, 13 deletions
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)))