elm-pages-v3-beta/examples/todos/app/Site.elm
2023-01-30 13:13:21 -08:00

36 lines
860 B
Elm

module Site exposing (canonicalUrl, config)
import BackendTask exposing (BackendTask)
import FatalError exposing (FatalError)
import Head
import Route
import SiteConfig exposing (SiteConfig)
type alias Data =
()
config : SiteConfig
config =
{ canonicalUrl = canonicalUrl
, head = head
}
canonicalUrl : String
canonicalUrl =
"https://elm-pages.com"
head : BackendTask FatalError (List Head.Tag)
head =
[ Head.metaName "viewport" (Head.raw "width=device-width,initial-scale=1")
, Head.metaName "mobile-web-app-capable" (Head.raw "yes")
, Head.metaName "theme-color" (Head.raw "#ffffff")
, Head.metaName "apple-mobile-web-app-capable" (Head.raw "yes")
, Head.metaName "apple-mobile-web-app-status-bar-style" (Head.raw "black-translucent")
, Head.sitemapLink "/sitemap.xml"
]
|> BackendTask.succeed