Initial project setup

2022-09-02 22:40:21 +02:00
commit ce35c0300c
41 changed files with 1127 additions and 0 deletions
--- a/Web/View/Entries/Today.hs
+++ b/Web/View/Entries/Today.hs
@@ -0,0 +1,19 @@
+module Web.View.Entries.Today where
+import Web.View.Prelude
+
+data TodayView = TodayView { entries :: [Entry]  }
+
+instance View TodayView where
+    html TodayView { .. } = [hsx|
+        {breadcrumb}
+        <h1>TodayView</h1>
+        <button id="today-button" style="width:800px; height:600px">
+            <input type="image" src="/time_on.svg" width="100%" height="100%" />
+        </button>
+        <div>0H    0:00H</div>
+        |]
+            where
+                breadcrumb = renderBreadcrumb
+                                [ breadcrumbLink "Todays" EntriesAction
+                                , breadcrumbText "TodayView"
+                                ]