1 files changed, 33 insertions, 0 deletions
diff --git a/Aamukampa.Frontend/App.fs b/Aamukampa.Frontend/App.fs
new file mode 100644
index 0000000..c83ed6a
--- /dev/null
+++ b/Aamukampa.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<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