grokking simplicity and refactoring

packages/lab-tool/core/logging.scm

@@ -0,0 +1,29 @@
+;; lab/core/logging.scm - Logging functionality
+
+(define-module (lab core logging)
+  #:use-module (ice-9 format)
+  #:export (log-info
+            log-debug
+            log-success
+            log-error
+            log-warn))
+
+(define (log-info format-str . args)
+  "Log info message"
+  (apply format #t (string-append "[INFO] " format-str "~%") args))
+
+(define (log-debug format-str . args)
+  "Log debug message"
+  (apply format #t (string-append "[DEBUG] " format-str "~%") args))
+
+(define (log-success format-str . args)
+  "Log success message"
+  (apply format #t (string-append "[SUCCESS] " format-str "~%") args))
+
+(define (log-error format-str . args)
+  "Log error message"
+  (apply format #t (string-append "[ERROR] " format-str "~%") args))
+
+(define (log-warn format-str . args)
+  "Log warning message"
+  (apply format #t (string-append "[WARN] " format-str "~%") args))