@explorable-viz/fluid 0.8.1 → 0.8.3

package/dist/fluid/shared/webtest-lib.js

@@ -265326,7 +265326,6 @@ __export(Test_Util_exports, {
   textContentValue: () => textContentValue,
   timeout: () => timeout2,
   waitFor: () => waitFor,
-  waitForFigure: () => waitForFigure,
   waitForHidden: () => waitForHidden
 });
 module.exports = __toCommonJS(Test_Util_exports);
@@ -278702,7 +278701,6 @@ var waitFor = (selector2) => (page2) => {
     visible: true
   })(page2)))(() => _bind(_liftEffect(log2("-> found")))(() => report(true)("exists"))))((e) => report(false)(showErrorImpl(e))));
 };
-var waitForFigure = (page2) => (selector2) => waitFor("svg" + selector2)(page2);
 var waitForHidden = (selector2) => (page2) => _bind(_liftEffect(log2("Waiting for " + selector2)))(() => _bind(_map((v) => {
 })(runPromiseAffE3(_pageWaitForSelector)(selector2)({
   timeout: 24e4,
@@ -278725,7 +278723,7 @@ var checkAttributeContains = (page2) => (sel) => (attr) => (expected) => _bind(g
   const success = contains(expected)(found);
   return testCondition2(sel)(success)(attr + " contains " + showStringImpl(expected) + (success ? "" : " (got " + found + ")"));
 });
-var checkAttribute = (page2) => (sel) => (attr) => (expected) => _bind(getAttributeValue(page2)(sel)(attr))((found) => testCondition2(sel)(found === expected)(attr + " == " + showStringImpl(expected) + (found === expected ? "" : " (got " + found + ")")));
+var checkAttribute = (page2) => (sel) => (attr) => (expected) => _bind(getAttributeValue(page2)(sel)(attr))((found) => testCondition2(sel)(found === expected)(attr + " == " + showStringImpl(expected) + (found === expected ? "" : ' (got "' + found + '")')));
 var browserTests = (suffix) => (browserName) => (launchBrowser) => (tests) => _bind(_liftEffect(log2("browserTests: " + browserName)))(() => _bind(launchBrowser)((browser) => _bind(_bind(_liftEffect(_newPage(browser)))(toAff$p(coerce)))((page2) => {
   const url = "http://127.0.0.1:8080/" + suffix;
   return _bind(for_2(tests)((test2) => _bind($$goto(url)(page2))(() => test2(page2))))(() => _bind(_liftEffect(_close(browser)))(toAff$p(coerce)));
@@ -278758,7 +278756,6 @@ var testURL = (suffix) => (tests) => {
   textContentValue,
   timeout,
   waitFor,
-  waitForFigure,
   waitForHidden
 });
 /* istanbul ignore if -- @preserve */

package/package.json

@@ -1,7 +1,7 @@
 {
   "name": "@explorable-viz/fluid",
-  "version": "0.8.1",
-  "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.",
+  "version": "0.8.3",
+  "description": "A functional programming language which integrates a bidirectional dynamic analysis, connecting outputs to data sources in a fine-grained way. Fluid is implemented in PureScript and runs in the browser.",
   "main": "index.js",
   "repository": {
     "type": "git",
@@ -46,7 +46,6 @@
     "test": "./script/test.sh",
     "test-all": "./script/test-all.sh",
     "test-browser": "./script/test.sh --browsers=Chrome --singleRun=false",
-    "test-page": "./script/test-page.sh",
     "test-website": "./script/test-website.sh",
     "test-website-all": "./script/test-website-all.sh",
     "tidy": "./script/tidy.sh"

package/website/article/fluid/1805.02474v1-10.fld

@@ -1,33 +0,0 @@
-Paragraph [
-	Text "As shown in Table 3, BiLSTM gives significantly  ",
-	Text (trendWord (findWithKey' "model" "BiLSTM" tableData).acc (findWithKey' "model" "LSTM" tableData).acc betterWorse),
-	Text " accuracies compared to uni-directional LSTM2, with the training time per epoch ",
-	Text (trendWord (findWithKey' "model" "BiLSTM" tableData).time_s (findWithKey' "model" "LSTM" tableData).time_s growShrink),
-	Text " from ",
-	Text (numToStr (findWithKey' "model" "LSTM" tableData).time_s),
-	Text " seconds to ",
-	Text (numToStr (findWithKey' "model" "BiLSTM" tableData).time_s),
-	Text " seconds. Stacking 2 layers of BiLSTM gives further improvements to development results, with a  ",
-	Text (trendWord (findWithKey' "model" "2 stacked BiLSTM" tableData).time_s (findWithKey' "model" "BiLSTM" tableData).time_s smallerHigher),
-	Text " time of ",
-	Text (numToStr (findWithKey' "model" "2 stacked BiLSTM" tableData).time_s),
-	Text " seconds. 3 layers of stacked BiLSTM does not further improve the results. In contrast, S-LSTM gives a development result of ",
-	Text (numToStr (findWithKey' "model" "S-LSTM" tableData).acc),
-	Text "%, which is significantly better compared to 2-layer stacked BiLSTM, with a ",
-	Text (trendWord (findWithKey' "model" "S-LSTM" tableData).param (findWithKey' "model" "2 stacked BiLSTM" tableData).param smallerHigher),
-	Text " number of model parameters and a ",
-	Text (trendWord (findWithKey' "model" "S-LSTM" tableData).time_s (findWithKey' "model" "2 stacked BiLSTM" tableData).time_s shorterLonger),
-	Text "  time of ",
-	Text (numToStr (findWithKey' "model" "S-LSTM" tableData).time_s),
-	Text " seconds.  We additionally make comparisons with stacked CNNs and hierarchical attention (Vaswani et al., 2017), shown in Table 3 (the CNN and Transformer rows), ",
-	Text ((findWithKey' "time_s" (minimum (map (fun y -> y.time_s) tableData)) tableData).model),
-	Text " is the most efficient among all models compared, with the  ",
-	Text (let pos = findIndex "model" "CNN" (insertionSort cmpParam tableData) in rankLabel "smallest" pos),
-	Text " model size. On the other hand, a 3-layer stacked CNN gives an accuracy of ",
-	Text (numToStr (fromSome (findWithKey "model" "3 stacked CNN" tableData)).acc),
-	Text "%, which is also the ",
-	Text (let pos = findIndex "model" "CNN" (insertionSort cmpTime tableData) in rankLabel "lowest" pos),
-	Text " compared with BiLSTM, hierarchical attention and S-LSTM. The best performance of hierarchical attention is between single-layer and two-layer BiLSTMs in terms of both accuracy and efficiency. S-LSTM gives significantly better accuracies compared with both CNN and hierarchical attention. Table 3 additionally shows the results of BiLSTM and S-LSTM when external attention is used  Attention leads to improved accuracies for both BiLSTM and S-LSTM in classification, with S-LSTM still ",
-	Text (trendWord (findWithKey' "model" "S-LSTM" tableData).acc (findWithKey' "model" "BiLSTM" tableData).acc underOverPerforming),
-	Text " BiLSTM significantly."
-]

package/website/article/fluid/scigen.fld

@@ -1,50 +0,0 @@
-let ordinalMap = [
-    { lastDigit: 1, suffix: "st" },
-    { lastDigit: 2, suffix: "nd" },
-    { lastDigit: 3, suffix: "rd" }
-];
-
-let ordinal n =
-   if n <= 0 then error "n <= 0 not supported"
-   else if (n < 4) then
-      (findWithKey' "lastDigit" n ordinalMap).suffix
-   else if (n >= 4) `and` (n <= 20) then "th"
-   else error "n > 20 not supported";
-
-let rankLabel word n =
-   if n == 1 then word
-   else ordinal n ++ "-" ++ word;
-
-let trendWord n1 n2 compareWord =
-    compareWord (compare n1 n2);
-
-let growShrink EQ = "unchanging";
-    growShrink LT = "shrinking";
-    growShrink GT = "growing";
-
-let smallerHigher EQ = "equal";
-    smallerHigher LT = "smaller";
-    smallerHigher GT = "larger";
-
-let shorterLonger EQ = "equal";
-    shorterLonger LT = "shorter";
-    shorterLonger GT = "longer";
-
-let betterWorse EQ = "equal";
-    betterWorse LT = "worse";
-    betterWorse GT = "better";
-
-let underOverPerforming EQ = "equal performance to that of";
-    underOverPerforming LT = "underperforming";
-    underOverPerforming GT = "outperforming";
-
--- (a -> Number) -> List a -> a
-let maximumBy f lst =
-  let helper [] current = current;
-      helper (x: xs) current =
-        if f x > f current then helper xs x else helper xs current
-  in match lst as {
-    [] -> error "Empty list!";
-    (x: xs) -> helper xs x
-  };
-

package/website/article/transparent-text/index.html

@@ -1,44 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-    <link rel="icon" href="/favicon.ico" type="image/x-icon">
-    <meta charset="UTF-8">
-    <meta name="viewport" content="width=device-width, initial-scale=1.0">
-    <meta http-equiv="X-UA-Compatible" content="ie=edge">
-    <title>Fluid: scigen-multiple-replace</title>
-    <link href="../css/styles.css" rel="stylesheet" type="text/css">
-    <link href="../css/view-styles.css" rel="stylesheet" type="text/css">
-    <script src="https://kit.fontawesome.com/20cf8b42c0.js" crossorigin="anonymous"></script>
-    <script src="../shared/util.js"></script>
-    <style>
-        .data-pane {
-            max-width: 400px;
-        }
-    </style>
-</head>
-<body>
-<div id="grid" class="grid-container data-pane-hidden">
-    <div></div>
-    <div></div>
-    <div class="flex-left-align">
-        <h3>1805.02474v1-10</h3>
-        <p>---</p>
-    </div>
-
-    <div class="flex-right-align data-pane">
-        <div id="fig-input"></div>
-    </div>
-    <div onclick="toggleDataPane('grid')">
-        <i class="data-pane-button toggle-button fa-solid fa-eye-slash"></i>
-    </div>
-    <div id="fig">
-        <div class="fig-loading">loading figure(s)</div>
-    </div>
-</div>
-
-<script type="module">
-    import { loadFigure } from "../shared/load-figure.js";
-    loadFigure("spec.json")("../fluid/1805.02474v1-10.fld")();
-</script>
-</body>
-</html>

package/website/article/transparent-text/spec.json

@@ -1,8 +0,0 @@
-{
-  "imports" : [ "scigen", "util" ],
-  "inputs" : [ "tableData" ],
-  "datasets" : [ [ "tableData", "dataset/scigen/1805.02474v1-10.fld" ] ],
-  "fluidSrcPath" : [ "../fluid" ],
-  "query": false,
-  "linking": true
-}