WIP: conversion to Fluid (#47)

src/MyWebLog/Views/Admin.fs

@@ -8,7 +8,7 @@ open MyWebLog.ViewModels
 
 /// The administrator dashboard
 let dashboard (themes: Theme list) app = [
-    let templates      = TemplateCache.allNames ()
+    let templates      = Template.Cache.allNames ()
     let cacheBaseUrl   = relUrl app "admin/cache/"
     let webLogCacheUrl = $"{cacheBaseUrl}web-log/"
     let themeCacheUrl  = $"{cacheBaseUrl}theme/"

src/MyWebLog/Views/Helpers.fs

@@ -1,7 +1,6 @@
 [<AutoOpen>]
 module MyWebLog.Views.Helpers
 
-open Microsoft.AspNetCore.Antiforgery
 open Giraffe.ViewEngine
 open Giraffe.ViewEngine.Accessibility
 open Giraffe.ViewEngine.Htmx
@@ -10,56 +9,6 @@ open MyWebLog.ViewModels
 open NodaTime
 open NodaTime.Text
 
-/// The rendering context for this application
-[<NoComparison; NoEquality>]
-type AppViewContext = {
-    /// The web log for this request
-    WebLog: WebLog
-    
-    /// The ID of the current user
-    UserId: WebLogUserId option
-    
-    /// The title of the page being rendered
-    PageTitle: string
-    
-    /// The anti-Cross Site Request Forgery (CSRF) token set to use when rendering a form
-    Csrf: AntiforgeryTokenSet option
-    
-    /// The page list for the web log
-    PageList: DisplayPage array
-    
-    /// Categories and post counts for the web log
-    Categories: DisplayCategory array
-    
-    /// The URL of the page being rendered
-    CurrentPage: string
-    
-    /// User messages
-    Messages: UserMessage array
-    
-    /// The generator string for the rendered page
-    Generator: string
-    
-    /// A string to load the minified htmx script
-    HtmxScript: string
-    
-    /// Whether the current user is an author
-    IsAuthor: bool
-    
-    /// Whether the current user is an editor (implies author)
-    IsEditor: bool
-    
-    /// Whether the current user is a web log administrator (implies author and editor)
-    IsWebLogAdmin: bool
-    
-    /// Whether the current user is an installation administrator (implies all web log rights)
-    IsAdministrator: bool
-} with
-    
-    /// Whether there is a user logged on
-    member this.IsLoggedOn = Option.isSome this.UserId
-
-
 /// Create a relative URL for the current web log
 let relUrl app =
     Permalink >> app.WebLog.RelativeUrl