111 lines
2.6 KiB
Elm
111 lines
2.6 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 Html.Styled.Attributes exposing (style)
|
|
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 = "nganhkhoa blogs"
|
|
, image =
|
|
{ url = Pages.Url.external ""
|
|
, alt = "nganhkhoa blogs"
|
|
, dimensions = Nothing
|
|
, mimeType = Nothing
|
|
}
|
|
, description = "blogs"
|
|
, locale = Nothing
|
|
, title = "nganhkhoa blogs"
|
|
}
|
|
|> Seo.website
|
|
|
|
|
|
view :
|
|
App Data ActionData RouteParams
|
|
-> Shared.Model
|
|
-> View msg
|
|
view app shared =
|
|
{ title = "nganhkhoa blogs"
|
|
, body =
|
|
[ Link.link (Link.internal (Route.Index)) []
|
|
[ text "Home" ]
|
|
, div
|
|
[ style "margin-top" "10px" ]
|
|
(app.data |> List.map renderBlogItem)
|
|
]
|
|
}
|
|
|
|
renderBlogItem : (Route, Article.ArticleMetadata) -> Html msg
|
|
renderBlogItem (route_, article) =
|
|
Link.link (Link.internal route_) [ style "text-decoration" "none" ]
|
|
[ div
|
|
[ style "display" "flex"
|
|
, style "justify-content" "space-between"
|
|
-- , style "margin" "auto"
|
|
, style "max-width" "550px"
|
|
]
|
|
[ div []
|
|
[ p [ style "color" "blue" ] [ text article.title ]
|
|
, p [ style "color" "gray" ] [ text article.subtitle ]
|
|
]
|
|
, p [] [text (Date.toIsoString article.published)]
|
|
]
|
|
]
|