iens

commit 48ba4f3d29de27f06b072cbedafd8820d7d16710
parent 6f6c1e9421fa556fbd122b786ee1067e01d9b0ae
Author: Natasha Kerensikova <natgh@instinctive.eu>
Date:   Sun, 31 Dec 2023 09:29:31 +0000

Add VT100 color to structured outputs
Diffstat:
M
src/iens.scm
 | 
11
+++++++++--

1 file changed, 9 insertions(+), 2 deletions(-)
diff --git a/src/iens.scm b/src/iens.scm
@@ -41,6 +41,9 @@
         (set! cmd-list (cons (list (symbol->string 'name) str first) cmd-list))
         (define (name . args) . rest)))))
 
+(define vt100-entry-header "\033[34m")
+(define vt100-reset        "\033[0m")
+
 ;;;;;;;;;;;;;
 ;; Tracing
 
@@ -313,7 +316,9 @@
         (ptime      (list-ref row 6))
         (ctime      (list-ref row 7))
         (mtime      (list-ref row 8)))
-    (write-line (conc "#" id (if protected? "*" "") " - " url))
+    (write-line (conc vt100-entry-header
+                      "#" id (if protected? "*" "") " - " url
+                      vt100-reset))
     (unless (null? ctime) (write-line (conc "Created   " (rfc-3339 ctime))))
     (unless (null? ptime) (write-line (conc "Protected " (rfc-3339 ptime))))
     (unless (null? mtime) (write-line (conc "Modified  " (rfc-3339 mtime))))
@@ -327,7 +332,9 @@
       (write-string notes))))
 
 (define (print-listed-entry-row row)
-  (write-line (conc "#" (car row) " - " (cadr row)))
+  (write-line (conc vt100-entry-header
+                    "#" (car row) " - " (cadr row)
+                    vt100-reset))
   (write-string (caddr row)))
 
 (define (print-entry* entry-id)