@explorable-viz/fluid 0.0.23 → 0.7.2

package/dist/article/css/styles.css

@@ -1,191 +0,0 @@
-@charset "UTF-8";
-@font-face {
-   font-family: "Fira Code";
-   src: url("https://fonts.googleapis.com/css2?family=Fira+Code&display=swap");
- }
-
-.glowing, a {
-   transition: all .25s;
-}
-
-a:hover {
-   text-shadow: 0 0 2px #FFF, 0 0 5px #A0A0FF, 0 0 7px #8080A0;
-}
-
-.nowrap {
-   white-space: nowrap;
-}
-
-code {
-   font-size: 11pt;
-}
-
-body {
-   font-size: 11pt;
-   font-family: "Roboto", sans-serif;
-   font-weight: 300;
-   line-height: 1.25;
-   padding: 0;
-   margin: 0;
-   background-color: #FFFFFF; /* #181818; */
-   color: #404040;
-   margin-bottom: 10em;
-}
-
-.center {
-   height: 100%;
-}
-
-.align-right {
-   text-align: right;
-}
-
-.title {
-   color: darkblue;
-}
-
-h3 {
-   font-family: "Roboto", sans-serif;
-   font-weight: 600;
-   margin-top: 10pt;
-   margin-bottom: 0;
-   font-size: '24px'
-}
-
-h4 {
-   margin-top: 10pt;
-   margin-block-start: 1em;
-   margin-bottom: 0;
-}
-
-.glowing {
-   transition-timing-function: ease-out
-}
-
-a {
-   text-decoration: none;
-   color: inherit;
-   transition-timing-function: ease-out
-}
-
-a.not_decorated,
-a:hover {
-   text-decoration: none;
-}
-
-ul {
-   padding-left: 0
-}
-
-li {
-   margin-bottom: 1ex
-}
-
-li:last-child {
-   margin-bottom: 0
-}
-
-table {
-   margin: 4mm;
-}
-
-.table-caption {
-   text-align: left;
-}
-
-th {
-   font-size: 11px;
-   text-align: left;
-   border-bottom: 'thin solid';
-}
-
-td {
-   font-size: 11px;
-}
-
-td:nth-child(1) {
-   color: lightgray;
-}
-
-nav ul {
-   list-style: none;
-}
-
-nav ul li {
-   float: left;
-   overflow: hidden;
-}
-
-nav ul li a {
-   display: block;
-   width: 100%;
-   text-align: left;
-   padding-right: 8px;
-   text-decoration: none;
-}
-
-nav ul li a.active-page {
-   text-shadow: 0 0 2px #FFF, 0 0 5px #A0A0FF, 0 0 7px #8080A0;
-}
-
-.cm-line {
-   font-family: 'Fira Code';
-   font-size: 8pt;
-}
-
-.grid-container {
-   display: grid;
-   width: 100%;
-   grid-template-columns: 10px 47.5% fit-content(10px) 47.5%;
-}
-
-.flex-left-align {
-   display: flex;
-   flex-direction: column;
-   align-items: start;
-}
-
-.flex-right-align {
-   display: flex;
-   flex-direction: column;
-   align-items: flex-end;
-}
-
-.flex-bottom-align {
-   display: flex;
-   flex-direction: row;
-   align-items: flex-end;
-}
-
-.data-pane-button {
-   font-size: 9pt;
-}
-
-.toggle-button {
-   color: #CCCCCC;
-   user-select: none;
-}
-
-.toggle-button:hover {
-   color: #999999;
-}
-
-.data-pane {
-   background-color: #F5F5F5;
-}
-
-/* Standalone figures have hardcoded zoom for presentation purposes. */
-.double-size {
-   zoom: 1.8;
-}
-
-body.standalone {
-   height: 100%;
-   display: grid; /* outer grid for vertical centering of inner */
-   place-items: center;
-}
-
-/* Needed for contained height specifications to work */
-html {
-   height: 100%;
-}

package/dist/article/fluid/example/dicts.fld

