WIP on chapter list page (#6)

src/MyWebLog/DotLiquidBespoke.fs

@@ -227,14 +227,15 @@ let register () =
       typeof<CustomFeed>;   typeof<Episode>;    typeof<Episode option>; typeof<MetaItem>;          typeof<Page>
       typeof<RedirectRule>; typeof<RssOptions>; typeof<TagMap>;         typeof<UploadDestination>; typeof<WebLog>
       // View models
-      typeof<DashboardModel>;        typeof<DisplayCategory>;       typeof<DisplayCustomFeed>
-      typeof<DisplayPage>;           typeof<DisplayRevision>;       typeof<DisplayTheme>
-      typeof<DisplayUpload>;         typeof<DisplayUser>;           typeof<EditCategoryModel>
-      typeof<EditCustomFeedModel>;   typeof<EditMyInfoModel>;       typeof<EditPageModel>
-      typeof<EditPostModel>;         typeof<EditRedirectRuleModel>; typeof<EditRssModel>
-      typeof<EditTagMapModel>;       typeof<EditUserModel>;         typeof<LogOnModel>
-      typeof<ManagePermalinksModel>; typeof<ManageRevisionsModel>;  typeof<PostDisplay>
-      typeof<PostListItem>;          typeof<SettingsModel>;         typeof<UserMessage>
+      typeof<DashboardModel>;       typeof<DisplayCategory>;     typeof<DisplayChapter>
+      typeof<DisplayCustomFeed>;    typeof<DisplayPage>;         typeof<DisplayRevision>
+      typeof<DisplayTheme>;         typeof<DisplayUpload>;       typeof<DisplayUser>
+      typeof<EditCategoryModel>;    typeof<EditCustomFeedModel>; typeof<EditMyInfoModel>
+      typeof<EditPageModel>;        typeof<EditPostModel>;       typeof<EditRedirectRuleModel>
+      typeof<EditRssModel>;         typeof<EditTagMapModel>;     typeof<EditUserModel>
+      typeof<LogOnModel>;           typeof<ManageChaptersModel>; typeof<ManagePermalinksModel>
+      typeof<ManageRevisionsModel>; typeof<PostDisplay>;         typeof<PostListItem>
+      typeof<SettingsModel>;        typeof<UserMessage>
       // Framework types
       typeof<AntiforgeryTokenSet>; typeof<DateTime option>; typeof<int option>;    typeof<KeyValuePair>
       typeof<MetaItem list>;       typeof<string list>;     typeof<string option>; typeof<TagMap list>

src/MyWebLog/Handlers/Post.fs

@@ -371,6 +371,21 @@ let deleteRevision (postId, revDate) : HttpHandler = requireAccess Author >=> fu
     | _, None -> return! Error.notFound next ctx
 }
 
+// GET /admin/post/{id}/chapters
+let chapters postId : HttpHandler = requireAccess Author >=> fun next ctx -> task {
+    match! ctx.Data.Post.FindById (PostId postId) ctx.WebLog.Id with
+    | Some post
+        when    Option.isSome post.Episode
+             && Option.isSome post.Episode.Value.Chapters
+             && canEdit post.AuthorId ctx ->
+        return!
+            hashForPage "Manage Chapters"
+            |> withAntiCsrf ctx
+            |> addToHash ViewContext.Model (ManageChaptersModel.Create post)
+            |> adminView "chapters" next ctx
+    | Some _ | None -> return! Error.notFound next ctx
+}
+
 // POST /admin/post/save
 let save : HttpHandler = requireAccess Author >=> fun next ctx -> task {
     let! model   = ctx.BindFormAsync<EditPostModel>()

src/MyWebLog/Handlers/Routes.fs

@@ -129,6 +129,7 @@ let router : HttpHandler = choose [
                 routef "/%s/permalinks"              Post.editPermalinks
                 routef "/%s/revision/%s/preview"     Post.previewRevision
                 routef "/%s/revisions"               Post.editRevisions
+                routef "/%s/chapters"                Post.chapters
             ])
             subRoute "/settings" (requireAccess WebLogAdmin >=> choose [
                 route    ""             >=> Admin.WebLog.settings