-
,
- "main",
-);
-ReasonReactRouter.push("");
diff --git a/foretold/components/showcase/Lib.re b/foretold/components/showcase/Lib.re
deleted file mode 100644
index db334d68..00000000
--- a/foretold/components/showcase/Lib.re
+++ /dev/null
@@ -1,201 +0,0 @@
-open FC.Base;
-open EntryTypes;
-
-module HS = Belt.HashMap.String;
-
-let entriesByPath: HS.t(navEntry) = HS.make(~hintSize=100);
-
-/* Creates unique id's per scope based on title */
-let buildIds = entries => {
- let genId = (title, path) => {
- let noSpaces = Js.String.replaceByRe([%bs.re "/\\s+/g"], "-", title);
- if (!HS.has(entriesByPath, path ++ "/" ++ noSpaces)) {
- noSpaces;
- } else {
- let rec loop = num => {
- let testId = noSpaces ++ "-" ++ string_of_int(num);
- if (!HS.has(entriesByPath, path ++ "/" ++ testId)) {
- testId;
- } else {
- loop(num + 1);
- };
- };
- loop(2);
- };
- };
- let rec processFolder = (f: folderEntry, curPath) => {
- f.id = curPath ++ "/" ++ genId(f.title, curPath);
- HS.set(entriesByPath, f.id, FolderEntry(f));
- f.children
- |> E.L.iter(e =>
- switch (e) {
- | CompEntry(c) => processEntry(c, f.id)
- | FolderEntry(f) => processFolder(f, f.id)
- }
- );
- }
- and processEntry = (c: compEntry, curPath) => {
- c.id = curPath ++ "/" ++ genId(c.title, curPath);
- HS.set(entriesByPath, c.id, CompEntry(c));
- };
- entries
- |> E.L.iter(e =>
- switch (e) {
- | CompEntry(c) => processEntry(c, "")
- | FolderEntry(f) => processFolder(f, "")
- }
- );
-};
-
-let entries = Entries.entries;
-buildIds(entries);
-
-module Styles = {
- open Css;
- let pageContainer = style([display(`flex), height(`vh(100.))]);
- let leftNav =
- style([
- padding(`em(2.)),
- flexBasis(`px(200)),
- flexShrink(0.),
- backgroundColor(`hex("eaeff3")),
- boxShadows([
- Shadow.box(
- ~x=px(-1),
- ~blur=px(1),
- ~inset=true,
- rgba(0, 0, 0, 0.1),
- ),
- ]),
- ]);
-
- let folderNav =
- style([
- selector(
- ">h4",
- [
- cursor(`pointer),
- margin2(~v=`em(0.3), ~h=`zero),
- hover([color(`hex("7089ad"))]),
- ],
- ),
- ]);
- let folderChildren = style([paddingLeft(`px(7))]);
- let compNav =
- style([
- cursor(`pointer),
- paddingBottom(`px(3)),
- hover([color(`hex("7089ad"))]),
- ]);
- let compContainer = style([padding(`em(2.)), flexGrow(1.)]);
- // Approximate sidebar container for entry
- let sidebarContainer = style([maxWidth(`px(430))]);
- let folderChildContainer = style([marginBottom(`em(2.))]);
-};
-
-let baseUrl = "/showcase/index.html";
-
-module Index = {
- type state = {route: ReasonReactRouter.url};
-
- type action =
- | ItemClick(string)
- | ChangeRoute(ReasonReactRouter.url);
-
- let changeId = (id: string) => {
- ReasonReactRouter.push(baseUrl ++ "#" ++ id);
- ();
- };
-
- let buildNav = setRoute => {
- let rec buildFolder = (f: folderEntry) => {
-
-
;
- }
- and buildEntry = (e: compEntry) => {
- changeId(f.id)}> f.title->React.string
-
- {(
- f.children
- |> E.L.fmap(e =>
- switch (e) {
- | FolderEntry(folder) => buildFolder(folder)
- | CompEntry(entry) => buildEntry(entry)
- }
- )
- |> E.L.toArray
- )
- ->React.array}
-
- changeId(e.id)}>
- e.title->React.string
-
;
- };
- (
- entries
- |> E.L.fmap(e =>
- switch (e) {
- | FolderEntry(folder) => buildFolder(folder)
- | CompEntry(entry) => buildEntry(entry)
- }
- )
- |> E.L.toArray
- )
- ->React.array;
- };
-
- let renderEntry = e => {
- switch (e.container) {
- | FullWidth => e.render()
- | Sidebar => {e.render()}
- };
- };
-
- [@react.component]
- let make = () => {
- let (route, setRoute) =
- React.useState(() => {
- let url: ReasonReactRouter.url = {path: [], hash: "", search: ""};
- url;
- });
-
- React.useState(() => {
- ReasonReactRouter.watchUrl(url => setRoute(_ => url));
- ();
- })
- |> ignore;
-
-
-
;
- };
-};
\ No newline at end of file
diff --git a/foretold/components/showcase/entries/Scoring.re b/foretold/components/showcase/entries/Scoring.re
deleted file mode 100644
index d28227ee..00000000
--- a/foretold/components/showcase/entries/Scoring.re
+++ /dev/null
@@ -1,104 +0,0 @@
-open FC.Base;
-
-let multimodal = "=mm(uniform(0,100), uniform(10,20), [.33,0.9])";
-let mm1 = "=mm(uniform(1,100), normal(50, 5), [.01, .99])";
-let mm2 = "=mm(uniform(1,100), normal(50, 8), [.01, .99])";
-
-module Scoring = {
- type dist = Types.Dist.t;
-
- [@react.component]
- let make = () => {
- let (varA, setVarA) = React.useState(() => None);
- let (varB, setVarB) = React.useState(() => None);
- let (varC, setVarC) = React.useState(() => None);
-
- let distributionScoreDistribution =
- switch (varA, varB, varC) {
- | (Some(a), Some(b), Some(c)) =>
- Types.Dist.distributionScoreDistribution([|a, b, c|])
- | _ => None
- };
-
- let distributionScoreNumber =
- switch (varA, varB, varC) {
- | (Some(a), Some(b), Some(c)) =>
- Some(Types.Dist.distributionScoreNumber([|a, b, c|]))
- | _ => None
- };
-
- let minX =
- [|varA, varB, varC, distributionScoreDistribution|]
- |> E.A.O.concatSome
- |> Types.Dists.minX(0.01);
- let maxX =
- [|varA, varB, varC, distributionScoreDistribution|]
- |> E.A.O.concatSome
- |> Types.Dists.maxX(0.99);
-
- Js.log2("MIN", min);
-
- {buildNav(setRoute)}
-
- {if (route.hash == "") {
- React.null;
- } else {
- switch (HS.get(entriesByPath, route.hash)) {
- | Some(navEntry) =>
- switch (navEntry) {
- | CompEntry(c) => renderEntry(c)
- | FolderEntry(f) =>
- /* Rendering immediate children */
- (
- f.children
- |> E.L.fmap(child =>
- switch (child) {
- | CompEntry(c) =>
-
-
- {renderEntry(c)}
-
- | _ => React.null
- }
- )
- |> E.L.toArray
- )
- ->React.array
- }
- | None => "Component not found"->React.string
- };
- }}
-
-
- {let (ys, xs, hasLimitError) = event
- setVarA(_ => Types.Dist.requireLength({ys, xs}))
- Js.log2(xs, ys)}
- |> ignore
- }
- />
- {varA
- |> E.O.React.fmapOrNull(v =>
-
- {let (ys, xs, hasLimitError) = event
- setVarB(_ => Types.Dist.requireLength({ys, xs}))}
- |> ignore
- }
- />
- {varB
- |> E.O.React.fmapOrNull(v =>
-
- {let (ys, xs, hasLimitError) = event
- setVarC(_ => Types.Dist.requireLength({ys, xs}))}
- |> ignore
- }
- />
- {varC
- |> E.O.React.fmapOrNull(v =>
-
;
- };
-};
-
-let entry = EntryTypes.(entry(~title="Scoring", ~render=() => {"Variable A" |> ReasonReact.string}
-{"Variable B" |> ReasonReact.string}
-{"Variable C" |> ReasonReact.string}
-{"C * Log2(A / B)" |> ReasonReact.string}
- {switch (distributionScoreDistribution) { - | None => ReasonReact.null - | Some(divideBy) => -{"Final Score" |> ReasonReact.string}
- {switch (distributionScoreNumber) { - | None => ReasonReact.null - | Some(scoreNumber) => - scoreNumber |> E.Float.with3DigitsPrecision |> ReasonReact.string - }} -
-
;
-
-let entry = EntryTypes.(entry(~title="AgentLink", ~render=links));
diff --git a/foretold/components/showcase/entries/Showcase_Alerts.re b/foretold/components/showcase/entries/Showcase_Alerts.re
deleted file mode 100644
index 66a54816..00000000
--- a/foretold/components/showcase/entries/Showcase_Alerts.re
+++ /dev/null
@@ -1,12 +0,0 @@
-open FC.Base;
-
-let alerts = () =>
- {"Bot" |> ReasonReact.string}
-{"User Simple" |> ReasonReact.string}
-{"User Ozzie" |> ReasonReact.string}
-{"User with long name" |> ReasonReact.string}
-
- "Primary alert"->React.string
- "Info alert"->React.string
- "Success alert"->React.string
- "Warning alert"->React.string
- "Error alert"->React.string
-
;
-
-let entry = EntryTypes.(entry(~title="Alerts", ~render=alerts));
diff --git a/foretold/components/showcase/entries/Showcase_Buttons.re b/foretold/components/showcase/entries/Showcase_Buttons.re
deleted file mode 100644
index 42c05d91..00000000
--- a/foretold/components/showcase/entries/Showcase_Buttons.re
+++ /dev/null
@@ -1,36 +0,0 @@
-open FC;
-open Button;
-
-let clear = Css.(style([clear(`both)]));
-let button = Css.(style([margin(`em(0.5))]));
-
-let render = () =>
- <>
- "Secondary"->React.string
-
-
-
-
-
-
- "Primary"->React.string
-
-
-
-
-
- ;
-
-let entry = EntryTypes.(entry(~title="Buttons", ~render));
\ No newline at end of file
diff --git a/foretold/components/showcase/entries/Showcase_Charts.re b/foretold/components/showcase/entries/Showcase_Charts.re
deleted file mode 100644
index bdc51cd6..00000000
--- a/foretold/components/showcase/entries/Showcase_Charts.re
+++ /dev/null
@@ -1,18 +0,0 @@
-[@bs.module] external data1: Js.Json.t = "./samples/sample-measurements.json";
-[@bs.module]
-external data2: Js.Json.t = "./samples/sample-measurements-aggregation.json";
-
-let chart1 = () =>
- {{colors
- |> E.L.fmap(((name, c)) =>
-
-
- name->React.string
-
- )
- |> E.L.toArray}
- ->React.array}
-
- {"Overlay" |> React.string}
-
;
-
-let divAreaStyle =
- Css.(
- style([
- backgroundColor(Colors.smokeWhite),
- width(`px(300)),
- textAlign(`center),
- padding2(~v=`em(1.), ~h=`em(1.)),
- ])
- );
-
-let simpleDropdown = () =>
-
- "Dropdown default trigger (hover)"->React.string
-
- "Submenu"->React.string
-
-
;
-
-let entry = EntryTypes.(entry(~title="MyCommunities", ~render=myCommunities));
\ No newline at end of file
diff --git a/foretold/components/showcase/entries/Showcase_NumberShower.re b/foretold/components/showcase/entries/Showcase_NumberShower.re
deleted file mode 100644
index 98975acc..00000000
--- a/foretold/components/showcase/entries/Showcase_NumberShower.re
+++ /dev/null
@@ -1,61 +0,0 @@
-open FC;
-open FC.Base;
-
-let numbers = [
- 0.000000000000000000000000000001,
- 0.00000000001,
- 0.00000001,
- (-0.00000001),
- 0.00000001200332,
- 0.00001,
- 0.0000130300033,
- 0.01,
- (-0.01),
- 0.010000303030,
- 0.0,
- 0.010001,
- 1.0,
- (-1.0),
- 1.1000,
- 1.0100,
- 1.0010,
- 1.0001,
- 100.0,
- 100.5,
- (-100.5),
- 1000000.0,
- 1001001.0,
- 100000000000.0,
- 100000000000000000.0,
- 10000000000000000000000.0,
- 10000100000000000000000.0,
- 1000000000000100000000000000000.0,
-];
-
-module NumbersDisplay = {
- [@react.component]
- let make = () => {
-
-
-
-
-
- {(
- numbers
- |> E.L.fmap(n =>
-
- Js.Float.toString}>
-
- )
- |> E.L.toArray
- )
- ->React.array}
-
-
- {Agent.name(agent) |> ReasonReact.string}
- ;
-};
-
-[@react.component]
-let make = (~agent: Agent.t, ~className="") =>
-
- Rationale.Option.default(BotDefaultImage.botDefault)
- }
- />
-
- {owner
- |> E.O.React.fmapOrNull(owner =>
-
-
- )}
-
- Rationale.Option.default(BotDefaultImage.botDefault)
- }
- />
-
- links
children
;
-};
\ No newline at end of file
diff --git a/foretold/components/src/Base/Avatar.re b/foretold/components/src/Base/Avatar.re
deleted file mode 100644
index c4bf5a90..00000000
--- a/foretold/components/src/Base/Avatar.re
+++ /dev/null
@@ -1,25 +0,0 @@
-module Styles = {
- open Css;
- let imageCropper = width =>
- style([
- Css.width(`em(width)),
- height(`em(width)),
- overflow(`hidden),
- float(`left),
- position(`relative),
- borderRadius(`percent(20.)),
- ]);
- let image =
- style([
- float(`left),
- margin2(~v=`zero, ~h=`auto),
- height(`auto),
- width(`percent(100.)),
- ]);
-};
-
-[@react.component]
-let make = (~src: string, ~width=1., ()) =>
-
- children
;
-};
\ No newline at end of file
diff --git a/foretold/components/src/Base/Dropdown.re b/foretold/components/src/Base/Dropdown.re
deleted file mode 100644
index 901a01ad..00000000
--- a/foretold/components/src/Base/Dropdown.re
+++ /dev/null
@@ -1,104 +0,0 @@
-/**
- * Dropdown component provides a way to show an overlay element
- * at a position relative to it's trigger element (the children given
- * to this element), on various triggers: Click, Hover, ContextMenu and Focus.
- *
- * It is bindings to https://github.com/react-component/dropdown
- */
-[@bs.module "rc-dropdown"]
-external rcDropDownClass: ReasonReact.reactClass = "default";
-
-[%bs.raw {|require("rc-dropdown/assets/index.css")|}];
-
-/** On what event to trigger dropdown
- * rc-trigger supports an array of triggers.
- * This is currently not encoded here currently as
- * it was considered a rarer case, many combinations are superfluous,
- * and delayed in interest of simplicity.
- * If there is only one or a few more, one possiblity
- * would be a variant like ClickFocus.
- */
-type trigger =
- | Click
- | Hover
- | ContextMenu
- | Focus;
-
-let triggerToString = trigger =>
- switch (trigger) {
- | Click => "click"
- | Hover => "hover"
- | ContextMenu => "contextMenu"
- | Focus => "focus"
- };
-
-/* In the documentation of rc-dropdown, the overlay
- property is specified to be a rc-menu,
- but this doesn't seem to be a hard
- requirement in the source */
-[@bs.deriving abstract]
-type jsProps = {
- overlay: ReasonReact.reactElement,
- trigger: array(string),
- prefixCls: string,
- overlayClassName: string,
-};
-
-module Styles = {
- open Css;
- // Styles are based on a prefixCls given to the element
- // Some styles can be applied to all dropdowns, while
- // others are more specific
-
- // General
- // First overlay element, this doesn't apply to submenues, but
- // all kinds of direct overlays
- global(
- ".ft-overlay",
- [
- fontFamily(Settings.Text.standardFont),
- fontSize(`rem(1.)),
- lineHeight(`rem(1.0)),
- zIndex(1070),
- position(`absolute),
- left(`px(-9999)),
- top(`px(-9999)),
- ],
- );
-};
-
-/**
- * Dropdown component provides a way to show an overlay element
- * at a position relative to it's trigger element (the children given
- * to this element), on various triggers: Click, Hover, ContextMenu and Focus.
- * Can be used for example with the Menu component as overlay
- *
- * Usage:
- * ```
- * let staticOverlay = {"Todo: style" |> React.string}
;
- *
- * {"Trigger element" |> React.string}
- * children
;
-
- {React.string("?")}
-
;
-};
-
-module DownArrow = {
- /* Down array from ant */
- let buttonStyle = Css.(style([marginLeft(`px(8))]));
-
- [@react.component]
- let make = () =>
- ;
-};
\ No newline at end of file
diff --git a/foretold/components/src/Base/Link.re b/foretold/components/src/Base/Link.re
deleted file mode 100644
index 9a6ffa1c..00000000
--- a/foretold/components/src/Base/Link.re
+++ /dev/null
@@ -1,29 +0,0 @@
-let headerLink = (~className, ~isDisabled=false, ()) => {
- let primaryStyles =
- Css.(
- style([
- textDecoration(`none),
- userSelect(`none),
- color(Settings.Text.LightBackground.main),
- hover([color(Settings.Text.LightBackground.light)]),
- focus([textDecoration(`none)]),
- ])
- );
-
- let disabledStyles =
- isDisabled ? Css.(style([pointerEvents(`none), cursor(`default)])) : "";
-
- Css.(merge([primaryStyles, className, disabledStyles]));
-};
-
-[@react.component]
-let make =
- (~href="#", ~onClick=?, ~isDisabled=false, ~className="", ~children) => {
-
- children
- ;
-};
diff --git a/foretold/components/src/Base/Menu.re b/foretold/components/src/Base/Menu.re
deleted file mode 100644
index 674627d6..00000000
--- a/foretold/components/src/Base/Menu.re
+++ /dev/null
@@ -1,375 +0,0 @@
-/**
- * Menu component and sibling components provides define menu items,
- * submenues and dividers. See make for usage.
- *
- * It is binding to https://github.com/react-component/menu
- */
-[@bs.module "rc-menu"]
-external rcMenuClass: ReasonReact.reactClass = "default";
-
-[@bs.module "rc-menu"]
-external rcSubMenuClass: ReasonReact.reactClass = "SubMenu";
-
-[@bs.module "rc-menu"] external rcItemClass: ReasonReact.reactClass = "Item";
-
-[@bs.module "rc-menu"]
-external rcDividerClass: ReasonReact.reactClass = "Divider";
-
-[%bs.raw {|require("rc-menu/assets/index.css")|}];
-
-module Styles = {
- open Css;
- let menuBorderRadius = `px(3);
- // Menu general, applied to menu - elements
- global(
- ".ft-menu-general, .ft-submenu-general>ul",
- [
- fontFamily(Settings.Text.standardFont),
- listStyleType(`none),
- position(`relative),
- outlineStyle(`none),
- borderRadius(menuBorderRadius),
- borderStyle(`none),
- boxShadows([
- Shadow.box(~x=zero, ~y=px(2), ~blur=px(8), rgba(0, 0, 0, 0.15)),
- ]),
- margin(`zero),
- padding2(~v=`px(4), ~h=`zero),
- // This is applied to menu-items, submenu pointers, and dividers
- selector(
- ">li",
- [
- // Used to place icon in submenu item currently
- position(`relative),
- display(`block),
- clear(`both),
- whiteSpace(`nowrap),
- cursor(`default),
- ],
- ),
- // Taken from default stylesheet, might prevent some small bug
- // with border radius
- selector(
- ">li.ft-menu-item-general:first-child",
- [
- borderTopLeftRadius(menuBorderRadius),
- borderTopRightRadius(menuBorderRadius),
- ],
- ),
- ],
- );
-
- // Applied to div of submenu
- global(
- ".ft-submenu-general",
- [position(`absolute), minWidth(`px(100))],
- );
-
- /**
- * Create style for menu tied to a "prefixCls"
- * This function injects global styles for
- * classNames based on prefixCls. It is meant
- * to be called only once per prefix, for example
- * on a module level.
- * For an example, see DropdownMenu
- */
- let createStyle =
- (
- ~prefixCls,
- ~itemVerticalPadding,
- ~itemHorizontalPadding,
- ~textColor,
- ~bgColor,
- ~hoverColor,
- ~textSize,
- ~textLineHeight,
- (),
- ) => {
- let prefixPlus = ext => "." ++ prefixCls ++ "-" ++ ext;
-
- // Root
- // Dropdown root element. This, like submenu popups, are placed
- // in generated divs right inside document body element. Ie only
- // influenced by top level styles.
- // Note that submenus get their own top level element, so this
- // does not apply to submenus
- // Note: There is a style in Dropdown that takes care
- // of position absolute and zindex
- //global("." ++ prefixCls, []);
-
- // Menu ul
- //
- 's
- // Both root menu and submenus have this class.
- // This ul element will receive the -hidden class when hidden
- // Move from Menu.Styles > "ft-menu-general" when styles
- // need variation
- global(
- "ul" ++ prefixPlus("menu"),
- [
- lineHeight(textLineHeight),
- backgroundColor(bgColor),
- // Menu-item
- selector(
- "li" ++ prefixPlus("menu-item"),
- [
- fontSize(textSize),
- color(textColor),
- selector(":hover", [backgroundColor(hoverColor)]),
- padding2(
- ~v=`px(itemVerticalPadding),
- ~h=`px(itemHorizontalPadding),
- ),
- // Reversing outside element padding and adding it on the
- // Not sure how needed this will be (taken from ant)
- selector(
- ">a",
- [
- display(`block),
- margin2(
- ~v=`px(- itemVerticalPadding),
- ~h=`px(- itemHorizontalPadding),
- ),
- padding2(
- ~v=`px(itemVerticalPadding),
- ~h=`px(itemHorizontalPadding),
- ),
- ],
- ),
- ],
- ),
- // Submenu
- pointer - selector( - ">li" ++ prefixPlus("menu-submenu"), - [ - fontSize(textSize), - color(textColor), - selector(":hover", [backgroundColor(hoverColor)]), - ], - ), - selector( - ">li" ++ prefixPlus("menu-submenu-active"), - [backgroundColor(hoverColor)], - ), - // Divider - // Can't move to general because the selector - // is prefix specific - selector( - ">li" ++ prefixPlus("menu-item-divider"), - [ - margin2(~v=`px(4), ~h=`zero), - height(`px(1)), - backgroundColor(`hex("e5e5e5")), // A little lighter than border I think - lineHeight(`zero), - overflow(`hidden), - padding(`zero), - ], - ), - ], - ); - - // Hidden menu - // Class applied to submenu
- 's when menu is hidden. Elements are not initially
- // hidden, but added to the dom on demand. Therefore it is quirky to rely
- // on this class with regards to animations/transitions.
- // For transitions, see api of rc-dropdown/rc-menu
- global(prefixPlus("menu-hidden"), [display(`none)]);
- // Hidden root menu
- global(prefixPlus("hidden"), [display(`none)]);
-
- // Submenu
- // Submenu has a title element inside a div, and
- // a right arrow added with unicode
- global(
- prefixPlus("menu-submenu-title"),
- [
- padding4(
- ~top=`px(itemVerticalPadding),
- ~right=`px(itemHorizontalPadding * 2 + 5),
- ~bottom=`px(itemVerticalPadding),
- ~left=`px(itemHorizontalPadding),
- ),
- ],
- );
- global(
- prefixPlus("menu-submenu-arrow"),
- [
- position(`absolute),
- right(`px(itemHorizontalPadding)),
- selector(
- "::before",
- [
- color(Settings.textMedium),
- fontStyle(`normal),
- fontSize(`em(0.7)),
- // One option here is to use font-awesome,
- // don't know how much use it would be elsewhere or how to do this,
- // rc-menu does this by default
- contentRule({js|\u25B6|js}),
- ],
- ),
- ],
- );
- };
-};
-
-module SubMenu = {
- // https://github.com/react-component/menu#menusubmenu-props
- [@bs.deriving abstract]
- type jsProps = {
- title: string,
- popupClassName: string,
- };
-
- [@react.component]
- let make = (~title, ~children) =>
- ReasonReact.wrapJsForReason(
- ~reactClass=rcSubMenuClass,
- ~props=jsProps(~title, ~popupClassName="ft-submenu-general"),
- children,
- )
- |> ReasonReact.element;
-};
-
-module Item = {
- // https://github.com/react-component/menu#menuitem-props
- [@bs.deriving abstract]
- type jsProps = {
- disabled: bool,
- itemIcon: Js.Undefined.t(React.element),
- className: string,
- };
-
- [@react.component]
- let make = (~disabled=false, ~itemIcon=None, ~children) =>
- ReasonReact.wrapJsForReason(
- ~reactClass=rcItemClass,
- ~props=
- jsProps(
- ~disabled,
- ~itemIcon=Js.Undefined.fromOption(itemIcon),
- ~className="ft-menu-item-general",
- ),
- children,
- )
- |> ReasonReact.element;
-};
-
-module Divider = {
- // https://github.com/react-component/menu#menuitem-props
-
- [@react.component]
- let make = (~children=ReasonReact.null) =>
- ReasonReact.wrapJsForReason(
- ~reactClass=rcDividerClass,
- ~props=Js.Obj.empty(),
- children,
- )
- |> ReasonReact.element;
-};
-
-type callbackType =
- Js.Undefined.t(
- {
- .
- "key": string,
- "item": React.element,
- "domEvent": Dom.event,
- "keyPath": array(string),
- } =>
- unit,
- );
-
-// https://github.com/react-component/menu#menu-props
-[@bs.deriving abstract]
-type jsProps = {
- // Gave some namespace confusion on some call site
- // Possibly we could slim the callbacks a little
- // if there are unneeded arguments
- [@bs.as "onClick"]
- jsOnClick: callbackType,
- selectable: bool,
- selectedKeys: array(string),
- [@bs.as "onSelect"]
- jsOnSelect: callbackType,
- className: string,
-};
-
-type clickInfo = {
- key: string,
- item: React.element,
- domEvent: Dom.event,
- keyPath: array(string),
-};
-
-/**
- * Menu component and sibling components provides a way to define menu items,
- * submenues and dividers. One can register an onClick callback on the
- *
- pointer - selector( - ">li" ++ prefixPlus("menu-submenu"), - [ - fontSize(textSize), - color(textColor), - selector(":hover", [backgroundColor(hoverColor)]), - ], - ), - selector( - ">li" ++ prefixPlus("menu-submenu-active"), - [backgroundColor(hoverColor)], - ), - // Divider - // Can't move to general because the selector - // is prefix specific - selector( - ">li" ++ prefixPlus("menu-item-divider"), - [ - margin2(~v=`px(4), ~h=`zero), - height(`px(1)), - backgroundColor(`hex("e5e5e5")), // A little lighter than border I think - lineHeight(`zero), - overflow(`hidden), - padding(`zero), - ], - ), - ], - ); - - // Hidden menu - // Class applied to submenu
- element that contain the menu items in it's