grokking simplicity and refactoring

packages/lab-tool/utils/logging/format.scm

@@ -0,0 +1,42 @@
+;; utils/logging/format.scm - Pure logging formatting functions
+
+(define-module (utils logging format)
+  #:use-module (ice-9 format)
+  #:use-module (srfi srfi-19)
+  #:export (format-timestamp
+            format-log-message
+            get-color
+            color-codes))
+
+;; Pure data: ANSI color codes
+(define color-codes
+  '((reset . "\x1b[0m")
+    (bold . "\x1b[1m")
+    (red . "\x1b[31m")
+    (green . "\x1b[32m")
+    (yellow . "\x1b[33m")
+    (blue . "\x1b[34m")
+    (magenta . "\x1b[35m")
+    (cyan . "\x1b[36m")))
+
+;; Pure function: Get color code by name
+(define (get-color name)
+  "Pure function to get ANSI color code"
+  (assoc-ref color-codes name))
+
+;; Pure function: Format timestamp
+(define (format-timestamp)
+  "Pure function to format current timestamp"
+  (date->string (current-date) "~H:~M:~S"))
+
+;; Pure function: Format complete log message
+;; Input: level symbol, color symbol, prefix string, message string, args list
+;; Output: formatted log message string
+(define (format-log-message level color prefix message args)
+  "Pure function to format a complete log message"
+  (let ((timestamp (format-timestamp))
+        (formatted-msg (apply format #f message args))
+        (color-start (get-color color))
+        (color-end (get-color 'reset)))
+    (format #f "~a~a[lab]~a ~a ~a~%"
+            color-start prefix color-end timestamp formatted-msg)))