package-lock.json

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

package.json

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

src/ludus.janet

@@ -49,37 +49,15 @@
  (set (out :draw) (post :draw))
  (-> out j/encode string))
 
-# (comment
+(comment
-(do
+# (do
 (def source `
-fn strip_punctuation {
+match :foo with {
- ("{x},{y}") -> strip_punctuation ("{x}{y}")
+ :bar -> :baz
- ("{x}.{y}") -> strip_punctuation ("{x}{y}")
+ :baz -> :quux
- ("{x};{y}") -> strip_punctuation ("{x}{y}")
+ "thing {foo}" -> "worste"
- ("{x}:{y}") -> strip_punctuation ("{x}{y}")
+ 42 -> 23
- ("{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