diff --git a/src/components/DistBuilder.re b/src/components/DistBuilder.re
index fc5d891d..6a3e60a1 100644
--- a/src/components/DistBuilder.re
+++ b/src/components/DistBuilder.re
@@ -1,4 +1,5 @@
open BsReform;
+open Antd.Grid;
module FormConfig = [%lenses
type state = {
@@ -40,10 +41,20 @@ module FieldString = {
module Styles = {
open Css;
- let row =
- style([display(`flex), selector("div > div", [flex(`num(1.))])]);
+ let rows =
+ style([
+ selector(
+ ">.ant-col:first-child",
+ [paddingLeft(em(0.25)), paddingRight(em(0.125))],
+ ),
+ selector(
+ ">.ant-col:last-child",
+ [paddingLeft(em(0.125)), paddingRight(em(0.25))],
+ ),
+ ]);
let form = style([backgroundColor(hex("eee")), padding(em(1.))]);
- let spacer = style([marginTop(em(3.))]);
+ let dist = style([padding(em(1.))]);
+ let spacer = style([marginTop(em(1.))]);
};
module FieldFloat = {
@@ -64,6 +75,26 @@ module FieldFloat = {
};
};
+module DemoDist = {
+ [@react.component]
+ let make = (~guesstimatorString, ~domain, ~unit) => {
+ E.ste}>
+
+
+
+ {DistPlusIngredients.make(~guesstimatorString, ~domain, ~unit, ())
+ |> DistPlusIngredients.toDistPlus(
+ ~sampleCount=10000,
+ ~outputXYPoints=2000,
+ ~truncateTo=Some(1000),
+ )
+ |> E.O.React.fmapOrNull(distPlus => )}
+
+
+ ;
+ };
+};
+
[@react.component]
let make = () => {
let reform =
@@ -134,29 +165,36 @@ let make = () => {
let guesstimatorString = reform.state.values.guesstimatorString;
+ let demoDist =
+ React.useMemo1(
+ () => {},
+ [|
+ reform.state.values.guesstimatorString,
+ reform.state.values.domainType,
+ reform.state.values.xPoint,
+ reform.state.values.xPoint2,
+ reform.state.values.xPoint2,
+ reform.state.values.excludingProbabilityMass,
+ reform.state.values.excludingProbabilityMass2,
+ reform.state.values.unitType,
+ reform.state.values.zero |> E.M.format(E.M.format_standard),
+ reform.state.values.unit,
+ |],
+ );
+
-
-
- {DistPlusIngredients.make(~guesstimatorString, ~domain, ~unit, ())
- |> DistPlusIngredients.toDistPlus(
- ~sampleCount=10000,
- ~outputXYPoints=2000,
- ~truncateTo=Some(1000),
- )
- |> E.O.React.fmapOrNull(distPlus => )}
-
-
+ demoDist
-
+
E.ste}>
-
-
+
+
@@ -178,28 +216,36 @@ let make = () => {
}
/>
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
@@ -215,64 +261,37 @@ let make = () => {
}
/>
-
-
-
- E.ste}>
- {
- e |> handleChange;
- _ => ();
- }}
- />
-
- }
- />
-
-
-
- E.ste}>
- e |> handleChange}>
-
- {"days" |> E.ste}
-
-
- {"hours" |> E.ste}
-
-
- {"milliseconds" |> E.ste}
-
-
- {"minutes" |> E.ste}
-
-
- {"months" |> E.ste}
-
-
- {"quarters" |> E.ste}
-
-
- {"seconds" |> E.ste}
-
-
- {"weeks" |> E.ste}
-
-
- {"years" |> E.ste}
-
-
-
- }
- />
-
-
+
+
+
+
+
+ E.ste}>
+ {
+ e |> handleChange;
+ _ => ();
+ }}
+ />
+
+ }
+ />
+
+
+
+
+
+
+
+
-
+
;
};