mirror of
https://github.com/dillonkearns/elm-pages-v3-beta.git
synced 2025-01-07 15:01:37 +03:00
39 lines
911 B
Elm
39 lines
911 B
Elm
module Site exposing (canonicalUrl, config)
|
|
|
|
import Cloudinary
|
|
import DataSource exposing (DataSource)
|
|
import Head
|
|
import MimeType
|
|
import Pages.Url
|
|
import SiteConfig exposing (SiteConfig)
|
|
|
|
|
|
config : SiteConfig
|
|
config =
|
|
{ canonicalUrl = canonicalUrl
|
|
, head = head
|
|
}
|
|
|
|
|
|
head : DataSource (List Head.Tag)
|
|
head =
|
|
[ Head.icon [ ( 32, 32 ) ] MimeType.Png (cloudinaryIcon MimeType.Png 32)
|
|
, Head.icon [ ( 16, 16 ) ] MimeType.Png (cloudinaryIcon MimeType.Png 16)
|
|
, Head.appleTouchIcon (Just 180) (cloudinaryIcon MimeType.Png 180)
|
|
, Head.appleTouchIcon (Just 192) (cloudinaryIcon MimeType.Png 192)
|
|
]
|
|
|> DataSource.succeed
|
|
|
|
|
|
canonicalUrl : String
|
|
canonicalUrl =
|
|
"https://elm-pages.com"
|
|
|
|
|
|
cloudinaryIcon :
|
|
MimeType.MimeImage
|
|
-> Int
|
|
-> Pages.Url.Url
|
|
cloudinaryIcon mimeType width =
|
|
Cloudinary.urlSquare "v1603234028/elm-pages/elm-pages-icon" (Just mimeType) width
|