From 40525e4f0ff494a3b5bf9cebad5d00ac25a3d840 Mon Sep 17 00:00:00 2001
From: Joel Stålnacke <joel@saker.fi>
Date: Fri, 1 Aug 2025 20:22:50 +0300
Subject: Basic domain logic

---
 TJLaskuri.Frontend/App.fs | 33 +++++++++++++++++++++++++++++++++
 1 file changed, 33 insertions(+)
 create mode 100644 TJLaskuri.Frontend/App.fs

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

diff --git a/TJLaskuri.Frontend/App.fs b/TJLaskuri.Frontend/App.fs
new file mode 100644
index 0000000..d19c455
--- /dev/null
+++ b/TJLaskuri.Frontend/App.fs
@@ -0,0 +1,33 @@
+open System
+open Browser.Dom
+open TJLaskuri.Core
+
+DateTime.Now
+|> printfn "It is %O"
+
+let k = kontingent 2 2025
+let st = ThreeFourSeven
+
+let currentTime =
+    DateTime(2025, 7, 5)
+    // DateTime(2026, 6, 18)
+    // DateTime(2026, 6, 17)
+    // 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
-- 
cgit v1.2.3