1 files changed, 33 insertions, 0 deletions
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