finish yaml gen

yaml.2.lsp

@@ -0,0 +1,31 @@
+(: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 ocfg ( )
+        "")
+(:macro ocfg ( x )
+        x)
+(:macro ocfg ( x .. tl )
+        (':tree x (':ocfg tl)))
+
+(:macro indent ( x )
+        (':str-cat "  " x))