grokking simplicity and refactoring

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

@@ -0,0 +1,27 @@
+;; utils/logging/spinner.scm - Spinner utility for long operations
+
+(define-module (utils logging spinner)
+  #:use-module (utils logging core)
+  #:export (with-spinner))
+
+;; Pure function: Calculate elapsed time
+;; Input: start-time, end-time
+;; Output: elapsed seconds
+(define (calculate-elapsed start-time end-time)
+  "Pure function to calculate elapsed time"
+  (- end-time start-time))
+
+;; Impure function: Execute operation with spinner logging
+(define (with-spinner message thunk)
+  "Execute operation with progress logging"
+  (log-info "~a..." message)
+  (let ((start-time (current-time)))
+    (catch #t
+      (lambda ()
+        (let ((result (thunk)))
+          (let ((elapsed (calculate-elapsed start-time (current-time))))
+            (log-success "~a completed in ~as" message elapsed))
+          result))
+      (lambda (key . args)
+        (log-error "~a failed: ~a ~a" message key args)
+        (throw key args)))))