@explorable-viz/fluid 0.7.60 → 0.7.62

package/dist/fluid/shared/load-figure.js

@@ -27787,8 +27787,7 @@ var dataTypes = /* @__PURE__ */ foldrArray(Cons)(Nil)([
     /* @__PURE__ */ $Tuple("Viewport", 9)
   ]),
   /* @__PURE__ */ dataType("Transform")([/* @__PURE__ */ $Tuple("Scale", 2), /* @__PURE__ */ $Tuple("Translate", 2)]),
-  /* @__PURE__ */ dataType("Marker")([/* @__PURE__ */ $Tuple("Arrowhead", 0)]),
-  /* @__PURE__ */ dataType("Explanation")([/* @__PURE__ */ $Tuple("Explained", 2)])
+  /* @__PURE__ */ dataType("Marker")([/* @__PURE__ */ $Tuple("Arrowhead", 0)])
 ]);
 var ctrToDataType = /* @__PURE__ */ (() => fromFoldable(foldableList)(bindList.bind(listMap((d) => listMap((v) => $Tuple(
   v,
@@ -34840,7 +34839,6 @@ var forDefs = (\u03C1) => (\u03C3) => {
 };
 
 // output-es/Primitive/index.js
-var $Explanation = (_1, _2, _3) => ({ tag: "Explanation", _1, _2, _3 });
 var fanin2 = /* @__PURE__ */ fanin(categoryFn)(choiceFn);
 var isZeroNumber = { isZero: ($0) => 0 === $0 };
 var isZeroInt = { isZero: ($0) => 0 === $0 };
@@ -34916,30 +34914,6 @@ var number5 = {
     return typeError(v)("Float");
   }
 };
-var linkedTextEntry = {
-  pack: (v) => {
-    if (v.tag === "Left") {
-      return $BaseVal("Str", v._1);
-    }
-    if (v.tag === "Right") {
-      return $BaseVal(
-        "Constr",
-        "Explained",
-        $List("Cons", $Val(v._1._1, $BaseVal("Str", v._1._2)), $List("Cons", $Val(v._1._3._1, v._1._3._2), Nil))
-      );
-    }
-    fail();
-  },
-  unpack: (v) => {
-    if (v.tag === "Str") {
-      return $Either("Left", v._1);
-    }
-    if (v.tag === "Constr" && v._2.tag === "Cons" && v._2._1._2.tag === "Str" && v._2._2.tag === "Cons" && v._2._2._2.tag === "Nil" && v._1 === "Explained") {
-      return $Either("Right", $Explanation(v._2._2._1._1, v._2._1._2._1, v._2._2._1));
-    }
-    return typeError(v)("String or Explanation");
-  }
-};
 var intOrNumberOrString = {
   pack: (v) => {
     if (v.tag === "Left") {
@@ -36593,7 +36567,19 @@ var reflectDictSelState\u{1D54A}$x215ValS3 = {
     })()
   })
 };
-var reflectDictSelState\u{1D54A}$x215ValS12 = { from: () => (r) => ({ x: get_intOrNumber("x")(r), y: get_intOrNumber("y")(r) }) };
+var reflectDictSelState\u{1D54A}$x215ValS12 = {
+  from: () => (r) => ({
+    x: (() => {
+      const $0 = $$get2(showString)(mapDictString)("x")(r);
+      return $Tuple($0._2._2.tag === "Str" ? $0._2._2._1 : typeError($0._2._2)("Str"), $0._2._1);
+    })(),
+    y: (() => {
+      const $0 = $$get2(showString)(mapDictString)("y")(r);
+      return $Tuple($0._2._2.tag === "Str" ? $0._2._2._1 : typeError($0._2._2)("Str"), $0._2._1);
+    })()
+  })
+};
+var reflectDictSelState\u{1D54A}$x215ValS23 = { from: () => (r) => ({ x: get_intOrNumber("x")(r), y: get_intOrNumber("y")(r) }) };
 
 // output-es/App.View.LineChart/index.js
 var identity27 = (x2) => x2;
@@ -36622,7 +36608,7 @@ var reflectDictSelState\u{1D54A}$x215ValS4 = {
       const $0 = $$get2(showString)(mapDictString)("name")(r);
       return $Tuple($0._2._2.tag === "Str" ? $0._2._2._1 : typeError($0._2._2)("Str"), $0._2._1);
     })(),
-    points: arrayMap(dict(reflectDictSelState\u{1D54A}$x215ValS12.from()))(reflectValSelState\u{1D54A}ArrayV.from()($$get2(showString)(mapDictString)("points")(r)._2))
+    points: arrayMap(dict(reflectDictSelState\u{1D54A}$x215ValS23.from()))(reflectValSelState\u{1D54A}ArrayV.from()($$get2(showString)(mapDictString)("points")(r)._2))
   })
 };
 var reflectValSelState\u{1D54A}LinePl = {
@@ -36897,114 +36883,84 @@ var drawableLineChart = {
   }
 };
 
