Add automatic draft feature.

krymtkts · Dec 17, 2023 · 16e51cf · 16e51cf
1 parent cdcc632
commit 16e51cf
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 4 deletions.
diff --git a/src/Common.fs b/src/Common.fs
@@ -241,7 +241,8 @@ module Misc =
           source: string
           leaf: string
           date: string
-          pubDate: string option }
+          pubDate: string option
+          publish: bool }
 
     let getDestinationPath (source: string) (dir: string) =
         Directory.leaf source

diff --git a/src/Generator.fs b/src/Generator.fs
@@ -238,11 +238,13 @@ module Rendering =
                 |> Parser.parseMarkdownAsReactEl
                 |> fun (fm, c) -> fm, c
 
+            let today = DateTime.toRFC3339Date now
+
             let chooseDate (fm: Parser.FrontMatter option) alt =
                 let date =
                     match alt with
                     | Some date -> date
-                    | _ -> DateTime.toRFC3339Date now
+                    | _ -> today
 
                 match fm with
                 | Some fm ->
@@ -251,15 +253,18 @@ module Rendering =
                     | Some date -> date
                 | None -> date
 
+            let date = chooseDate fm pubDate
+
             return
                 { frontMatter = fm
                   content = content
                   description = content |> Parser.parseReact |> summarizeHtml 120
                   layout = layout
                   source = source
                   leaf = leafHtml source
-                  date = chooseDate fm pubDate
-                  pubDate = pubDate }
+                  date = date
+                  pubDate = pubDate
+                  publish = date <= today }
         }
 
     let private writeContent
@@ -313,6 +318,7 @@ module Rendering =
 
             return!
                 metas
+                |> Seq.filter (fun x -> x.publish)
                 |> Seq.mapi (fun i meta ->
                     promise {
                         let prev, next =