core: Support + escaping like . escaping

yaml · Jun 14, 2024 · 5f33ff6 · 5f33ff6
1 parent c2fcb02
commit 5f33ff6
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 1 deletion.
diff --git a/core/src/yamlscript/resolver.clj b/core/src/yamlscript/resolver.clj
@@ -180,7 +180,8 @@
       (case style
         := (let [node
                ;; Remove leading escape character from value
-                 (if (re-find #"^\.[\`\!\@\#\%\&\*\-\{\[\|\:\'\"\,\>\?]" val)
+                 (if (re-find
+                       #"^[\.\+][\`\!\@\#\%\&\*\-\{\[\|\:\'\"\,\>\?]" val)
                    (assoc node := (subs val 1))
                    node)]
              (set/rename-keys node {:= :exp}))

diff --git a/core/test/compiler.yaml b/core/test/compiler.yaml
@@ -839,6 +839,22 @@
     (foo || bar)
 
 
+- name: Plus escaping of YAML syntax
+  yamlscript: |
+    !yamlscript/v0
+    =>: +'foo' * 3
+    =>: +"foo" * 3
+    =>: +[foo] + [bar]
+    =>: +{foo 1} + {bar 2}
+    foo: +|| bar
+  clojure: |
+    (*_ "foo" 3)
+    (*_ "foo" 3)
+    (+_ [foo] [bar])
+    (+_ {foo 1} {bar 2})
+    (foo || bar)
+
+
 - name: Star in the middle
   yamlscript: |
     !yamlscript/v0