@@ -1,11 +0,0 @@
-let d = {||};
-    e = {| "a" := 5, "a" ++ "b" := 6 |};
-    f = {| "ab" := 12 |}
-in {
-   d: d,
-   e: e,
-   e_ab: dict_get "ab" e,
-   f: dict_map ((+) 1) e,
-   g: dict_difference e f,
-   h: dict_fromRecord {fst: 4, snd: [6, 7]}
-}

package/dist/article/fluid/example/graphics/small-barchart.fld

@@ -1,5 +0,0 @@
-let countryData = [ { x: "USA", bars: [ { y: "output", z: 196.7 } ] } ]
-in BarChart {
-    caption: "Total output by country",
-    data: countryData
-}

package/dist/article/fluid/example/linked-outputs/bar-chart-line-chart.fld

@@ -1,26 +0,0 @@
-MultiView {|
-   "bar-chart" :=
-      let totalFor c rows =
-         sum [ row.output | row <- rows, row.country == c ];
-      let data2015 = [ row | row <- renewables, row.year == 2015 ];
-         countryData = [ { x: c, bars: [ { y: "output", z: totalFor c data2015 } ] }
-                        | c <- ["China", "USA", "Germany"] ]
-      in BarChart {
-         caption: "Total output by country",
-         data: countryData
-      },
-   "line-chart" :=
-      let series type country = [
-         { x: row.year, y: row.output }
-         | year <- [2013..2018], row <- renewables,
-         row.year == year, row.energyType == type, row.country == country
-      ] in LineChart {
-         caption: "Output of USA relative to China",
-         plots: [
-            LinePlot { name: type, data: plot }
-            | type <- ["Bio", "Hydro", "Solar", "Wind"],
-            let plot = zipWith (fun p1 p2 -> { x: p1.x, y: p1.y / p2.y })
-                               (series type "USA") (series type "China")
-         ]
-      }
-|}

package/dist/article/fluid/example/linked-outputs/moving-average-data.fld

@@ -1,9 +0,0 @@
-[
-    { x: 2010, y: 10 },
-    { x: 2011, y: 14 },
-    { x: 2012, y: 23 },
-    { x: 2013, y: 34 },
-    { x: 2014, y: 13 },
-    { x: 2015, y: 65 },
-    { x: 2016, y: 720 }
-]

package/dist/article/fluid/example/linked-outputs/moving-average.fld

