Add prior permalink management

src/MyWebLog/Handlers/Page.fs

@@ -45,6 +45,31 @@ let edit pgId : HttpHandler = requireUser >=> fun next ctx -> task {
     | None -> return! Error.notFound next ctx
 }
 
+// GET /page/{id}/permalinks
+let editPermalinks pgId : HttpHandler = requireUser >=> fun next ctx -> task {
+    match! Data.Page.findByFullId (PageId pgId) (webLogId ctx) (conn ctx) with
+    | Some pg ->
+        return!
+            Hash.FromAnonymousObject {|
+                csrf       = csrfToken ctx
+                model      = ManagePermalinksModel.fromPage pg
+                page_title = $"Manage Prior Permalinks"
+            |}
+            |> viewForTheme "admin" "permalinks" next ctx
+    | None -> return! Error.notFound next ctx
+}
+
+// POST /page/permalinks
+let savePermalinks : HttpHandler = requireUser >=> validateCsrf >=> fun next ctx -> task {
+    let! model = ctx.BindFormAsync<ManagePermalinksModel> ()
+    let  links = model.prior |> Array.map Permalink |> List.ofArray
+    match! Data.Page.updatePriorPermalinks (PageId model.id) (webLogId ctx) links (conn ctx) with
+    | true ->
+        do! addMessage ctx { UserMessage.success with message = "Page permalinks saved successfully" }
+        return! redirectToGet $"/page/{model.id}/permalinks" next ctx
+    | false -> return! Error.notFound next ctx
+}
+
 open System
 
 #nowarn "3511"

src/MyWebLog/Handlers/Post.fs

@@ -328,6 +328,31 @@ let edit postId : HttpHandler = requireUser >=> fun next ctx -> task {
     | None -> return! Error.notFound next ctx
 }
 
+// GET /post/{id}/permalinks
+let editPermalinks postId : HttpHandler = requireUser >=> fun next ctx -> task {
+    match! Data.Post.findByFullId (PostId postId) (webLogId ctx) (conn ctx) with
+    | Some post ->
+        return!
+            Hash.FromAnonymousObject {|
+                csrf       = csrfToken ctx
+                model      = ManagePermalinksModel.fromPost post
+                page_title = $"Manage Prior Permalinks"
+            |}
+            |> viewForTheme "admin" "permalinks" next ctx
+    | None -> return! Error.notFound next ctx
+}
+
+// POST /post/permalinks
+let savePermalinks : HttpHandler = requireUser >=> validateCsrf >=> fun next ctx -> task {
+    let! model = ctx.BindFormAsync<ManagePermalinksModel> ()
+    let  links = model.prior |> Array.map Permalink |> List.ofArray
+    match! Data.Post.updatePriorPermalinks (PostId model.id) (webLogId ctx) links (conn ctx) with
+    | true ->
+        do! addMessage ctx { UserMessage.success with message = "Post permalinks saved successfully" }
+        return! redirectToGet $"/post/{model.id}/permalinks" next ctx
+    | false -> return! Error.notFound next ctx
+}
+
 #nowarn "3511"
 
 // POST /post/save

src/MyWebLog/Handlers/Routes.fs

@@ -30,24 +30,27 @@ let endpoints = [
     ]
     subRoute "/page" [
         GET [
-            routef "/%d"       Post.pageOfPosts
-            //routef "/%d/"      (fun pg -> redirectTo true $"/page/{pg}")
-            routef "/%s/edit"  Page.edit
-            route  "s"         (Page.all 1)
-            routef "s/page/%d" Page.all
+            routef "/%d"            Post.pageOfPosts
+            routef "/%s/edit"       Page.edit
+            routef "/%s/permalinks" Page.editPermalinks
+            route  "s"              (Page.all 1)
+            routef "s/page/%d"      Page.all
         ]
         POST [
-            route "/save" Page.save
+            route "/permalinks" Page.savePermalinks
+            route "/save"       Page.save
         ]
     ]
     subRoute "/post" [
         GET [
-            routef "/%s/edit"  Post.edit
-            route  "s"         (Post.all 1)
-            routef "s/page/%d" Post.all
+            routef "/%s/edit"       Post.edit
+            routef "/%s/permalinks" Post.editPermalinks
+            route  "s"              (Post.all 1)
+            routef "s/page/%d"      Post.all
         ]
         POST [
-            route "/save" Post.save
+            route "/permalinks" Post.savePermalinks
+            route "/save"       Post.save
         ]
     ]
     subRoute "/tag" [