From 1790a3f5447907338cdbbfc9f44256cf74f36e31 Mon Sep 17 00:00:00 2001
From: Joel Stålnacke <joel@saker.fi>
Date: Sat, 2 Aug 2025 18:28:44 +0300
Subject: Rebrand to Aamukampa

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

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

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
-- 
cgit v1.2.3