finally generating yaml

yaml_finish.lsp

@@ -0,0 +1,28 @@
+(:macro dict-key ( x )
+        (':str-cat x ":"))
+
+(:macro yot ( x )
+        x)
+
+(:macro tree ( a b )
+        (':reduce-cat a "\n" b))
+
+(:macro c-paren-eval (x)
+        (':c-not (':c-colon-id x)))
+
+(:macro @ ( (x(:c-paren-eval _)) .. tl )
+        (':reduce-cat x tl ))
+
+(:macro reduce-cat ( x )
+        x)
+
+(:macro reduce-cat ( x .. tl )
+        (':str-cat x
+         (':reduce-cat tl)))
+
+(:macro cfg ( )
+        "")
+(:macro cfg ( x )
+        x)
+(:macro cfg ( x .. tl )
+        (':tree x (':cfg tl)))