From 11052951b74b9ad4b6a9412ae490086235f9154b Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 3 Jan 2021 13:40:40 +0100
Subject: Rewrite in Rust

---
 client/src/Component/Table.hs | 105 ------------------------------------------
 1 file changed, 105 deletions(-)
 delete mode 100644 client/src/Component/Table.hs

(limited to 'client/src/Component/Table.hs')

diff --git a/client/src/Component/Table.hs b/client/src/Component/Table.hs
deleted file mode 100644
index 1482f91..0000000
--- a/client/src/Component/Table.hs
+++ /dev/null
@@ -1,105 +0,0 @@
-module Component.Table
-  ( view
-  , In(..)
-  , Out(..)
-  ) where
-
-import qualified Data.Map         as M
-import           Data.Text        (Text)
-import           Reflex.Dom       (Event, MonadWidget)
-import qualified Reflex.Dom       as R
-
-import qualified Component.Button as Button
-import qualified Component.Modal  as Modal
-import qualified Util.Reflex      as ReflexUtil
-import qualified View.Icon        as Icon
-
-data In m t h r = In
-  { _in_headerLabel :: h -> Text
-  , _in_rows        :: [r]
-  , _in_cell        :: h -> r -> m ()
-  , _in_cloneModal  :: r -> Modal.Content t m
-  , _in_editModal   :: r -> Modal.Content t m
-  , _in_deleteModal :: r -> Modal.Content t m
-  , _in_canEdit     :: r -> Bool
-  , _in_canDelete   :: r -> Bool
-  }
-
-data Out t = Out
-  { _out_add    :: Event t ()
-  , _out_edit   :: Event t ()
-  , _out_delete :: Event t ()
-  }
-
-view :: forall t m h r. (MonadWidget t m, Bounded h, Enum h)  => In m t h r -> m (Out t)
-view input =
-  R.divClass "table" $ do
-    rec
-      result <- R.divClass "lines" $ do
-
-        R.divClass "header" $ do
-          flip mapM_ [minBound..] $ \header ->
-            R.divClass "cell" . R.text $
-              _in_headerLabel input header
-
-          R.divClass "cell" $ R.blank
-          R.divClass "cell" $ R.blank
-          R.divClass "cell" $ R.blank
-
-        flip mapM (_in_rows input) $ \row ->
-          R.divClass "row" $ do
-            flip mapM_ [minBound..] $ \header ->
-              R.divClass "cell" $
-                _in_cell input header row
-
-            cloneButton <-
-              R.divClass "cell button" $
-                Button._out_clic <$> (Button.view $
-                  Button.defaultIn Icon.clone)
-
-            clone <-
-              Modal.view $ Modal.In
-                { Modal._in_show    = cloneButton
-                , Modal._in_content = _in_cloneModal input row
-                }
-
-            let visibleIf cond =
-                  R.elAttr
-                    "div"
-                    (if cond then M.empty else M.singleton "style" "display:none")
-
-            editButton <-
-              R.divClass "cell button" $
-                visibleIf (_in_canEdit input row) $
-                  Button._out_clic <$> (Button.view $
-                    Button.defaultIn Icon.edit)
-
-            edit <-
-              Modal.view $ Modal.In
-                { Modal._in_show    = editButton
-                , Modal._in_content = _in_editModal input row
-                }
-
-            deleteButton <-
-              R.divClass "cell button" $
-                visibleIf (_in_canDelete input row) $
-                  Button._out_clic <$> (Button.view $
-                    Button.defaultIn Icon.delete)
-
-            delete <-
-              Modal.view $ Modal.In
-                { Modal._in_show    = deleteButton
-                , Modal._in_content = _in_deleteModal input row
-                }
-
-            return (clone, edit, delete)
-
-    let add = R.leftmost . map (\(a, _, _) -> a) $ result
-        edit = R.leftmost . map (\(_, a, _) -> a) $ result
-        delete = R.leftmost . map (\(_, _, a) -> a) $ result
-
-    return $ Out
-      { _out_add = add
-      , _out_edit = edit
-      , _out_delete = delete
-      }
-- 
cgit v1.2.3