cl-grep

commit 2509819ba9dac51858c40777923a847ab52ca6cf
parent 8e7a00c620592776d3c1534ad3945200a4327ef2
Author: ChanderG <[email protected]>
Date:   Wed,  3 Dec 2025 19:55:19 +0530

colorize file names

Diffstat:
M
grep.lisp
 | 
5
++++-

1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/grep.lisp b/grep.lisp
@@ -12,6 +12,9 @@
   (setf *queue* (lq:make-queue))
   (setf *print-queue* (lq:make-queue)))
 
+(defun color-magenta (str)
+    (format nil "~c[35m~a~c[0m" #\ESC str #\ESC))
+
 (defstruct file-result
   name entries)
 
@@ -20,7 +23,7 @@
   (write-string
    (format nil
            "~a: ~%~{~A~%~}~%"
-           (file-result-name fr)
+           (color-magenta (file-result-name fr))
            (file-result-entries fr))
    stream))