From 831295f8688cf1ea5d0e8d1ca6efd612bf038bb2 Mon Sep 17 00:00:00 2001
From: Roman Galochkin <roman.redrat@gmail.com>
Date: Fri, 10 Apr 2020 12:04:08 +0300
Subject: [PATCH] Revert "Adds a Home page with models table"

This reverts commit 36e4a003
---
 src/App.re        |  9 ++++-
 src/pages/Home.re | 85 -----------------------------------------------
 2 files changed, 8 insertions(+), 86 deletions(-)
 delete mode 100644 src/pages/Home.re

diff --git a/src/App.re b/src/App.re
index e9dea9c3..236879d6 100644
--- a/src/App.re
+++ b/src/App.re
@@ -70,6 +70,13 @@ module Menu = {
   let make = () => {
     <div className=Styles.menu>
       <Item href={routeToPath(Home)} key="home"> {"Home" |> E.ste} </Item>
+      {Models.all
+       |> E.A.fmap((model: Prop.Model.t) => {
+            <Item href={routeToPath(Model(model.id))} key={model.id}>
+              {model.name |> E.ste}
+            </Item>
+          })
+       |> ReasonReact.array}
       <Item href={routeToPath(DistBuilder)} key="dist-builder">
         {"Dist Builder" |> E.ste}
       </Item>
@@ -108,7 +115,7 @@ let make = () => {
      | DistBuilder => <DistBuilder />
      | DistBuilder2 => <DistBuilder2 />
      | DistBuilder3 => <DistBuilder3 />
-     | Home => <Home />
+     | Home => <div> {"Welcome" |> E.ste} </div>
      | _ => <div> {"Page is not found" |> E.ste} </div>
      }}
   </div>;
diff --git a/src/pages/Home.re b/src/pages/Home.re
deleted file mode 100644
index 001ef4a1..00000000
--- a/src/pages/Home.re
+++ /dev/null
@@ -1,85 +0,0 @@
-type route =
-  | Model(string);
-
-let routeToPath = route =>
-  switch (route) {
-  | Model(modelId) => "/m/" ++ modelId
-  };
-
-module Models = {
-  let all = [|
-    EAFunds.Interface.model,
-    GlobalCatastrophe.Interface.model,
-    Human.Interface.model,
-  |];
-  let getById = id => E.A.getBy(all, r => r.id == id);
-};
-
-module Styles = {
-  open Css;
-  let h3 = style([fontSize(`em(1.5)), marginBottom(`em(1.5))]);
-  let card = style([marginTop(`em(2.)), marginBottom(`em(2.))]);
-};
-
-module Table = {
-  module TableStyles = {
-    open Css;
-    let row = style([display(`flex), height(`em(4.))]);
-    let col = (~f=1.0, ()) => {
-      style([flex(`num(f))]);
-    };
-  };
-
-  module Item = {
-    [@react.component]
-    let make = (~model: Prop.Model.t, ~children) => {
-      <div className=TableStyles.row>
-        <div className={TableStyles.col()}>
-          <a
-            href={routeToPath(Model(model.id))}
-            onClick={e => {
-              e->ReactEvent.Synthetic.preventDefault;
-              ReasonReactRouter.push(routeToPath(Model(model.id)));
-            }}>
-            children
-          </a>
-        </div>
-        <div className={TableStyles.col(~f=3.0, ())}>
-          {model.description |> E.ste}
-        </div>
-        <div className={TableStyles.col()}> {model.author |> E.ste} </div>
-      </div>;
-    };
-  };
-
-  module ColumnsTitles = {
-    [@react.component]
-    let make = () => {
-      <div className=TableStyles.row>
-        <div className={TableStyles.col()}> {"Name" |> E.ste} </div>
-        <div className={TableStyles.col(~f=3.0, ())}>
-          {"Description" |> E.ste}
-        </div>
-        <div className={TableStyles.col()}> {"Author" |> E.ste} </div>
-      </div>;
-    };
-  };
-
-  [@react.component]
-  let make = () => {
-    <>
-      <h3 className=Styles.h3> {"Probability Models" |> E.ste} </h3>
-      <ColumnsTitles />
-      {Models.all
-       |> E.A.fmap((model: Prop.Model.t) => {
-            <Item model key={model.id}> {model.name |> E.ste} </Item>
-          })
-       |> ReasonReact.array}
-    </>;
-  };
-};
-
-[@react.component]
-let make = () => {
-  <div> <div className=Styles.card> <Table /> </div> </div>;
-};
\ No newline at end of file