diff options
Diffstat (limited to 'Aamukampa.Core/Views.fs')
| -rw-r--r-- | Aamukampa.Core/Views.fs | 41 |
1 files changed, 37 insertions, 4 deletions
diff --git a/Aamukampa.Core/Views.fs b/Aamukampa.Core/Views.fs index a447688..b94e06f 100644 --- a/Aamukampa.Core/Views.fs +++ b/Aamukampa.Core/Views.fs @@ -1,7 +1,6 @@ namespace Aamukampa.Core.Views open System -open System.IO open Falco.Markup open Elem open Attr @@ -15,8 +14,8 @@ module Document = meta [ charset "utf-8" ] meta [ name "viewport"; content "width=device-width" ] Elem.title [] [ raw "Aamukampa" ] - script [ type' "module"; src (Path.Combine(Config.pathBase, "js/app.js")) ] [] - link [ rel "stylesheet"; href (Path.Combine(Config.pathBase, "styles.css")) ] + link [ rel "stylesheet"; href (sprintf "%s%s" Config.pathBase "styles.css") ] + script [ type' "module"; src (sprintf "%s%s" Config.pathBase "app.js") ] [] ] body [] [ documentBody @@ -29,13 +28,35 @@ module Main = TimeCompleted : TimeSpan } + let timeUnits model = + let round (p : int) (f : float) = Math.Round(f, p) + + div [ id "time-units" ] [ + yield! + ([ + "Vuosia", "tj-years", model.TimeLeft.TotalDays / 365.0 |> round 2 + "Kuukausia", "tj-months", model.TimeLeft.TotalDays / 30.0 |> round 2 + "Viikkoja", "tj-weeks", model.TimeLeft.TotalDays / 7.0 |> round 1 + "Tunteja", "tj-hours", model.TimeLeft.TotalHours |> round 1 + "Minuutteja", "tj-minutes", model.TimeLeft.TotalMinutes |> round 0 + "Sekunteja", "tj-seconds", model.TimeLeft.TotalSeconds |> round 0 + ] + |> List.map (fun (title, valueId, value) -> + div [] [ + span title + Elem.span [ id valueId ] [ + enc (string value) + ] + ])) + ] + let view model = main [] [ div [ class' "counter" ] [ Elem.span [ class' "counter_title" ] [ raw "Tänään jäljellä" ] - Elem.span [ class' "counter_value" ] [ + Elem.span [ id "tj"; class' "counter_value" ] [ enc (string <| Math.Ceiling model.TimeLeft.TotalDays) ] Elem.span [ class' "counter_mornings" ] [ @@ -60,12 +81,24 @@ module Main = ] ] + 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" ] + ] + ] + Elem.p [ style "text-align: center; font-size: 1.5rem;" ] [ enc "2/25 255" ] + timeUnits model + // div [] [ // Elem.label [ for' "kontingent-select" ] [ raw "Saapumiserä:" ] // select [ id "kontingent-select" ] [ |