module TJLaskuri.Web.Modules.Index

open System
open Falco
open TJLaskuri.Core

[<AutoOpen>]
module Views =
    open TJLaskuri.Core.Views

    type Model = {
        Counter : Main.Model
    }

    let view model = 
        Main.view model.Counter
        |> Document.view

let get : HttpHandler =
    fun ctx ->
        let time = DateTime.Now
        let kontingent = kontingent 2 2025
        let timeLeft = Domain.getTimeLeft kontingent ThreeFourSeven time |> Option.get
        let completed = Domain.getTimeCompleted kontingent time |> Option.get

        view {
            Counter = {
                TimeLeft = timeLeft
                TimeCompleted = completed
            }
        } |> Response.ofHtml <| ctx