blob: d3880136170e08da69ddd6f34f94480fcae73734 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
open System
open Browser.Dom
open Aamukampa.Core
open Falco.Markup
DateTime.Now
|> printfn "It is %O"
let k = kontingent 2 2025
let st = ThreeFourSeven
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
// |> 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
|
