Starting to add simple autogenerated forms

This commit is contained in:
Ozzie Gooen 2020-02-08 23:22:21 +00:00
parent 949fcd86e6
commit b5db94c5b7
3 changed files with 127 additions and 4 deletions

View File

@ -1,8 +1,46 @@
'use strict';
var $$Array = require("bs-platform/lib/js/array.js");
var Curry = require("bs-platform/lib/js/curry.js");
var React = require("react");
var Belt_Option = require("bs-platform/lib/js/belt_Option.js");
var Belt_MapString = require("bs-platform/lib/js/belt_MapString.js");
var Model$ProbExample = require("../Model.bs.js");
var EAFunds_Model$ProbExample = require("./EAFunds_Model.bs.js");
function handleChange(handleChange$1, $$event) {
return Curry._1(handleChange$1, $$event.target.value);
}
var model = EAFunds_Model$ProbExample.Interface.model;
var initialMap = Model$ProbExample.toMaps(model);
function EAFunds_Form(Props) {
var match = React.useState((function () {
return Model$ProbExample.toMaps(model);
}));
var params = match[0];
return $$Array.map((function (parameter) {
var __x = Belt_MapString.get(params[/* inputs */1], parameter[/* id */0]);
var value = Belt_Option.flatMap(__x, (function (param) {
return param[1];
}));
return React.createElement(React.Fragment, undefined, parameter[/* name */1], parameter[/* id */0], React.createElement(Model$ProbExample.Input.Form.make, {
parameter: parameter,
value: value,
onChange: (function (r) {
console.log(r);
return /* () */0;
})
}));
}), $$Array.of_list(model[/* inputs */3]));
}
var make = EAFunds_Form;
exports.handleChange = handleChange;
exports.model = model;
/* EAFunds_Model-ProbExample Not a pure module */
exports.initialMap = initialMap;
exports.make = make;
/* initialMap Not a pure module */

View File

@ -1 +1,24 @@
let model = EAFunds_Model.Interface.model;
let handleChange = (handleChange, event) =>
handleChange(ReactEvent.Form.target(event)##value);
let model = EAFunds_Model.Interface.model;
let initialMap = Model.toMaps(model);
[@react.component]
let make = () => {
let (params, changeParams) = React.useState(() => Model.toMaps(model));
model.inputs
|> Array.of_list
|> Array.map((parameter: Model.Input.parameter) => {
let value =
params.inputs->Model.MS.get(parameter.id)
|> Belt.Option.flatMap(_, ((_, b)) => b);
<>
{parameter.name |> ReasonReact.string}
{parameter.id |> ReasonReact.string}
<Model.Input.Form parameter value onChange={r => Js.log(r)} />
</>;
});
};

View File

@ -37,8 +37,15 @@ module Input = {
type parameterType =
| Year(IOTypes.withDefaultMinMax(float))
| SingleChoice(IOTypes.singleChoice)
| FloatPoint
| FloatCdf;
| FloatPoint;
let toInput = (p: parameterType) =>
switch (p) {
| Year(r) => r.default->Belt.Option.map(p => InputTypes.Year(p))
| SingleChoice(r) =>
r.default->Belt.Option.map(p => InputTypes.SingleChoice(p))
| FloatPoint => None
};
type parameter = {
id: string,
@ -57,6 +64,33 @@ module Input = {
name,
parameterType,
};
module Form = {
let handleChange = (handleChange, event) =>
handleChange(ReactEvent.Form.target(event)##value);
[@react.component]
let make =
(~parameter: parameter, ~value: option(InputTypes.t), ~onChange) => {
switch (parameter.parameterType, value) {
| (Year(_), Some(Year(r))) =>
<input
type_="number"
value={r |> Js.Float.toString}
onChange={handleChange(r =>
switch (Js.Float.fromString(r)) {
| r => onChange(_ => Some(InputTypes.Year(r)))
}
)}
/>
| (FloatPoint, Some(FloatPoint(r))) =>
<input type_="number" value={r |> Js.Float.toString} />
| (Year(_), _)
| (FloatPoint, _) => <input type_="number" value="" />
| (SingleChoice(_), _) =>
<div> {"Single Choice" |> ReasonReact.string} </div>
};
};
};
};
module Output = {
@ -101,6 +135,34 @@ let gatherInputs = (m: model, a: list(InputTypes.withName)) => {
|> List.flatten;
};
module MS = Belt.Map.String;
type modelMaps = {
assumptions: MS.t((Input.parameter, option(InputTypes.t))),
inputs: MS.t((Input.parameter, option(InputTypes.t))),
output: (Output.parameter, option(InputTypes.t)),
};
let toMaps = (m: model): modelMaps => {
assumptions:
MS.fromArray(
m.assumptions
|> List.map((r: Input.parameter) =>
(r.id, (r, Input.toInput(r.parameterType)))
)
|> Array.of_list,
),
inputs:
MS.fromArray(
m.inputs
|> List.map((r: Input.parameter) =>
(r.id, (r, Input.toInput(r.parameterType)))
)
|> Array.of_list,
),
output: (Output.make(~name="Payouts", ~parameterType=FloatCdf, ()), None),
};
type modelParams = {
assumptions: list(option(InputTypes.t)),
inputs: list(option(InputTypes.t)),