module Route.Blog.Slug_ 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 RouteBuilder exposing (App, StatelessRoute) import Shared import View exposing (View) import Markdown.Block import Markdown.Renderer import MarkdownCodec import TailwindMarkdownRenderer import Tailwind.Utilities as Tw type alias Model = {} type alias Msg = () type alias RouteParams = { slug : String } route : StatelessRoute RouteParams Data ActionData route = RouteBuilder.preRender { head = head , pages = pages , data = data } |> RouteBuilder.buildNoState { view = view } pages : BackendTask FatalError (List RouteParams) pages = Article.blogPostsGlob |> BackendTask.map (List.map (\globData -> { slug = globData.slug } ) ) type alias Data = { metadata : ArticleMetadata , body : List Markdown.Block.Block } type alias ActionData = {} data : RouteParams -> BackendTask FatalError Data data routeParams = MarkdownCodec.withFrontmatter Data frontmatterDecoder TailwindMarkdownRenderer.renderer ("content/blog/" ++ routeParams.slug ++ ".md") type alias ArticleMetadata = { title : String , description : String , published : Date -- , image : Pages.Url.Url , draft : Bool } frontmatterDecoder : Decoder ArticleMetadata frontmatterDecoder = Decode.map4 ArticleMetadata (Decode.field "title" Decode.string) (Decode.field "summary" Decode.string) (Decode.field "published" (Decode.string |> Decode.andThen (\isoString -> Date.fromIsoString isoString |> Json.Decode.Extra.fromResult ) ) ) -- (Decode.oneOf -- [ Decode.field "image" imageDecoder -- , Decode.field "unsplash" UnsplashImage.decoder |> Decode.map UnsplashImage.imagePath -- ] -- ) (Decode.field "draft" Decode.bool |> Decode.maybe |> Decode.map (Maybe.withDefault False) ) 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 (PagesMsg Msg) view app shared = { title = "title" , body = (app.data.body |> Markdown.Renderer.render TailwindMarkdownRenderer.renderer |> Result.withDefault [] ) }