-// output-es/App.View.LinkedText/foreign.js
-selection_default.prototype.attrs = function(m) {
-  for (const k in m) {
-    this.attr(k, m[k]);
-  }
-  return this;
+// output-es/App.View.LinkedText/index.js
+var for_4 = /* @__PURE__ */ for_(applicativeEffect)(foldableArray);
+var forWithIndex_2 = /* @__PURE__ */ forWithIndex_(applicativeEffect)(foldableWithIndexArray);
+var reflectValSelState\u{1D54A}Linked = {
+  from: () => (r) => arrayMap((v) => $Tuple(v._2.tag === "Str" ? v._2._1 : typeError(v._2)("Str"), v._1))(reflectValSelState\u{1D54A}ArrayV.from()(r))
 };
-function setSelState3({ accessAnn }, {
-  selState: selState2,
-  selClasses: selClasses2,
-  selClassesFor: selClassesFor2,
-  join: join3
-}, div, view2, selListener2) {
-  div.selectAll("span").each(function(textElem) {
-    var sel;
-    if (textElem.conts.tag == "Left") {
-      sel = accessAnn(view2[textElem.i]);
-    } else {
-      sel = accessAnn(view2[textElem.i]);
-    }
-    select_default2(this).classed(selClasses2, false).classed(selClassesFor2(sel), true).on("mousedown", (e) => {
-      selListener2(e);
-    }).on("mouseenter", (e) => {
-      selListener2(e);
-    }).on("mouseleave", (e) => {
-      selListener2(e);
-    });
-  });
-}
-function drawLinkedText_({
-  explanation,
-  contents,
-  accessAnn
-}, uiHelpers2, {
-  divId,
-  suffix,
-  view: view2
-}, selListener2) {
+var setSelState3 = (v) => (redraw) => (rootElement) => {
+  const $0 = selectAll2(".linked-text")(rootElement);
   return () => {
-    const div = select_default2("#" + divId);
-    const childId = divId + "-" + suffix;
-    let rootElement = div.selectAll("#" + childId);
-    if (rootElement.empty()) {
-      rootElement = div.append("div").attr("id", childId).text(view2._1).attr("class", "linked-text-parent");
-      rootElement.selectAll("span").data([...view2.entries()].map(([i, conts]) => {
-        return { i, conts };
-      })).enter().append("span").attr("id", childId).text((d) => contents(d.conts)).attr("class", "linked-text");
-    }
-    setSelState3({ accessAnn }, uiHelpers2, rootElement, view2, selListener2);
+    const elems$p = $0();
+    return for_4(elems$p)((elem2) => {
+      const $1 = datum2(elem2);
+      return () => {
+        const v1 = $1();
+        const $2 = definitely("index within bounds")(index(v)(v1.i));
+        const $3 = styles(elem2)(fromFoldable10([
+          $Tuple("border-bottom", isTransient($2._2) ? "1px solid blue" : "none"),
+          $Tuple(
+            "background",
+            (() => {
+              if (isPrimary($2._2) && isPersistent($2._2)) {
+                return "#93E9BE";
+              }
+              if (isSecondary($2._2) && isPersistent($2._2)) {
+                return "rgb(226, 226, 226)";
+              }
+              return "white";
+            })()
+          ),
+          $Tuple(
+            "color",
+            (() => {
+              if (isPrimary($2._2) && isTransient($2._2)) {
+                return "blue";
+              }
+              if (isSecondary($2._2) && isTransient($2._2)) {
+                return "royalblue";
+              }
+              return "black";
+            })()
+          )
+        ]))();
+        return for_2(["mousedown", "mouseenter", "mouseleave"])((ev) => on(ev)(redraw)($3))();
+      };
+    })();
+  };
+};
+var createRootElement2 = (v) => (div) => (childId) => {
+  const $0 = createChild(div)(showElementType.show(Text2))(fromFoldable10([
+    classes(["linked-text-parent"]),
+    $Tuple("id", childId)
+  ]));
+  return () => {
+    const rootElement = $0();
+    forWithIndex_2(v)((i) => (elem2) => {
+      const $1 = createChild(rootElement)(showElementType.show(Text2))(fromFoldable10([
+        classes(["linked-text"]),
+        $Tuple("id", childId)
+      ]));
+      return () => {
+        const elem$p = $1();
+        const $2 = setText(elem2._1)(elem$p)();
+        return setDatum({ i })($2)();
+      };
+    })();
+    return rootElement;
   };
-}
-var drawLinkedText = (x1) => (x2) => (x3) => (x4) => drawLinkedText_(x1, x2, x3, x4);
-
-// output-es/App.View.LinkedText/index.js
-var linkedTextHelpers = {
-  explanation: (v) => {
-    if (v.tag === "Left") {
-      return v._1._1;
-    }
-    if (v.tag === "Right") {
-      return v._1._1._2;
-    }
-    fail();
-  },
-  contents: (v) => {
-    if (v.tag === "Left") {
-      return v._1._1;
-    }
-    if (v.tag === "Right") {
-      if (v._1._1._3._2.tag === "Str") {
-        return v._1._1._3._2._1;
-      }
-      return typeError(v._1._1._3._2)("Str");
-    }
-    fail();
-  },
-  accessAnn: (v) => {
-    if (v.tag === "Left") {
-      return v._1._2;
-    }
-    if (v.tag === "Right") {
-      return v._1._1._1;
-    }
-    fail();
-  }
 };
+var drawable2LinkedText = { createRootElement: createRootElement2, setSelState: setSelState3 };
 var drawableLinkedText = {
   draw: (rSpec) => (figVal) => (v) => (redraw) => {
-    const $0 = drawLinkedText(linkedTextHelpers)(uiHelpers)(rSpec);
-    const $1 = selListener(figVal)(redraw)((v1) => (x2) => constrArg("LinkedText")(0)(listElement(v1.i)(x2)));
+    const $0 = selListener(figVal)(redraw)((v1) => (x2) => constrArg("LinkedText")(0)(listElement(v1.i)(x2)));
     return () => {
-      const $2 = $1();
-      return $0($2)();
+      const $1 = $0();
+      return draw$p(drawable2LinkedText)(uiHelpers)(rSpec)($1)();
     };
   }
 };
-var reflectValSelState\u{1D54A}Linked = {
-  from: () => (r) => arrayMap((x2) => {
-    const $0 = linkedTextEntry.unpack(x2._2);
-    if ($0.tag === "Left") {
-      return $Either("Left", $Tuple($0._1, x2._1));
-    }
-    if ($0.tag === "Right") {
-      return $Either("Right", $Tuple($0._1, x2._1));
-    }
-    fail();
-  })(reflectValSelState\u{1D54A}ArrayV.from()(r))
-};
 
 // output-es/App.View.MatrixView/foreign.js
 function setSelState4({
@@ -37188,8 +37144,7 @@ function drawScatterPlot_(scatterPlotHelpers2, uiHelpers2, {
   view: {
     caption,
     points,
-    xlabel,
-    ylabel
+    labels
   }
 }, listener) {
   return () => {
@@ -37215,8 +37170,8 @@ function drawScatterPlot_(scatterPlotHelpers2, uiHelpers2, {
       rootElement.append("g").attr("transform", "translate(0," + height + ")").call(axisBottom(x2).tickSizeOuter(0)).selectAll("text").style("text-anchor", "middle");
       const y2 = linear2().domain([Math.min(0, y_min), y_max]).range([height, 0]);
       rootElement.append("g").call(axisLeft(y2).tickSizeOuter(0));
-      rootElement.append("text").attr("x", width).attr("y", height + 25).style("text-anchor", "end").style("font-size", "10px").text(val(xlabel));
-      rootElement.append("text").attr("transform", "rotate(-90)").attr("x", -margin.top).attr("y", -margin.left + 20).style("text-anchor", "end").style("font-size", "10px").text(val(ylabel));
+      rootElement.append("text").attr("x", width).attr("y", height + 25).style("text-anchor", "end").style("font-size", "10px").text(val(labels.x));
+      rootElement.append("text").attr("transform", "rotate(-90)").attr("x", -margin.top).attr("y", -margin.left + 20).style("text-anchor", "end").style("font-size", "10px").text(val(labels.y));
       rootElement.append("g").selectAll("circle").data([...points.entries()].map(([i, point2]) => {
         return { i, point: point2 };
       })).enter().append("circle").classed("scatterplot-point", true).attr("cx", ({ point: point2 }) => x2(val(point2.x))).attr("cy", ({ point: point2 }) => y2(val(point2.y))).attr("stroke-width", 0.5);
@@ -37236,15 +37191,8 @@ var reflectDictSelState\u{1D54A}$x215ValS5 = {
       const $0 = $$get2(showString)(mapDictString)("caption")(r);
       return $Tuple($0._2._2.tag === "Str" ? $0._2._2._1 : typeError($0._2._2)("Str"), $0._2._1);
     })(),
-    points: arrayMap(dict(reflectDictSelState\u{1D54A}$x215ValS12.from()))(reflectValSelState\u{1D54A}ArrayV.from()($$get2(showString)(mapDictString)("points")(r)._2)),
-    xlabel: (() => {
-      const $0 = $$get2(showString)(mapDictString)("xlabel")(r);
-      return $Tuple($0._2._2.tag === "Str" ? $0._2._2._1 : typeError($0._2._2)("Str"), $0._2._1);
-    })(),
-    ylabel: (() => {
-      const $0 = $$get2(showString)(mapDictString)("ylabel")(r);
-      return $Tuple($0._2._2.tag === "Str" ? $0._2._2._1 : typeError($0._2._2)("Str"), $0._2._1);
-    })()
+    points: arrayMap(dict(reflectDictSelState\u{1D54A}$x215ValS23.from()))(reflectValSelState\u{1D54A}ArrayV.from()($$get2(showString)(mapDictString)("points")(r)._2)),
+    labels: dict(reflectDictSelState\u{1D54A}$x215ValS12.from())($$get2(showString)(mapDictString)("labels")(r)._2)
   })
 };
 var scatterPlotHelpers = {
@@ -37334,12 +37282,12 @@ var toStringWith = (v) => {
 // output-es/App.View.TableView/index.js
 var $Filter = (tag) => tag;
 var toUnfoldable9 = /* @__PURE__ */ toUnfoldable4(unfoldableArray);
-var forWithIndex_2 = /* @__PURE__ */ forWithIndex_(applicativeEffect)(foldableWithIndexArray);
+var forWithIndex_3 = /* @__PURE__ */ forWithIndex_(applicativeEffect)(foldableWithIndexArray);
 var $$for = /* @__PURE__ */ (() => {
   const traverse2 = traversableArray.traverse(applicativeEffect);
   return (x2) => (f) => traverse2(f)(x2);
 })();
-var for_4 = /* @__PURE__ */ for_(applicativeEffect)(foldableArray);
+var for_5 = /* @__PURE__ */ for_(applicativeEffect)(foldableArray);
 var Interactive = /* @__PURE__ */ $Filter("Interactive");
 var prim = (v) => {
   if (v._2.tag === "Int") {
@@ -37363,7 +37311,7 @@ var record_isVisible = (r) => filter((v) => {
   }
   fail();
 })(r).length !== 0;
-var createRootElement2 = (v) => (div) => (childId) => {
+var createRootElement3 = (v) => (div) => (childId) => {
   const $0 = v.colNames;
   const $1 = v.filter;
   const $2 = v.rows;
@@ -37381,7 +37329,7 @@ var createRootElement2 = (v) => (div) => (childId) => {
     const colNames$p = ["__n", ...$0];
     const $4 = createChild(rootElement)(showElementType.show(THead))(fromFoldable10([]))();
     const row = createChild($4)(showElementType.show(TR))(fromFoldable10([]))();
-    forWithIndex_2(colNames$p)((j) => (colName) => {
+    forWithIndex_3(colNames$p)((j) => (colName) => {
       const value = (() => {
         if (colName === "__n") {
           if ($1 === "Relevant") {
@@ -37403,7 +37351,7 @@ var createRootElement2 = (v) => (div) => (childId) => {
       };
     })();
     const body = createChild(rootElement)(showElementType.show(TBody))(fromFoldable10([]))();
-    forWithIndex_2($2)((i) => (row$1) => {
+    forWithIndex_3($2)((i) => (row$1) => {
       const $5 = createChild(body)(showElementType.show(TR))(fromFoldable10([
         classes(["table-row"])
       ]));
@@ -37411,7 +37359,7 @@ var createRootElement2 = (v) => (div) => (childId) => {
       return () => {
         const $7 = $5();
         const row$p = $6($7)();
-        return forWithIndex_2([showIntImpl(i + 1 | 0), ...arrayMap(prim)(row$1)])((j) => (value) => {
+        return forWithIndex_3([showIntImpl(i + 1 | 0), ...arrayMap(prim)(row$1)])((j) => (value) => {
           const $8 = createChild(row$p)(showElementType.show(TD))(fromFoldable10([
             classes(j >= 0 ? ["table-cell"] : [])
           ]));
@@ -37487,7 +37435,7 @@ var setSelState6 = (v) => (redraw) => (rootElement) => {
   const $3 = selectAll2(".table-cell")(rootElement);
   return () => {
     const cells = $3();
-    for_4(cells)((cell) => {
+    for_5(cells)((cell) => {
       const $42 = datum2(cell);
       return () => {
         const v12 = $42();
@@ -37545,11 +37493,11 @@ var setSelState6 = (v) => (redraw) => (rootElement) => {
       };
     })();
     const v1 = partition(snd)(a$p);
-    for_4(v1.no)((() => {
+    for_5(v1.no)((() => {
       const $42 = classed("hidden")(true);
       return (x2) => $42(x2._1);
     })())();
-    for_4(v1.yes)((() => {
+    for_5(v1.yes)((() => {
       const $42 = classed("hidden")(false);
       return (x2) => $42(x2._1);
     })())();
@@ -37557,7 +37505,7 @@ var setSelState6 = (v) => (redraw) => (rootElement) => {
     setText($1 + " (" + showIntImpl($0.length - v1.no.length | 0) + " of " + showIntImpl($0.length) + ")")($4)();
   };
 };
-var drawable2TableView = { createRootElement: createRootElement2, setSelState: setSelState6 };
+var drawable2TableView = { createRootElement: createRootElement3, setSelState: setSelState6 };
 var drawableTableView = {
   draw: (rSpec) => (figVal) => (v) => (redraw) => {
     const $0 = selListener(figVal)(redraw)((v1) => (x2) => listElement(v1.i)(dictVal(v1.colName)(x2)));
@@ -43673,17 +43621,18 @@ var parseProgram = (loadFile2) => (folder) => (file) => (dictMonadAff) => (dictM
 })());
 var module_2 = (dictMonadAff) => {
   const Monad0 = dictMonadAff.MonadEffect0().Monad0();
-  const $0 = Monad0.Bind1();
+  const Bind1 = Monad0.Bind1();
+  const Applicative0 = Monad0.Applicative0();
   return (dictMonadError) => {
     const parse1 = parse(dictMonadError);
     const desugarModuleFwd = moduleFwd(dictMonadError)(boundedLattice2);
-    return (loadFile2) => (file) => (v) => {
-      const $1 = v.mods;
-      return $0.bind(loadFile2("fluid")(file)(dictMonadAff)(dictMonadError))((src) => $0.bind($0.bind(parse1(src)(module_))(desugarModuleFwd))((mod) => Monad0.Applicative0().pure({
+    return (loadFile2) => (folder) => (file) => (v) => {
+      const $0 = v.mods;
+      return Bind1.bind(Applicative0.pure())(() => Bind1.bind(loadFile2(folder)(file)(dictMonadAff)(dictMonadError))((src) => Bind1.bind(Bind1.bind(parse1(src)(module_))(desugarModuleFwd))((mod) => Applicative0.pure({
         primitives: v.primitives,
-        mods: $List("Cons", mod, $1),
+        mods: $List("Cons", mod, $0),
         datasets: v.datasets
-      })));
+      }))));
     };
   };
 };
@@ -43717,7 +43666,7 @@ var prepConfig = (dictMonadAff) => {
   return (dictMonadError) => {
     const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
     const initialConfig1 = initialConfig(dictMonadError)(fVExpr);
-    return (loadFile2) => (file) => (progCxt) => $0.bind(parseProgram(loadFile2)("fluid/example")(file)(dictMonadAff)(dictMonadError))((s) => $0.bind(desug1(s))((e) => $0.bind(initialConfig1(e)(progCxt))((gconfig) => Monad0.Applicative0().pure({
+    return (v) => (file) => (progCxt) => $0.bind(parseProgram(v.loadFile)(v.fluidSrcPath)(file)(dictMonadAff)(dictMonadError))((s) => $0.bind(desug1(s))((e) => $0.bind(initialConfig1(e)(progCxt))((gconfig) => Monad0.Applicative0().pure({
       s,
       e,
       gconfig
@@ -43729,10 +43678,10 @@ var datasetAs = (dictMonadAff) => {
   const $0 = Monad0.Bind1();
   return (dictMonadError) => {
     const desug1 = exprFwd(boundedLattice2)(dictMonadError)(joinSemilatticeUnit);
-    return (loadFile2) => (v) => (v1) => {
+    return (loadFile2) => (folder) => (v) => (v1) => {
       const $1 = v1.datasets;
       const $2 = v._1;
-      return $0.bind($0.bind(parseProgram(loadFile2)("fluid")(v._2)(dictMonadAff)(dictMonadError))(desug1))((e\u03B1) => Monad0.Applicative0().pure({
+      return $0.bind($0.bind(parseProgram(loadFile2)(folder)(v._2)(dictMonadAff)(dictMonadError))(desug1))((e\u03B1) => Monad0.Applicative0().pure({
         primitives: v1.primitives,
         mods: v1.mods,
         datasets: $List("Cons", $Tuple($2, e\u03B1), $1)
@@ -43749,12 +43698,12 @@ var loadProgCxt = (dictMonadAff) => {
   return (dictMonadError) => {
     const module_22 = module_1(dictMonadError);
     const datasetAs2 = datasetAs1(dictMonadError);
-    return (loadFile2) => (mods) => (datasets) => $0.bind($0.bind(Monad0.Applicative0().pure({
+    return (v) => (mods) => (datasets) => $0.bind($0.bind(Monad0.Applicative0().pure({
       primitives,
       mods: Nil,
       datasets: Nil
-    }))(concatM1(arrayMap(module_22(loadFile2))(["lib/prelude", ...mods]))))(concatM1(arrayMap((() => {
-      const $1 = datasetAs2(loadFile2);
+    }))(concatM1(arrayMap(module_22(v.loadFile)(v.fluidSrcPath))(["lib/prelude", ...mods]))))(concatM1(arrayMap((() => {
+      const $1 = datasetAs2(v.loadFile)(v.fluidSrcPath);
       return (x2) => $1($Tuple(x2._1, x2._2));
     })())(datasets)));
   };
@@ -43765,9 +43714,10 @@ var loadFile = (v) => (v1) => (dictMonadAff) => {
   const MonadEffect0 = dictMonadAff.MonadEffect0();
   const Monad0 = MonadEffect0.Monad0();
   const Bind1 = Monad0.Bind1();
+  const Applicative0 = Monad0.Applicative0();
   return (dictMonadError) => Bind1.bind(dictMonadAff.liftAff(request(driver)({
     method: $Either("Left", GET),
-    url: "/" + v + "/" + v1 + ".fld",
+    url: v + "/" + v1 + ".fld",
     headers: [],
     content: Nothing,
     username: Nothing,
@@ -43781,12 +43731,27 @@ var loadFile = (v) => (v1) => (dictMonadAff) => {
       return Bind1.bind(MonadEffect0.liftEffect(log2("Failed with " + printError($0))))(() => dictMonadError.MonadThrow0().throwError(error(printError($0))));
     }
     if (result.tag === "Right") {
-      return Monad0.Applicative0().pure(result._1.body);
+      const $0 = result._1;
+      return Bind1.bind(Applicative0.pure())(() => Applicative0.pure($0.body));
     }
     fail();
   });
 };
 var loadFile$p = (folder) => (file) => (dictMonadAff) => (dictMonadError) => dictMonadAff.MonadEffect0().Monad0().Bind1().Apply0().Functor0().map((v) => $Tuple(file, v))(loadFile(folder)(file)(dictMonadAff)(dictMonadError));
+var loadProgCxt2 = (dictMonadAff) => {
+  const loadProgCxt1 = loadProgCxt(dictMonadAff);
+  return (dictMonadError) => {
+    const loadProgCxt22 = loadProgCxt1(dictMonadError);
+    return (fluidSrcPath) => loadProgCxt22({ loadFile, fluidSrcPath });
+  };
+};
+var prepConfig2 = (dictMonadAff) => {
+  const prepConfig1 = prepConfig(dictMonadAff);
+  return (dictMonadError) => {
+    const prepConfig22 = prepConfig1(dictMonadError);
+    return (fluidSrcPath) => prepConfig22({ loadFile, fluidSrcPath });
+  };
+};
 
 // output-es/App.Fig/index.js
 var highlightableSelState2 = /* @__PURE__ */ highlightableSelState(highlightableBoolean)(joinSemilatticeBoolean);
@@ -43972,67 +43937,68 @@ var lift3 = /* @__PURE__ */ lift(applyVal)(applyEnv);
 var loadFig = (v) => (dictMonadAff) => {
   const Monad0 = dictMonadAff.MonadEffect0().Monad0();
   const $0 = Monad0.Bind1();
-  const loadProgCxt1 = loadProgCxt(dictMonadAff);
-  const prepConfig1 = prepConfig(dictMonadAff);
+  const loadProgCxt3 = loadProgCxt2(dictMonadAff);
+  const prepConfig3 = prepConfig2(dictMonadAff);
   return (dictMonadError) => {
-    const prepConfig1$1 = prepConfig1(dictMonadError)(loadFile);
+    const prepConfig1 = prepConfig3(dictMonadError);
     const graphEval2 = graphEval(dictMonadError);
     const $1 = v.file;
-    const $2 = v.inputs;
-    return $0.bind(loadProgCxt1(dictMonadError)(loadFile)(v.imports)(v.datasets))((progCxt) => $0.bind(prepConfig1$1($1)(progCxt))((v1) => {
-      const $3 = v1.s;
+    const $2 = v.fluidSrcPath;
+    const $3 = v.inputs;
+    return $0.bind(loadProgCxt3(dictMonadError)($2)(v.imports)(v.datasets))((progCxt) => $0.bind(prepConfig1($2)($1)(progCxt))((v1) => {
+      const $4 = v1.s;
       return $0.bind(graphEval2(v1.gconfig)(v1.e))((v2) => {
         const v3 = functorEnvExpr.map((v$1) => {
         })(v2["in\u03B1"]);
         const \u03B30 = _fmapObject(v2["in\u03B1"]._1, functorVal.map((v$1) => false));
         const v0 = $Val(false, functorBaseVal.map((v$1) => false)(v2["out\u03B1"]._2));
-        const $4 = unrestrictGC(boundedMeetSemilatticeBoo)(v3._1)(fromFoldable28($2));
-        const $5 = unprojExpr(boundedMeetSemilatticeBoo)($EnvExpr(v3._1, v3._2));
-        const focus = { fwd: (x2) => $5.fwd($4.fwd(x2)), bwd: (x2) => $4.bwd($5.bwd(x2)) };
-        const $6 = graphGC1(v2);
-        const gc = { fwd: (x2) => $6.fwd(focus.fwd(x2)), bwd: (x2) => focus.bwd($6.bwd(x2)) };
-        const $7 = gc.fwd(\u03B30);
-        const vInert = $Val(selState($7._1), functorBaseVal.map(selState)($7._2));
+        const $5 = unrestrictGC(boundedMeetSemilatticeBoo)(v3._1)(fromFoldable28($3));
+        const $6 = unprojExpr(boundedMeetSemilatticeBoo)($EnvExpr(v3._1, v3._2));
+        const focus = { fwd: (x2) => $6.fwd($5.fwd(x2)), bwd: (x2) => $5.bwd($6.bwd(x2)) };
+        const $7 = graphGC1(v2);
+        const gc = { fwd: (x2) => $7.fwd(focus.fwd(x2)), bwd: (x2) => focus.bwd($7.bwd(x2)) };
+        const $8 = gc.fwd(\u03B30);
+        const vInert = $Val(selState($8._1), functorBaseVal.map(selState)($8._2));
         const \u03B3Inert = _fmapObject(
           _fmapObject(gc.bwd($Val(true, functorBaseVal.map((v$1) => true)(v2["out\u03B1"]._2))), functorVal.map(boolNot)),
           functorVal.map(selState)
         );
-        const $8 = graphGC22({
+        const $9 = graphGC22({
           g: $GraphImpl({ out: v2.g._1.in_, in_: v2.g._1.out, sinks: v2.g._1.sources, sources: v2.g._1.sinks, vertices: v2.g._1.vertices }),
           graph_fwd: v2.graph_fwd,
           graph_bwd: v2.graph_bwd,
           "in\u03B1": v2["out\u03B1"],
           "out\u03B1": v2["in\u03B1"]
         });
-        const $9 = dual(focus);
-        const gc_dual = { fwd: (x2) => $9.fwd($8.fwd(x2)), bwd: (x2) => $8.bwd($9.bwd(x2)) };
+        const $10 = dual(focus);
+        const gc_dual = { fwd: (x2) => $10.fwd($9.fwd(x2)), bwd: (x2) => $9.bwd($10.bwd(x2)) };
         return Monad0.Applicative0().pure({
           spec: v,
-          s: $3,
+          s: $4,
           "\u03B3": intersectionWith_Object(apply)(_fmapObject(
             intersectionWith_Object(apply)(_fmapObject(\u03B3Inert, applyVal.apply))(\u03B30),
             applyVal.apply
           ))(\u03B30),
           v: applyVal.apply(applyVal.apply(vInert)(v0))(v0),
           linkedOutputs: (() => {
-            const $10 = lift3(vInert)(\u03B3Inert)(gc_dual);
-            const $11 = lift1(\u03B3Inert)(vInert)(gc);
+            const $11 = lift3(vInert)(\u03B3Inert)(gc_dual);
+            const $12 = lift1(\u03B3Inert)(vInert)(gc);
             return {
-              fwd: (x2) => $11.fwd(meet1.fwd($Tuple($10.fwd(x2._1), categoryGaloisConnection.identity.fwd(x2._2)))),
+              fwd: (x2) => $12.fwd(meet1.fwd($Tuple($11.fwd(x2._1), categoryGaloisConnection.identity.fwd(x2._2)))),
               bwd: (x2) => {
-                const $12 = meet1.bwd($11.bwd(x2));
-                return $Tuple($10.bwd($12._1), categoryGaloisConnection.identity.bwd($12._2));
+                const $13 = meet1.bwd($12.bwd(x2));
+                return $Tuple($11.bwd($13._1), categoryGaloisConnection.identity.bwd($13._2));
               }
             };
           })(),
           linkedInputs: (() => {
-            const $10 = lift1(\u03B3Inert)(vInert)(gc);
-            const $11 = lift3(vInert)(\u03B3Inert)(gc_dual);
+            const $11 = lift1(\u03B3Inert)(vInert)(gc);
+            const $12 = lift3(vInert)(\u03B3Inert)(gc_dual);
             return {
-              fwd: (x2) => $11.fwd(meet.fwd($Tuple($10.fwd(x2._1), categoryGaloisConnection.identity.fwd(x2._2)))),
+              fwd: (x2) => $12.fwd(meet.fwd($Tuple($11.fwd(x2._1), categoryGaloisConnection.identity.fwd(x2._2)))),
               bwd: (x2) => {
-                const $12 = meet.bwd($11.bwd(x2));
-                return $Tuple($10.bwd($12._1), categoryGaloisConnection.identity.bwd($12._2));
+                const $13 = meet.bwd($12.bwd(x2));
+                return $Tuple($11.bwd($13._1), categoryGaloisConnection.identity.bwd($13._2));
               }
             };
           })(),
@@ -44250,7 +44216,26 @@ var gDecodeJsonCons = (dictDecodeJsonField) => (dictGDecodeJson) => (dictIsSymbo
 var monadAffAff = { liftAff: (x2) => x2, MonadEffect0: () => monadEffectAff };
 
 // output-es/App.LoadFigure/index.js
-var gDecodeJsonCons2 = /* @__PURE__ */ gDecodeJsonCons(/* @__PURE__ */ (() => {
+var gDecodeJsonCons2 = /* @__PURE__ */ gDecodeJsonCons({
+  decodeJsonField: (j) => {
+    if (j.tag === "Just") {
+      return $Maybe(
+        "Just",
+        _caseJson(
+          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
+          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
+          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
+          Right,
+          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
+          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
+          j._1
+        )
+      );
+    }
+    return Nothing;
+  }
+});
+var gDecodeJsonCons1 = /* @__PURE__ */ gDecodeJsonCons(/* @__PURE__ */ (() => {
   const $0 = decodeArray(caseJsonString($Either(
     "Left",
     $JsonDecodeError("TypeMismatch", "String")
@@ -44264,7 +44249,7 @@ var gDecodeJsonCons2 = /* @__PURE__ */ gDecodeJsonCons(/* @__PURE__ */ (() => {
     }
   };
 })());
-var jsonToSpec = /* @__PURE__ */ (() => decodeRecord(gDecodeJsonCons((() => {
+var decodeJson = /* @__PURE__ */ (() => decodeRecord(gDecodeJsonCons((() => {
   const $0 = decodeArray(decodeTuple(caseJsonString($Either(
     "Left",
     $JsonDecodeError("TypeMismatch", "String")
@@ -44277,40 +44262,28 @@ var jsonToSpec = /* @__PURE__ */ (() => decodeRecord(gDecodeJsonCons((() => {
       return Nothing;
     }
   };
-})())(gDecodeJsonCons({
-  decodeJsonField: (j) => {
-    if (j.tag === "Just") {
-      return $Maybe(
-        "Just",
-        _caseJson(
-          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
-          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
-          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
-          Right,
-          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
-          (v) => $Either("Left", $JsonDecodeError("TypeMismatch", "String")),
-          j._1
-        )
-      );
-    }
-    return Nothing;
-  }
-})(gDecodeJsonCons2(gDecodeJsonCons2(gDecodeJsonNil)({ reflectSymbol: () => "inputs" })()())({ reflectSymbol: () => "imports" })()())({
-  reflectSymbol: () => "file"
-})()())({ reflectSymbol: () => "datasets" })()())().decodeJson)();
-var figSpecFromJson = (spec) => ({ datasets: spec.datasets, imports: spec.imports, file: spec.file, inputs: spec.inputs });
+})())(gDecodeJsonCons2(gDecodeJsonCons2(gDecodeJsonCons1(gDecodeJsonCons1(gDecodeJsonNil)({ reflectSymbol: () => "inputs" })()())({
+  reflectSymbol: () => "imports"
+})()())({ reflectSymbol: () => "fluidSrcPath" })()())({ reflectSymbol: () => "file" })()())({ reflectSymbol: () => "datasets" })()())().decodeJson)();
+var figSpecFromJson = (spec) => ({ fluidSrcPath: spec.fluidSrcPath, datasets: spec.datasets, imports: spec.imports, file: spec.file, inputs: spec.inputs });
 var loadFigure = (fileName) => runAffs_((v) => drawFig(v._1)(v._2))([
   _bind($$get(driver)($ResponseFormat("Json", identity))(fileName))((result) => {
     if (result.tag === "Left") {
       return throwException(error("Json fetching failed with " + printError(result._1)))();
     }
     if (result.tag === "Right") {
-      const v = jsonToSpec(result._1.body);
+      const v = decodeJson(result._1.body);
       if (v.tag === "Left") {
         return throwException(error("JSON decoding failed with " + showJsonDecodeError.show(v._1)))();
       }
       if (v.tag === "Right") {
-        return _map((v1) => $Tuple("fig", v1))(loadFig({ datasets: v._1.datasets, imports: v._1.imports, file: v._1.file, inputs: v._1.inputs })(monadAffAff)(monadErrorAff));
+        return _map((v1) => $Tuple("fig", v1))(loadFig({
+          fluidSrcPath: v._1.fluidSrcPath,
+          datasets: v._1.datasets,
+          imports: v._1.imports,
+          file: v._1.file,
+          inputs: v._1.inputs
+        })(monadAffAff)(monadErrorAff));
       }
     }
     fail();
@@ -44318,9 +44291,10 @@ var loadFigure = (fileName) => runAffs_((v) => drawFig(v._1)(v._2))([
 ]);
 var drawCode2 = (folder) => (file) => runAffs_(drawFile)([loadFile$p(folder)(file)(monadAffAff)(monadErrorAff)]);
 export {
+  decodeJson,
   drawCode2 as drawCode,
   figSpecFromJson,
   gDecodeJsonCons2 as gDecodeJsonCons,
-  jsonToSpec,
+  gDecodeJsonCons1,
   loadFigure
 };