Hide draft posts from rss feed and sitemap.

examples/docs/src/Feed.elm

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

examples/docs/src/MySitemap.elm

@@ -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 }