diff options
| author | Joel Stålnacke <joel@saker.fi> | 2025-08-02 18:28:44 +0300 |
|---|---|---|
| committer | Joel Stålnacke <joel@saker.fi> | 2025-08-02 18:28:44 +0300 |
| commit | 1790a3f5447907338cdbbfc9f44256cf74f36e31 (patch) | |
| tree | 2afa8a436075ef5be465ae21011696de6890a215 /TJLaskuri.Core/Views.fs | |
| parent | 6b46930cfd23c59a359460c84085e9333aea4521 (diff) | |
Rebrand to Aamukampa
Diffstat (limited to 'TJLaskuri.Core/Views.fs')
| -rw-r--r-- | TJLaskuri.Core/Views.fs | 88 |
1 files changed, 0 insertions, 88 deletions
diff --git a/TJLaskuri.Core/Views.fs b/TJLaskuri.Core/Views.fs deleted file mode 100644 index 939acec..0000000 --- a/TJLaskuri.Core/Views.fs +++ /dev/null @@ -1,88 +0,0 @@ -namespace TJLaskuri.Core.Views - -open System -open Falco.Markup -open Elem -open Attr -open Text - -module Document = - let view documentBody = - html [ lang "fi" ] [ - head [] [ - meta [ charset "utf-8" ] - meta [ name "viewport"; content "width=device-width" ] - Elem.title [] [ raw "TJ-laskuri" ] - script [ type' "module"; src "/js/app.js" ] [] - link [ rel "stylesheet"; href "/styles.css" ] - ] - body [] [ - documentBody - ] - ] - -module Main = - type Model = { - TimeLeft : TimeSpan - TimeCompleted : TimeSpan - } - - let view model = - main [] [ - div [ class' "counter" ] [ - Elem.span [ class' "counter_title" ] [ - raw "Tänään jäljellä" - ] - Elem.span [ class' "counter_value" ] [ - enc (string <| Math.Ceiling model.TimeLeft.TotalDays) - ] - Elem.span [ class' "counter_mornings" ] [ - raw " aamua" - ] - ] - - div [ class' "progress-bar" ] [ - let p = 100.0 * (1.0 - model.TimeLeft / (model.TimeLeft + model.TimeCompleted)) - let cssWidth = sprintf "%s%%" (p.ToString("F2")) - - div [ - class' "progress-bar_value" - style <| - sprintf "background-color: green; width: %s" - cssWidth - ] [ - span <| sprintf "%s %%" (p.ToString("F2")) - ] - ] - - Elem.p [ - style "text-align: center; font-size: 1.5rem;" - ] [ - enc "2/25 347" - ] - - // div [] [ - // Elem.label [ for' "kontingent-select" ] [ raw "Saapumiserä:" ] - // select [ id "kontingent-select" ] [ - // option [ value "1/25" ] [ enc "1/25" ] - // option [ value "2/25" ] [ enc "2/25" ] - // option [ value "1/26" ] [ enc "1/26" ] - // option [ value "2/26" ] [ enc "2/26" ] - // ] - // ] - - // div [] [ - // Elem.p [] [ - // span "Tunteina" - // enc (string model.TimeLeft.TotalHours) - // ] - // Elem.p [] [ - // span "Sekunteina" - // enc (string model.TimeLeft.TotalSeconds) - // ] - // Elem.p [] [ - // span "Aamuja ohi " - // enc (string <| Math.Floor model.TimeCompleted.TotalDays) - // ] - // ] - ] |