compostjs 0.0.4 → 0.0.8

package/.claude/settings.local.json

@@ -0,0 +1,11 @@
+{
+  "permissions": {
+    "allow": [
+      "WebFetch(domain:fable.io)",
+      "WebFetch(domain:github.com)",
+      "WebSearch",
+      "WebFetch(domain:www.npmjs.com)",
+      "Bash(npm view:*)"
+    ]
+  }
+}

package/README.md

@@ -1,37 +1,38 @@
-# Compost.js: Composable data visualization library
-
-Compost is a data visualization library that lets you compose rich interactive data visualizations
-from a small number of basic primitives. The library is based on the functional programming idea of
-composable domain-specific languages. Compost is simple (implemented in just 700 lines of code) and
-easy to understand. Compost is a plain JavaScript library. You use it by writing JavaScript code
-that generates a chart using some 15 basic Compost primitives.
-
-For more information, see the [Compost web page and documentation](https://compostjs.github.io/compost).
-
-## Getting started with Compost
-
-Compost is written using [the F# language](https://fsharp.org) and compiled to JavaScript
-using [the Fable compiler](https://fable.io). To build Compost, you will need to install
-[.NET Core](https://dotnet.microsoft.com/download). You may also want to get the
-[Ionide plugin](http://ionide.io/) for Visual Studio Code.
-
-### Developing Compost
-To work on Compost, you can use the WebPack dev server. The following will serve the
-`public/index.html` file and compile the `src/project/demos.js` source code at
-http://localhost:8080
-
-```
-npm start
-```
-
-### Building Compost
-There are two ways to build Compost. Running `npm run build` will use `fable-splitter`
-to generate nice JavaScript files for a NPM package in the `dist` folder, which is then
-packaged and published on NPM. Running `npm run standalone` builds a standalone
-JavaScript file that is added to the `releases` folder of the `docs` with the current
-version number in the filename (and also updates the `latest` file).
-This should all happen automatically when using `npm run release`.
-
-## What is the story behind the name??
-
-![Compost](https://github.com/compostjs/compost/raw/master/compost.gif)
+# Compost.js: Composable data visualization library
+
+Compost is a data visualization library that lets you compose rich interactive data visualizations
+from a small number of basic primitives. The library is based on the functional programming idea of
+composable domain-specific languages. Compost is simple (implemented in just 700 lines of code) and
+easy to understand. Compost is a plain JavaScript library. You use it by writing JavaScript code
+that generates a chart using some 15 basic Compost primitives.
+
+For more information, see the [Compost web page and documentation](https://compostjs.github.io/compost).
+
+## Getting started with Compost
+
+Compost is written using [the F# language](https://fsharp.org) and compiled to JavaScript
+using [the Fable compiler](https://fable.io). To build Compost, you will need to install
+[.NET Core](https://dotnet.microsoft.com/download). You may also want to get the
+[Ionide plugin](http://ionide.io/) for Visual Studio Code.
+
+### Developing Compost
+To work on Compost, you can use the WebPack dev server. The following will serve the
+`public/index.html` file and compile the `src/project/demos.js` source code at
+http://localhost:8080
+
+```
+npm install
+npm start
+```
+
+### Building Compost
+There are two ways to build Compost. Running `npm run build` will use `fable-splitter`
+to generate nice JavaScript files for a NPM package in the `dist` folder, which is then
+packaged and published on NPM. Running `npm run standalone` builds a standalone
+JavaScript file that is added to the `releases` folder of the `docs` with the current
+version number in the filename (and also updates the `latest` file).
+This should all happen automatically when using `npm run release`.
+
+## What is the story behind the name??
+
+![Compost](https://github.com/compostjs/compost/raw/master/compost.gif)

package/dist/compost.js

@@ -1,230 +1,168 @@
-import { Compost$$$createSvg as Compost$0024$0024$0024createSvg, EventHandler, HorizontalAlign, VerticalAlign, Derived$$$Bar as Derived$0024$0024$0024Bar, Derived$$$Column as Derived$0024$0024$0024Column, Derived$$$Font as Derived$0024$0024$0024Font, Derived$$$StrokeColor as Derived$0024$0024$0024StrokeColor, Derived$$$FillColor as Derived$0024$0024$0024FillColor, Shape, Scale, categorical, continuous, Value } from "./core";
-import { toFail, printf } from "./fable-library.2.10.1/String";
-import { delay, map } from "./fable-library.2.10.1/Seq";
-import { ofSeq } from "./fable-library.2.10.1/Array";
-import { ofSeq as ofSeq$$1, ofArray } from "./fable-library.2.10.1/List";
-import { equals } from "./fable-library.2.10.1/Util";
-import { renderTo, createVirtualDomApp } from "./html";
-export function Helpers$$$formatValue(v) {
-  if (v.tag === 1) {
-    return v.fields[0].fields[0];
-  } else {
-    return [v.fields[0].fields[0], v.fields[1]];
-  }
-}
-export function Helpers$$$parseValue(v$$2) {
-  if (typeof v$$2 == "number") {
-    return new Value(1, "COV", new continuous(0, "CO", v$$2));
-  } else if (Array.isArray(v$$2)) {
-    const a = v$$2;
-
-    if (a.length !== 2) {
-      const clo1 = toFail(printf("Cannot parse value: %A. Expected a number or an array with two elements."));
-      clo1(a);
-    } else {
-      void null;
-    }
-
-    if (!(typeof a[1] == "number")) {
-      const clo1$$1 = toFail(printf("Cannot parse value: %A. The second element should be a number."));
-      clo1$$1(a);
-    } else {
-      void null;
-    }
-
-    return new Value(0, "CAR", new categorical(0, "CA", a[0]), a[1]);
-  } else {
-    const clo1$$2 = toFail(printf("Cannot parse value: %A. Expected a number or an array with two elements."));
-    return clo1$$2(v$$2);
-  }
-}
-export const scale = {
-  continuous(lo, hi) {
-    return new Scale(0, "Continuous", new continuous(0, "CO", lo), new continuous(0, "CO", hi));
-  },
-
-  categorical(cats) {
-    return new Scale(1, "Categorical", ofSeq(delay(function () {
-      return map(function (c$$1) {
-        return new categorical(0, "CA", c$$1);
-      }, cats);
-    }), Array));
-  }
-
-};
-export const compost = {
-  scaleX(sc, sh) {
-    return new Shape(3, "InnerScale", sc, undefined, sh);
-  },
-
-  scaleY(sc$$1, sh$$1) {
-    return new Shape(3, "InnerScale", undefined, sc$$1, sh$$1);
-  },
-
-  scale(sx, sy, sh$$2) {
-    return new Shape(3, "InnerScale", sx, sy, sh$$2);
-  },
-
-  nestX(lx, hx, s) {
-    return new Shape(4, "NestX", Helpers$$$parseValue(lx), Helpers$$$parseValue(hx), s);
-  },
-
-  nestY(ly, hy, s$$1) {
-    return new Shape(5, "NestY", Helpers$$$parseValue(ly), Helpers$$$parseValue(hy), s$$1);
-  },
-
-  nest(lx$$1, hx$$1, ly$$1, hy$$1, s$$2) {
-    return new Shape(5, "NestY", Helpers$$$parseValue(ly$$1), Helpers$$$parseValue(hy$$1), new Shape(4, "NestX", Helpers$$$parseValue(lx$$1), Helpers$$$parseValue(hx$$1), s$$2));
-  },
-
-  overlay(sh$$3) {
-    return new Shape(9, "Layered", ofArray(sh$$3));
-  },
-
-  padding(t, r$$1, b, l, s$$3) {
-    return new Shape(12, "Padding", [t, r$$1, b, l], s$$3);
-  },
-
-  fillColor(c$$2, s$$4) {
-    return Derived$0024$0024$0024FillColor(c$$2, s$$4);
-  },
-
-  strokeColor(c$$3, s$$5) {
-    return Derived$0024$0024$0024StrokeColor(c$$3, s$$5);
-  },
-
-  font(f, c$$4, s$$6) {
-    return Derived$0024$0024$0024Font(f, c$$4, s$$6);
-  },
-
-  column(xp, yp) {
-    return Derived$0024$0024$0024Column(new categorical(0, "CA", xp), new continuous(0, "CO", yp));
-  },
-
-  bar(xp$$1, yp$$1) {
-    return Derived$0024$0024$0024Bar(new continuous(0, "CO", xp$$1), new categorical(0, "CA", yp$$1));
-  },
-
-  bubble(xp$$2, yp$$2, w, h) {
-    return new Shape(7, "Bubble", Helpers$$$parseValue(xp$$2), Helpers$$$parseValue(yp$$2), w, h);
-  },
-
-  text(xp$$3, yp$$3, t$$1, s$$7, r$$2) {
-    const r$$3 = equals(r$$2, null) ? 0 : r$$2;
-    const s$$8 = equals(s$$7, null) ? "" : s$$7;
-    const va = s$$8.indexOf("baseline") >= 0 ? new VerticalAlign(0, "Baseline") : s$$8.indexOf("hanging") >= 0 ? new VerticalAlign(2, "Hanging") : new VerticalAlign(1, "Middle");
-    const ha = s$$8.indexOf("start") >= 0 ? new HorizontalAlign(0, "Start") : s$$8.indexOf("end") >= 0 ? new HorizontalAlign(2, "End") : new HorizontalAlign(1, "Center");
-    return new Shape(1, "Text", Helpers$$$parseValue(xp$$3), Helpers$$$parseValue(yp$$3), va, ha, r$$3, t$$1);
-  },
-
-  shape(a$$1) {
-    return new Shape(8, "Shape", ofSeq$$1(delay(function () {
-      return map(function (p) {
-        return [Helpers$$$parseValue(p[0]), Helpers$$$parseValue(p[1])];
-      }, a$$1);
-    })));
-  },
-
-  line(a$$2) {
-    return new Shape(6, "Line", ofSeq$$1(delay(function () {
-      return map(function (p$$1) {
-        return [Helpers$$$parseValue(p$$1[0]), Helpers$$$parseValue(p$$1[1])];
-      }, a$$2);
-    })));
-  },
-
-  axes(a$$3, s$$9) {
-    return new Shape(10, "Axes", a$$3.indexOf("top") >= 0, a$$3.indexOf("right") >= 0, a$$3.indexOf("bottom") >= 0, a$$3.indexOf("left") >= 0, s$$9);
-  },
-
-  on(o, s$$10) {
-    return new Shape(11, "Interactive", ofSeq$$1(delay(function () {
-      return map(function (k) {
-        let f$$2;
-        const f$$1 = o[k];
-
-        f$$2 = function (args) {
-          f$$1(...args);
-        };
-
-        switch (k) {
-          case "mousedown":
-            {
-              return new EventHandler(2, "MouseDown", function (me, tupledArg) {
-                f$$2([Helpers$$$formatValue(tupledArg[0]), Helpers$$$formatValue(tupledArg[1]), me]);
-              });
-            }
-
-          case "mouseup":
-            {
-              return new EventHandler(1, "MouseUp", function (me$$1, tupledArg$$1) {
-                f$$2([Helpers$$$formatValue(tupledArg$$1[0]), Helpers$$$formatValue(tupledArg$$1[1]), me$$1]);
-              });
-            }
-
-          case "mousemove":
-            {
-              return new EventHandler(0, "MouseMove", function (me$$2, tupledArg$$2) {
-                f$$2([Helpers$$$formatValue(tupledArg$$2[0]), Helpers$$$formatValue(tupledArg$$2[1]), me$$2]);
-              });
-            }
-
-          case "touchstart":
-            {
-              return new EventHandler(4, "TouchStart", function (me$$3, tupledArg$$3) {
-                f$$2([Helpers$$$formatValue(tupledArg$$3[0]), Helpers$$$formatValue(tupledArg$$3[1]), me$$3]);
-              });
-            }
-
-          case "touchmove":
-            {
-              return new EventHandler(5, "TouchMove", function (me$$4, tupledArg$$4) {
-                f$$2([Helpers$$$formatValue(tupledArg$$4[0]), Helpers$$$formatValue(tupledArg$$4[1]), me$$4]);
-              });
-            }
-
-          case "click":
-            {
-              return new EventHandler(3, "Click", function (me$$5, tupledArg$$5) {
-                f$$2([Helpers$$$formatValue(tupledArg$$5[0]), Helpers$$$formatValue(tupledArg$$5[1]), me$$5]);
-              });
-            }
-
-          case "mouseleave":
-            {
-              return new EventHandler(7, "MouseLeave", function (me$$6) {
-                f$$2([me$$6]);
-              });
-            }
-
-          case "touchend":
-            {
-              return new EventHandler(6, "TouchEnd", function (me$$7) {
-                f$$2([me$$7]);
-              });
-            }
-
-          default:
-            {
-              const clo1$$3 = toFail(printf("Unsupported event type '%s' passed to the 'on' primitive."));
-              return clo1$$3(k);
-            }
-        }
-      }, Object.keys(o));
-    })), s$$10);
-  },
-
-  interactive(id, init, update, render) {
-    createVirtualDomApp(id, init, function render$$1(t$$2, s$$12) {
-      const el = document.getElementById(id);
-      return Compost$0024$0024$0024createSvg(false, false, el.clientWidth, el.clientHeight, render(t$$2, s$$12));
-    }, update);
-  },
-
-  render(id$$1, viz) {
-    const el$$1 = document.getElementById(id$$1);
-    const svg = Compost$0024$0024$0024createSvg(false, false, el$$1.clientWidth, el$$1.clientHeight, viz);
-    renderTo(el$$1, svg);
-  }
-
-};
+import { Compost_createSvg, EventHandler, HorizontalAlign, VerticalAlign, Derived_Bar, Derived_Column, Derived_Font, Derived_StrokeColor, Derived_FillColor, Shape, Scale, categorical, Value, continuous } from "./core.js";
+import { printf, toFail } from "./fable_modules/fable-library-js.4.28.0/String.js";
+import { map as map_1, item } from "./fable_modules/fable-library-js.4.28.0/Array.js";
+import { toList, map, delay, toArray } from "./fable_modules/fable-library-js.4.28.0/Seq.js";
+import { ofArray } from "./fable_modules/fable-library-js.4.28.0/List.js";
+import { defaultOf, equals } from "./fable_modules/fable-library-js.4.28.0/Util.js";
+import { renderTo, createVirtualDomApp, DomNode, DomAttribute } from "./html.js";
+
+export function Helpers_formatValue(v) {
+    if (v.tag === 1) {
+        return v.fields[0].fields[0];
+    }
+    else {
+        return [v.fields[0].fields[0], v.fields[1]];
+    }
+}
+
+export function Helpers_parseValue(v) {
+    if ((typeof(v)=='number')) {
+        return new Value(1, [new continuous(v)]);
+    }
+    else if (Array.isArray(v)) {
+        const a = v;
+        if (a.length !== 2) {
+            toFail(printf("Cannot parse value: %A. Expected a number or an array with two elements."))(a);
+        }
+        if (!((typeof(item(1, a))=='number'))) {
+            toFail(printf("Cannot parse value: %A. The second element should be a number."))(a);
+        }
+        return new Value(0, [new categorical(item(0, a)), item(1, a)]);
+    }
+    else {
+        return toFail(printf("Cannot parse value: %A. Expected a number or an array with two elements."))(v);
+    }
+}
+
+export const scale = {
+    continuous(lo, hi) {
+        return new Scale(0, [new continuous(lo), new continuous(hi)]);
+    },
+    categorical(cats) {
+        return new Scale(1, [toArray(delay(() => map((c) => (new categorical(c)), cats)))]);
+    },
+};
+
+export const compost = {
+    scaleX(sc, sh) {
+        return new Shape(3, [sc, undefined, sh]);
+    },
+    scaleY(sc_1, sh_1) {
+        return new Shape(3, [undefined, sc_1, sh_1]);
+    },
+    scale(sx, sy, sh_2) {
+        return new Shape(3, [sx, sy, sh_2]);
+    },
+    nestX(lx, hx, s) {
+        return new Shape(4, [Helpers_parseValue(lx), Helpers_parseValue(hx), s]);
+    },
+    nestY(ly, hy, s_1) {
+        return new Shape(5, [Helpers_parseValue(ly), Helpers_parseValue(hy), s_1]);
+    },
+    nest(lx_1, hx_1, ly_1, hy_1, s_2) {
+        return new Shape(5, [Helpers_parseValue(ly_1), Helpers_parseValue(hy_1), new Shape(4, [Helpers_parseValue(lx_1), Helpers_parseValue(hx_1), s_2])]);
+    },
+    overlay(sh_3) {
+        return new Shape(9, [ofArray(sh_3)]);
+    },
+    padding(t, r, b, l, s_3) {
+        return new Shape(12, [[t, r, b, l], s_3]);
+    },
+    fillColor(c, s_4) {
+        return Derived_FillColor(c, s_4);
+    },
+    strokeColor(c_1, s_5) {
+        return Derived_StrokeColor(c_1, s_5);
+    },
+    font(f, c_2, s_6) {
+        return Derived_Font(f, c_2, s_6);
+    },
+    column(xp, yp) {
+        return Derived_Column(new categorical(xp), new continuous(yp));
+    },
+    bar(xp_1, yp_1) {
+        return Derived_Bar(new continuous(xp_1), new categorical(yp_1));
+    },
+    bubble(xp_2, yp_2, w, h) {
+        return new Shape(7, [Helpers_parseValue(xp_2), Helpers_parseValue(yp_2), w, h]);
+    },
+    text(xp_3, yp_3, t_1, s_7, r_1) {
+        const r_2 = equals(r_1, defaultOf()) ? 0 : r_1;
+        const s_8 = equals(s_7, defaultOf()) ? "" : s_7;
+        const va = (s_8.indexOf("baseline") >= 0) ? (new VerticalAlign(0, [])) : ((s_8.indexOf("hanging") >= 0) ? (new VerticalAlign(2, [])) : (new VerticalAlign(1, [])));
+        const ha = (s_8.indexOf("start") >= 0) ? (new HorizontalAlign(0, [])) : ((s_8.indexOf("end") >= 0) ? (new HorizontalAlign(2, [])) : (new HorizontalAlign(1, [])));
+        return new Shape(1, [Helpers_parseValue(xp_3), Helpers_parseValue(yp_3), va, ha, r_2, t_1]);
+    },
+    shape(a) {
+        return new Shape(8, [toList(delay(() => map((p) => [Helpers_parseValue(item(0, p)), Helpers_parseValue(item(1, p))], a)))]);
+    },
+    line(a_1) {
+        return new Shape(6, [toList(delay(() => map((p_1) => [Helpers_parseValue(item(0, p_1)), Helpers_parseValue(item(1, p_1))], a_1)))]);
+    },
+    axes(a_2, s_9) {
+        return new Shape(10, [a_2.indexOf("top") >= 0, a_2.indexOf("right") >= 0, a_2.indexOf("bottom") >= 0, a_2.indexOf("left") >= 0, s_9]);
+    },
+    on(o, s_10) {
+        return new Shape(11, [toList(delay(() => map((k) => {
+            let f_2;
+            const f_1 = o[k];
+            f_2 = ((args) => {
+                f_1(...args);
+            });
+            return (k === "mousedown") ? (new EventHandler(2, [(me, tupledArg) => {
+                f_2([Helpers_formatValue(tupledArg[0]), Helpers_formatValue(tupledArg[1]), me]);
+            }])) : ((k === "mouseup") ? (new EventHandler(1, [(me_1, tupledArg_1) => {
+                f_2([Helpers_formatValue(tupledArg_1[0]), Helpers_formatValue(tupledArg_1[1]), me_1]);
+            }])) : ((k === "mousemove") ? (new EventHandler(0, [(me_2, tupledArg_2) => {
+                f_2([Helpers_formatValue(tupledArg_2[0]), Helpers_formatValue(tupledArg_2[1]), me_2]);
+            }])) : ((k === "touchstart") ? (new EventHandler(4, [(me_3, tupledArg_3) => {
+                f_2([Helpers_formatValue(tupledArg_3[0]), Helpers_formatValue(tupledArg_3[1]), me_3]);
+            }])) : ((k === "touchmove") ? (new EventHandler(5, [(me_4, tupledArg_4) => {
+                f_2([Helpers_formatValue(tupledArg_4[0]), Helpers_formatValue(tupledArg_4[1]), me_4]);
+            }])) : ((k === "click") ? (new EventHandler(3, [(me_5, tupledArg_5) => {
+                f_2([Helpers_formatValue(tupledArg_5[0]), Helpers_formatValue(tupledArg_5[1]), me_5]);
+            }])) : ((k === "mouseleave") ? (new EventHandler(7, [(me_6) => {
+                f_2([me_6]);
+            }])) : ((k === "touchend") ? (new EventHandler(6, [(me_7) => {
+                f_2([me_7]);
+            }])) : toFail(printf("Unsupported event type \'%s\' passed to the \'on\' primitive."))(k))))))));
+        }, Object.keys(o)))), s_10]);
+    },
+    svg(w_1, h_1, shape) {
+        return Compost_createSvg(false, false, w_1, h_1, shape);
+    },
+    html(tag, attrs, children) {
+        const attrs_1 = toArray(delay(() => map((a_3) => {
+            const p_2 = attrs[a_3];
+            return ((typeof(p_2)) === "function") ? [a_3, new DomAttribute(0, [(e, h_2) => {
+                p_2(...[e, h_2]);
+            }])] : [a_3, new DomAttribute(1, [p_2])];
+        }, Object.keys(attrs))));
+        const children_1 = map_1((c_3) => {
+            if ((typeof(c_3)) === "string") {
+                return new DomNode(0, [c_3]);
+            }
+            else {
+                return c_3;
+            }
+        }, children);
+        return new DomNode(1, [defaultOf(), tag, attrs_1, children_1]);
+    },
+    interactive(id, init, update, render) {
+        createVirtualDomApp(id, init, (t_2, s_12) => {
+            const el = document.getElementById(id);
+            const res = render(t_2, s_12);
+            if (equals(res["constructor"], (new DomNode(0, [""]))["constructor"])) {
+                return res;
+            }
+            else {
+                return Compost_createSvg(false, false, el.clientWidth, el.clientHeight, res);
+            }
+        }, update);
+    },
+    render(id_1, viz) {
+        const el_1 = document.getElementById(id_1);
+        renderTo(el_1, Compost_createSvg(false, false, el_1.clientWidth, el_1.clientHeight, viz));
+    },
+};
+