dillonkearns/elm-pages-v3-beta
1
1
Fork 0
mirror of https://github.com/dillonkearns/elm-pages-v3-beta.git synced 2024-11-24 06:54:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

Hide draft posts from rss feed and sitemap.

Browse Source
This commit is contained in:
Dillon Kearns 2020-01-26 08:31:30 -08:00
parent 920694a024
commit 5522ca068d
2 changed files with 22 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
examples/docs/src/Feed.elm
View File

@ -58,15 +58,19 @@ metadataToRssItem :
metadataToRssItem page =
case page.frontmatter of
Article article ->
Just
{ title = article.title
, description = article.description
, url = PagePath.toString page.path
, categories = []
, author = article.author.name
, pubDate = Rss.Date article.published
, content = Nothing
}
if article.draft then
Nothing
else
Just
{ title = article.title
, description = article.description
, url = PagePath.toString page.path
, categories = []
, author = article.author.name
, pubDate = Rss.Date article.published
, content = Nothing
}
_ ->
Nothing

9
examples/docs/src/MySitemap.elm
View File

@ -24,6 +24,15 @@ build config siteMetadata =
, content =
Sitemap.build config
(siteMetadata
|> List.filter
(\page ->
case page.frontmatter of
Article articleData ->
not articleData.draft
_ ->
True
)
|> List.map
(\page ->
{ path = PagePath.toString page.path, lastMod = Nothing }