@explorable-viz/fluid 0.7.16 → 0.7.18

package/.spago/node-child-process/v9.0.0/.eslintrc.json

@@ -0,0 +1,29 @@
+{
+  "parserOptions": {
+    "ecmaVersion": 6,
+    "sourceType": "module"
+  },
+  "extends": "eslint:recommended",
+  "env": {
+    "node": true
+  },
+  "rules": {
+    "strict": [2, "global"],
+    "block-scoped-var": 2,
+    "consistent-return": 2,
+    "eqeqeq": [2, "smart"],
+    "guard-for-in": 2,
+    "no-caller": 2,
+    "no-extend-native": 2,
+    "no-loop-func": 2,
+    "no-new": 2,
+    "no-param-reassign": 2,
+    "no-return-assign": 2,
+    "no-unused-expressions": 2,
+    "no-use-before-define": 2,
+    "radix": [2, "always"],
+    "indent": [2, 2],
+    "quotes": [2, "double"],
+    "semi": [2, "always"]
+  }
+}

package/.spago/node-child-process/v9.0.0/.gitignore

@@ -0,0 +1,8 @@
+/.*
+!/.gitignore
+!/.eslintrc.json
+!/.github/
+/bower_components/
+/node_modules/
+/output/
+package-lock.json

package/dist/fluid/fluid.mjs

@@ -257,8 +257,17 @@ var pureE = function(a) {
     return a;
   };
 };
+var bindE = function(a) {
+  return function(f) {
+    return function() {
+      return f(a())();
+    };
+  };
+};
 
 // output-es/Effect/index.js
