c

example.lsp

@@ -25,14 +25,13 @@
         (':t (':str-cat (':t2ot-elt k) ":")))
 
 (:macro @ ( (k(:c-paren-eval _)) v )
-        (':t k ": " v))
+        (':t (':dict-key (':atm-to-str k)) v))
 
-(:macro @ ( (k(:c-paren-eval _)) (v(:c-atm _)) )
+(:macro @ ( (k(:c-paren-eval _)) (v(:c-paren-eval _)) )
         (':t (':str-cat (':str-cat (':atm-to-str k) ": ") (':atm-to-str v) )))
 
 (:macro @ ( (k(:c-paren-eval _)) v .. other)
-        (k v)
-        other)
+        (':t (':dict-key (':atm-to-str k)) v other))
 
 (:macro t2ot-elt ( hd )
         (':atm-to-str hd))
@@ -57,9 +56,14 @@
         (':indent hd)
         (':indent tl))
 
+(:macro indent-each ())
+
+(:macro indent-each ( hd )
+        (':indent hd))
+
 (:macro indent-each ( hd .. tl )
         (':indent hd)
-        (':indent tl))
+        (':indent-each tl))
 
 (:macro rm-first (x .. tl)
         tl)
@@ -67,6 +71,15 @@
 (:macro indent ( (x(:c-li0-eq _ :tree)) )
         (':tree (':indent-each (':rm-first (':unpack x)))))
 
+(:macro indent ( (x(:c-li0-eq _ :atm-to-str)) )
+        (':atm-to-str (':indent-each (':rm-first (':unpack x)))))
+
+(:macro indent ( (x(:c-li0-eq _ :yot)) )
+        (':yot (':indent-each (':rm-first (':unpack x)))))
+
+(:macro indent ( (x(:c-li0-eq _ :dict-key)) )
+        (':dict-key (':indent-each (':rm-first (':unpack x)))))
+
 (name "Complex CI/CD Pipeline")
 
 (on