website/app/Route/Blog.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)]
            ]
        ]