From 6b46930cfd23c59a359460c84085e9333aea4521 Mon Sep 17 00:00:00 2001
From: Joel Stålnacke <joel@saker.fi>
Date: Sat, 2 Aug 2025 18:25:14 +0300
Subject: Initial frontend

---
 TJLaskuri.Frontend/App.fs | 34 +++++++++++++++++-----------------
 1 file changed, 17 insertions(+), 17 deletions(-)

(limited to 'TJLaskuri.Frontend/App.fs')

diff --git a/TJLaskuri.Frontend/App.fs b/TJLaskuri.Frontend/App.fs
index d19c455..c83ed6a 100644
--- a/TJLaskuri.Frontend/App.fs
+++ b/TJLaskuri.Frontend/App.fs
@@ -9,25 +9,25 @@ let k = kontingent 2 2025
 let st = ThreeFourSeven
 
 let currentTime =
-    DateTime(2025, 7, 5)
+    // DateTime(2025, 7, 5)
     // DateTime(2026, 6, 18)
     // DateTime(2026, 6, 17)
-    // DateTime.Today
+    DateTime.Today
     // DateTime.Now
     // Domain.getStartDate k |> Option.get
 
-currentTime
-|> Domain.getTimeLeft k st
-|> function
-    | Some left ->
-        let el = document.createElement "p"
-        el.innerHTML <- sprintf "Tänään jäljellä:<br>%O" left.TotalDays
-        document.body.appendChild(el) |> ignore
-    | None ->
-        printfn "Error: unknown kontingent"
-
-let startDate = Domain.getStartDate k |> Option.get
-let el = document.createElement "p"
-el.innerHTML <- sprintf "Aloituspäivä: %O<br>Aamuja ohi %d"
-    startDate (Domain.getTimeCompleted k currentTime |> Option.get).Days
-document.body.appendChild(el) |> ignore
+// currentTime
+// |> Domain.getTimeLeft k st
+// |> function
+//     | Some left ->
+//         let el = document.createElement "p"
+//         el.innerHTML <- sprintf "Tänään jäljellä:<br>%O<br>aamua" left.TotalDays
+//         document.body.appendChild(el) |> ignore
+//     | None ->
+//         printfn "Error: unknown kontingent"
+//
+// let startDate = Domain.getStartDate k |> Option.get
+// let el = document.createElement "p"
+// el.innerHTML <- sprintf "Aloituspäivä: %O<br>Aamuja ohi %d"
+//     startDate (Domain.getTimeCompleted k currentTime |> Option.get).Days
+// document.body.appendChild(el) |> ignore
-- 
cgit v1.2.3