grokking simplicity and refactoring

packages/lab-tool/utils/json/serialize.scm

@@ -0,0 +1,27 @@
+;; utils/json/serialize.scm - Pure JSON serialization functions
+
+(define-module (utils json serialize)
+  #:use-module (json)
+  #:use-module (ice-9 textual-ports)
+  #:export (scm->json-string-pure
+            scm->json-string))
+
+;; Pure function: Convert scheme object to JSON string
+;; Input: obj (scheme object), pretty (boolean)
+;; Output: JSON string or #f if conversion fails
+(define (scm->json-string-pure obj pretty)
+  "Pure function to convert scheme object to JSON string"
+  (catch #t
+    (lambda ()
+      (call-with-output-string
+        (lambda (port)
+          (if pretty
+              (scm->json obj port #:pretty #t)
+              (scm->json obj port)))))
+    (lambda (key . args) #f)))
+
+;; Wrapper with optional pretty parameter
+(define (scm->json-string obj . options)
+  "Convert scheme object to JSON string with optional pretty printing"
+  (let ((pretty (if (null? options) #f (car options))))
+    (scm->json-string-pure obj pretty)))