150 lines
3.6 KiB
Elm
150 lines
3.6 KiB
Elm
module Route.Osx.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 Html.Styled.Attributes exposing (style)
|
|
import Link exposing (Link)
|
|
import Json.Decode as Decode exposing (Decoder)
|
|
import Json.Decode.Extra
|
|
import Pages.Url
|
|
import PagesMsg exposing (PagesMsg)
|
|
import RouteBuilder exposing (App, StatelessRoute)
|
|
import Route
|
|
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.osxPostsGlob
|
|
|> 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/osx/" ++ routeParams.slug ++ ".md")
|
|
|
|
|
|
type alias ArticleMetadata =
|
|
{ title : String
|
|
, subtitle : String
|
|
, description : String
|
|
, published : Date
|
|
-- , image : Pages.Url.Url
|
|
, draft : Bool
|
|
}
|
|
|
|
|
|
frontmatterDecoder : Decoder ArticleMetadata
|
|
frontmatterDecoder =
|
|
Decode.map5 ArticleMetadata
|
|
(Decode.field "title" Decode.string)
|
|
(Decode.field "subtitle" 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 = "nganhkhoa osx series"
|
|
, image =
|
|
{ url = Pages.Url.external ""
|
|
, alt = app.data.metadata.title
|
|
, dimensions = Nothing
|
|
, mimeType = Nothing
|
|
}
|
|
, description = ""
|
|
, locale = Nothing
|
|
, title = app.data.metadata.title
|
|
}
|
|
|> Seo.website
|
|
|
|
|
|
view :
|
|
App Data ActionData RouteParams
|
|
-> Shared.Model
|
|
-> View (PagesMsg Msg)
|
|
view app shared =
|
|
let rendered = (app.data.body |> Markdown.Renderer.render TailwindMarkdownRenderer.renderer) |> Result.withDefault []
|
|
in
|
|
{ title = app.data.metadata.title
|
|
, body =
|
|
[ section []
|
|
[ h1 [] [ text app.data.metadata.title ]
|
|
, h1 [ style "font-size" "1.5em" ] [ text app.data.metadata.subtitle ]
|
|
, section [] rendered
|
|
]
|
|
]
|
|
}
|