From 04c59f08f100ba6a0658d1f2b357f7d8b1e14218 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 13 Oct 2019 22:38:35 +0200
Subject: Show income table

---
 client/src/Component/Table.hs | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create 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
new file mode 100644
index 0000000..a77a18d
--- /dev/null
+++ b/client/src/Component/Table.hs
@@ -0,0 +1,38 @@
+module Component.Table
+  ( table
+  , TableIn(..)
+  , TableOut(..)
+  ) where
+
+import           Data.Text  (Text)
+import           Reflex.Dom (Dynamic, MonadWidget)
+import qualified Reflex.Dom as R
+
+data TableIn h r t = TableIn
+  { _tableIn_headerLabel :: h -> Text
+  , _tableIn_rows        :: Dynamic t [r]
+  , _tableIn_cell        :: h -> r -> Text
+  }
+
+data TableOut = TableOut
+  {}
+
+table :: forall t m h r. (MonadWidget t m, Bounded h, Enum h)  => TableIn h r t -> m (TableOut)
+table tableIn = do
+  R.divClass "table" $ do
+
+    R.divClass "lines" $ do
+      R.divClass "header" $ do
+        flip mapM_ [minBound..] $ \header ->
+          R.divClass "cell" . R.text $
+            _tableIn_headerLabel tableIn header
+
+      R.simpleList (_tableIn_rows tableIn) $ \r ->
+        R.divClass "row" $
+          flip mapM_ [minBound..] $ \h ->
+            R.divClass "cell name" $
+              R.dynText $
+                R.ffor r (_tableIn_cell tableIn h)
+
+    return $ TableOut
+      {}
-- 
cgit v1.2.3