finish yaml gen

2025-08-31 14:59:37 +02:00
parent f1be675f10
commit 8d18875697
3 changed files with 57 additions and 20 deletions
--- a/yaml.1.lsp
+++ b/yaml.1.lsp
@@ -0,0 +1,43 @@
+(:macro rm-first (x .. tl)
+        tl)
+
+(:macro rm-indent ( (x(:c-li0-eq _ :tree)) )
+        (':tree
+         (':rm-indent-each
+          (':rm-first
+           (':unpack x)))))
+(:macro rm-indent ( (x(:c-li0-eq _ :yot)) )
+        (':yot
+         (':rm-indent
+          (':rm-first
+           (':unpack x)))))
+(:macro rm-indent ( (x(:c-li0-eq _ :atm-to-str)) )
+        (':atm-to-str
+         (':rm-indent
+          (':rm-first
+           (':unpack x)))))
+(:macro rm-indent ( (x(:c-li0-eq _ :dict-key)) )
+        (':dict-key
+         (':rm-indent
+          (':rm-first
+           (':unpack x)))))
+
+(:macro rm-indent ( (x(:c-li0-eq _ :indent)) )
+        (':rm-first
+         (':unpack x)))
+
+(:macro rm-indent-each ( x )
+        (':rm-indent x))
+(:macro rm-indent-each ( x .. tl )
+        (':rm-indent x)
+        (':rm-indent-each tl))
+
+(:macro cfg ()
+        (':ocfg))
+(:macro cfg ( x )
+        (':ocfg
+         (':rm-indent x)))
+(:macro cfg ( hd .. tl )
+        (':ocfg
+         (':rm-indent hd)
+         (':rm-indent-each tl)))