namespace Aamukampa.Web.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" ] let fontFile format = sprintf "%sfonts/CooperBlack-Regular.%s" Config.pathBase format Elem.style [] [ raw <| sprintf """@font-face { font-family: 'Cooper Black'; font-weight: normal; font-style: normal; font-display: swap; src: local('Cooper Black'), url('%s') format('woff2'), url('%s') format('woff'), url('%s') format('opentype'), url('%s') format('truetype'); } """ (fontFile "woff2") (fontFile "woff") (fontFile "otf") (fontFile "ttf") ] link [ rel "stylesheet"; href (sprintf "%s%s" Config.pathBase "styles.css") ] script [ type' "module"; src (sprintf "%s%s" Config.pathBase "app.js") ] [] ] body [] [ documentBody ] ]