TJLaskuri.Frontend/App.fs


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

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