nganhkhoa/website
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

update

Browse Source
This commit is contained in:
nganhkhoa
2023-12-10 03:59:01 +07:00
parent b559885ed4
commit 9878ef3e1b
8 changed files with 125 additions and 49 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
app/Route/Blog.elm
View File

@ -82,8 +82,11 @@ view :
-> View msg
view app shared =
{ title = "nganhkhoa blogs"
, body = app.data
|> List.map renderBlogItem
, body =
[ Link.link (Link.internal (Route.Index)) []
[ text "Home" ]
, div [] (app.data |> List.map renderBlogItem)
]
}
renderBlogItem : (Route, Article.ArticleMetadata) -> Html msg
@ -92,7 +95,6 @@ renderBlogItem (route_, article) =
[ div []
[ div []
[ text article.title
, text article.summary
]
]
]

19
app/Route/Blog/Slug_.elm
View File

@ -7,10 +7,13 @@ 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 Route
import RouteBuilder exposing (App, StatelessRoute)
import Shared
import View exposing (View)
@ -131,10 +134,18 @@ view :
-> 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 =
(app.data.body
|> Markdown.Renderer.render TailwindMarkdownRenderer.renderer
|> Result.withDefault []
)
[ Link.link (Link.internal (Route.Index))
[ style "margin" "10px" ]
[ text "Home" ]
, Link.link (Link.internal (Route.Blog__Slug_ { slug = "" }))
[ style "margin" "10px" ]
[ text "Blog" ]
, br [] []
, h1 [] [ text app.data.metadata.title ]
, div [] rendered
]
}

20
app/Route/Osx/Slug_.elm
View File

@ -7,11 +7,14 @@ 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)
@ -131,11 +134,18 @@ view :
-> 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 =
(app.data.body
|> Markdown.Renderer.render TailwindMarkdownRenderer.renderer
|> Result.withDefault []
)
[ Link.link (Link.internal (Route.Index))
[ style "margin" "10px" ]
[ text "Home" ]
, Link.link (Link.internal (Route.Osx__Slug_ { slug = "" }))
[ style "margin" "10px" ]
[ text "OSX Index" ]
, br [] []
, h1 [] [ text app.data.metadata.title ]
, div [] rendered
]
}