some pure-ludus string manipulation testing

package-lock.json

@@ -1,12 +1,12 @@
 {
   "name": "@ludus/ludus-js-pure",
-  "version": "0.1.15",
+  "version": "0.1.16",
   "lockfileVersion": 3,
   "requires": true,
   "packages": {
     "": {
       "name": "@ludus/ludus-js-pure",
-      "version": "0.1.15",
+      "version": "0.1.16",
       "license": "GPL-3.0",
       "devDependencies": {
         "shadow-cljs": "^2.26.0",

package.json

@@ -1,6 +1,6 @@
 {
   "name": "@ludus/ludus-js-pure",
-  "version": "0.1.15",
+  "version": "0.1.16",
   "description": "A Ludus interpreter in a pure JS function.",
   "type": "module",
   "main": "build/ludus.mjs",

src/ludus.janet

@@ -49,15 +49,37 @@
  (set (out :draw) (post :draw))
  (-> out j/encode string))
 
-(comment
-# (do
+# (comment
+(do
 (def source `
-match :foo with {
- :bar -> :baz
- :baz -> :quux
- "thing {foo}" -> "worste"
- 42 -> 23
+fn strip_punctuation {
+ ("{x},{y}") -> strip_punctuation ("{x}{y}")
+ ("{x}.{y}") -> strip_punctuation ("{x}{y}")
+ ("{x};{y}") -> strip_punctuation ("{x}{y}")
+ ("{x}:{y}") -> strip_punctuation ("{x}{y}")
+ ("{x}?{y}") -> strip_punctuation ("{x}{y}")
+ ("{x}!{y}") -> strip_punctuation ("{x}{y}")
+ (x) -> x
 }
+
+fn trim_left {
+ (" {x}") -> trim_left ("{x}")
+ ("\n{x}") -> trim_left ("{x}")
+ ("\t{x}") -> trim_left ("{x}")
+ (x) -> x
+}
+
+fn trim_right {
+ ("{x} ") -> trim_right ("{x}")
+ ("{x}\n") -> trim_right ("{x}")
+ ("{x}\t") -> trim_right ("{x}")
+ (x) -> x
+}
+
+fn trim (x) -> do x > trim_left > trim_right
+
+trim_left ("      
+ foo")
 `)
 (def out (-> source 
  ludus