From 341919abd73de642c364b1d82932bd038345dc68 Mon Sep 17 00:00:00 2001
From: Joel Stålnacke <joel@saker.fi>
Date: Mon, 8 Sep 2025 14:34:20 +0300
Subject: TJ in more time units (WIP)

---
 Aamukampa.Frontend/App.fs | 25 ++++++++++++++++++-------
 1 file changed, 18 insertions(+), 7 deletions(-)

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

diff --git a/Aamukampa.Frontend/App.fs b/Aamukampa.Frontend/App.fs
index 8c69d29..d388013 100644
--- a/Aamukampa.Frontend/App.fs
+++ b/Aamukampa.Frontend/App.fs
@@ -1,6 +1,7 @@
 open System
 open Browser.Dom
 open Aamukampa.Core
+open Falco.Markup
 
 DateTime.Now
 |> printfn "It is %O"
@@ -8,13 +9,23 @@ DateTime.Now
 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
+window.setInterval((fun () -> 
+    let now = DateTime.Now
+    let tjElement = document.getElementById "tj"
+    let currentTj =
+        match Int32.TryParse(tjElement.innerText) with
+        | true, tj -> Some tj
+        | false, _ -> None
+    document.getElementById "time-units"
+    |> fun el ->
+        el.outerHTML <-
+            Views.Main.timeUnits {
+                TimeLeft = Domain.getTimeLeft k st now |> Option.get
+                TimeCompleted = Domain.getTimeCompleted k now |> Option.get
+            } |> renderHtml
+    ()),
+    1000, [||])
+    |> ignore
 
 // currentTime
 // |> Domain.getTimeLeft k st
-- 
cgit v1.2.3