99 lines
2.1 KiB
Elm
99 lines
2.1 KiB
Elm
module Route.Blog exposing (ActionData, Data, Model, Msg, route)
|
|
|
|
import Article
|
|
import BackendTask exposing (BackendTask)
|
|
import Date exposing (Date)
|
|
import FatalError exposing (FatalError)
|
|
import Head
|
|
import Head.Seo as Seo
|
|
import Html.Styled exposing (..)
|
|
import Json.Decode as Decode exposing (Decoder)
|
|
import Json.Decode.Extra
|
|
import Pages.Url
|
|
import PagesMsg exposing (PagesMsg)
|
|
import Route exposing (Route)
|
|
import RouteBuilder exposing (App, StatelessRoute)
|
|
import Shared
|
|
import View exposing (View)
|
|
import Link
|
|
|
|
|
|
import Markdown.Block
|
|
import Markdown.Renderer
|
|
import MarkdownCodec
|
|
import TailwindMarkdownRenderer
|
|
import Tailwind.Utilities as Tw
|
|
|
|
|
|
type alias Model =
|
|
{}
|
|
|
|
|
|
type alias Msg =
|
|
()
|
|
|
|
type alias RouteParams =
|
|
{}
|
|
|
|
route : StatelessRoute RouteParams Data ActionData
|
|
route =
|
|
RouteBuilder.single
|
|
{ head = head
|
|
, data = data
|
|
}
|
|
|> RouteBuilder.buildNoState { view = view }
|
|
|
|
|
|
type alias Data =
|
|
List (Route, Article.ArticleMetadata)
|
|
|
|
type alias ActionData =
|
|
{}
|
|
|
|
|
|
data : BackendTask FatalError Data
|
|
data =
|
|
Article.blogAllMetadata
|
|
|> BackendTask.allowFatal
|
|
|
|
head :
|
|
App Data ActionData RouteParams
|
|
-> List Head.Tag
|
|
head app =
|
|
Seo.summary
|
|
{ canonicalUrlOverride = Nothing
|
|
, siteName = "elm-pages"
|
|
, image =
|
|
{ url = Pages.Url.external "TODO"
|
|
, alt = "elm-pages logo"
|
|
, dimensions = Nothing
|
|
, mimeType = Nothing
|
|
}
|
|
, description = "TODO"
|
|
, locale = Nothing
|
|
, title = "TODO title" -- metadata.title -- TODO
|
|
}
|
|
|> Seo.website
|
|
|
|
|
|
view :
|
|
App Data ActionData RouteParams
|
|
-> Shared.Model
|
|
-> View msg
|
|
view app shared =
|
|
{ title = "title"
|
|
, body = app.data
|
|
|> List.map renderBlogItem
|
|
}
|
|
|
|
renderBlogItem : (Route, Article.ArticleMetadata) -> Html msg
|
|
renderBlogItem (route_, article) =
|
|
Link.link (Link.internal route_) []
|
|
[ div []
|
|
[ div []
|
|
[ text article.title
|
|
, text article.summary
|
|
]
|
|
]
|
|
]
|