@@ -1,15 +0,0 @@
-let newPoints offset = map (fun point -> { x: point.x, y: (point.y + offset) }) points;
-
-let points' = newPoints 0;
-    cavgs = mAvgChop points' 1;
-    cavgs' = mAvgShrink points' 1;
-    savgs = sAvgShrink points' 2
-in MultiView {|
-    "line-chart-1" :=
-        LineChart {
-            caption: "Moving averages",
-            plots: [ LinePlot { name: "Simple", data: savgs }
-                   , LinePlot { name: "Central", data: cavgs }
-                   , LinePlot { name: "Original Curve", data: points' } ]
-        }
-|}

package/dist/article/fluid/example/linked-outputs/pairs-data.fld

@@ -1 +0,0 @@
-(1, (2, (3, 4)))

package/dist/article/fluid/example/linked-outputs/pairs.fld

@@ -1,3 +0,0 @@
-let q = 1 in
-((fun (w, (x, (y, z))) -> (w + x, (x + y, y + z))) data,
- (fun (w, (x, (y, z))) -> (w + q, (x + q, (y + q, z + q)))) data)

package/dist/article/fluid/example/linked-outputs/stacked-bar-chart-scatter-plot.fld

@@ -1,38 +0,0 @@
-MultiView {|
-   "stacked-bar-chart" :=
-      let totalFor year country rows =
-         let [ row ] = [ row | row <- rows, row.year == year, row.country == country ]
-         in row.nuclearOut + row.gasOut + row.coalOut + row.petrolOut;
-      let stack year = [ { y: country, z: totalFor year country nonRenewables }
-                     | country <- ["BRA", "EGY", "IND", "JPN"] ]
-      in BarChart {
-         caption: "Non-renewables by country",
-         data: [ { x: numToStr year, bars: stack year }
-               | year <- [2014..2018] ]
-      },
-   "scatter-plot" :=
-      let isCountry name x = name == x.country;
-         isYear year x = year == x.year;
-
-      let plot year countries =
-      let rens = filter (isYear year) renewables;
-            nonRens = filter (isYear year) nonRenewables;
-      let plotCountry country =
-         let rens' = filter (isCountry country) rens;
-            rensOut = sum (map (fun x -> x.output) rens');
-            rensCap = sum (map (fun x -> x.capacity) rens');
-            x = head (filter (isCountry country) nonRens);
-            nonRensCap = x.nuclearCap + x.petrolCap + x.gasCap + x.coalCap
-         in {
-            x: rensCap / (rensCap + nonRensCap),
-            y: (rensOut + x.nuclearOut) / (rensCap + x.nuclearCap)
-         }
-      in map plotCountry countries
-
-      in ScatterPlot {
-         caption: "Clean energy efficiency vs. proportion of renewable energy capacity",
-         data: plot 2018 [ "BRA", "CHN", "DEU", "FRA", "EGY", "IND", "JPN", "MEX", "NGA", "USA" ],
-         xlabel: "Renewables/TotalEnergyCap",
-         ylabel: "Clean Capacity Factor"
-      }
-|}

package/dist/article/fluid/example/slicing/convolution/edgeDetect.expect.fld

@@ -1 +0,0 @@
-convolve input_image filter extend

package/dist/article/fluid/example/slicing/convolution/edgeDetect.fld

@@ -1 +0,0 @@
-convolve input_image filter extend

package/dist/article/fluid/example/slicing/convolution/emboss-wrap.fld

@@ -1 +0,0 @@
-convolve input_image filter wrap

package/dist/article/fluid/example/slicing/convolution/emboss.expect.fld

@@ -1 +0,0 @@
-convolve input_image filter zero

package/dist/article/fluid/example/slicing/convolution/emboss.fld

@@ -1 +0,0 @@
-convolve input_image filter zero

package/dist/article/fluid/example/slicing/convolution/gaussian.expect.fld

@@ -1 +0,0 @@
-convolve input_image filter zero

package/dist/article/fluid/example/slicing/convolution/gaussian.fld

@@ -1 +0,0 @@
-convolve input_image filter zero

package/dist/article/fluid/example/slicing/dict/create.expect.fld

@@ -1 +0,0 @@
-{|"a" := 5, ⸨"a"⸩ ++ ⸨"b"⸩ := 6|}

package/dist/article/fluid/example/slicing/dict/create.fld

@@ -1 +0,0 @@
-{| "a" := 5, "a" ++ "b" := 6 |}

package/dist/article/fluid/example/slicing/dict/difference.expect.fld

@@ -1,3 +0,0 @@
-let e = ⸨{|"a" := 5, "a" ++ "b" := 6|}⸩;
-    f = ⸨{|"ab" := 12|}⸩ in
-dict_difference e f

package/dist/article/fluid/example/slicing/dict/difference.fld

@@ -1,3 +0,0 @@
-let e = {| "a" := 5, "a" ++ "b" := 6 |};
-    f = {| "ab" := 12 |}
-in dict_difference e f

package/dist/article/fluid/example/slicing/dict/disjointUnion.expect.fld

@@ -1 +0,0 @@
-{|⸨"a"⸩ := 5, "b" := 6|} `dict_disjointUnion` {|"c" := ⸨7⸩|}

package/dist/article/fluid/example/slicing/dict/disjointUnion.fld

@@ -1 +0,0 @@
-{| "a" := 5, "b" := 6 |} `dict_disjointUnion` {| "c" := 7 |}

package/dist/article/fluid/example/slicing/dict/foldl.expect.fld

@@ -1 +0,0 @@
-foldl (*) 1 (dict_foldl concat2 [] {|"a" := [5, 6], "b" := [⸨0⸩, 10], "c" := [3, 4]|})

package/dist/article/fluid/example/slicing/dict/foldl.fld

@@ -1 +0,0 @@
-foldl (*) 1 (dict_foldl concat2 [] {| "a" := [5, 6], "b" := [0, 10], "c" := [3, 4] |})

package/dist/article/fluid/example/slicing/dict/fromRecord.expect.fld

@@ -1,2 +0,0 @@
-dict_fromRecord ⸨{a : 5,
-                    ab : 6}⸩

package/dist/article/fluid/example/slicing/dict/fromRecord.fld

@@ -1 +0,0 @@
-dict_fromRecord { a: 5, ab: 6 }

package/dist/article/fluid/example/slicing/dict/get.expect.fld

@@ -1,3 +0,0 @@
-let d = {|"a" := 5, "a" ++ "b" := {fst : 6,
-                                      snd : ⸨0⸩}|} in
-dict_get "a" d * (dict_get "ab" d).snd

package/dist/article/fluid/example/slicing/dict/get.fld

@@ -1,2 +0,0 @@
-let d = {| "a" := 5, "a" ++ "b" := {fst: 6, snd: 0} |}
-in dict_get "a" d * (dict_get "ab" d).snd

package/dist/article/fluid/example/slicing/dict/intersectionWith.expect.fld

@@ -1,2 +0,0 @@
-dict_intersectionWith (let x = ⸨2⸩ in
-                        (fun n m = (n + m) * x)) {|"a" := 5, "b" := ⸨6⸩, "c" := ⸨3⸩|} {|"b" := ⸨-6⸩, "c" := ⸨7⸩|}

package/dist/article/fluid/example/slicing/dict/intersectionWith.fld

@@ -1,4 +0,0 @@
- dict_intersectionWith 
-   (let x = 2 in (fun n m  = (( n  +  m ) *  x )) )
-   {| "a" := 5, "b" := 6, "c" := 3 |}
-   {| "b" := -6, "c" := 7 |}

package/dist/article/fluid/example/slicing/dict/map.expect.fld

@@ -1,6 +0,0 @@
-let incHead = let x = ⸨3⸩ in
-              (fun xs = head xs + x);
-    d = {|"a" := [⸨5⸩, 6], "b" := [⸨9⸩, 10], "c" := [3, 4]|};
-    e = {|"c" := []|};
-    d' = dict_map incHead (dict_difference d e) in
-dict_get "a" d' + dict_get "b" d'

package/dist/article/fluid/example/slicing/dict/map.fld

@@ -1,5 +0,0 @@
-let incHead = let x = 3 in fun xs -> head xs + x;
-    d = {| "a" := [5, 6], "b" := [9, 10], "c" := [3, 4] |};
-    e = {| "c" := [] |};
-    d' = dict_map incHead (dict_difference d e)
-in dict_get "a" d' + dict_get "b" d'

package/dist/article/fluid/example/text.fld

@@ -1,27 +0,0 @@
-let totalFor c rows =
-    sum [ row.output | row <- rows, row.country == c ];
-let lookupOutput name type dataset = (head [ row | row <- dataset, row.country == name, row.energyType == type]).output;
-let data2015 = [ row | row <- renewables, row.year == 2015 ];
-    countryData = [ { x: c, bars: [ { y: "output", z: totalFor c data2015 } ] }
-                | c <- ["China", "USA", "Germany"] ];
-    germany = lookupOutput "Germany" "Bio" data2015;
-    usa = lookupOutput "USA" "Bio" data2015;
-    china = lookupOutput "China" "Bio" data2015
-in MultiView {|
-   "bar-chart" :=
-      BarChart {
-         caption: "Total output by country",
-         data: countryData
-      },
-   "one" :=
-       LinkedText( ["The total for the USA is: "
-                   , numToStr (totalFor "USA" data2015)
-                   , ", compared to that of China, which is actually: "
-                   , numToStr (totalFor "China" data2015) ] ),
-   "two" :=
-       LinkedText( ["By inspecting the data, we can see that Germany produced "
-                   , gradedLeqP germany usa
-                   , " Bio energy than the USA (for the year 2015), whilst the USA produced "
-                   , gradedLeqP usa china
-                   , " than China." ] )
-|}

package/dist/article/fluid/lib/moving-average.fld

@@ -1,35 +0,0 @@
-let zipPairs = zipWith (fun x y -> {x : x, y : y});
-let getXs = map (fun rec -> rec.x);
-let getYs = map (fun rec -> rec.y);
-
--- ISSUE: With the ones that shrink, the values near the ends will be incorrect,
--- since the actual number of points is less than the size of window (= 1 + (2 * window))
--- To fix this, need to change the constant we divide by, but using length induces dependency on whole list
-
--- Central average, but stops near the ends of the sequence
-let cMAvg ns window =
-    [ (sum (slice (ind - window) (ind + window + 1) ns)) / (1 + 2 * window) | ind <- [window..length ns - window] ];
-
-let mAvgChop ps window =
-    zipPairs (slice window (length ps - window) (getXs ps)) (cMAvg (getYs ps) window);
-
--- Central average, but end points use incomplete data
-let cMAvg' ns window =
-    [ (sum (slice (ind - window) (ind + window + 1) ns)) / (1 + 2 * window) | ind <- [0..length ns] ];
-
-let mAvgShrink ps window =
-    zipPairs (getXs ps) (cMAvg' (getYs ps) window);
-
--- Simple (rearward) average, chops the beginning off the sequence
-let sMAvg ns window =
-    [ (sum (slice (ind - window) (ind + 1) ns)) / window | ind <- [window..length ns] ];
-
-let sAvgChop ps window =
-    zipPairs (slice window (length ps) (getXs ps)) (sMAvg (getYs ps) window);
-
--- Simple (rearward average), doesn't chop beginning off
-let sMAvg' ns window =
-    [ (sum (slice (ind - window) (ind + 1) ns)) / window | ind <- [0..length ns] ];
-
-let sAvgShrink ps window =
-    zipPairs (getXs ps) (sMAvg' (getYs ps) window);

package/dist/article/index.html

@@ -1,44 +0,0 @@
-<!DOCTYPE html>
-<html lang="en">
-<head>
-   <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: Data-Linked Visualisations</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://use.fontawesome.com/1091715d00.js"></script>
-   <script>
-      // move to PureScript
-      function toggle(id) {
-         const elem = document.getElementById(id)
-         if (elem.style.visibility == 'hidden')
-            elem.style.visibility = 'visible'
-         else
-            elem.style.visibility = 'hidden'
-      }
-   </script>
-</head>
-<body class="standalone">
-<div class="grid-container double-size">
-   <div></div>
-   <div></div>
-   <div></div>
-   <div></div>
-   <div></div>
-   <div id="fig-input" class="flex-right-align data-pane"></div>
-   <div>
-      <div onclick="toggle('fig-input')"><span class="data-pane-button toggle-button">◀▶</span></div>
-   </div>
-   <div class="flex-left-align">
-      <div id="fig"></div>
-   </div>
-</div>
-
-<script src="app.js"></script>
-<script>
-   // move to PureScript
-   toggle('fig-input')
-</script>
-</body>
-</html>

package/fluid.js

@@ -1,46 +0,0 @@
-#!/usr/bin/env node
-const { program } = require('commander');
-const fs = require('node:fs');
-const webFS = require('fs').promises;
-const filenameRegex = /\w+\.yml/ //may need to expand character set
-const express = require('express');
-const serve = require('express-static');
-
-const app = express();
-const host = '127.0.0.1';
-const port = 8080;
-
-program.command('load')
-  .arguments('<file>')
-  .action(function(file)
-  {
-    if (file.match(filenameRegex) != null)
-    {
-      try
-      {
-        //read data stream if file is large
-        //const data = fs.readFileSync(__dirname + "/" + file, 'utf8');
-        const data = fs.readFileSync(process.cwd() + "/" + file, 'utf8'); //assuming file is located at command line's current directory
-        console.log(data);
-
-        app.use(serve(__dirname + '/dist/article'));
-
-        const server = app.listen(port, host, function()
-        {
-        console.log("Server running: " + __dirname + '/dist/article\n' +
-                    `Access on http://${host}:${port}`
-                   );
-        })
-      }
-      catch (err)
-      {
-        console.error(err);
-      }
-    }
-    else
-    {
-      console.error("Invalid input file: Must be a .yml file.")
-    }
-  });
-
-program.parse()