+var monadEffect = { Applicative0: () => applicativeEffect, Bind1: () => bindEffect };
+var bindEffect = { bind: bindE, Apply0: () => applyEffect };
 var applyEffect = {
   apply: (f) => (a) => () => {
     const f$p = f();
@@ -462,6 +471,17 @@ var iterate = (iter) => (f) => () => {
   }
 };
 
+// output-es/Data.Maybe.First/index.js
+var semigroupFirst = {
+  append: (v) => (v1) => {
+    if (v.tag === "Just") {
+      return v;
+    }
+    return v1;
+  }
+};
+var monoidFirst = { mempty: Nothing, Semigroup0: () => semigroupFirst };
+
 // output-es/Data.Foldable/foreign.js
 var foldrArray = function(f) {
   return function(init5) {
@@ -507,6 +527,15 @@ var foldrDefault = (dictFoldable) => {
   const foldMap2 = dictFoldable.foldMap(monoidEndo);
   return (c) => (u) => (xs) => foldMap2((x) => c(x))(xs)(u);
 };
+var lookup = (dictFoldable) => {
+  const foldMap2 = dictFoldable.foldMap(monoidFirst);
+  return (dictEq) => (a) => foldMap2((v) => {
+    if (dictEq.eq(a)(v._1)) {
+      return $Maybe("Just", v._2);
+    }
+    return Nothing;
+  });
+};
 
 // output-es/Data.Eq/foreign.js
 var refEq = function(r1) {
@@ -3271,7 +3300,7 @@ var toUnfoldable3 = (dictUnfoldable) => (m) => {
   };
   return dictUnfoldable.unfoldr(go)($List("Cons", m, Nil));
 };
-var lookup = (dictOrd) => (k) => {
+var lookup2 = (dictOrd) => (k) => {
   const go = (go$a0$copy) => {
     let go$a0 = go$a0$copy, go$c = true, go$r;
     while (go$c) {
@@ -4160,7 +4189,7 @@ var $$delete = (dictOrd) => (k) => (m) => {
   fail();
 };
 var alter = (dictOrd) => (f) => (k) => (m) => {
-  const v = f(lookup(dictOrd)(k)(m));
+  const v = f(lookup2(dictOrd)(k)(m));
   if (v.tag === "Nothing") {
     return $$delete(dictOrd)(k)(m);
   }
@@ -4198,7 +4227,7 @@ var size2 = (v) => size(v);
 var singleton2 = (a) => $$$Map("Two", Leaf2, a, void 0, Leaf2);
 var showSet = (dictShow) => ({ show: (s) => "(fromFoldable " + showArrayImpl(dictShow.show)(toUnfoldable1(s)) + ")" });
 var member = (dictOrd) => (a) => (v) => {
-  const $0 = lookup(dictOrd)(a)(v);
+  const $0 = lookup2(dictOrd)(a)(v);
   if ($0.tag === "Nothing") {
     return false;
   }
@@ -9574,7 +9603,7 @@ var mutate = (f) => (m) => {
 };
 var member2 = ($0) => ($1) => _lookup(false, (v) => true, $0, $1);
 var mapWithKey = (f) => (m) => _mapWithKey(m, f);
-var lookup2 = ($0) => ($1) => _lookup(Nothing, Just, $0, $1);
+var lookup3 = ($0) => ($1) => _lookup(Nothing, Just, $0, $1);
 var isSubmap = (dictEq) => (m1) => (m2) => all2((k) => (v) => _lookup(false, dictEq.eq(v), k, m2))(m1);
 var isEmpty2 = /* @__PURE__ */ all2((v) => (v1) => false);
 var insert2 = (k) => (v) => mutate(($0) => () => {
@@ -10043,7 +10072,7 @@ var mapObjectString = {
   })(),
   filterKeys,
   unionWith: unionWith2,
-  lookup: lookup2,
+  lookup: lookup3,
   delete: $$delete2,
   insert: insert2,
   toUnfoldable: (dictUnfoldable) => toAscUnfoldable(dictUnfoldable),
@@ -11751,7 +11780,7 @@ var topologicalSort = (dictOrd) => (v) => {
         }
         if (v1._1._1.tag === "Visit") {
           if ((() => {
-            const $0 = lookup(dictOrd)(v1._1._1._1)(state.unvisited);
+            const $0 = lookup2(dictOrd)(v1._1._1._1)(state.unvisited);
             if ($0.tag === "Nothing") {
               return false;
             }
@@ -11763,7 +11792,7 @@ var topologicalSort = (dictOrd) => (v) => {
             visit$a0 = { result: state.result, unvisited: $$delete(dictOrd)(v1._1._1._1)(state.unvisited) };
             visit$a1 = (() => {
               const $0 = fromFoldable6(listMap(Visit)((() => {
-                const $02 = lookup(dictOrd)(v1._1._1._1)(v);
+                const $02 = lookup2(dictOrd)(v1._1._1._1)(v);
                 if ($02.tag === "Nothing") {
                   return Nil;
                 }
@@ -12182,7 +12211,7 @@ var fwdSlice = (dictGraph) => {
         return pure($Step("Done", void 0));
       }
       if (v1.es.tag === "Cons") {
-        const $2 = lookup(ordVertex)(v1.es._1._1)(v1.pending);
+        const $2 = lookup2(ordVertex)(v1.es._1._1)(v1.pending);
         const \u03B2s = (() => {
           if ($2.tag === "Nothing") {
             return $$$Map("Two", Leaf2, v1.es._1._2, void 0, Leaf2);
@@ -16410,7 +16439,7 @@ var helperMatch = (pss) => $NonEmpty(
   listMap((v) => $Tuple($NonEmpty(v._1, Nil), v._2))(pss._2)
 );
 var getPrec = (x) => {
-  const v = lookup(ordString)(x)(opDefs);
+  const v = lookup2(ordString)(x)(opDefs);
   if (v.tag === "Just") {
     return v._1.prec;
   }
@@ -24775,6 +24804,8 @@ var concatM2 = (dictMonad) => foldrArray((() => {
   const $0 = dictMonad.Bind1();
   return (f) => (g) => (a) => $0.bind(f(a))(g);
 })())(dictMonad.Applicative0().pure);
+var Folder = (x) => x;
+var File = (x) => x;
 var parse = (dictMonadError) => {
   const $0 = dictMonadError.MonadThrow0();
   const $1 = $0.Monad0().Applicative0().pure;
@@ -24895,6 +24926,48 @@ function nullable(a, r, f) {
   return a == null ? r : f(a);
 }
 
+// output-es/Node.Buffer.Immutable/foreign.js
+function toStringImpl(enc) {
+  return (buff) => {
+    return buff.toString(enc);
+  };
+}
+
+// output-es/Node.Buffer.Immutable/index.js
+var toString = (x) => toStringImpl((() => {
+  if (x === "ASCII") {
+    return "ascii";
+  }
+  if (x === "UTF8") {
+    return "utf8";
+  }
+  if (x === "UTF16LE") {
+    return "utf16le";
+  }
+  if (x === "UCS2") {
+    return "ucs2";
+  }
+  if (x === "Base64") {
+    return "base64";
+  }
+  if (x === "Latin1") {
+    return "latin1";
+  }
+  if (x === "Binary") {
+    return "binary";
+  }
+  if (x === "Hex") {
+    return "hex";
+  }
+  fail();
+})());
+
+// output-es/Node.Buffer.Internal/index.js
+var toString2 = (dictMonad) => (m) => {
+  const $0 = toString(m);
+  return (buf) => dictMonad.Bind1().Apply0().Functor0().map($0)(dictMonad.Applicative0().pure(buf));
+};
+
 // output-es/Node.FS.Constants/foreign.js
 import { constants } from "node:fs";
 var f_OK = constants.F_OK;
@@ -24997,6 +25070,132 @@ var loadFile = (v) => (v1) => (dictMonadAff) => {
   return (dictMonadError) => Monad0.Bind1().bind(dictMonadAff.liftAff(toAff2(readTextFile)(ASCII)(v + "/" + v1 + ".fld")))((buffer) => Monad0.Applicative0().pure(buffer));
 };
 
+// output-es/Node.ChildProcess/foreign.js
+import { spawn, exec, execFile, execSync, execFileSync, fork as cp_fork } from "child_process";
+function execImpl(command2) {
+  return (opts) => (callback2) => () => exec(
+    command2,
+    opts,
+    (err, stdout, stderr) => {
+      callback2(err)(stdout)(stderr)();
+    }
+  );
+}
+var _undefined = void 0;
+
+// output-es/Node.ChildProcess/index.js
+var convertExecOptions = (opts) => ({
+  cwd: (() => {
+    if (opts.cwd.tag === "Nothing") {
+      return _undefined;
+    }
+    if (opts.cwd.tag === "Just") {
+      return opts.cwd._1;
+    }
+    fail();
+  })(),
+  env: (() => {
+    if (opts.env.tag === "Nothing") {
+      return _undefined;
+    }
+    if (opts.env.tag === "Just") {
+      return opts.env._1;
+    }
+    fail();
+  })(),
+  encoding: (() => {
+    if (opts.encoding.tag === "Nothing") {
+      return _undefined;
+    }
+    if (opts.encoding.tag === "Just") {
+      if (opts.encoding._1 === "ASCII") {
+        return "ascii";
+      }
+      if (opts.encoding._1 === "UTF8") {
+        return "utf8";
+      }
+      if (opts.encoding._1 === "UTF16LE") {
+        return "utf16le";
+      }
+      if (opts.encoding._1 === "UCS2") {
+        return "ucs2";
+      }
+      if (opts.encoding._1 === "Base64") {
+        return "base64";
+      }
+      if (opts.encoding._1 === "Latin1") {
+        return "latin1";
+      }
+      if (opts.encoding._1 === "Binary") {
+        return "binary";
+      }
+      if (opts.encoding._1 === "Hex") {
+        return "hex";
+      }
+    }
+    fail();
+  })(),
+  shell: (() => {
+    if (opts.shell.tag === "Nothing") {
+      return _undefined;
+    }
+    if (opts.shell.tag === "Just") {
+      return opts.shell._1;
+    }
+    fail();
+  })(),
+  timeout: (() => {
+    if (opts.timeout.tag === "Nothing") {
+      return _undefined;
+    }
+    if (opts.timeout.tag === "Just") {
+      return opts.timeout._1;
+    }
+    fail();
+  })(),
+  maxBuffer: (() => {
+    if (opts.maxBuffer.tag === "Nothing") {
+      return _undefined;
+    }
+    if (opts.maxBuffer.tag === "Just") {
+      return opts.maxBuffer._1;
+    }
+    fail();
+  })(),
+  killSignal: (() => {
+    if (opts.killSignal.tag === "Nothing") {
+      return _undefined;
+    }
+    if (opts.killSignal.tag === "Just") {
+      return opts.killSignal._1;
+    }
+    fail();
+  })(),
+  uid: (() => {
+    if (opts.uid.tag === "Nothing") {
+      return _undefined;
+    }
+    if (opts.uid.tag === "Just") {
+      return opts.uid._1;
+    }
+    fail();
+  })(),
+  gid: (() => {
+    if (opts.gid.tag === "Nothing") {
+      return _undefined;
+    }
+    if (opts.gid.tag === "Just") {
+      return opts.gid._1;
+    }
+    fail();
+  })()
+});
+var exec2 = (cmd) => (opts) => (callback2) => execImpl(cmd)(convertExecOptions(opts))((err) => (stdout$p) => (stderr$p) => callback2({
+  error: nullable(err, Nothing, Just),
+  stdout: stdout$p,
+  stderr: stderr$p
+}));
+
 // output-es/Options.Applicative.Internal.Utils/index.js
 var whitespaceRegex = /* @__PURE__ */ (() => {
   const v = regex("\\s+")(noFlags);
@@ -25779,9 +25978,15 @@ var manyM = (p) => freeMonadRec.tailRecM((acc) => $Free(
 // output-es/Options.Applicative.Builder.Internal/index.js
 var $DefaultProp = (_1, _2) => ({ tag: "DefaultProp", _1, _2 });
 var $Mod = (_1, _2, _3) => ({ tag: "Mod", _1, _2, _3 });
+var lookup4 = /* @__PURE__ */ lookup(foldableArray)(eqString);
 var identity26 = (x) => x;
 var Mod = (value0) => (value1) => (value2) => $Mod(value0, value1, value2);
 var optionFieldsHasName = { name: (n) => (fields) => ({ optNames: [n, ...fields.optNames], optCompleter: fields.optCompleter, optNoArgError: fields.optNoArgError }) };
+var mkCommand = (m) => {
+  const v = m._1({ cmdCommands: [], cmdGroup: Nothing });
+  const $0 = v.cmdCommands;
+  return $Tuple(v.cmdGroup, $Tuple(arrayMap(fst)($0), $Tuple((v1) => lookup4(v1)($0), void 0)));
+};
 var modSemigroup = {
   append: (v) => (v1) => $Mod((x) => v1._1(v._1(x)), $DefaultProp(v1._2._1.tag === "Nothing" ? v._2._1 : v1._2._1, v1._2._2.tag === "Nothing" ? v._2._2 : v1._2._2), (x) => v1._3(v._3(x)))
 };
@@ -25850,6 +26055,14 @@ var option = (r) => (m) => {
     m._2._2.tag === "Nothing" ? $0._2._2 : m._2._2
   ))((x) => m._3($0._3(x)))($OptReader("OptReader", $1.optNames, { crCompleter: $1.optCompleter, crReader: r }, $1.optNoArgError));
 };
+var subparser = (m) => {
+  const $0 = optionMod((p) => ({ propMetaVar: "COMMAND", propDescMod: p.propDescMod, propHelp: p.propHelp, propShowDefault: p.propShowDefault, propVisibility: p.propVisibility }));
+  const v1 = mkCommand(m);
+  return mkParser($DefaultProp(
+    m._2._1.tag === "Nothing" ? $0._2._1 : m._2._1,
+    m._2._2.tag === "Nothing" ? $0._2._2 : m._2._2
+  ))((x) => m._3($0._3(x)))($OptReader("CmdReader", v1._1, v1._2._1, v1._2._2._1));
+};
 var hidden = /* @__PURE__ */ optionMod((p) => ({
   propVisibility: min3(Hidden)(p.propVisibility),
   propDescMod: p.propDescMod,
@@ -25906,6 +26119,11 @@ var defaultPrefs = {
   prefBacktrack: Backtrack,
   prefColumns: 80
 };
+var command = (cmd) => (pinfo) => $Mod(
+  (p) => ({ cmdCommands: [$Tuple(cmd, pinfo), ...p.cmdCommands], cmdGroup: p.cmdGroup }),
+  $DefaultProp(Nothing, Nothing),
+  identity26
+);
 var abortOption = (err) => (m) => {
   const $0 = fold3([
     $Mod(
@@ -25931,10 +26149,10 @@ var abortOption = (err) => (m) => {
 };
 
 // output-es/Node.Process/foreign.js
-import process from "process";
+import process2 from "process";
 function exit(code) {
   return () => {
-    process.exit(code);
+    process2.exit(code);
   };
 }
 function copyArray(xs) {
@@ -25942,7 +26160,7 @@ function copyArray(xs) {
 }
 
 // output-es/Node.Process/index.js
-var argv = /* @__PURE__ */ (() => copyArray(process.argv))();
+var argv = /* @__PURE__ */ (() => copyArray(process2.argv))();
 
 // output-es/Node.Stream/foreign.js
 function writeStringImpl(w) {
@@ -28102,7 +28320,7 @@ var handleParseResult = (v) => {
     return () => {
       const progn = getProgName();
       const v1 = renderFailure($0)(progn);
-      writeString(v1._2 === "Success" ? process.stdout : process.stderr)(UTF8)(v1._1 + "\n")(mempty22)();
+      writeString(v1._2 === "Success" ? process2.stdout : process2.stderr)(UTF8)(v1._1 + "\n")(mempty22)();
       return exit(boundedEnumExitCode.fromEnum(v1._2))();
     };
   }
@@ -28111,7 +28329,7 @@ var handleParseResult = (v) => {
     return () => {
       const progn = getProgName();
       const msg = $0.execCompletion(progn)();
-      writeString(process.stdout)(UTF8)(msg)(mempty22)();
+      writeString(process2.stdout)(UTF8)(msg)(mempty22)();
       return exitSuccess();
     };
   }
@@ -28139,11 +28357,14 @@ var execParserPure = (pprefs) => (pinfo) => (args) => {
 };
 
 // output-es/Fluid/index.js
+var $Command = (tag, _1, _2, _3) => ({ tag, _1, _2, _3 });
 var $Program = (_1) => ({ tag: "Program", _1 });
 var loadProgCxt2 = /* @__PURE__ */ loadProgCxt(monadAffAff)(monadErrorAff)(loadFile);
 var prepConfig2 = /* @__PURE__ */ prepConfig(monadAffAff)(monadErrorAff)(loadFile);
 var graphEval2 = /* @__PURE__ */ graphEval(monadErrorAff);
 var fromFoldable29 = /* @__PURE__ */ (() => fromFoldableImpl(foldableList.foldr))();
+var Evaluate = (value0) => $Command("Evaluate", value0);
+var Publish = (value0) => (value1) => (value2) => $Command("Publish", value0, value1, value2);
 var parseImports = /* @__PURE__ */ $Parser(
   "BindP",
   /* @__PURE__ */ manyM(/* @__PURE__ */ option(readerAsk)(/* @__PURE__ */ (() => {
@@ -28169,6 +28390,40 @@ var output = (v) => {
     })(v2["out\u03B1"]._2)
   )))));
 };
+var execOptions = {
+  cwd: Nothing,
+  env: Nothing,
+  timeout: Nothing,
+  killSignal: Nothing,
+  maxBuffer: Nothing,
+  uid: Nothing,
+  gid: Nothing,
+  encoding: Nothing,
+  shell: Nothing
+};
+var tester = (website) => exec2("yarn bundle-website " + website)(execOptions)((v) => {
+  if (v.error.tag === "Just") {
+    return log(showErrorImpl(v.error._1));
+  }
+  if (v.error.tag === "Nothing") {
+    const $0 = toString2(monadEffect)(ASCII)(v.stdout);
+    return () => {
+      const out = $0();
+      return log(out)();
+    };
+  }
+  fail();
+});
+var dispatchCommand = (v) => {
+  if (v.tag === "Evaluate") {
+    return output(v._1);
+  }
+  if (v.tag === "Publish") {
+    const $0 = v._1;
+    return _bind(_liftEffect(tester(v._2)))(() => _bind(_liftEffect(log("Published")))(() => output($0)));
+  }
+  fail();
+};
 var callback = (v) => {
   if (v.tag === "Left") {
     return log(showErrorImpl(v._1));
@@ -28261,6 +28516,70 @@ var program = /* @__PURE__ */ (() => $Parser(
     })())
   )
 ))();
+var publish = /* @__PURE__ */ (() => $Parser(
+  "MultP",
+  $MultPE(
+    $Parser(
+      "MultP",
+      $MultPE(
+        parserFunctor.map(Publish)(program),
+        parserFunctor.map(Folder)(option(readerAsk)((() => {
+          const $0 = help("root directory under dist/");
+          const $1 = $0._2._1.tag === "Nothing" ? Nothing : $0._2._1;
+          const $2 = $0._2._2.tag === "Nothing" ? Nothing : $0._2._2;
+          return $Mod(
+            (x) => $0._1({
+              optNames: [$OptName("OptShort", "r"), $OptName("OptLong", "root"), ...x.optNames],
+              optCompleter: x.optCompleter,
+              optNoArgError: x.optNoArgError
+            }),
+            $DefaultProp($1.tag === "Nothing" ? Nothing : $1, $2.tag === "Nothing" ? Nothing : $2),
+            (x) => $0._3(x)
+          );
+        })()))
+      )
+    ),
+    parserFunctor.map(File)(option(readerAsk)((() => {
+      const $0 = help("Template for web-page");
+      const $1 = $0._2._1.tag === "Nothing" ? Nothing : $0._2._1;
+      const $2 = $0._2._2.tag === "Nothing" ? Nothing : $0._2._2;
+      return $Mod(
+        (x) => $0._1({
+          optNames: [$OptName("OptShort", "t"), $OptName("OptLong", "template"), ...x.optNames],
+          optCompleter: x.optCompleter,
+          optNoArgError: x.optNoArgError
+        }),
+        $DefaultProp($1.tag === "Nothing" ? Nothing : $1, $2.tag === "Nothing" ? Nothing : $2),
+        (x) => $0._3(x)
+      );
+    })()))
+  )
+))();
+var commandParser = /* @__PURE__ */ subparser(/* @__PURE__ */ (() => {
+  const $0 = command("evaluate")(progDesc("Evaluate a file")({
+    infoParser: parserFunctor.map(Evaluate)(program),
+    infoFullDesc: true,
+    infoProgDesc: mempty12,
+    infoHeader: mempty12,
+    infoFooter: mempty12,
+    infoFailureCode: $$Error,
+    infoPolicy: Intersperse
+  }));
+  const $1 = command("publish")(progDesc("Publish a file")({
+    infoParser: publish,
+    infoFullDesc: true,
+    infoProgDesc: mempty12,
+    infoHeader: mempty12,
+    infoFooter: mempty12,
+    infoFailureCode: $$Error,
+    infoPolicy: Intersperse
+  }));
+  return $Mod(
+    (x) => $1._1($0._1(x)),
+    $DefaultProp($1._2._1.tag === "Nothing" ? $0._2._1 : $1._2._1, $1._2._2.tag === "Nothing" ? $0._2._2 : $1._2._2),
+    (x) => $1._3($0._3(x))
+  );
+})());
 var main = /* @__PURE__ */ (() => {
   const $0 = runAff(callback)(_bind(_liftEffect((() => {
     const $02 = header("parse - a simple parser")(progDesc("Parse a file")({
@@ -28268,7 +28587,7 @@ var main = /* @__PURE__ */ (() => {
       infoFailureCode: $$Error,
       infoFooter: mempty12,
       infoHeader: mempty12,
-      infoParser: apApplyFlipped(parserApply)(program)(helper),
+      infoParser: apApplyFlipped(parserApply)(commandParser)(helper),
       infoPolicy: Intersperse,
       infoProgDesc: mempty12
     }));
@@ -28276,7 +28595,7 @@ var main = /* @__PURE__ */ (() => {
       const a$p = getArgs();
       return handleParseResult(execParserPure(defaultPrefs)($02)(a$p))();
     };
-  })()))(output));
+  })()))(dispatchCommand));
   return () => {
     $0();
   };

package/package.json

@@ -1,6 +1,6 @@
 {
   "name": "@explorable-viz/fluid",
-  "version": "0.7.16",
+  "version": "0.7.18",
   "description": "Fluid is an experimental programming language which integrates a bidirectional dynamic analysis to connect outputs to data sources in a fine-grained way. Fluid is implemented in PureScript and runs in the browser.",
   "main": "index.js",
   "repository": {
@@ -18,7 +18,10 @@
   },
   "homepage": "https://f.luid.org",
   "files": [
-    "dist/fluid/"
+    "dist/fluid/",
+    "script/bundle-website.sh",
+    "script/util/",
+    "script/bundle-page.sh"
   ],
   "scripts": {
     "tidy": "./script/tidy.sh",
@@ -53,7 +56,6 @@
     "node": "^22.11.0",
     "node-process": "^1.0.1",
     "os": "^0.1.2",
-    "purescript": "^0.15.10",
     "util": "^0.12.5"
   },
   "devDependencies": {
@@ -65,6 +67,7 @@
     "karma-mocha-reporter": "2.2.5",
     "mocha": "^10.0.0",
     "puppeteer": "^23.2.0",
+    "purescript": "^0.15.10",
     "purescript-language-server": "0.16.6",
     "purescript-psa": "0.8.2",
     "purs-backend-es": "1.4.2",

package/script/bundle-page.sh

@@ -0,0 +1,21 @@
+#!/usr/bin/env bash
+# run from project root
+set -xe
+
+MODULE=$1
+SRC_PATH=${MODULE//./\/}
+SRC_PATH_LISP_CASE=$(./script/util/lisp-case.sh "$SRC_PATH")
+echo "$SRC_PATH -> $SRC_PATH_LISP_CASE"
+
+if [[ ! -e "website/$SRC_PATH.purs" ]]; then
+   ./script/util/clean.sh $SRC_PATH_LISP_CASE
+   cp website/$SRC_PATH.html dist/$SRC_PATH_LISP_CASE/index.html
+else
+   ./script/util/bundle.sh $SRC_PATH_LISP_CASE Website.$MODULE
+
+   if [[ -e "website/$SRC_PATH.html" ]]; then
+      cp website/$SRC_PATH.html dist/$SRC_PATH_LISP_CASE/index.html
+   else
+      cp website/FluidOrg/template.html dist/$SRC_PATH_LISP_CASE/index.html
+   fi
+fi

package/script/bundle-website.sh

@@ -0,0 +1,44 @@
+#!/usr/bin/env bash
+# run from project root
+set -xe
+
+WEBSITE=$1
+. script/bundle-page.sh $WEBSITE
+
+# Only support one level of nesting for now
+shopt -s nullglob
+
+set +x
+PAGES=($(for FILE in website/$WEBSITE/*.purs; do
+   basename "$FILE" | sed 's/\.[^.]*$//'
+done | sort -u))
+set -x
+
+echo "Processing ${WEBSITE} pages: ${PAGES[@]}"
+
+for PAGE in "${PAGES[@]}"; do
+   . script/bundle-page.sh $WEBSITE.$PAGE
+   done
+
+WEBSITE_LISP_CASE=$(./script/util/lisp-case.sh "$WEBSITE")
+
+set +x
+TO_COPY=()
+for CHILD in website/$WEBSITE/*; do
+   BASENAME="$(basename "$CHILD")"
+   if [[ "$BASENAME" =~ ^[a-z] ]]; then
+      TO_COPY+=("$CHILD")
+   fi
+done
+set -x
+
+echo "Processing static files:"
+
+for CHILD in "${TO_COPY[@]}"; do
+   BASENAME="$(basename "$CHILD")"
+   cp -rL "$CHILD" "dist/$WEBSITE_LISP_CASE/$BASENAME"
+   done
+
+shopt -u nullglob
+cp -r fluid dist/$WEBSITE_LISP_CASE
+echo "Bundled website $WEBSITE"

package/script/util/bundle.sh

@@ -0,0 +1,3 @@
+#!/usr/bin/env bash
+set -xe
+yarn purs-backend-es bundle-app --main $2 --to dist/$1/fluid.js ${@:3} > /dev/null

package/script/util/clean.sh

@@ -0,0 +1,5 @@
+#!/usr/bin/env bash
+set -xe
+
+rm -rf dist/$1
+mkdir -p dist/$1

package/script/util/compile.sh

@@ -0,0 +1,7 @@
+#!/usr/bin/env bash
+set -xe
+
+rm -rf output
+rm -rf output-es
+yarn tidy
+yarn spago build --purs-args '--strict --censor-codes=UserDefinedWarning'

package/script/util/lisp-case.sh

@@ -0,0 +1,10 @@
+#!/usr/bin/env bash
+set -e
+
+toLispCase() {
+   INPUT="$1"
+   RESULT=$(echo "$INPUT" | sed -E 's/([a-z0-9])([A-Z])/\1-\2/g' | tr '[:upper:]' '[:lower:]')
+   echo "$RESULT"
+}
+
+toLispCase "$1"