blob: a447688714d8dea41ebbce5e6e844d37a1ee40dc (
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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
namespace Aamukampa.Core.Views
open System
open System.IO
open Falco.Markup
open Elem
open Attr
open Text
open Aamukampa.Core
module Document =
let view documentBody =
html [ lang "fi" ] [
head [] [
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")) ]
]
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"))
Elem.span [ class' "progress-bar_label" ] [
raw <| sprintf "%s %%" (p.ToString("F2"))
]
div [ class' "progress-bar_bar" ] [
div [
class' "progress-bar_value"
style <|
sprintf "width: %s"
cssWidth
] []
]
]
Elem.p [
style "text-align: center; font-size: 1.5rem;"
] [
enc "2/25 255"
]
// 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)
// ]
// ]
]
|
