Move HTML views from Core to Web

Fable can't bundle Falco.Markup because it's a compiled library, so we
can't have templates on the frontend.

2 files changed, 0 insertions, 127 deletions

diff --git a/Aamukampa.Core/Aamukampa.Core.fsproj b/Aamukampa.Core/Aamukampa.Core.fsproj
index c0afaae..5544c2d 100644
--- a/Aamukampa.Core/Aamukampa.Core.fsproj
+++ b/Aamukampa.Core/Aamukampa.Core.fsproj
@@ -8,7 +8,6 @@
   <ItemGroup>
     <Compile Include="Types.fs" />
     <Compile Include="Config.fs" />
-    <Compile Include="Views.fs" />
     <Compile Include="Library.fs" />
   </ItemGroup>
 
diff --git a/Aamukampa.Core/Views.fs b/Aamukampa.Core/Views.fs
deleted file mode 100644
index b94e06f..0000000
--- a/Aamukampa.Core/Views.fs
+++ /dev/null
@@ -1,126 +0,0 @@
-namespace Aamukampa.Core.Views
-
-open System
-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" ]
-                link [ rel "stylesheet"; href (sprintf "%s%s" Config.pathBase "styles.css") ]
-                script [ type' "module"; src (sprintf "%s%s" Config.pathBase "app.js") ] [] 
-                ]
-            body [] [
-                documentBody
-            ]
-        ]
-
-module Main =
-    type Model = {
-        TimeLeft : TimeSpan
-        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 [ id "tj"; 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
-                    ] []
-                ]
-            ]
-
-            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" ] [
-            //         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)
-            //     ]
-            // ]
-        ]