Add cancel snooze

- Add common request validation function

.gitignore

@@ -255,6 +255,8 @@ paket-files/
 # Ionide VSCode extension
 .ionide
 
-# in-progress: PHP version
-src/app/vendor
-**/.env
+src/environment.txt
+
+# PHP ignore files
+src/vendor
+src/.env

README.md

@@ -8,9 +8,4 @@ myPrayerJournal was borne of out of a personal desire [Daniel](https://github.co
 
 ## Further Reading
 
-The documentation for the site is at <https://bit-badger.github.io/myPrayerJournal/>.
-
----
-_Thanks to [JetBrains](https://jb.gg/OpenSource) for licensing their awesome toolset to this project._
-
-[<img src="https://resources.jetbrains.com/storage/products/company/brand/logos/jb_beam.png" alt="JetBrains Logo (Main) logo" width="100" height="100">](https://jb.gg/OpenSource)
+The documentation for the site is at <https://prayerjournal.me/docs>.

src/Caddyfile

@@ -0,0 +1,9 @@
+{
+	frankenphp
+	order php_server before file_server
+}
+http://localhost:3000 {
+	root * ./public
+	try_files {path} {path}.php
+	php_server
+}

src/Dockerfile

@@ -0,0 +1,17 @@
+FROM mcr.microsoft.com/dotnet/sdk:8.0-alpine AS build
+WORKDIR /mpj
+COPY ./MyPrayerJournal/MyPrayerJournal.fsproj ./
+RUN dotnet restore
+
+COPY ./MyPrayerJournal ./
+RUN dotnet publish -c Release -r linux-x64
+RUN rm bin/Release/net8.0/linux-x64/publish/appsettings.*.json || true
+
+FROM  mcr.microsoft.com/dotnet/aspnet:8.0-alpine as final
+WORKDIR /app
+RUN apk add --no-cache icu-libs
+ENV DOTNET_SYSTEM_GLOBALIZATION_INVARIANT=false
+COPY --from=build /mpj/bin/Release/net8.0/linux-x64/publish/ ./
+
+EXPOSE 80
+CMD [ "dotnet", "/app/MyPrayerJournal.dll" ]

src/MyPrayerJournal.ConvertRecurrence/MyPrayerJournal.ConvertRecurrence.fsproj

@@ -1,16 +0,0 @@
-<Project Sdk="Microsoft.NET.Sdk">
-
-  <PropertyGroup>
-    <OutputType>Exe</OutputType>
-    <TargetFramework>net6.0</TargetFramework>
-  </PropertyGroup>
-
-  <ItemGroup>
-    <Compile Include="Program.fs" />
-  </ItemGroup>
-
-  <ItemGroup>
-    <ProjectReference Include="..\MyPrayerJournal\MyPrayerJournal.fsproj" />
-  </ItemGroup>
-
-</Project>

src/MyPrayerJournal.ConvertRecurrence/Program.fs

@@ -1,114 +0,0 @@
-open MyPrayerJournal.Domain
-open NodaTime
-
-/// The old definition of the history entry
-[<CLIMutable; NoComparison; NoEquality>]
-type OldHistory =
-    {   /// The time when this history entry was made
-        asOf   : int64
-        /// The status for this history entry
-        status : RequestAction
-        /// The text of the update, if applicable
-        text   : string option
-    }
-
-/// The old definition of of the note entry
-[<CLIMutable; NoComparison; NoEquality>]
-type OldNote =
-    {   /// The time when this note was made
-        asOf  : int64
-        
-        /// The text of the notes
-        notes : string
-    }
-
-/// Request is the identifying record for a prayer request
-[<CLIMutable; NoComparison; NoEquality>]
-type OldRequest =
-    {   /// The ID of the request
-        id           : RequestId
-        
-        /// The time this request was initially entered
-        enteredOn    : int64
-        
-        /// The ID of the user to whom this request belongs ("sub" from the JWT)
-        userId       : UserId
-        
-        /// The time at which this request should reappear in the user's journal by manual user choice
-        snoozedUntil : int64
-        
-        /// The time at which this request should reappear in the user's journal by recurrence
-        showAfter    : int64
-        
-        /// The type of recurrence for this request
-        recurType    : string
-        
-        /// How many of the recurrence intervals should occur between appearances in the journal
-        recurCount   : int16
-        
-        /// The history entries for this request
-        history      : OldHistory[]
-        
-        /// The notes for this request
-        notes        : OldNote[]
-    }
-
-
-open LiteDB
-open MyPrayerJournal.Data
-
-let db = new LiteDatabase ("Filename=./mpj.db")
-Startup.ensureDb db
-
-/// Map the old recurrence to the new style
-let mapRecurrence old =
-    match old.recurType with
-    | "Days" -> Days old.recurCount
-    | "Hours" -> Hours old.recurCount
-    | "Weeks" -> Weeks old.recurCount
-    | _ -> Immediate
-
-/// Convert an old history entry to the new form
-let convertHistory (old : OldHistory) =
-    {   AsOf   = Instant.FromUnixTimeMilliseconds old.asOf
-        Status = old.status
-        Text   = old.text
-    }
-
-/// Convert an old note to the new form
-let convertNote (old : OldNote) =
-    {   AsOf  = Instant.FromUnixTimeMilliseconds old.asOf
-        Notes = old.notes
-    }
-
-/// Convert items that may be Instant.MinValue or Instant(0) to None
-let noneIfOld ms =
-    match Instant.FromUnixTimeMilliseconds ms with
-    | instant when instant > Instant.FromUnixTimeMilliseconds 0 -> Some instant
-    | _ -> None
-    
-/// Map the old request to the new request
-let convert old =
-    {   Id           = old.id
-        EnteredOn    = Instant.FromUnixTimeMilliseconds old.enteredOn
-        UserId       = old.userId
-        SnoozedUntil = noneIfOld old.snoozedUntil
-        ShowAfter    = noneIfOld old.showAfter
-        Recurrence   = mapRecurrence old
-        History      = old.history |> Array.map convertHistory |> List.ofArray
-        Notes        = old.notes   |> Array.map convertNote    |> List.ofArray
-    }
-
-/// Remove the old request, add the converted one (removes recurType / recurCount fields)
-let replace (req : Request) =
-    db.Requests.Delete (Mapping.RequestId.toBson req.Id) |> ignore
-    db.Requests.Insert req |> ignore
-    db.Checkpoint ()
-
-db.GetCollection<OldRequest>("request").FindAll ()
-|> Seq.map convert
-|> List.ofSeq
-|> List.iter replace
-
-// For more information see https://aka.ms/fsharp-console-apps
-printfn "Done"

src/MyPrayerJournal.sln

@@ -1,12 +1,10 @@
-
+
 Microsoft Visual Studio Solution File, Format Version 12.00
 # Visual Studio Version 16
 VisualStudioVersion = 16.0.30114.105
 MinimumVisualStudioVersion = 10.0.40219.1
 Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "MyPrayerJournal", "MyPrayerJournal\MyPrayerJournal.fsproj", "{6BD5A3C8-F859-42A0-ACD7-A5819385E828}"
 EndProject
-Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "MyPrayerJournal.ConvertRecurrence", "MyPrayerJournal.ConvertRecurrence\MyPrayerJournal.ConvertRecurrence.fsproj", "{72B57736-8721-4636-A309-49FA4222416E}"
-EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution
 		Debug|Any CPU = Debug|Any CPU

src/MyPrayerJournal/.gitignore

@@ -1,5 +1,2 @@
-## LiteDB database file
-*.db
-
 ## Development settings
 appsettings.Development.json

src/MyPrayerJournal/Data.fs

@@ -1,199 +1,202 @@
-module MyPrayerJournal.Data
+module MyPrayerJournal.Data
 
-open LiteDB
-open MyPrayerJournal
-open System.Threading.Tasks
+/// Table(!) used by myPrayerJournal
+module Table =
 
-/// LiteDB extensions
-[<AutoOpen>]
-module Extensions =
-  
-    /// Extensions on the LiteDatabase class
-    type LiteDatabase with
-        
-        /// The Request collection
-        member this.Requests = this.GetCollection<Request> "request"
-        
-        /// Async version of the checkpoint command (flushes log)
-        member this.SaveChanges () =
-            this.Checkpoint ()
-            Task.CompletedTask
+    /// Requests
+    [<Literal>]
+    let Request = "mpj.request"
 
 
-/// Map domain to LiteDB
-//  It does mapping, but since we're so DU-heavy, this gives us control over the JSON representation
+/// JSON serialization customizations
 [<RequireQualifiedAccess>]
-module Mapping =
+module Json =
+
+    open System.Text.Json.Serialization
+
+    /// Convert a wrapped DU to/from its string representation
+    type WrappedJsonConverter<'T>(wrap : string -> 'T, unwrap : 'T -> string) =
+        inherit JsonConverter<'T>()
+        override _.Read(reader, _, _) =
+            wrap (reader.GetString()) 
+        override _.Write(writer, value, _) =
+            writer.WriteStringValue(unwrap value)
+    
+    open System.Text.Json
+    open NodaTime.Serialization.SystemTextJson
+
+    /// JSON serializer options to support the target domain
+    let options =
+        let opts = JsonSerializerOptions()
+        [ WrappedJsonConverter(Recurrence.ofString,    Recurrence.toString) :> JsonConverter
+          WrappedJsonConverter(RequestAction.ofString, RequestAction.toString)
+          WrappedJsonConverter(RequestId.ofString,     RequestId.toString)
+          WrappedJsonConverter(UserId,                 UserId.toString)
+          JsonFSharpConverter() ]
+        |> List.iter opts.Converters.Add
+        let _ = opts.ConfigureForNodaTime NodaTime.DateTimeZoneProviders.Tzdb
+        opts.PropertyNamingPolicy   <- JsonNamingPolicy.CamelCase
+        opts.DefaultIgnoreCondition <- JsonIgnoreCondition.WhenWritingNull
+        opts
+
+
+open BitBadger.Documents.Postgres
+
+/// Connection 
+[<RequireQualifiedAccess>]
+module Connection =
+
+    open BitBadger.Documents
+    open Microsoft.Extensions.Configuration
+    open Npgsql
+    open System.Text.Json
+
+    /// Ensure the database is ready to use
+    let private ensureDb () = backgroundTask {
+        do! Custom.nonQuery "CREATE SCHEMA IF NOT EXISTS mpj" []
+        do! Definition.ensureTable         Table.Request
+        do! Definition.ensureDocumentIndex Table.Request Optimized
+    }
+
+    /// Set up the data environment
+    let setUp (cfg : IConfiguration) = backgroundTask {
+        let builder = NpgsqlDataSourceBuilder (cfg.GetConnectionString "mpj")
+        let _ = builder.UseNodaTime()
+        Configuration.useDataSource (builder.Build())
+        Configuration.useIdField "id"
+        Configuration.useSerializer
+            { new IDocumentSerializer with
+                member _.Serialize<'T>(it : 'T)       = JsonSerializer.Serialize(it, Json.options)
+                member _.Deserialize<'T>(it : string) = JsonSerializer.Deserialize<'T>(it, Json.options)
+            }
+        do! ensureDb ()
+    }
+
+
+/// Data access functions for requests
+[<RequireQualifiedAccess>]
+module Request =
     
     open NodaTime
-    open NodaTime.Text
-    
-    /// A NodaTime instant pattern to use for parsing instants from the database
-    let instantPattern = InstantPattern.CreateWithInvariantCulture "g"
-    
-    /// Mapping for NodaTime's Instant type
-    module Instant =
-        let fromBson (value : BsonValue) = (instantPattern.Parse value.AsString).Value
-        let toBson (value : Instant) : BsonValue = value.ToString ("g", null)
-    
-    /// Mapping for option types
-    module Option =
-        let instantFromBson (value : BsonValue) = if value.IsNull then None else Some (Instant.fromBson value)
-        let instantToBson (value : Instant option) = match value with Some it -> Instant.toBson it | None -> null
-        
-        let stringFromBson (value : BsonValue) = match value.AsString with "" -> None | x -> Some x
-        let stringToBson (value : string option) : BsonValue = match value with Some txt -> txt | None -> ""
-    
-    /// Mapping for Recurrence
-    module Recurrence =
-        let fromBson (value : BsonValue) = Recurrence.ofString value
-        let toBson (value : Recurrence) : BsonValue = Recurrence.toString value
-    
-    /// Mapping for RequestAction
-    module RequestAction =
-        let fromBson (value : BsonValue) = RequestAction.ofString value.AsString
-        let toBson (value : RequestAction) : BsonValue = RequestAction.toString value
-    
-    /// Mapping for RequestId
-    module RequestId =
-        let fromBson (value : BsonValue) = RequestId.ofString value.AsString
-        let toBson (value : RequestId) : BsonValue = RequestId.toString value
-    
-    /// Mapping for UserId
-    module UserId =
-        let fromBson (value : BsonValue) = UserId value.AsString
-        let toBson (value : UserId) : BsonValue = UserId.toString value
-    
-    /// Set up the mapping
-    let register () = 
-        BsonMapper.Global.RegisterType<Instant>(Instant.toBson, Instant.fromBson)
-        BsonMapper.Global.RegisterType<Instant option>(Option.instantToBson, Option.instantFromBson)
-        BsonMapper.Global.RegisterType<Recurrence>(Recurrence.toBson, Recurrence.fromBson)
-        BsonMapper.Global.RegisterType<RequestAction>(RequestAction.toBson, RequestAction.fromBson)
-        BsonMapper.Global.RegisterType<RequestId>(RequestId.toBson, RequestId.fromBson)
-        BsonMapper.Global.RegisterType<string option>(Option.stringToBson, Option.stringFromBson)
-        BsonMapper.Global.RegisterType<UserId>(UserId.toBson, UserId.fromBson)
-
-/// Code to be run at startup
-module Startup =
-  
-    /// Ensure the database is set up
-    let ensureDb (db : LiteDatabase) =
-        db.Requests.EnsureIndex (fun it -> it.UserId) |> ignore
-        Mapping.register ()
-
-
-/// Async wrappers for LiteDB, and request -> journal mappings
-[<AutoOpen>]
-module private Helpers =
-    
-    open System.Linq
-
-    /// Convert a sequence to a list asynchronously (used for LiteDB IO)
-    let toListAsync<'T> (q : 'T seq) =
-        (q.ToList >> Task.FromResult) ()
-
-    /// Convert a sequence to a list asynchronously (used for LiteDB IO)
-    let firstAsync<'T> (q : 'T seq) =
-        q.FirstOrDefault () |> Task.FromResult
-
-    /// Async wrapper around a request update
-    let doUpdate (db : LiteDatabase) (req : Request) =
-        db.Requests.Update req |> ignore
-        Task.CompletedTask
-
-
-/// Retrieve a request, including its history and notes, by its ID and user ID
-let tryFullRequestById reqId userId (db : LiteDatabase) = backgroundTask {
-    let! req = db.Requests.Find (Query.EQ ("_id", RequestId.toString reqId)) |> firstAsync
-    return match box req with null -> None | _ when req.UserId = userId -> Some req | _ -> None
-}
-
-/// Add a history entry
-let addHistory reqId userId hist db = backgroundTask {
-    match! tryFullRequestById reqId userId db with
-    | Some req -> do! doUpdate db { req with History = Array.append [| hist |] req.History }
-    | None     -> invalidOp $"{RequestId.toString reqId} not found"
-}
-
-/// Add a note
-let addNote reqId userId note db = backgroundTask {
-    match! tryFullRequestById reqId userId db with
-    | Some req -> do! doUpdate db { req with Notes = Array.append [| note |] req.Notes }
-    | None     -> invalidOp $"{RequestId.toString reqId} not found"
-}
 
     /// Add a request
-let addRequest (req : Request) (db : LiteDatabase) =
-    db.Requests.Insert req |> ignore
+    let add req =
+        insert<Request> Table.Request req
 
-/// Find all requests for the given user
-let private getRequestsForUser (userId : UserId) (db : LiteDatabase) = backgroundTask {
-    return! db.Requests.Find (Query.EQ (nameof Request.empty.UserId, Mapping.UserId.toBson userId)) |> toListAsync
+    /// Does a request exist for the given request ID and user ID?
+    let existsById (reqId : RequestId) (userId : UserId) =
+        Exists.byContains Table.Request {| Id = reqId; UserId = userId |}
+    
+    /// Retrieve a request by its ID and user ID
+    let tryById reqId userId = backgroundTask {
+        match! Find.byId<string, Request> Table.Request (RequestId.toString reqId) with
+        | Some req when req.UserId = userId -> return Some req
+        | _ -> return None
     }
     
-/// Retrieve all answered requests for the given user
-let answeredRequests userId db = backgroundTask {
-    let! reqs = getRequestsForUser userId db
+    /// Update recurrence for a request
+    let updateRecurrence reqId userId (recurType : Recurrence) = backgroundTask {
+        let dbId = RequestId.toString reqId
+        match! existsById reqId userId with
+        | true -> do! Patch.byId Table.Request dbId {| Recurrence = recurType |}
+        | false -> invalidOp $"Request ID {dbId} not found"
+    }
+
+    /// Update the show-after time for a request
+    let updateShowAfter reqId userId (showAfter : Instant option) = backgroundTask {
+        let dbId = RequestId.toString reqId
+        match! existsById reqId userId with
+        | true -> do! Patch.byId Table.Request dbId {| ShowAfter = showAfter |}
+        | false -> invalidOp $"Request ID {dbId} not found"
+    }
+
+    /// Update the snoozed and show-after values for a request
+    let updateSnoozed reqId userId (until : Instant option) = backgroundTask {
+        let dbId = RequestId.toString reqId
+        match! existsById reqId userId with
+        | true -> do! Patch.byId Table.Request dbId {| SnoozedUntil = until; ShowAfter = until |}
+        | false -> invalidOp $"Request ID {dbId} not found"
+    }
+
+
+/// Specific manipulation of history entries
+[<RequireQualifiedAccess>]
+module History =
+
+    /// Add a history entry
+    let add reqId userId hist = backgroundTask {
+        let dbId = RequestId.toString reqId
+        match! Request.tryById reqId userId with
+        | Some req ->
+            do! Patch.byId Table.Request dbId {| History = (hist :: req.History) |> List.sortByDescending (_.AsOf) |}
+        | None -> invalidOp $"Request ID {dbId} not found"
+    }
+
+
+/// Data access functions for journal-style requests
+[<RequireQualifiedAccess>]
+module Journal =
+
+    /// Retrieve a user's answered requests
+    let answered (userId : UserId) = backgroundTask {
+        let! reqs =
+            Custom.list
+                $"""{Query.Find.byContains Table.Request} AND {Query.whereJsonPathMatches "@stat"}"""
+                [ jsonParam "@criteria" {| UserId = userId |}
+                  "@stat", Sql.string """$.history[0].status ? (@ == "Answered")""" ]
+                fromData<Request>
         return
             reqs
-        |> Seq.map JournalRequest.ofRequestFull
+            |> Seq.ofList
+            |> Seq.map JournalRequest.ofRequestLite
             |> Seq.filter (fun it -> it.LastStatus = Answered)
-        |> Seq.sortByDescending (fun it -> it.AsOf)
+            |> Seq.sortByDescending (_.AsOf)
             |> List.ofSeq
     }
 
-/// Retrieve the user's current journal
-let journalByUserId userId db = backgroundTask {
-    let! reqs = getRequestsForUser userId db
+    /// Retrieve a user's current prayer journal (includes snoozed and non-immediate recurrence)
+    let forUser (userId : UserId) = backgroundTask {
+        let! reqs =
+            Custom.list
+                $"""{Query.Find.byContains Table.Request} AND {Query.whereJsonPathMatches "@stat"}"""
+                [ jsonParam "@criteria" {| UserId = userId |}
+                  "@stat", Sql.string """$.history[0].status ? (@ <> "Answered")""" ]
+                fromData<Request>
         return
             reqs
+            |> Seq.ofList
             |> Seq.map JournalRequest.ofRequestLite
             |> Seq.filter (fun it -> it.LastStatus <> Answered)
-        |> Seq.sortBy (fun it -> it.AsOf)
+            |> Seq.sortBy (_.AsOf)
             |> List.ofSeq
     }
 
-/// Does the user have any snoozed requests?
-let hasSnoozed userId now (db : LiteDatabase) = backgroundTask {
-    let! jrnl = journalByUserId userId db
+    /// Does the user's journal have any snoozed requests?
+    let hasSnoozed userId now = backgroundTask {
+        let! jrnl = forUser userId
         return jrnl |> List.exists (fun r -> defaultArg (r.SnoozedUntil |> Option.map (fun it -> it > now)) false)
     }
 
-/// Retrieve a request by its ID and user ID (without notes and history)
-let tryRequestById reqId userId db = backgroundTask {
-    let! req = tryFullRequestById reqId userId db
-    return req |> Option.map (fun r -> { r with History = [||]; Notes = [||] })
-}
-
-/// Retrieve notes for a request by its ID and user ID
-let notesById reqId userId (db : LiteDatabase) = backgroundTask {
-    match! tryFullRequestById reqId userId db with | Some req -> return req.Notes | None -> return [||]
-}
-    
-/// Retrieve a journal request by its ID and user ID
-let tryJournalById reqId userId (db : LiteDatabase) = backgroundTask {
-    let! req = tryFullRequestById reqId userId db
+    let tryById reqId userId = backgroundTask {
+        let! req = Request.tryById reqId userId
         return req |> Option.map JournalRequest.ofRequestLite
     }
 
-/// Update the recurrence for a request
-let updateRecurrence reqId userId recurType db = backgroundTask {
-    match! tryFullRequestById reqId userId db with
-    | Some req -> do! doUpdate db { req with Recurrence = recurType }
-    | None     -> invalidOp $"{RequestId.toString reqId} not found"
+
+/// Specific manipulation of note entries
+[<RequireQualifiedAccess>]
+module Note =
+
+    /// Add a note
+    let add reqId userId note = backgroundTask {
+        let dbId = RequestId.toString reqId
+        match! Request.tryById reqId userId with
+        | Some req ->
+            do! Patch.byId Table.Request dbId {| Notes = (note :: req.Notes) |> List.sortByDescending (_.AsOf) |}
+        | None -> invalidOp $"Request ID {dbId} not found"
     }
 
-/// Update a snoozed request
-let updateSnoozed reqId userId until db = backgroundTask {
-    match! tryFullRequestById reqId userId db with
-    | Some req -> do! doUpdate db { req with SnoozedUntil = until; ShowAfter = until }
-    | None     -> invalidOp $"{RequestId.toString reqId} not found"
-}
-
-/// Update the "show after" timestamp for a request
-let updateShowAfter reqId userId showAfter db = backgroundTask {
-    match! tryFullRequestById reqId userId db with
-    | Some req -> do! doUpdate db { req with ShowAfter = showAfter }
-    | None     -> invalidOp $"{RequestId.toString reqId} not found"
+    /// Retrieve notes for a request by the request ID
+    let byRequestId reqId userId = backgroundTask {
+        match! Request.tryById reqId userId with Some req -> return req.Notes | None -> return []
     }

src/MyPrayerJournal/Domain.fs

@@ -1,4 +1,4 @@
-/// The data model for myPrayerJournal
+/// The data model for myPrayerJournal
 [<AutoOpen>]
 module MyPrayerJournal.Domain
 
@@ -169,10 +169,10 @@ type Request =
         Recurrence : Recurrence
         
         /// The history entries for this request
-        History : History[]
+        History : History list
         
         /// The notes for this request
-        Notes : Note[]
+        Notes : Note list
     }
 
 /// Functions to support requests
@@ -186,8 +186,8 @@ module Request =
             SnoozedUntil = None
             ShowAfter    = None
             Recurrence   = Immediate
-            History      = [||]
-            Notes        = [||]
+            History      = []
+            Notes        = []
         }
 
 
@@ -234,7 +234,8 @@ module JournalRequest =
 
     /// Convert a request to the form used for the journal (precomputed values, no notes or history)
     let ofRequestLite (req : Request) =
-        let lastHistory = req.History |> Array.sortByDescending (fun it -> it.AsOf) |> Array.tryHead
+        let history = Seq.ofList req.History
+        let lastHistory = Seq.tryHead history
         // Requests are sorted by the "as of" field in this record; for sorting to work properly, we will put the
         // largest of the last prayed date, the "snoozed until". or the "show after" date; if none of those are filled,
         // we will use the last activity date. This will mean that:
@@ -243,23 +244,21 @@ module JournalRequest =
         //    them at the bottom of the list.
         //  - Snoozed requests will reappear at the bottom of the list when they return.
         //  - New requests will go to the bottom of the list, but will rise as others are marked as prayed.
-        let lastActivity = lastHistory |> Option.map (fun it -> it.AsOf) |> Option.defaultValue Instant.MinValue
+        let lastActivity = lastHistory |> Option.map (_.AsOf) |> Option.defaultValue Instant.MinValue
         let showAfter    = defaultArg req.ShowAfter    Instant.MinValue
         let snoozedUntil = defaultArg req.SnoozedUntil Instant.MinValue
         let lastPrayed   =
-            req.History
-            |> Array.sortByDescending (fun it -> it.AsOf)
-            |> Array.filter History.isPrayed
-            |> Array.tryHead
-            |> Option.map (fun it -> it.AsOf)
+            history
+            |> Seq.filter History.isPrayed
+            |> Seq.tryHead
+            |> Option.map (_.AsOf)
             |> Option.defaultValue Instant.MinValue
         let asOf = List.max [ lastPrayed; showAfter; snoozedUntil ]
         {   RequestId    = req.Id
             UserId       = req.UserId
-            Text         = req.History
-                           |> Array.filter (fun it -> Option.isSome it.Text)
-                           |> Array.sortByDescending (fun it -> it.AsOf)
-                           |> Array.tryHead
+            Text         = history
+                           |> Seq.filter (fun it -> Option.isSome it.Text)
+                           |> Seq.tryHead
                            |> Option.map (fun h -> Option.get h.Text)
                            |> Option.defaultValue ""
             AsOf         = if asOf > Instant.MinValue then asOf else lastActivity
@@ -275,6 +274,6 @@ module JournalRequest =
     /// Same as `ofRequestLite`, but with notes and history
     let ofRequestFull req =
         { ofRequestLite req with 
-            History = List.ofArray req.History
-            Notes   = List.ofArray req.Notes
+            History = req.History
+            Notes   = req.Notes
         }

src/MyPrayerJournal/Handlers.fs

@@ -1,4 +1,4 @@
-/// HTTP handlers for the myPrayerJournal API
+/// HTTP handlers for the myPrayerJournal API
 [<RequireQualifiedAccess>]
 module MyPrayerJournal.Handlers
 
@@ -45,23 +45,19 @@ module Error =
 
 
 open System.Security.Claims
-open LiteDB
 open Microsoft.AspNetCore.Http
 open NodaTime
 
 /// Extensions on the HTTP context
 type HttpContext with
     
-    /// The LiteDB database
-    member this.Db = this.GetService<LiteDatabase> ()
-    
     /// The "sub" for the current user (None if no user is authenticated)
     member this.CurrentUser =
         this.User
         |> Option.ofObj
         |> Option.map (fun user -> user.Claims |> Seq.tryFind (fun u -> u.Type = ClaimTypes.NameIdentifier))
         |> Option.flatten
-        |> Option.map (fun claim -> claim.Value)
+        |> Option.map (_.Value)
     
     /// The current user's ID
     //  NOTE: this may raise if you don't run the request through the requireUser handler first
@@ -83,6 +79,8 @@ type HttpContext with
         | None -> DateTimeZone.Utc
 
 
+open MyPrayerJournal.Data
+
 /// Handler helpers
 [<AutoOpen>]
 module private Helpers =
@@ -127,7 +125,7 @@ module private Helpers =
     let pageContext (ctx : HttpContext) pageTitle content = backgroundTask {
         let! hasSnoozed =
             match ctx.CurrentUser with
-            | Some _ -> Data.hasSnoozed ctx.UserId (ctx.Now ()) ctx.Db
+            | Some _ -> Journal.hasSnoozed ctx.UserId (ctx.Now())
             | None   -> Task.FromResult false
         return
             {   IsAuthenticated = Option.isSome ctx.CurrentUser
@@ -238,7 +236,6 @@ module Models =
         }
 
 
-open MyPrayerJournal.Data.Extensions
 open NodaTime.Text
 
 /// Handlers for less-than-full-page HTML requests
@@ -254,14 +251,14 @@ module Components =
             | Some snooze, _ when snooze < now -> true
             | _, Some hide when hide < now -> true
             | _, _ -> false
-        let! journal = Data.journalByUserId ctx.UserId ctx.Db
+        let! journal = Journal.forUser ctx.UserId
         let  shown   = journal |> List.filter shouldBeShown
         return! renderComponent [ Views.Journal.journalItems now ctx.TimeZone shown ] next ctx
     }
   
     // GET /components/request-item/[req-id]
     let requestItem reqId : HttpHandler = requireUser >=> fun next ctx -> task {
-        match! Data.tryJournalById (RequestId.ofString reqId) ctx.UserId ctx.Db with
+        match! Journal.tryById (RequestId.ofString reqId) ctx.UserId with
         | Some req -> return! renderComponent [ Views.Request.reqListItem (ctx.Now()) ctx.TimeZone req ] next ctx
         | None     -> return! Error.notFound next ctx
     }
@@ -272,8 +269,8 @@ module Components =
 
     // GET /components/request/[req-id]/notes
     let notes requestId : HttpHandler = requireUser >=> fun next ctx -> task {
-        let! notes = Data.notesById (RequestId.ofString requestId) ctx.UserId ctx.Db
-        return! renderComponent (Views.Request.notes (ctx.Now ()) ctx.TimeZone (List.ofArray notes)) next ctx
+        let! notes = Note.byRequestId (RequestId.ofString requestId) ctx.UserId
+        return! renderComponent (Views.Request.notes (ctx.Now()) ctx.TimeZone notes) next ctx
     }
   
     // GET /components/request/[req-id]/snooze
@@ -281,13 +278,16 @@ module Components =
         requireUser >=> renderComponent [ RequestId.ofString requestId |> Views.Journal.snooze ]
 
 
-/// / URL    
+/// / URL and documentation
 module Home =
   
     // GET /
     let home : HttpHandler =
         partialStatic "Welcome!" Views.Layout.home
   
+    // GET /docs
+    let docs : HttpHandler =
+        partialStatic "Documentation" Views.Docs.index
 
 /// /journal URL
 module Journal =
@@ -297,9 +297,9 @@ module Journal =
         let usr =
             ctx.User.Claims
             |> Seq.tryFind (fun c -> c.Type = ClaimTypes.GivenName)
-            |> Option.map (fun c -> c.Value)
+            |> Option.map (_.Value)
             |> Option.defaultValue "Your"
-        let title = usr |> match usr with "Your" -> sprintf "%s" | _ -> sprintf "%s's"
+        let title = usr |> match usr with "Your" -> sprintf "%s" | _ -> sprintf "%s&rsquo;s"
         return! partial $"{title} Prayer Journal" (Views.Journal.journal usr) next ctx
     }
 
@@ -333,7 +333,7 @@ module Request =
             return! partial "Add Prayer Request"
                         (Views.Request.edit (JournalRequest.ofRequestLite Request.empty) returnTo true) next ctx
         | _     ->
-            match! Data.tryJournalById (RequestId.ofString requestId) ctx.UserId ctx.Db with
+            match! Journal.tryById (RequestId.ofString requestId) ctx.UserId with
             | Some req ->
                 debug ctx "Found - sending view"
                 return! partial "Edit Prayer Request" (Views.Request.edit req returnTo false) next ctx
@@ -344,46 +344,42 @@ module Request =
 
     // PATCH /request/[req-id]/prayed
     let prayed requestId : HttpHandler = requireUser >=> fun next ctx -> task {
-        let db     = ctx.Db
         let userId = ctx.UserId
         let reqId  = RequestId.ofString requestId
-        match! Data.tryRequestById reqId userId db with
+        match! Journal.tryById reqId userId with
         | Some req ->
             let now  = ctx.Now ()
-            do! Data.addHistory reqId userId { AsOf = now; Status = Prayed; Text = None } db
+            do! History.add reqId userId { AsOf = now; Status = Prayed; Text = None }
             let nextShow =
                 match Recurrence.duration req.Recurrence with
                 | 0L       -> None
                 | duration -> Some <| now.Plus (Duration.FromSeconds duration)
-            do! Data.updateShowAfter reqId userId nextShow db
-            do! db.SaveChanges ()
+            do! Request.updateShowAfter reqId userId nextShow
             return! (withSuccessMessage "Request marked as prayed" >=> Components.journalItems) next ctx
         | None -> return! Error.notFound next ctx
     }
   
-    /// POST /request/[req-id]/note
+    // POST /request/[req-id]/note
     let addNote requestId : HttpHandler = requireUser >=> fun next ctx -> task {
-        let db     = ctx.Db
         let userId = ctx.UserId
         let reqId  = RequestId.ofString requestId
-        match! Data.tryRequestById reqId userId db with
-        | Some _ ->
+        match! Request.existsById reqId userId with
+        | true ->
             let! notes = ctx.BindFormAsync<Models.NoteEntry>()
-            do! Data.addNote reqId userId { AsOf = ctx.Now (); Notes = notes.notes } db
-            do! db.SaveChanges ()
+            do! Note.add reqId userId { AsOf = ctx.Now(); Notes = notes.notes }
             return! (withSuccessMessage "Added Notes" >=> hideModal "notes" >=> created) next ctx
-        | None -> return! Error.notFound next ctx
+        | false -> return! Error.notFound next ctx
     }
           
     // GET /requests/active
     let active : HttpHandler = requireUser >=> fun next ctx -> task {
-        let! reqs = Data.journalByUserId ctx.UserId ctx.Db
+        let! reqs = Journal.forUser ctx.UserId
         return! partial "Active Requests" (Views.Request.active (ctx.Now()) ctx.TimeZone reqs) next ctx
     }
   
     // GET /requests/snoozed
     let snoozed : HttpHandler = requireUser >=> fun next ctx -> task {
-        let! reqs    = Data.journalByUserId ctx.UserId ctx.Db
+        let! reqs    = Journal.forUser ctx.UserId
         let  now     = ctx.Now()
         let  snoozed = reqs
                        |> List.filter (fun it -> defaultArg (it.SnoozedUntil |> Option.map (fun it -> it > now)) false)
@@ -392,62 +388,56 @@ module Request =
 
     // GET /requests/answered
     let answered : HttpHandler = requireUser >=> fun next ctx -> task {
-        let! reqs = Data.answeredRequests ctx.UserId ctx.Db
+        let! reqs = Journal.answered ctx.UserId
         return! partial "Answered Requests" (Views.Request.answered (ctx.Now()) ctx.TimeZone reqs) next ctx
     }
   
     // GET /request/[req-id]/full
     let getFull requestId : HttpHandler = requireUser >=> fun next ctx -> task {
-        match! Data.tryFullRequestById (RequestId.ofString requestId) ctx.UserId ctx.Db with
+        match! Request.tryById (RequestId.ofString requestId) ctx.UserId with
         | Some req -> return! partial "Prayer Request" (Views.Request.full ctx.Clock ctx.TimeZone req) next ctx
         | None     -> return! Error.notFound next ctx
     }
   
     // PATCH /request/[req-id]/show
     let show requestId : HttpHandler = requireUser >=> fun next ctx -> task {
-        let db     = ctx.Db
         let userId = ctx.UserId
         let reqId  = RequestId.ofString requestId
-        match! Data.tryRequestById reqId userId db with
-        | Some _ ->
-            do! Data.updateShowAfter reqId userId None db
-            do! db.SaveChanges ()
+        match! Request.existsById reqId userId with
+        | true ->
+            do! Request.updateShowAfter reqId userId None
             return! (withSuccessMessage "Request now shown" >=> Components.requestItem requestId) next ctx
-        | None -> return! Error.notFound next ctx
+        | false -> return! Error.notFound next ctx
     }
   
     // PATCH /request/[req-id]/snooze
     let snooze requestId : HttpHandler = requireUser >=> fun next ctx -> task {
-        let db     = ctx.Db
         let userId = ctx.UserId
         let reqId  = RequestId.ofString requestId
-        match! Data.tryRequestById reqId userId db with
-        | Some _ ->
+        match! Request.existsById reqId userId with
+        | true ->
             let! until = ctx.BindFormAsync<Models.SnoozeUntil>()
             let date =
                 LocalDatePattern.CreateWithInvariantCulture("yyyy-MM-dd").Parse(until.until).Value
                     .AtStartOfDayInZone(DateTimeZone.Utc)
                     .ToInstant()
-            do! Data.updateSnoozed reqId userId (Some date) db
-            do! db.SaveChanges ()
+            do! Request.updateSnoozed reqId userId (Some date)
             return!
                 (withSuccessMessage $"Request snoozed until {until.until}"
                  >=> hideModal "snooze"
                  >=> Components.journalItems) next ctx
-        | None -> return! Error.notFound next ctx
+        | false -> return! Error.notFound next ctx
     }
   
     // PATCH /request/[req-id]/cancel-snooze
     let cancelSnooze requestId : HttpHandler = requireUser >=> fun next ctx -> task {
-        let db     = ctx.Db
         let userId = ctx.UserId
         let reqId  = RequestId.ofString requestId
-        match! Data.tryRequestById reqId userId db with
-        | Some _ ->
-            do! Data.updateSnoozed reqId userId None db
-            do! db.SaveChanges ()
+        match! Request.existsById reqId userId with
+        | true ->
+            do! Request.updateSnoozed reqId userId None
             return! (withSuccessMessage "Request unsnoozed" >=> Components.requestItem requestId) next ctx
-        | None -> return! Error.notFound next ctx
+        | false -> return! Error.notFound next ctx
     }
 
     /// Derive a recurrence from its representation in the form
@@ -458,7 +448,6 @@ module Request =
     // POST /request
     let add : HttpHandler = requireUser >=> fun next ctx -> task {
         let! form   = ctx.BindModelAsync<Models.Request>()
-        let  db     = ctx.Db
         let  userId = ctx.UserId
         let  now    = ctx.Now()
         let  req    =
@@ -468,15 +457,14 @@ module Request =
                 EnteredOn  = now
                 ShowAfter  = None
                 Recurrence = parseRecurrence form
-                History    = [|
+                History    = [
                     {   AsOf   = now
                         Status = Created
                         Text   = Some form.requestText
                     }      
-                |]
+                ]
             }
-        Data.addRequest req db
-        do! db.SaveChanges ()
+        do! Request.add req
         Messages.pushSuccess ctx "Added prayer request" "/journal"
         return! seeOther "/journal" next ctx
     }
@@ -484,25 +472,24 @@ module Request =
     // PATCH /request
     let update : HttpHandler = requireUser >=> fun next ctx -> task {
         let! form   = ctx.BindModelAsync<Models.Request>()
-        let  db     = ctx.Db
         let  userId = ctx.UserId
-        match! Data.tryJournalById (RequestId.ofString form.requestId) userId db with
+        // TODO: update the instance and save rather than all these little updates
+        match! Journal.tryById (RequestId.ofString form.requestId) userId with
         | Some req ->
             // update recurrence if changed
             let recur = parseRecurrence form
             match recur = req.Recurrence with
             | true  -> ()
             | false ->
-                do! Data.updateRecurrence req.RequestId userId recur db
+                do! Request.updateRecurrence req.RequestId userId recur
                 match recur with
-                | Immediate -> do! Data.updateShowAfter req.RequestId userId None db
+                | Immediate -> do! Request.updateShowAfter req.RequestId userId None
                 | _         -> ()
             // append history
             let upd8Text = form.requestText.Trim()
             let text     = if upd8Text = req.Text then None else Some upd8Text
-            do! Data.addHistory req.RequestId userId
-                    { AsOf = ctx.Now (); Status = (Option.get >> RequestAction.ofString) form.status; Text = text } db
-            do! db.SaveChanges ()
+            do! History.add req.RequestId userId
+                    { AsOf = ctx.Now(); Status = (Option.get >> RequestAction.ofString) form.status; Text = text }
             let nextUrl =
                 match form.returnTo with
                 | "active"          -> "/requests/active"
@@ -539,44 +526,45 @@ let routes = [
     GET_HEAD [ route "/" Home.home ]
     subRoute "/components/" [
         GET_HEAD [
-            route  "journal-items"        Components.journalItems
-            routef "request/%s/add-notes" Components.addNotes
+            route  "journal-items"        Components.journalItems // done
+            routef "request/%s/add-notes" Components.addNotes // done
             routef "request/%s/item"      Components.requestItem
-            routef "request/%s/notes"     Components.notes
-            routef "request/%s/snooze"    Components.snooze
+            routef "request/%s/notes"     Components.notes // done
+            routef "request/%s/snooze"    Components.snooze // done
         ]
     ]
-    GET_HEAD [ route "/journal" Journal.journal ]
+    GET_HEAD [ route "/docs"    Home.docs ] // done
+    GET_HEAD [ route "/journal" Journal.journal ] // done
     subRoute "/legal/" [
         GET_HEAD [
-            route "privacy-policy"   Legal.privacyPolicy
-            route "terms-of-service" Legal.termsOfService
+            route "privacy-policy"   Legal.privacyPolicy // done
+            route "terms-of-service" Legal.termsOfService // done
         ]
     ]
     subRoute "/request" [
         GET_HEAD [
-            routef "/%s/edit"   Request.edit
-            routef "/%s/full"   Request.getFull
-            route  "s/active"   Request.active
-            route  "s/answered" Request.answered
-            route  "s/snoozed"  Request.snoozed
+            routef "/%s/edit"   Request.edit // done
+            routef "/%s/full"   Request.getFull // done
+            route  "s/active"   Request.active // done
+            route  "s/answered" Request.answered // done
+            route  "s/snoozed"  Request.snoozed // done
         ]
         PATCH [
-            route  ""                  Request.update
+            route  ""                  Request.update // done
             routef "/%s/cancel-snooze" Request.cancelSnooze
-            routef "/%s/prayed"        Request.prayed
+            routef "/%s/prayed"        Request.prayed // done
             routef "/%s/show"          Request.show
-            routef "/%s/snooze"        Request.snooze
+            routef "/%s/snooze"        Request.snooze // done
         ]
         POST [
-            route  ""         Request.add
-            routef "/%s/note" Request.addNote
+            route  ""         Request.add // done
+            routef "/%s/note" Request.addNote // done
         ]
     ]
     subRoute "/user/" [
         GET_HEAD [
-            route "log-off" User.logOff
-            route "log-on"  User.logOn
+            route "log-off" User.logOff // done
+            route "log-on"  User.logOn // done
         ]
     ]
 ]

src/MyPrayerJournal/MyPrayerJournal.fsproj

@@ -1,10 +1,11 @@
-<Project Sdk="Microsoft.NET.Sdk.Web">
+<Project Sdk="Microsoft.NET.Sdk.Web">
   <PropertyGroup>
-    <TargetFramework>net7.0</TargetFramework>
-    <Version>3.2</Version>
+    <TargetFramework>net8.0</TargetFramework>
+    <Version>3.4</Version>
     <DebugType>embedded</DebugType>
     <GenerateDocumentationFile>false</GenerateDocumentationFile>
-    <NoWarn>3391</NoWarn>
+    <PublishSingleFile>false</PublishSingleFile>
+    <SelfContained>false</SelfContained>
   </PropertyGroup>
   <ItemGroup>
     <Compile Include="Domain.fs" />
@@ -15,19 +16,21 @@
     <Compile Include="Views/Layout.fs" />
     <Compile Include="Views/Legal.fs" />
     <Compile Include="Views/Request.fs" />
+    <Compile Include="Views\Docs.fs" />
     <Compile Include="Handlers.fs" />
     <Compile Include="Program.fs" />
   </ItemGroup>
   <ItemGroup>
-    <PackageReference Include="FSharp.SystemTextJson" Version="1.1.23" />
+    <PackageReference Include="BitBadger.Documents.Postgres" Version="3.1.0" />
+    <PackageReference Include="FSharp.SystemTextJson" Version="1.3.13" />
     <PackageReference Include="FunctionalCuid" Version="1.0.0" />
-    <PackageReference Include="Giraffe" Version="6.0.0" />
-    <PackageReference Include="Giraffe.Htmx" Version="1.9.2" />
-    <PackageReference Include="Giraffe.ViewEngine.Htmx" Version="1.9.2" />
-    <PackageReference Include="LiteDB" Version="5.0.16" />
-    <PackageReference Include="Microsoft.AspNetCore.Authentication.OpenIdConnect" Version="7.0.5" />
-    <PackageReference Include="NodaTime" Version="3.1.2" />
-    <PackageReference Update="FSharp.Core" Version="7.0.300" />
+    <PackageReference Include="Giraffe" Version="6.4.0" />
+    <PackageReference Include="Giraffe.Htmx" Version="1.9.12" />
+    <PackageReference Include="Giraffe.ViewEngine.Htmx" Version="1.9.12" />
+    <PackageReference Include="Microsoft.AspNetCore.Authentication.OpenIdConnect" Version="8.0.6" />
+    <PackageReference Include="NodaTime.Serialization.SystemTextJson" Version="1.2.0" />
+    <PackageReference Include="Npgsql.NodaTime" Version="8.0.3" />
+    <PackageReference Update="FSharp.Core" Version="8.0.300" />
   </ItemGroup>
   <ItemGroup>
     <Folder Include="wwwroot\" />

src/MyPrayerJournal/Program.fs

@@ -1,99 +1,62 @@
 module MyPrayerJournal.Api
 
-open Microsoft.AspNetCore.Builder
-open Microsoft.AspNetCore.Hosting
-open System.IO
-
-/// Configuration functions for the application
-module Configure =
-  
-    /// Configure the content root
-    let contentRoot root =
-        WebApplicationOptions (ContentRootPath = root) |> WebApplication.CreateBuilder
-
-
-    open Microsoft.Extensions.Configuration
-
-    /// Configure the application configuration
-    let appConfiguration (bldr : WebApplicationBuilder) =
-        bldr.Configuration
-            .SetBasePath(bldr.Environment.ContentRootPath)
-            .AddJsonFile("appsettings.json", optional = false, reloadOnChange = true)
-            .AddJsonFile($"appsettings.{bldr.Environment.EnvironmentName}.json", optional = true, reloadOnChange = true)
-            .AddEnvironmentVariables ()
-        |> ignore
-        bldr
-
-
-    open Microsoft.AspNetCore.Server.Kestrel.Core
-
-    /// Configure Kestrel from appsettings.json
-    let kestrel (bldr : WebApplicationBuilder) =
-        let kestrelOpts (ctx : WebHostBuilderContext) (opts : KestrelServerOptions) =
-            (ctx.Configuration.GetSection >> opts.Configure >> ignore) "Kestrel"
-        bldr.WebHost.UseKestrel().ConfigureKestrel kestrelOpts |> ignore
-        bldr
-
-
-    /// Configure the web root directory
-    let webRoot pathSegments (bldr : WebApplicationBuilder) =
-        Array.concat [ [| bldr.Environment.ContentRootPath |]; pathSegments ]
-        |> (Path.Combine >> bldr.WebHost.UseWebRoot >> ignore)
-        bldr
-
-
-    open Microsoft.Extensions.Logging
-    open Microsoft.Extensions.Hosting
-
-    /// Configure logging
-    let logging (bldr : WebApplicationBuilder) =
-        if bldr.Environment.IsDevelopment () then bldr.Logging.AddFilter (fun l -> l > LogLevel.Information) |> ignore
-        bldr.Logging.AddConsole().AddDebug() |> ignore
-        bldr
-
-
-    open Giraffe
-    open LiteDB
-    open Microsoft.AspNetCore.Authentication.Cookies
-    open Microsoft.AspNetCore.Authentication.OpenIdConnect
 open Microsoft.AspNetCore.Http
-    open Microsoft.Extensions.DependencyInjection
-    open Microsoft.IdentityModel.Protocols.OpenIdConnect
-    open NodaTime
-    open System
-    open System.Text.Json
-    open System.Text.Json.Serialization
-    open System.Threading.Tasks
 
-    /// Configure dependency injection
-    let services (bldr : WebApplicationBuilder) =
 let sameSite (opts : CookieOptions) =
     match opts.SameSite, opts.Secure with
     | SameSiteMode.None, false -> opts.SameSite <- SameSiteMode.Unspecified
     | _, _ -> ()
 
-        let _ = bldr.Services.AddRouting ()
-        let _ = bldr.Services.AddGiraffe ()
-        let _ = bldr.Services.AddSingleton<IClock> SystemClock.Instance
-        let _ = bldr.Services.AddSingleton<IDateTimeZoneProvider> DateTimeZoneProviders.Tzdb
+open Giraffe
+open Giraffe.EndpointRouting
+open Microsoft.AspNetCore.Authentication.Cookies
+open Microsoft.AspNetCore.Authentication.OpenIdConnect
+open Microsoft.AspNetCore.Builder
+open Microsoft.AspNetCore.HttpOverrides
+open Microsoft.Extensions.Configuration
+open Microsoft.Extensions.DependencyInjection
+open Microsoft.Extensions.Hosting
+open Microsoft.Extensions.Logging
+open Microsoft.IdentityModel.Protocols.OpenIdConnect
+open MyPrayerJournal.Data
+open NodaTime
+open System
+open System.Text.Json
+open System.Threading.Tasks
+
+[<EntryPoint>]
+let main args =
+    //use host = Configure.webHost [| "wwwroot" |] (Directory.GetCurrentDirectory ())
+    //host.Run ()
+    let builder = WebApplication.CreateBuilder args
+    let _       = builder.Configuration.AddEnvironmentVariables "MPJ_"
+    let svc     = builder.Services
+    let cfg     = svc.BuildServiceProvider().GetRequiredService<IConfiguration>()
+
+    let _ = svc.AddRouting()
+    let _ = svc.AddGiraffe()
+    let _ = svc.AddSingleton<IClock> SystemClock.Instance
+    let _ = svc.AddSingleton<IDateTimeZoneProvider> DateTimeZoneProviders.Tzdb
+    let _ = svc.Configure<ForwardedHeadersOptions>(fun (opts : ForwardedHeadersOptions) ->
+                opts.ForwardedHeaders <- ForwardedHeaders.XForwardedFor ||| ForwardedHeaders.XForwardedProto)
     
     let _ =
-            bldr.Services.Configure<CookiePolicyOptions>(fun (opts : CookiePolicyOptions) ->
+        svc.Configure<CookiePolicyOptions>(fun (opts : CookiePolicyOptions) ->
             opts.MinimumSameSitePolicy <- SameSiteMode.Unspecified
             opts.OnAppendCookie        <- fun ctx -> sameSite ctx.CookieOptions
             opts.OnDeleteCookie        <- fun ctx -> sameSite ctx.CookieOptions)
     let _ =
-            bldr.Services.AddAuthentication(fun opts ->
+        svc.AddAuthentication(fun opts ->
             opts.DefaultAuthenticateScheme <- CookieAuthenticationDefaults.AuthenticationScheme
             opts.DefaultSignInScheme       <- CookieAuthenticationDefaults.AuthenticationScheme
             opts.DefaultChallengeScheme    <- CookieAuthenticationDefaults.AuthenticationScheme)
             .AddCookie()
             .AddOpenIdConnect("Auth0", fun opts ->
                 // Configure OIDC with Auth0 options from configuration
-                    let cfg = bldr.Configuration.GetSection "Auth0"
-                    opts.Authority    <- $"""https://{cfg["Domain"]}/"""
-                    opts.ClientId     <- cfg["Id"]
-                    opts.ClientSecret <- cfg["Secret"]
+                let auth0 = cfg.GetSection "Auth0"
+                opts.Authority    <- $"""https://{auth0["Domain"]}/"""
+                opts.ClientId     <- auth0["Id"]
+                opts.ClientSecret <- auth0["Secret"]
                 opts.ResponseType <- OpenIdConnectResponseType.Code
                 
                 opts.Scope.Clear()
@@ -118,52 +81,31 @@ module Configure =
                                     $"{request.Scheme}://{request.Host.Value}{request.PathBase.Value}{redirUri}"
                                 | false -> redirUri
                             Uri.EscapeDataString $"&returnTo={finalRedirUri}"
-                        ctx.Response.Redirect $"""https://{cfg["Domain"]}/v2/logout?client_id={cfg["Id"]}{returnTo}"""
+                    ctx.Response.Redirect $"""https://{auth0["Domain"]}/v2/logout?client_id={auth0["Id"]}{returnTo}"""
                     ctx.HandleResponse()
                     Task.CompletedTask
                 opts.Events.OnRedirectToIdentityProvider <- fun ctx ->
-                        let bldr = UriBuilder ctx.ProtocolMessage.RedirectUri
-                        bldr.Scheme <- cfg["Scheme"]
-                        bldr.Port   <- int cfg["Port"]
-                        ctx.ProtocolMessage.RedirectUri <- string bldr
+                    let uri = UriBuilder ctx.ProtocolMessage.RedirectUri
+                    uri.Scheme <- auth0["Scheme"]
+                    uri.Port   <- int auth0["Port"]
+                    ctx.ProtocolMessage.RedirectUri <- string uri
                     Task.CompletedTask)
     
-        let jsonOptions = JsonSerializerOptions ()
-        jsonOptions.Converters.Add (JsonFSharpConverter ())
-        let db = new LiteDatabase (bldr.Configuration.GetConnectionString "db")
-        Data.Startup.ensureDb db
-        let _ = bldr.Services.AddSingleton jsonOptions
-        let _ = bldr.Services.AddSingleton<Json.ISerializer, SystemTextJson.Serializer> ()
-        let _ = bldr.Services.AddSingleton<LiteDatabase> db
+    let _ = svc.AddSingleton<JsonSerializerOptions> Json.options
+    let _ = svc.AddSingleton<Json.ISerializer>(SystemTextJson.Serializer Json.options)
+    let _ = Connection.setUp cfg |> Async.AwaitTask |> Async.RunSynchronously
     
-        bldr.Build ()
+    if builder.Environment.IsDevelopment() then builder.Logging.AddFilter(fun l -> l > LogLevel.Information) |> ignore
+    let _ = builder.Logging.AddConsole().AddDebug() |> ignore
 
-
-    open Giraffe.EndpointRouting
-
-    /// Configure the web application
-    let application (app : WebApplication) =
+    use app = builder.Build()
     let _ = app.UseStaticFiles()
     let _ = app.UseCookiePolicy()
     let _ = app.UseRouting()
     let _ = app.UseAuthentication()
     let _ = app.UseGiraffeErrorHandler Handlers.Error.error
     let _ = app.UseEndpoints(fun e -> e.MapGiraffeEndpoints Handlers.routes)
-        app
     
-    /// Compose all the configurations into one
-    let webHost pathSegments =
-           contentRoot
-        >> appConfiguration
-        >> kestrel
-        >> webRoot pathSegments
-        >> logging
-        >> services
-        >> application
+    app.Run()
 
-
-[<EntryPoint>]
-let main _ =
-    use host = Configure.webHost [| "wwwroot" |] (Directory.GetCurrentDirectory ())
-    host.Run ()
     0

src/MyPrayerJournal/Views/Docs.fs

@@ -0,0 +1,184 @@
+module MyPrayerJournal.Views.Docs
+
+open Giraffe.ViewEngine
+
+/// The "About myPrayerJournal" section
+let private about = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "About myPrayerJournal" ]
+    p [] [
+        rawText "Journaling has a long history; it helps people remember what happened, and the act of writing helps "
+        rawText "people think about what happened and process it. A prayer journal is not a new concept; it helps you "
+        rawText "keep track of the requests for which you've prayed, you can use it to pray over things repeatedly, "
+        rawText "and you can write the result when the answer comes "; em [] [ rawText "(or it was “no”)" ]
+        rawText "."
+    ]
+    p [] [
+        rawText "myPrayerJournal was borne of out of a personal desire "
+        a [ _href "https://daniel.summershome.org"; _target "_blank"; _rel "noopener" ] [ rawText "Daniel" ]
+        rawText " had to have something that would help him with his prayer life. When it’s time to pray, "
+        rawText "it’s not really time to use an app, so the design goal here is to keep it simple and "
+        rawText "unobtrusive. It will also help eliminate some of the downsides to a paper prayer journal, like not "
+        rawText "remembering whether you’ve prayed for a request, or running out of room to write another update "
+        rawText "on one."
+    ]
+]
+
+/// The "Signing Up" section
+let private signUp = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "Signing Up" ]
+    p [] [
+        rawText "myPrayerJournal uses login services using Google or Microsoft accounts. The only information the "
+        rawText "application stores in its database is your user Id token it receives from these services, so there "
+        rawText "are no permissions you should have to accept from these provider other than establishing that you can "
+        rawText "log on with that account. Because of this, you’ll want to pick the same one each time; the "
+        rawText "tokens between the two accounts are different, even if you use the same e-mail address to log on to "
+        rawText "both."
+    ]
+]
+
+/// The "Your Prayer Journal" section
+let private yourJournal = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "Your Prayer Journal" ]
+    p [] [
+        rawText "Your current requests will be presented in columns (usually three, but it could be more or less, "
+        rawText "depending on the size of your screen or device). Each request is in its own card, and the buttons at "
+        rawText "the top of each card apply to that request. The last line of each request also tells you how long it "
+        rawText "has been since anything has been done on that request. Any time you see something like “a few "
+        rawText "minutes ago,” you can hover over that to see the actual date/time the action was taken."
+    ]
+]
+
+/// The "Adding a Request" section
+let private addRequest = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "Adding a Request" ]
+    p [] [
+        rawText "To add a request, click the “Add a New Request” button at the top of your journal. Then, "
+        rawText "enter the text of the request as you see fit; there is no right or wrong way, and you are the only "
+        rawText "person who will see the text you enter. When you save the request, it will go to the bottom of the "
+        rawText "list of requests."
+    ]
+]
+
+/// The "Setting Request Recurrence" section
+let private setRecurrence = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "Setting Request Recurrence" ]
+    p [] [
+        rawText "When you add or update a request, you can choose whether requests go to the bottom of the journal "
+        rawText "once they have been marked “Prayed” or whether they will reappear after a delay. You can "
+        rawText "set recurrence in terms of hours, days, or weeks, but it cannot be longer than 365 days. If you "
+        rawText "decide you want a request to reappear sooner, you can skip the current delay; click the "
+        rawText "“Active” menu link, find the request in the list (likely near the bottom), and click the "
+        rawText "“Show Now” button."
+    ]
+]
+
+/// The "Praying for Requests" section
+let private praying = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "Praying for Requests" ]
+    p [] [
+        rawText "The first button for each request has a checkmark icon; clicking this button will mark the request as "
+        rawText "“Prayed” and move it to the bottom of the list (or off, if you’ve set a recurrence "
+        rawText "period for the request). This allows you, if you’re praying through your requests, to start at "
+        rawText "the top left (with the request that it’s been the longest since you’ve prayed) and click "
+        rawText "the button as you pray; when the request move below or away, the next-least-recently-prayed request "
+        rawText "will take the top spot."
+    ]
+]
+
+/// The "Editing Requests" section
+let private editing = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "Editing Requests" ]
+    p [] [
+        rawText "The second button for each request has a pencil icon. This allows you to edit the text of the "
+        rawText "request, pretty much the same way you entered it; it starts with the current text, and you can add to "
+        rawText "it, modify it, or completely replace it. By default, updates will go in with an “Updated” "
+        rawText "status; you have the option to also mark this update as “Prayed” or "
+        rawText "“Answered”. Answered requests will drop off the journal list."
+    ]
+]
+
+/// The "Adding Notes" section
+let private addNotes = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "Adding Notes" ]
+    p [] [
+        rawText "The third button for each request has an icon that looks like a speech bubble with lines on it; this "
+        rawText "lets you record notes about the request. If there is something you want to record that doesn’t "
+        rawText "change the text of the request, this is the place to do it. For example, you may be praying for a "
+        rawText "long-term health issue, and that person tells you that their status is the same; or, you may want to "
+        rawText "record something God said to you while you were praying for that request."
+    ]
+]
+
+/// The "Snoozing Requests" section
+let private snoozing = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "Snoozing Requests" ]
+    p [] [
+        rawText "There may be a time where a request does not need to appear. The fourth button, with the clock icon, "
+        rawText "allows you to snooze requests until the day you specify. Additionally, if you have any snoozed "
+        rawText "requests, a “Snoozed” menu item will appear next to the “Journal” one; this "
+        rawText "page allows you to see what requests are snoozed, and return them to your journal by canceling the "
+        rawText "snooze."
+    ]
+]
+
+/// The "Viewing a Request and Its History" section
+let private viewing = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "Viewing a Request and Its History" ]
+    p [] [
+        rawText "myPrayerJournal tracks all of the actions related to a request; from the “Active” and "
+        rawText "“Answered” menu links (and “Snoozed”, if it’s showing), there is a "
+        rawText "“View Full Request” button. That page will show the current text of the request; how many "
+        rawText "times it has been marked as prayed; how long it has been an active request; and a log of all updates, "
+        rawText "prayers, and notes you have recorded. That log is listed from most recent to least recent; if you "
+        rawText "want to read it chronologically, press the “End” key on your keyboard and read it from "
+        rawText "the bottom up."
+    ]
+    p [] [
+        rawText "The “Active” link will show all requests that have not yet been marked answered, "
+        rawText "including snoozed and recurring requests. If requests are snoozed, or in a recurrence period off the "
+        rawText "journal, there will be a button where you can return the request to the list (either “Cancel "
+        rawText "Snooze” or “Show Now”). The “Answered” link shows all requests that "
+        rawText "have been marked answered. The “Snoozed” link only shows snoozed requests."
+    ]
+]
+
+/// The "Final Notes" section
+let private finalNotes = [
+    h3 [ _class "mb-3 mt-4" ] [ rawText "Final Notes" ]
+    ul [] [
+        li [] [
+            rawText "If you encounter errors, please "
+            a [ _href "https://git.bitbadger.solutions/bit-badger/myPrayerJournal/issues"; _target "_blank" ] [
+                rawText "file an issue"
+            ]; rawText " (or "
+            a [ _href "mailto:daniel@bitbadger.solutions?subject=myPrayerJournal+Issue" ] [ rawText "e-mail Daniel" ]
+            rawText " if you do not have an account on that server) with as much detail as possible. You can also "
+            rawText "provide suggestions, or browse the list of currently open issues."
+        ]
+        li [] [
+            rawText "Prayer requests and their history are securely backed up nightly along with other Bit Badger "
+            rawText "Solutions data."
+        ]
+        li [] [
+            rawText "Prayer changes things - most of all, the one doing the praying. I pray that this tool enables you "
+            rawText "to deepen and strengthen your prayer life."
+        ]
+    ]
+]
+
+/// The documentation page
+let index =
+    article [ _class "container mt-3" ] [
+        h2 [ _class "mb-3" ] [ rawText "Documentation" ]
+        yield! about
+        yield! signUp
+        yield! yourJournal
+        yield! addRequest
+        yield! setRecurrence
+        yield! praying
+        yield! editing
+        yield! addNotes
+        yield! snoozing
+        yield! viewing
+        yield! finalNotes
+    ]

src/MyPrayerJournal/Views/Layout.fs

@@ -19,34 +19,30 @@ type PageRenderContext =
       PageTitle: string
       
       /// The content of the page
-        Content         : XmlNode
-    }
+      Content: XmlNode }
 
 /// The home page
 let home =
-    article [ _class "container mt-3" ] [
-        p [] [ rawText " " ]
-        p [] [
-            str "myPrayerJournal is a place where individuals can record their prayer requests, record that they "
+    article [ _class "container mt-3" ]
+        [ p [] [ rawText " " ]
+          p []
+            [ str "myPrayerJournal is a place where individuals can record their prayer requests, record that they "
               str "prayed for them, update them as God moves in the situation, and record a final answer received on "
-            str "that request. It also allows individuals to review their answered prayers."
-        ]
-        p [] [
-            str "This site is open and available to the general public. To get started, simply click the "
+              str "that request. It also allows individuals to review their answered prayers." ]
+          p []
+            [ str "This site is open and available to the general public. To get started, simply click the "
               rawText "“Log On” link above, and log on with either a Microsoft or Google account. You can "
-            rawText "also learn more about the site at the “Docs” link, also above."
-        ]
-    ]
+              rawText "also learn more about the site at the “Docs” link, also above." ] ]
 
 /// The default navigation bar, which will load the items on page load, and whenever a refresh event occurs
 let private navBar ctx =
-    nav [ _class "navbar navbar-dark"; _roleNavigation ] [
-        div [ _class "container-fluid" ] [
-            pageLink "/" [ _class "navbar-brand" ] [
-                span [ _class "m" ] [ str "my" ]
+    nav [ _class "navbar navbar-dark"; _roleNavigation ]
+        [ div [ _class "container-fluid" ]
+            [ pageLink
+                "/" [ _class "navbar-brand" ]
+                [ span [ _class "m" ] [ str "my" ]
                   span [ _class "p" ] [ str "Prayer" ]
-                span [ _class "j" ] [ str "Journal" ]
-            ]
+                  span [ _class "j" ] [ str "Journal" ] ]
               seq {
                 let navLink (matchUrl : string) =
                     match ctx.CurrentUrl.StartsWith matchUrl with true -> [ _class "is-active-route" ] | false -> []
@@ -58,91 +54,72 @@ let private navBar ctx =
                     li [ _class "nav-item" ] [ navLink "/requests/answered" [ str "Answered" ] ]
                     li [ _class "nav-item" ] [ a [ _href "/user/log-off" ] [ str "Log Off" ] ]
                 else li [ _class "nav-item"] [ a [ _href "/user/log-on" ] [ str "Log On" ] ]
-                li [ _class "nav-item" ] [
-                    a [ _href "https://docs.prayerjournal.me"; _target "_blank"; _rel "noopener" ] [ str "Docs" ]
-                ]
+                li [ _class "nav-item" ] [ navLink "/docs" [ str "Docs" ] ]
               }
               |> List.ofSeq
-            |> ul [ _class "navbar-nav me-auto d-flex flex-row" ]
-        ]
-    ]
+              |> ul [ _class "navbar-nav me-auto d-flex flex-row" ] ] ]
 
 /// The title tag with the application name appended
 let titleTag ctx =
-    title [] [ str ctx.PageTitle; rawText " « myPrayerJournal" ]
+    title [] [ rawText ctx.PageTitle; rawText " « myPrayerJournal" ]
 
 /// The HTML `head` element
 let htmlHead ctx =
-    head [ _lang "en" ] [
-        meta [ _name "viewport"; _content "width=device-width, initial-scale=1" ]
+    head [ _lang "en" ]
+        [ meta [ _name "viewport"; _content "width=device-width, initial-scale=1" ]
           meta [ _name "description"; _content "Online prayer journal - free w/Google or Microsoft account" ]
           titleTag ctx
-        link [ _href        "https://cdn.jsdelivr.net/npm/bootstrap@5.2.0/dist/css/bootstrap.min.css"
+          link [ _href        "https://cdn.jsdelivr.net/npm/bootstrap@5.3.2/dist/css/bootstrap.min.css"
                  _rel         "stylesheet"
-               _integrity   "sha384-gH2yIJqKdNHPEq0n4Mqa/HGKIhSkIHeL5AyhkYV8i59U5AR6csBvApHHNl/vI1Bx"
+                 _integrity   "sha384-T3c6CoIi6uLrA9TneNEoa7RxnatzjcDSCmG1MXxSR1GAsXEV/Dwwykc2MPK8M2HN"
                  _crossorigin "anonymous" ]
           link [ _href "https://fonts.googleapis.com/icon?family=Material+Icons"; _rel "stylesheet" ]
-        link [ _href "/style/style.css"; _rel "stylesheet" ]
-    ]
+          link [ _href "/style/style.css"; _rel "stylesheet" ] ]
 
 /// Element used to display toasts
 let toaster =
-    div [ _ariaLive "polite"; _ariaAtomic "true"; _id "toastHost" ] [
-        div [ _class "toast-container position-absolute p-3 bottom-0 end-0"; _id "toasts" ] []
-    ]
+    div [ _ariaLive "polite"; _ariaAtomic "true"; _id "toastHost" ]
+        [ div [ _class "toast-container position-absolute p-3 bottom-0 end-0"; _id "toasts" ] [] ]
 
 /// The page's `footer` element
 let htmlFoot =
-    footer [ _class "container-fluid" ] [
-        p [ _class "text-muted text-end" ] [
-            str $"myPrayerJournal {version}"
+    footer [ _class "container-fluid" ]
+        [ p [ _class "text-muted text-end" ]
+            [ str $"myPrayerJournal {version}"
               br []
-            em [] [
-                small [] [
-                    pageLink "/legal/privacy-policy" [] [ str "Privacy Policy" ]
+              em []
+                  [ small []
+                        [ pageLink "/legal/privacy-policy" [] [ str "Privacy Policy" ]
                           rawText " • "
                           pageLink "/legal/terms-of-service" [] [ str "Terms of Service" ]
                           rawText " • "
-                    a [ _href "https://github.com/bit-badger/myprayerjournal"; _target "_blank"; _rel "noopener" ] [
-                        str "Developed"
-                    ]
+                          a [ _href "https://git.bitbadger.solutions/bit-badger/myPrayerJournal"
+                              _target "_blank"
+                              _rel "noopener" ] [ str "Developed" ]
                           str " and hosted by "
-                    a [ _href "https://bitbadger.solutions"; _target "_blank"; _rel "noopener" ] [
-                        str "Bit Badger Solutions"
-                    ]
-                ]
-            ]
-        ]
+                          a   [ _href "https://bitbadger.solutions"; _target "_blank"; _rel "noopener" ]
+                              [ str "Bit Badger Solutions" ] ] ] ]
           Htmx.Script.minified
-        script [] [
-            rawText "if (!htmx) document.write('<script src=\"/script/htmx.min.js\"><\/script>')"
-        ]
+          script [] [ rawText "if (!htmx) document.write('<script src=\"/script/htmx.min.js\"><\/script>')" ]
           script [ _async
-                 _src         "https://cdn.jsdelivr.net/npm/bootstrap@5.2.0/dist/js/bootstrap.bundle.min.js"
-                 _integrity   "sha384-A3rJD856KowSb7dwlZdYEkO39Gagi7vIsF0jrRAoQmDKKtQBHUuLZ9AsSv4jD4Xa"
+                   _src         "https://cdn.jsdelivr.net/npm/bootstrap@5.3.2/dist/js/bootstrap.bundle.min.js"
+                   _integrity   "sha384-C6RzsynM9kWDrMNeT87bh95OGNyZPhcTNXj1NW7RuBCsyN/o0jlpcV8Qyq46cDfL"
                    _crossorigin "anonymous" ] []
-        script [] [
-            rawText "setTimeout(function () { "
+          script []
+              [ rawText "setTimeout(function () { "
                 rawText "if (!bootstrap) document.write('<script src=\"/script/bootstrap.bundle.min.js\"><\/script>') "
-            rawText "}, 2000)"
-        ]
-        script [ _src "/script/mpj.js" ] []
-    ]
+                rawText "}, 2000)" ]
+          script [ _src "/script/mpj.js" ] [] ]
 
 /// Create the full view of the page
 let view ctx =
-    html [ _lang "en" ] [
-        htmlHead ctx
-        body [] [
-            section [ _id "top"; _ariaLabel "Top navigation" ] [ navBar ctx; main [ _roleMain ] [ ctx.Content ] ]
+    html [ _lang "en" ]
+        [ htmlHead ctx
+          body []
+            [ section [ _id "top"; _ariaLabel "Top navigation" ] [ navBar ctx; main [ _roleMain ] [ ctx.Content ] ]
               toaster
-            htmlFoot
-        ]
-    ]
+              htmlFoot ] ]
 
 /// Create a partial view
 let partial ctx =
-    html [ _lang "en" ] [
-        head [] [ titleTag ctx ]
-        body [] [ navBar ctx; main [ _roleMain ] [ ctx.Content ] ]
-    ]
+    html [ _lang "en" ] [ head [] [ titleTag ctx ]; body [] [ navBar ctx; main [ _roleMain ] [ ctx.Content ] ] ]

src/MyPrayerJournal/Views/Request.fs

@@ -77,28 +77,31 @@ let full (clock : IClock) tz (req : Request) =
     let now = clock.GetCurrentInstant()
     let answered =
         req.History
-        |> Array.filter History.isAnswered
-        |> Array.tryHead
-        |> Option.map (fun x -> x.AsOf)
-    let prayed = (req.History |> Array.filter History.isPrayed |> Array.length).ToString "N0"
+        |> Seq.ofList
+        |> Seq.filter History.isAnswered
+        |> Seq.tryHead
+        |> Option.map (_.AsOf)
+    let prayed = (req.History |> List.filter History.isPrayed |> List.length).ToString "N0"
     let daysOpen =
         let asOf = defaultArg answered now
-        ((asOf - (req.History |> Array.filter History.isCreated |> Array.head).AsOf).TotalDays |> int).ToString "N0"
+        ((asOf - (req.History |> List.filter History.isCreated |> List.head).AsOf).TotalDays |> int).ToString "N0"
     let lastText =
         req.History
-        |> Array.filter (fun h -> Option.isSome h.Text)
-        |> Array.sortByDescending (fun h -> h.AsOf)
-        |> Array.map (fun h -> Option.get h.Text)
-        |> Array.head
+        |> Seq.ofList
+        |> Seq.filter (fun h -> Option.isSome h.Text)
+        |> Seq.sortByDescending (_.AsOf)
+        |> Seq.map (fun h -> Option.get h.Text)
+        |> Seq.head
     // The history log including notes (and excluding the final entry for answered requests)
     let log =
         let toDisp (h : History) = {| asOf = h.AsOf; text = h.Text; status = RequestAction.toString h.Status |}
         let all =
             req.Notes
-            |> Array.map (fun n -> {| asOf = n.AsOf; text = Some n.Notes; status = "Notes" |})
-            |> Array.append (req.History |> Array.map toDisp)
-            |> Array.sortByDescending (fun it -> it.asOf)
-            |> List.ofArray
+            |> Seq.ofList
+            |> Seq.map (fun n -> {| asOf = n.AsOf; text = Some n.Notes; status = "Notes" |})
+            |> Seq.append (req.History |> List.map toDisp)
+            |> Seq.sortByDescending (_.asOf)
+            |> List.ofSeq
         // Skip the first entry for answered requests; that info is already displayed
         match answered with Some _ -> all.Tail | None -> all
     article [ _class "container mt-3" ] [

src/MyPrayerJournal/appsettings.json

@@ -1,12 +1,2 @@
-{
-  "ConnectionStrings": {
-    "db": "Filename=./mpj.db"
-  },
-  "Kestrel": {
-    "EndPoints": {
-      "Http": {
-        "Url": "http://localhost:3000"
-      }
-    }
-  }
+{
 }

src/app/composer.json

@@ -1,33 +0,0 @@
-{
-    "name": "bitbadger/my-prayer-journal",
-    "description": "Minimalist prayer journal to enhance your prayer life",
-    "type": "project",
-    "license": "MIT",
-    "autoload": {
-        "psr-4": {
-            "MyPrayerJournal\\": "lib/",
-            "MyPrayerJournal\\Domain\\": "lib/domain/",
-            "BitBadger\\PgDocuments\\": "lib/documents/"
-        }
-    },
-    "authors": [
-        {
-            "name": "Daniel J. Summers",
-            "email": "daniel@bitbadger.solutions"
-        }
-    ],
-    "require": {
-        "netresearch/jsonmapper": "^4.2",
-        "guzzlehttp/guzzle": "^7.8",
-        "guzzlehttp/psr7": "^2.6",
-        "http-interop/http-factory-guzzle": "^1.2",
-        "auth0/auth0-php": "^8.8",
-        "vlucas/phpdotenv": "^5.5",
-        "visus/cuid2": "^4.0"
-    },
-    "config": {
-        "allow-plugins": {
-            "php-http/discovery": true
-        }
-    }
-}

src/app/lib/Constants.php

@@ -1,67 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal;
-
-/**
- * Constants for use throughout the application
- */
-class Constants
-{
-    /** @var string The `$_ENV` key for the Auth0 domain configured for myPrayerJournal */
-    const AUTH0_DOMAIN = 'AUTH0_DOMAIN';
-
-    /** @var string The `$_ENV` key for the Auth0 client ID for myPrayerJournal */
-    const AUTH0_CLIENT_ID = 'AUTH0_CLIENT_ID';
-
-    /** @var string The `$_ENV` key for the Auth0 client secret */
-    const AUTH0_CLIENT_SECRET = 'AUTH0_CLIENT_SECRET';
-
-    /** @var string The `$_ENV` key for the Auth0 cookie secret */
-    const AUTH0_COOKIE_SECRET = 'AUTH0_COOKIE_SECRET';
-
-    /** @var string The `$_ENV` key for the base URL for this instance of myPrayerJournal */
-    const BASE_URL = 'AUTH0_BASE_URL';
-
-    /** @var string The Auth0 given name (first name) claim */
-    const CLAIM_GIVEN_NAME = 'given_name';
-
-    /** @var string The Auth0 subscriber (sub) claim */
-    const CLAIM_SUB = 'sub';
-
-    /** @var string The name of the cookie used to persist redirection after Auth0 authentication */
-    const COOKIE_REDIRECT = 'mpjredirect';
-
-    /** @var string the `$_SERVER` key for the HX-Request header */
-    const HEADER_HX_REQUEST = 'HTTP_HX_REQUEST';
-
-    /** @var string The `$_SERVER` key for the HX-History-Restore-Request header */
-    const HEADER_HX_HIST_REQ = 'HTTP_HX_HISTORY_RESTORE_REQUEST';
-
-    /** @var string The `$_SERVER` key for the X-Time-Zone header */
-    const HEADER_USER_TZ = 'HTTP_X_TIME_ZONE';
-
-    /** @var string The `$_REQUEST` key for whether the request was initiated by htmx */
-    const IS_HTMX = 'MPJ_IS_HTMX';
-
-    /** @var string The `$_GET` key for state passed to Auth0 if redirection is required once authenticated */
-    const LOG_ON_STATE = 'state';
-
-    /** @var string The `$_REQUEST` key for the page title for this request */
-    const PAGE_TITLE = 'MPJ_PAGE_TITLE';
-
-    /** @var string The `$_SERVER` key for the current page's relative URI */
-    const REQUEST_URI = 'REQUEST_URI';
-
-    /** @var string The `$_GET` key sent to the log on page if redirection is required once authenticated */
-    const RETURN_URL = 'return_url';
-
-    /** @var string The `$_REQUEST` key for the timezone reference to use for this request */
-    const TIME_ZONE = 'MPJ_TIME_ZONE';
-
-    /** @var string The `$_REQUEST` key for the current user's ID */
-    const USER_ID = 'MPJ_USER_ID';
-
-    /** @var string The `$_REQUEST` key for the current version of myPrayerJournal */
-    const VERSION = 'MPJ_VERSION';
-}

src/app/lib/Data.php

@@ -1,134 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal;
-
-use BitBadger\PgDocuments\{ Definition, Document, DocumentIndex, Query };
-use MyPrayerJournal\Domain\{ History, JournalRequest, Note, Request, RequestAction };
-
-class Data
-{
-    /** The prayer request table */
-    const REQ_TABLE = 'mpj.request';
-
-    /**
-     * Ensure the table and index exist
-     */
-    public static function startUp(): void
-    {
-        Definition::ensureTable(self::REQ_TABLE);
-        Definition::ensureIndex(self::REQ_TABLE, DocumentIndex::Optimized);
-    }
-
-    // /**
-    //  * Find a full prayer request by its ID
-    //  * 
-    //  * @param string $reqId The request ID
-    //  * @param string $userId The ID of the currently logged-on user
-    //  * @return ?Request The request, or null if it is not found
-    //  */
-    // public static function findFullRequestById(string $reqId, string $userId): ?Request
-    // {
-    //     $req = Document::findById(self::REQ_TABLE, $reqId, Request::class);
-    //     return is_null($req) || $req->userId != $userId ? null : $req;
-    // }
-
-    // /**
-    //  * Add a history entry to the specified request
-    //  * 
-    //  * @param string $reqId The request ID
-    //  * @param string $userId The ID of the currently logged-on user
-    //  * @param History $history The history entry to be added
-    //  */
-    // public static function addHistory(string $reqId, string $userId, History $history)
-    // {
-    //     $req = self::findFullRequestById($reqId, $userId);
-    //     if (is_null($req)) throw new \InvalidArgumentException("$reqId not found");
-    //     array_unshift($req->history, $history);
-    //     Document::updateFull(self::REQ_TABLE, $reqId, $req);
-    // }
-
-    // /**
-    //  * Add a note to the specified request
-    //  * 
-    //  * @param string $reqId The request ID
-    //  * @param string $userId The ID of the currently logged-on user
-    //  * @param Note $note The note to be added
-    //  */
-    // public static function addNote(string $reqId, string $userId, Note $note)
-    // {
-    //     $req = self::findFullRequestById($reqId, $userId);
-    //     if (is_null($req)) throw new \InvalidArgumentException("$reqId not found");
-    //     array_unshift($req->notes, $note);
-    //     Document::updateFull(self::REQ_TABLE, $reqId, $req);
-    // }
-
-    // /**
-    //  * Add a new request
-    //  * 
-    //  * @param Request $req The request to be added
-    //  */
-    // public static function addRequest(Request $req)
-    // {
-    //     Document::insert(self::REQ_TABLE, $req->id, $req);
-    // }
-
-    /**
-     * Map an array of `Request`s to an array of `JournalRequest`s
-     * 
-     * @param Request[] $reqs The requests to map
-     * @param bool $full Whether to include history and notes (true) or not (false)
-     * @return JournalRequest[] The journal request objects
-     */
-    private static function mapToJournalRequest(array $reqs, bool $full): array
-    {
-        return array_map(fn (Request $req) => new JournalRequest($req, $full), $reqs);
-    }
-
-    /**
-     * Get journal requests for the given user by "answered" status
-     * 
-     * @param string $userId The ID of the user for whom requests should be retrieved
-     * @param string $op The JSON Path operator to use for comparison (`==` or `<>`)
-     * @return JournalRequest[] The journal request objects
-     */
-    private static function getJournalByAnswered(string $userId, string $op): array
-    {
-        $sql = sprintf('%s WHERE %s AND %s', Query::selectFromTable(self::REQ_TABLE), Query::whereDataContains('$1'),
-            Query::whereJsonPathMatches('$2'));
-        $params = [
-            Query::jsonbDocParam([ 'userId' => $userId ]),
-            sprintf('$.history[0].status ? (@ %s "%s")', $op, RequestAction::Answered->name)
-        ];
-        return self::mapToJournalRequest(
-            Document::customList($sql, $params, Request::class, Document::mapFromJson(...)), true);
-    }
-    
-    // /**
-    //  * Retrieve all answered requests for this user
-    //  * 
-    //  * @param string $userId The ID of the user for whom answered requests should be retrieved
-    //  * @return JournalRequest[] The answered requests
-    //  */
-    // public static function getAnsweredRequests(string $userId): array
-    // {
-    //     $answered = self::getJournalByAnswered($userId, '==');
-    //     usort($answered,
-    //         fn (JournalRequest $a, JournalRequest $b) => $a->asOf == $b->asOf ? 0 : ($a->asOf > $b->asOf ? -1 : 1));
-    //     return $answered;
-    // }
-
-    /**
-     * Get the user's current prayer request journal
-     * 
-     * @param string $userId The ID of the user whose journal should be retrieved
-     * @return JournalRequest[] The journal request objects
-     */
-    public static function getJournal(string $userId): array
-    {
-        $reqs = self::getJournalByAnswered($userId, '<>');
-        usort($reqs,
-            fn (JournalRequest $a, JournalRequest $b) => $a->asOf == $b->asOf ? 0 : ($a->asOf < $b->asOf ? -1 : 1));
-        return $reqs;
-    }
-}

src/app/lib/Dates.php

@@ -1,63 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal;
-
-use DateTimeImmutable, DateTimeInterface, DateTimeZone;
-
-class Dates
-{
-    /** Minutes in a day */
-    private const A_DAY =  1_440;
-
-    /** Minutes in two days(-ish) */
-    private const ALMOST_2_DAYS = 2_520;
-    
-    /** Minutes in a month */
-    private const A_MONTH = 43_200;
-    
-    /** Minutes in two months */
-    private const TWO_MONTHS = 86_400;
-
-    /**
-     * Get a UTC-referenced current date/time
-     * 
-     * @return DateTimeImmutable The current date/time with UTC reference
-     */
-    public static function now(): DateTimeImmutable
-    {
-        return new DateTimeImmutable(timezone: new DateTimeZone('Etc/UTC'));
-    }
-
-    /**
-     * Format the distance between two instants in approximate English terms
-     * 
-     * @param DateTimeInterface $startOn The starting date/time for the comparison
-     * @param DateTimeInterface $endOn THe ending date/time for the comparison
-     * @return string The formatted interval
-     */
-    public static function formatDistance(DateTimeInterface $startOn, DateTimeInterface $endOn): string
-    {
-        $diff    = $startOn->diff($endOn);
-        $minutes =
-            $diff->i + ($diff->h * 60) + ($diff->d * 60 * 24) + ($diff->m * 60 * 24 * 30) + ($diff->y * 60 * 24 * 365);
-        $months = round($minutes / self::A_MONTH);
-        $years  = $months / 12;
-        [ $format, $number ] = match (true) {
-            $minutes < 1                   => [ DistanceFormat::LessThanXMinutes, 1 ],
-            $minutes < 45                  => [ DistanceFormat::XMinutes, $minutes ],
-            $minutes < 90                  => [ DistanceFormat::AboutXHours, 1 ],
-            $minutes < self::A_DAY         => [ DistanceFormat::AboutXHours, round($minutes / 60) ],
-            $minutes < self::ALMOST_2_DAYS => [ DistanceFormat::XDays, 1 ],
-            $minutes < self::A_MONTH       => [ DistanceFormat::XDays, round($minutes / self::A_DAY) ],
-            $minutes < self::TWO_MONTHS    => [ DistanceFormat::AboutXMonths, round($minutes / self::A_MONTH) ],
-            $months      < 12              => [ DistanceFormat::XMonths, round($minutes / self::A_MONTH) ],
-            $months % 12 < 3               => [ DistanceFormat::AboutXYears, $years ],
-            $months % 12 < 9               => [ DistanceFormat::OverXYears, $years ],
-            default                        => [ DistanceFormat::AlmostXYears, $years + 1 ],
-        };
-
-        $relativeWords = sprintf(DistanceFormat::format($format, $number == 1), $number);
-        return $startOn > $endOn ? "$relativeWords ago" : "in $relativeWords";
-    }
-}

src/app/lib/DistanceFormat.php

@@ -1,50 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal;
-
-/**
- * The different distance formats supported
- */
-enum DistanceFormat
-{
-    case LessThanXMinutes;
-    case XMinutes;
-    case AboutXHours;
-    case XHours;
-    case XDays;
-    case AboutXWeeks;
-    case XWeeks;
-    case AboutXMonths;
-    case XMonths;
-    case AboutXYears;
-    case XYears;
-    case OverXYears;
-    case AlmostXYears;
-
-    /**
-     * Return the formatting string for the given format and number
-     * 
-     * @param DistanceFormat $it The distance format
-     * @param bool $singular If true, returns the singular version; if false (default), returns the plural version
-     * @return string The format string
-     */
-    public static function format(DistanceFormat $it, bool $singular = false): string
-    {
-        return match ($it) {
-            self::LessThanXMinutes => $singular ? 'less than a minute' : 'less than %d minutes',
-            self::XMinutes         => $singular ? 'a minute'           : '%d minutes',
-            self::AboutXHours      => $singular ? 'about an hour'      : 'about %d hours',
-            self::XHours           => $singular ? 'an hour'            : '%d hours',
-            self::XDays            => $singular ? 'a day'              : '%d days',
-            self::AboutXWeeks      => $singular ? 'about a week'       : 'about %d weeks',
-            self::XWeeks           => $singular ? 'a week'             : '%d weeks',
-            self::AboutXMonths     => $singular ? 'about a month'      : 'about %d months',
-            self::XMonths          => $singular ? 'a month'            : '%d months',
-            self::AboutXYears      => $singular ? 'about a year'       : 'about %d years',
-            self::XYears           => $singular ? 'a year'             : '%d years',
-            self::OverXYears       => $singular ? 'over a year'        : 'over %d years',
-            self::AlmostXYears     => $singular ? 'almost a year'      : 'almost %d years',
-        };
-    }
-}

src/app/lib/documents/Configuration.php

@@ -1,73 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace BitBadger\PgDocuments;
-
-use PgSql\Connection;
-
-/**
- * Document table configuration
- */
-class Configuration
-{
-    /** @var string $connectionString The connection string to use when establishing a database connection */
-    public static string $connectionString = '';
-
-    /** @var ?Connection $pgConn The active connection */
-    private static ?Connection $pgConn = null;
-
-    /** @var ?string $startUp The name of a function to run on first connection to the database */
-    public static ?string $startUp = null;
-
-    /** @var string $keyName The key name for document IDs (default "id") */
-    public static string $keyName = 'id';
-
-    /**
-     * Ensure that the connection string is set, either explicitly, by environment variables, or with defaults
-     */
-    private static function ensureConnectionString(): void
-    {
-        if (self::$connectionString == "") {
-            $host = $_ENV['PGDOC_HOST'] ?? 'localhost';
-            $port = $_ENV['PGDOC_PORT'] ?? 5432;
-            $db   = $_ENV['PGDOC_DB']   ?? 'postgres';
-            $user = $_ENV['PGDOC_USER'] ?? 'postgres';
-            $pass = $_ENV['PGDOC_PASS'] ?? 'postgres';
-            $opts = $_ENV['PGDOC_OPTS'] ?? '';
-            self::$connectionString = "host=$host port=$port dbname=$db user=$user password=$pass"
-                . ($opts ? " options='$opts'" : '');
-        }
-    }
-
-    /**
-     * A no-op function to force this file to be autoloaded if no explicit configuration is required
-     */
-    public static function init() { }
-
-    /**
-     * Get the PostgreSQL connection, connecting on first request
-     * 
-     * @return Connection The open PostgreSQL connection
-     */
-    public static function getPgConn(): Connection
-    {
-        if (is_null(self::$pgConn)) {
-            self::ensureConnectionString();
-            self::$pgConn = pg_connect(self::$connectionString);
-        }
-        return self::$pgConn;
-    }
-
-    /**
-     * Close the PostgreSQL connection if it is open
-     */
-    public static function closeConn(): void
-    {
-        if (!is_null(self::$pgConn)) {
-            pg_close(self::$pgConn);
-            self::$pgConn = null;
-        }
-    }
-}
-
-require('functions.php');

src/app/lib/documents/Definition.php

@@ -1,87 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace BitBadger\PgDocuments;
-
-use PgSql\Result;
-
-/**
- * Methods to define tables and indexes for document tables
- */
-class Definition
-{
-    /**
-     * Create a statement to create a document table
-     * 
-     * @param string $name The name of the table to create
-     * @return string A `CREATE TABLE` statement for the document table
-     */
-    public static function createTable(string $name): string
-    {
-        return "CREATE TABLE IF NOT EXISTS $name (data JSONB NOT NULL)";
-    }
-
-    /**
-     * Create a statement to create a key for a document table
-     *
-     * @param string $tableName The table (or schema/table) for which a key should be created
-     * @return string A `CREATE INDEX` statement for a unique key for the document table
-     */
-    public static function createKey(string $tableName): string
-    {
-        return sprintf('CREATE UNIQUE INDEX IF NOT EXISTS idx_%s_key ON %s ((data -> \'%s\'))',
-            self::extractTable($tableName), $tableName, Configuration::$keyName);
-    }
-
-    /**
-     * Create a statement to create an index on a document table
-     * 
-     * @param string $name The name of the table for which the index should be created
-     * @param DocumentIndex $type The type of index to create
-     * @return string A `CREATE INDEX` statement for the given table
-     */
-    public static function createIndex(string $name, DocumentIndex $type): string
-    {
-        return sprintf('CREATE INDEX IF NOT EXISTS idx_%s ON %s USING GIN (data%s)',
-            self::extractTable($name), $name, $type == DocumentIndex::Full ? '' : ' jsonb_path_ops');
-    }
-
-    /**
-     * Ensure the given document table exists
-     * 
-     * @param string $tableName The name of the table
-     */
-    public static function ensureTable(string $tableName): void
-    {
-        /** @var Result|bool $result */
-        $result = pg_query(pg_conn(), self::createTable($tableName));
-        if ($result) pg_free_result($result);
-        $result = pg_query(pg_conn(), self::createKey($tableName));
-        if ($result) pg_free_result($result);
-    }
-
-    /**
-     * Ensure an index on the given document table exists
-     * 
-     * @param string $name The name of the table for which the index should be created
-     * @param DocumentIndex $type The type of index to create
-     */
-    public static function ensureIndex(string $name, DocumentIndex $type): void
-    {
-        /** @var Result|bool $result */
-        $result = pg_query(pg_conn(), self::createIndex($name, $type));
-        if ($result) pg_free_result($result);
-    }
-
-    /**
-     * Extract just the table name from a possible `schema.table` name
-     *
-     * @param string $name The name of the table, possibly including the schema
-     * @return string The table name
-     */
-    private static function extractTable(string $name): string
-    {
-        $schemaAndTable = explode('.', $name);
-        return end($schemaAndTable);
-    }
-}

src/app/lib/documents/Document.php

@@ -1,431 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace BitBadger\PgDocuments;
-
-use Exception;
-use JsonMapper;
-use PgSql\Result;
-
-/** Document manipulation functions */
-class Document
-{
-    /** JSON Mapper instance to use for creating a domain type instance from a document */
-    private static ?JsonMapper $mapper = null;
-
-    /**
-     * Map a domain type from the JSON document retrieved
-     * 
-     * @param string $columnName The name of the column from the database
-     * @param array $result An associative array with a single result to be mapped
-     * @param class-string<Type> $className The name of the class onto which the JSON will be mapped
-     * @return Type The domain type
-     */
-    public static function mapDocFromJson(string $columnName, array $result, string $className): mixed
-    {
-        if (is_null(self::$mapper)) {
-            self::$mapper = new JsonMapper();
-        }
-
-        $mapped = new $className();
-        self::$mapper->map(json_decode($result[$columnName]), $mapped);
-        return $mapped;
-    }
-
-    /**
-     * Map a domain type from the JSON document retrieved
-     * 
-     * @param array $result An associative array with a single result to be mapped
-     * @param class-string<Type> $className The name of the class onto which the JSON will be mapped
-     * @return Type The domain type
-     */
-    public static function mapFromJson(array $result, string $className): mixed
-    {
-        return self::mapDocFromJson('data', $result, $className);
-    }
-
-    /**
-     * Execute a document-focused statement that does not return results
-     *
-     * @param string $query The query to be executed
-     * @param array|object $document The array or object representing the document
-     * @throws Exception If the document's ID is null
-     */
-    private static function executeNonQuery(string $query, array|object $document): void
-    {
-        $docId = is_array($document)
-            ? $document[Configuration::$keyName]
-            : get_object_vars($document)[Configuration::$keyName];
-        if (is_null($docId)) throw new Exception('PgDocument: ID cannot be NULL');
-        /** @var Result|bool $result */
-        $result = pg_query_params(pg_conn(), $query, [ $docId, Query::jsonbDocParam($document) ]);
-        if ($result) pg_free_result($result);
-    }
-
-    /**
-     * Insert a document
-     * 
-     * @param string $tableName The name of the table into which a document should be inserted
-     * @param array|object $document The array or object representing the document
-     */
-    public static function insert(string $tableName, array|object $document): void
-    {
-        self::executeNonQuery(Query::insert($tableName), $document);
-    }
-
-    /**
-     * Save (upsert) a document
-     * 
-     * @param string $tableName The name of the table into which a document should be inserted
-     * @param array|object $document The array or object representing the document
-     */
-    public static function save(string $tableName, array|object $document): void
-    {
-        self::executeNonQuery(Query::save($tableName), $document);
-    }
-
-    /**
-     * Run a count query, returning the `it` parameter of that query as an integer
-     * 
-     * @param string $sql The SQL query that will return a count
-     * @param array $params Parameters needed for that query
-     * @return int The count of matching rows for the query
-     */
-    private static function runCount(string $sql, array $params): int
-    {
-        /** @var Result|bool $result */
-        $result = pg_query_params(pg_conn(), $sql, $params);
-        if (!$result) return -1;
-        $count = intval(pg_fetch_assoc($result)['it']);
-        pg_free_result($result);
-        return $count;
-    }
-
-    /**
-     * Count all documents in a table
-     * 
-     * @param string $tableName The name of the table in which documents should be counted
-     * @return int The number of documents in the table
-     */
-    public static function countAll(string $tableName): int
-    {
-        return self::runCount(Query::countAll($tableName), []);
-    }
-
-    /**
-     * Count documents in a table by JSON containment `@>`
-     * 
-     * @param string $tableName The name of the table in which documents should be counted
-     * @param array|object $criteria The criteria for the JSON containment query
-     * @return int The number of documents in the table matching the JSON containment query
-     */
-    public static function countByContains(string $tableName, array|object $criteria): int
-    {
-        return self::runCount(Query::countByContains($tableName), [ Query::jsonbDocParam($criteria) ]);
-    }
-
-    /**
-     * Count documents in a table by JSON Path match `@?`
-     * 
-     * @param string $tableName The name of the table in which documents should be counted
-     * @param string $jsonPath The JSON Path to be matched
-     * @return int The number of documents in the table matching the JSON Path
-     */
-    public static function countByJsonPath(string $tableName, string $jsonPath): int
-    {
-        return self::runCount(Query::countByJsonPath($tableName), [ $jsonPath ]);
-    }
-
-    /**
-     * Run an existence query (returning the `it` parameter of that query)
-     * 
-     * @param string $sql The SQL query that will return existence
-     * @param array $params Parameters needed for that query
-     * @return bool The result of the existence query
-     */
-    private static function runExists(string $sql, array $params): bool
-    {
-        /** @var Result|bool $result */
-        $result = pg_query_params(pg_conn(), $sql, $params);
-        if (!$result) return false;
-        $exists = boolval(pg_fetch_assoc($result)['it']);
-        pg_free_result($result);
-        return $exists;
-    }
-
-    /**
-     * Determine if a document exists for the given ID
-     * 
-     * @param string $tableName The name of the table in which existence should be checked
-     * @param string $docId The ID of the document whose existence should be checked
-     * @return bool True if the document exists, false if not
-     */
-    public static function existsById(string $tableName, string $docId): bool
-    {
-        return self::runExists(Query::existsById($tableName), [ $docId ]);
-    }
-
-    /**
-     * Determine if documents exist by JSON containment `@>`
-     * 
-     * @param string $tableName The name of the table in which existence should be checked
-     * @param array|object $criteria The criteria for the JSON containment query
-     * @return bool True if any documents in the table match the JSON containment query, false if not
-     */
-    public static function existsByContains(string $tableName, array|object $criteria): bool
-    {
-        return self::runExists(Query::existsByContains($tableName), [ Query::jsonbDocParam($criteria) ]);
-    }
-
-    /**
-     * Determine if documents exist by JSON Path match `@?`
-     * 
-     * @param string $tableName The name of the table in which existence should be checked
-     * @param string $jsonPath The JSON Path to be matched
-     * @return bool True if any documents in the table match the JSON Path, false if not
-     */
-    public static function existsByJsonPath(string $tableName, string $jsonPath): bool
-    {
-        return self::runExists(Query::existsByJsonPath($tableName), [ $jsonPath ]);
-    }
-
-    /**
-     * Run a query, mapping the results to an array of domain type objects
-     * 
-     * @param string $sql The query to be run
-     * @param array $params The parameters for the query
-     * @param class-string<Type> $className The type of document to be mapped
-     * @return array<Type> The documents matching the query
-     */
-    private static function runListQuery(string $sql, array $params, string $className): array
-    {
-        /** @var Result|bool $result */
-        $result = pg_query_params(pg_conn(), $sql, $params);
-        try {
-            if (!$result || pg_result_status($result) == PGSQL_EMPTY_QUERY) return [];
-            return array_map(fn ($it) => self::mapFromJson($it, $className), pg_fetch_all($result));
-        } finally {
-            if ($result) pg_free_result($result);
-        }
-    }
-
-    /**
-     * Retrieve all documents in a table
-     * 
-     * @param string $tableName The table from which all documents should be retrieved
-     * @param class-string<Type> $className The type of document to be retrieved
-     * @return array<Type> An array of documents
-     */
-    public static function findAll(string $tableName, string $className): array
-    {
-        return self::runListQuery(Query::selectFromTable($tableName), [], $className);
-    }
-
-    /**
-     * Retrieve a document by its ID
-     * 
-     * @param string $tableName The table from which a document should be retrieved
-     * @param string $docId The ID of the document to retrieve
-     * @param class-string<Type> $className The type of document to retrieve
-     * @return Type|null The document, or null if it is not found
-     */
-    public static function findById(string $tableName, string $docId, string $className): mixed
-    {
-        $results = self::runListQuery(Query::findById($tableName), [ $docId ], $className);
-        return $results ? $results[0] : null;
-    }
-
-    /**
-     * Retrieve documents in a table via JSON containment `@>`
-     * 
-     * @param string $tableName The table from which documents should be retrieved
-     * @param array|object $criteria The criteria for the JSON containment query
-     * @param class-string<Type> $className The type of document to be retrieved
-     * @return array<Type> Documents matching the JSON containment query
-     */
-    public static function findByContains(string $tableName, array|object $criteria, string $className): array
-    {
-        return self::runListQuery(Query::findByContains($tableName), [ Query::jsonbDocParam($criteria) ], $className);
-    }
-
-    /**
-     * Retrieve the first matching document via JSON containment `@>`
-     * 
-     * @param string $tableName The table from which documents should be retrieved
-     * @param array|object $criteria The criteria for the JSON containment query
-     * @param class-string<Type> $className The type of document to be retrieved
-     * @return Type|null The document, or null if none match
-     */
-    public static function findFirstByContains(string $tableName, array|object $criteria, string $className): mixed
-    {
-        $results = self::runListQuery(Query::findByContains($tableName) . ' LIMIT 1',
-            [ Query::jsonbDocParam($criteria) ], $className);
-        return $results ? $results[0] : null;
-    }
-
-    /**
-     * Retrieve documents in a table via JSON Path match `@?`
-     * 
-     * @param string $tableName The table from which documents should be retrieved
-     * @param string $jsonPath The JSON Path to be matched
-     * @param class-string<Type> $className The type of document to be retrieved
-     * @return array<Type> Documents matching the JSON Path
-     */
-    public static function findByJsonPath(string $tableName, string $jsonPath, string $className): array
-    {
-        return self::runListQuery(Query::findByJsonPath($tableName), [ $jsonPath ], $className);
-    }
-
-    /**
-     * Retrieve the first matching document via JSON Path match `@?`
-     * 
-     * @param string $tableName The table from which documents should be retrieved
-     * @param string $jsonPath The JSON Path to be matched
-     * @param class-string<Type> $className The type of document to be retrieved
-     * @return Type|null The document, or null if none match
-     */
-    public static function findFirstByJsonPath(string $tableName, string $jsonPath, string $className): mixed
-    {
-        $results = self::runListQuery(Query::findByJsonPath($tableName) . ' LIMIT 1', [ $jsonPath ], $className);
-        return $results ? $results[0] : null;
-    }
-
-    /**
-     * Update a full document
-     * 
-     * @param string $tableName The table in which the document should be updated
-     * @param array|object $document The document to be updated
-     */
-    public static function updateFull(string $tableName, array|object $document): void
-    {
-        self::executeNonQuery(Query::updateFull($tableName), $document);
-    }
-
-    /**
-     * Update a partial document by its ID
-     * 
-     * @param string $tableName The table in which the document should be updated
-     * @param array|object $document The partial document to be updated
-     */
-    public static function updatePartialById(string $tableName, array|object $document): void
-    {
-        self::executeNonQuery(Query::updatePartialById($tableName), $document);
-    }
-
-    /**
-     * Update partial documents by JSON containment `@>`
-     * 
-     * @param string $tableName The table in which documents should be updated
-     * @param array|object $criteria The JSON containment criteria
-     * @param array|object $document The document to be updated
-     */
-    public static function updatePartialByContains(string $tableName, array|object $criteria,
-                                                   array|object $document): void
-    {
-        /** @var Result|bool $result */
-        $result = pg_query_params(pg_conn(), Query::updatePartialByContains($tableName),
-            [ Query::jsonbDocParam($criteria), Query::jsonbDocParam($document) ]);
-        if ($result) pg_free_result($result);
-    }
-
-    /**
-     * Update partial documents by JSON Path match `@?`
-     * 
-     * @param string $tableName The table in which documents should be updated
-     * @param string $jsonPath The JSON Path to be matched
-     * @param array|object $document The document to be updated
-     */
-    public static function updatePartialByJsonPath(string $tableName, string $jsonPath, array|object $document): void
-    {
-        /** @var Result|bool $result */
-        $result = pg_query_params(pg_conn(), Query::updatePartialByJsonPath($tableName),
-            [ $jsonPath, Query::jsonbDocParam($document) ]);
-        if ($result) pg_free_result($result);
-    }
-
-    /**
-     * Delete a document by its ID
-     * 
-     * @param string $tableName The table from which a document should be deleted
-     * @param string $docId The ID of the document to be deleted
-     */
-    public static function deleteById(string $tableName, string $docId): void
-    {
-        self::executeNonQuery(Query::deleteById($tableName), [ Configuration::$keyName => $docId ]);
-    }
-
-    /**
-     * Delete documents by JSON containment `@>`
-     * 
-     * @param string $tableName The table from which documents should be deleted
-     * @param array|object $criteria The criteria for the JSON containment query
-     */
-    public static function deleteByContains(string $tableName, array|object $criteria): void
-    {
-        /** @var Result|bool $result */
-        $result = pg_query_params(pg_conn(), Query::deleteByContains($tableName), [ Query::jsonbDocParam($criteria) ]);
-        if ($result) pg_free_result($result);
-    }
-
-    /**
-     * Delete documents by JSON Path match `@?`
-     * 
-     * @param string $tableName The table from which documents should be deleted
-     * @param string $jsonPath The JSON Path expression to be matched
-     */
-    public static function deleteByJsonPath(string $tableName, string $jsonPath): void
-    {
-        /** @var Result|bool $result */
-        $result = pg_query_params(pg_conn(), Query::deleteByJsonPath($tableName), [ $jsonPath ]);
-        if ($result) pg_free_result($result);
-    }
-
-    /**
-     * Retrieve documents via a custom query and mapping
-     * 
-     * @param string $sql The SQL query to execute
-     * @param array $params A positional array of parameters for the SQL query
-     * @param callable $mapFunc A function that expects an associative array and returns a value of the desired type
-     * @param class-string<Type> $className The type of document to be mapped
-     * @return array<Type> The documents matching the query
-     */
-    public static function customList(string $sql, array $params, string $className, callable $mapFunc): array
-    {
-        /** @var Result|bool $result */
-        $result = pg_query_params(pg_conn(), $sql, $params);
-        try {
-            if (!$result || pg_result_status($result) == PGSQL_EMPTY_QUERY) return [];
-            return array_map(fn ($it) => $mapFunc($it, $className), pg_fetch_all($result));
-        } finally {
-            if ($result) pg_free_result($result);
-        }
-    }
-
-    /**
-     * Retrieve a document via a custom query and mapping
-     * 
-     * @param string $sql The SQL query to execute ("LIMIT 1" will be appended)
-     * @param array $params A positional array of parameters for the SQL query
-     * @param callable $mapFunc A function that expects an associative array and returns a value of the desired type
-     * @param class-string<Type> $className The type of document to be mapped
-     * @return ?Type The document matching the query, or null if none is found
-     */
-    public static function customSingle(string $sql, array $params, string $className, callable $mapFunc): mixed
-    {
-        $results = self::customList("$sql LIMIT 1", $params, $className, $mapFunc);
-        return $results ? $results[0] : null;
-    }
-
-    /**
-     * Execute a custom query that does not return a result
-     * 
-     * @param string $sql The SQL query to execute
-     * @param array $params A positional array of parameters for the SQL query
-     */
-    public static function customNonQuery(string $sql, array $params): void
-    {
-        /** @var Result|bool $result */
-        $result = pg_query_params(pg_conn(), $sql, $params);
-        if ($result) pg_free_result($result);
-    }
-}

src/app/lib/documents/DocumentIndex.php

@@ -1,14 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace BitBadger\PgDocuments;
-
-/** The type of index to generate for the document */
-enum DocumentIndex
-{
-    /** A GIN index with standard operations (all operators supported) */
-    case Full;
-
-    /** A GIN index with JSONPath operations (optimized for `@>`, `@?`, `@@` operators) */
-    case Optimized;
-}

src/app/lib/documents/Query.php

@@ -1,309 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace BitBadger\PgDocuments;
-
-/** Query construction functions */
-class Query
-{
-    /**
-     * Create a `SELECT` clause to retrieve the document data from the given table
-     * 
-     * @param string $tableName The name of the table from which documents should be selected
-     * @return string A `SELECT` clause for the given table
-     */
-    public static function selectFromTable(string $tableName): string
-    {
-        return "SELECT data FROM $tableName";
-    }
-
-    /**
-     * Create a `WHERE` clause fragment to implement a key check condition
-     *
-     * @param string $paramName The name of the parameter to be replaced when the query is executed
-     * @return string A `WHERE` clause fragment with the named key and parameter
-     */
-    public static function whereById(string $paramName): string
-    {
-        return sprintf("data -> '%s' = %s", Configuration::$keyName, $paramName);
-    }
-
-    /**
-     * Create a `WHERE` clause fragment to implement a @> (JSON contains) condition
-     * 
-     * @param string $paramName The name of the parameter for the contains clause
-     * @return string A `WHERE` clause fragment with the named parameter
-     */
-    public static function whereDataContains(string $paramName): string
-    {
-        return "data @> $paramName";
-    }
-    
-    /**
-     * Create a `WHERE` clause fragment to implement a @? (JSON Path match) condition
-     * 
-     * @param string $paramName THe name of the parameter for the JSON Path match
-     * @return string A `WHERE` clause fragment with the named parameter
-     */
-    public static function whereJsonPathMatches(string $paramName): string
-    {
-        return "data @? $paramName::jsonpath";
-    }
-    
-    /**
-     * Create a JSONB document parameter
-     * 
-     * @param array|object $it The array or object to become a JSONB parameter
-     * @return string The encoded JSON
-     */
-    public static function jsonbDocParam(array|object $it): string
-    {
-        return json_encode($it);
-    }
-
-    /**
-     * Query to insert a document
-     * 
-     * @param string $tableName The name of the table into which the document will be inserted
-     * @return string The `INSERT` statement (with `$1` parameter defined for the document)
-     */
-    public static function insert(string $tableName): string
-    {
-        return sprintf('INSERT INTO %s (data) VALUES ($1)', $tableName);
-    }
-
-    /**
-     * Query to save a document, inserting it if it does not exist and updating it if it does (AKA "upsert")
-     * 
-     * @param string $tableName The name of the table into which the document will be saved
-     * @return string The `INSERT`/`ON CONFLICT DO UPDATE` statement (with `$1` parameter defined for the document)
-     */
-    public static function save(string $tableName): string
-    {
-        return sprintf('INSERT INTO %s (data) VALUES ($1) ON CONFLICT (data) DO UPDATE SET data = EXCLUDED.data',
-            $tableName);
-    }
-
-    /**
-     * Query to count documents in a table
-     *
-     * @param string $tableName The name of the table for which documents should be counted
-     * @param string $where The condition for which documents should be counted
-     * @return string A `SELECT` statement to obtain the count of documents for the given table
-     */
-    private static function countQuery(string $tableName, string $where): string
-    {
-        return "SELECT COUNT(*) AS it FROM $tableName WHERE $where";
-    }
-
-    /**
-     * Query to count all documents in a table
-     * 
-     * @param string $tableName The name of the table whose rows will be counted
-     * @return string A `SELECT` statement to obtain the count of all documents in the given table
-     */
-    public static function countAll(string $tableName): string
-    {
-        return self::countQuery($tableName, '1 = 1');
-    }
-    
-    /**
-     * Query to count matching documents using a JSON containment query `@>`
-     * 
-     * @param string $tableName The name of the table from which the count should be obtained
-     * @return string A `SELECT` statement to obtain the count of documents via JSON containment
-     */
-    public static function countByContains(string $tableName): string
-    {
-        return self::countQuery($tableName, self::whereDataContains('$1'));
-    }
-    
-    /**
-     * Query to count matching documents using a JSON Path match `@?`
-     * 
-     * @param string $tableName The name of the table from which the count should be obtained
-     * @return string A `SELECT` statement to obtain the count of documents via JSON Path match
-     */
-    public static function countByJsonPath(string $tableName): string
-    {
-        return self::countQuery($tableName, self::whereJsonPathMatches('$1'));
-    }
-
-    /**
-     * Query to check document existence
-     *
-     * @param string $tableName The name of the table in which document existence should be checked
-     * @param string $where The criteria for which document existence should be checked
-     * @return string A `SELECT` statement to check document existence for the given criteria
-     */
-    private static function existsQuery(string $tableName, string $where): string
-    {
-        return "SELECT EXISTS (SELECT 1 FROM $tableName WHERE $where) AS it";
-    }
-    /**
-     * Query to determine if a document exists for the given ID
-     * 
-     * @param string $tableName The name of the table in which existence should be checked
-     * @return string A `SELECT` statement to check existence of a document by its ID
-     */
-    public static function existsById(string $tableName): string
-    {
-        return self::existsQuery($tableName, self::whereById('$1'));
-    }
-
-    /**
-     * Query to determine if documents exist using a JSON containment query `@>`
-     * 
-     * @param string $tableName The name of the table in which existence should be checked
-     * @return string A `SELECT` statement to check existence of a document by JSON containment
-     */
-    public static function existsByContains(string $tableName): string
-    {
-        return self::existsQuery($tableName, self::whereDataContains('$1'));
-    }
-    
-    /**
-     * Query to determine if documents exist using a JSON Path match `@?`
-     * 
-     * @param string $tableName The name of the table in which existence should be checked
-     * @return string A `SELECT` statement to check existence of a document by JSON Path match
-     */
-    public static function existsByJsonPath(string $tableName): string
-    {
-        return self::existsQuery($tableName, self::whereJsonPathMatches('$1'));
-    }
-    
-    /**
-     * Query to retrieve a document by its ID
-     * 
-     * @param string $tableName The name of the table from which a document should be retrieved
-     * @return string A `SELECT` statement to retrieve a document by its ID
-     */
-    public static function findById(string $tableName): string
-    {
-        return sprintf('%s WHERE %s', self::selectFromTable($tableName), self::whereById('$1'));
-    }
-    
-    /**
-     * Query to retrieve documents using a JSON containment query `@>`
-     * 
-     * @param string $tableName The name of the table from which a document should be retrieved
-     * @return string A `SELECT` statement to retrieve documents by JSON containment
-     */
-    public static function findByContains(string $tableName): string
-    {
-        return sprintf('%s WHERE %s', self::selectFromTable($tableName), self::whereDataContains('$1'));
-    }
-    
-    /**
-     * Query to retrieve documents using a JSON Path match `@?`
-     * 
-     * @param string $tableName The name of the table from which a document should be retrieved
-     * @return string A `SELECT` statement to retrieve a documents by JSON Path match
-     */
-    public static function findByJsonPath(string $tableName): string
-    {
-        return sprintf('%s WHERE %s', self::selectFromTable($tableName), self::whereJsonPathMatches('$1'));
-    }
-    
-    /**
-     * Query to update a document, replacing the existing document
-     * 
-     * @param string $tableName The name of the table in which a document should be updated
-     * @return string An `UPDATE` statement to update a document by its ID
-     */
-    public static function updateFull(string $tableName): string
-    {
-        return sprintf('UPDATE %s SET data = $2 WHERE %s', $tableName, self::whereById('$1'));
-    }
-
-    /**
-     * Query to apply a partial update to a document
-     *
-     * @param string $tableName The name of the table in which documents should be updated
-     * @param string $where The `WHERE` clause specifying which documents should be updated
-     * @return string An `UPDATE` statement to update a partial document ($1 is ID, $2 is document)
-     */
-    private static function updatePartial(string $tableName, string $where): string
-    {
-        return sprintf('UPDATE %s SET data = data || $2 WHERE %s', $tableName, $where);
-    }
-
-    /**
-     * Query to update a document, merging the existing document with the one provided
-     * 
-     * @param string $tableName The name of the table in which a document should be updated
-     * @return string An `UPDATE` statement to update a document by its ID
-     */
-    public static function updatePartialById(string $tableName): string
-    {
-        return self::updatePartial($tableName, self::whereById('$1'));
-    }
-    
-    /**
-     * Query to update partial documents matching a JSON containment query `@>`
-     * 
-     * @param string $tableName The name of the table in which documents should be updated
-     * @return string An `UPDATE` statement to update documents by JSON containment
-     */
-    public static function updatePartialByContains(string $tableName): string
-    {
-        return self::updatePartial($tableName, self::whereDataContains('$1'));
-    }
-
-    /**
-     * Query to update partial documents matching a JSON containment query `@>`
-     * 
-     * @param string $tableName The name of the table in which documents should be updated
-     * @return string An `UPDATE` statement to update  documents by JSON Path match
-     */
-    public static function updatePartialByJsonPath(string $tableName): string
-    {
-        return self::updatePartial($tableName, self::whereJsonPathMatches('$1'));
-    }
-
-    /**
-     * Query to delete documents
-     *
-     * @param string $tableName The name of the table from which documents should be deleted
-     * @param string $where The criteria by which documents should be deleted
-     * @return string A `DELETE` statement to delete documents in the specified table
-     */
-    private static function deleteQuery(string $tableName, string $where): string
-    {
-        return "DELETE FROM $tableName WHERE $where";
-    }
-
-    /**
-     * Query to delete a document by its ID
-     * 
-     * @param string $tableName The name of the table from which a document should be deleted
-     * @return string A `DELETE` statement to delete a document by its ID
-     */
-    public static function deleteById(string $tableName): string
-    {
-        return self::deleteQuery($tableName, self::whereById('$1'));
-    }
-
-    /**
-     * Query to delete documents using a JSON containment query `@>`
-     * 
-     * @param string $tableName The name of the table from which documents should be deleted
-     * @return string A `DELETE` statement to delete documents by JSON containment
-     */
-    public static function deleteByContains(string $tableName): string
-    {
-        return self::deleteQuery($tableName, self::whereDataContains('$1'));
-    }
-
-    /**
-     * Query to delete documents using a JSON Path match `@?`
-     * 
-     * @param string $tableName The name of the table from which documents should be deleted
-     * @return string A `DELETE` statement to delete documents by JSON Path match
-     */
-    public static function deleteByJsonPath(string $tableName): string
-    {
-        return self::deleteQuery($tableName, self::whereJsonPathMatches('$1'));
-    }
-}

src/app/lib/documents/functions.php

@@ -1,16 +0,0 @@
-<?php
-
-use BitBadger\PgDocuments\Configuration;
-use PgSql\Connection;
-
-if (!function_exists('pg_conn')) {
-    /**
-     * Return the active PostgreSQL connection
-     * 
-     * @return Connection The data connection from the configuration
-     */
-    function pg_conn(): Connection
-    {
-        return Configuration::getPgConn();
-    }
-}

src/app/lib/domain/AsOf.php

@@ -1,36 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal\Domain;
-
-use DateTimeImmutable;
-
-class AsOf
-{
-    /** The "as of" date/time */
-    public DateTimeImmutable $asOf;
-
-    /**
-     * Sort an as-of item from oldest to newest
-     * 
-     * @param AsOf $a The first item to compare
-     * @param AsOf $b The second item to compare
-     * @return int 0 if they are equal, -1 if A is earlier than B, or 1 if B is earlier than A
-     */
-    public static function oldestToNewest(AsOf $a, AsOf $b): int
-    {
-        return $a->asOf == $b->asOf ? 0 : ($a->asOf < $b->asOf ? -1 : 1);
-    }
-    
-    /**
-     * Sort an as-of item from newest to oldest
-     * 
-     * @param AsOf $a The first item to compare
-     * @param AsOf $b The second item to compare
-     * @return int 0 if they are equal, -1 if B is earlier than A, or 1 if A is earlier than B
-     */
-    public static function newestToOldest(AsOf $a, AsOf $b): int
-    {
-        return $a->asOf == $b->asOf ? 0 : ($a->asOf > $b->asOf ? -1 : 1);
-    }
-}

src/app/lib/domain/History.php

@@ -1,36 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal\Domain;
-
-/**
- * A record of action taken on a prayer request, including updates to its text
- */
-class History extends AsOf
-{
-    /** The action taken that generated this history entry */
-    public RequestAction $status = RequestAction::Created;
-
-    /** The text of the update, if applicable */
-    public ?string $text = null;
-
-    public function __construct()
-    {
-        $this->asOf = unix_epoch();
-    }
-
-    public function isCreated(): bool
-    {
-        return $this->status == RequestAction::Created;
-    }
-
-    public function isPrayed(): bool
-    {
-        return $this->status == RequestAction::Prayed;
-    }
-
-    public function isAnswered(): bool
-    {
-        return $this->status == RequestAction::Answered;
-    }
-}

src/app/lib/domain/JournalRequest.php

@@ -1,85 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal\Domain;
-
-use DateTimeImmutable, DateTimeZone;
-
-/**
- * A prayer request, along with calculated fields, for use in displaying journal lists
- */
-class JournalRequest extends AsOf
-{
-    /** The ID of the prayer request */
-    public string $id = '';
-
-    /** The ID of the user to whom the prayer request belongs */
-    public string $userId = '';
-
-    /** The current text of the request */
-    public string $text = '';
-
-    /** The date/time this request was last marked as prayed */
-    public ?DateTimeImmutable $lastPrayed = null;
-
-    /** The last action taken on this request */
-    public RequestAction $lastAction = RequestAction::Created;
-
-    /** When this request will be shown again after having been snoozed */
-    public ?DateTimeImmutable $snoozedUntil = null;
-
-    /** When this request will be show again after a non-immediate recurrence */
-    public ?DateTimeImmutable $showAfter = null;
-
-    /** The type of recurrence for this request */
-    public RecurrenceType $recurrenceType = RecurrenceType::Immediate;
-
-    /** The units for non-immediate recurrence */
-    public ?int $recurrence = null;
-
-    /**
-     * The history for this request
-     * @var History[] $history
-     */
-    public array $history = [];
-    
-    /**
-     * The notes for this request
-     * @var Note[] $notes
-     */
-    public array $notes = [];
-
-    /**
-     * Constructor
-     * 
-     * @param ?Request $req The request off which this journal request should be populated
-     * @param bool $full Whether to include history and notes (true) or exclude them (false)
-     */
-    public function __construct(?Request $req = null, bool $full = false)
-    {
-        if (is_null($req)) {
-            $this->asOf       = unix_epoch();
-            $this->lastPrayed = null;
-        } else {
-            $this->id             = $req->id;
-            $this->userId         = $req->userId;
-            $this->snoozedUntil   = $req->snoozedUntil;
-            $this->showAfter      = $req->showAfter;
-            $this->recurrenceType = $req->recurrenceType;
-            $this->recurrence     = $req->recurrence;
-
-            usort($req->history, AsOf::newestToOldest(...));
-            $this->asOf = $req->history[array_key_first($req->history)]->asOf;
-            $lastText = array_filter($req->history, fn (History $it) => !is_null($it->text));
-            $this->text = $lastText[array_key_first($lastText)]->text;
-            $lastPrayed = array_filter($req->history, fn (History $it) => $it->isPrayed());
-            if ($lastPrayed) $this->lastPrayed = $lastPrayed[array_key_first($lastPrayed)]->asOf;
-            
-            if ($full) {
-                usort($req->notes, AsOf::newestToOldest(...));
-                $this->history = $req->history;
-                $this->notes   = $req->notes;
-            }
-        }
-    }
-}

src/app/lib/domain/Note.php

@@ -1,20 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal\Domain;
-
-use DateTimeImmutable, DateTimeZone;
-
-/**
- * A note entered on a prayer request
- */
-class Note extends AsOf
-{
-    /** The note */
-    public string $notes = '';
-
-    public function __construct()
-    {
-        $this->asOf = unix_epoch();
-    }
-}

src/app/lib/domain/RecurrenceType.php

@@ -1,32 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal\Domain;
-
-use JsonSerializable;
-
-/**
- * The unit to use when determining when to show a recurring request
- */
-enum RecurrenceType implements JsonSerializable
-{
-    /** The request should reappear immediately */
-    case Immediate;
-
-    /** The request should reappear after the specified number of hours */
-    case Hours;
-
-    /** The request should reappear after the specified number of days */
-    case Days;
-
-    /** The request should reappear after the specified number of weeks */
-    case Weeks;
-
-    /**
-     * Serialize this enum using its name
-     */
-    public function jsonSerialize(): mixed
-    {
-        return $this->name;
-    }
-}

src/app/lib/domain/Request.php

@@ -1,52 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal\Domain;
-
-use DateTimeImmutable;
-use Visus\Cuid2\Cuid2;
-
-/**
- * A prayer request
- */
-class Request
-{
-    /** The ID for the request */
-    public string $id;
-
-    /** The date/time the request was originally entered */
-    public DateTimeImmutable $enteredOn;
-
-    /** The ID of the user to whom this request belongs */
-    public string $userId = '';
-
-    /** The date/time the snooze expires for this request */
-    public ?DateTimeImmutable $snoozedUntil = null;
-
-    /** The date/time this request should once again show as defined by recurrence */
-    public ?DateTimeImmutable $showAfter = null;
-
-    /** The type of recurrence for this request */
-    public RecurrenceType $recurrenceType = RecurrenceType::Immediate;
-
-    /** The units which apply to recurrences other than Immediate */
-    public ?int $recurrence = null;
-
-    /**
-     * The history for this request
-     * @var History[] $history
-     */
-    public array $history = [];
-
-    /**
-     * The notes for this request
-     * @var Note[] $notes
-     */
-    public array $notes = [];
-
-    public function __construct()
-    {
-        $this->id = (new Cuid2())->toString();
-        $this->enteredOn = unix_epoch();
-    }
-}

src/app/lib/domain/RequestAction.php

@@ -1,32 +0,0 @@
-<?php
-declare(strict_types=1);
-
-namespace MyPrayerJournal\Domain;
-
-use JsonSerializable;
-
-/**
- * An action that was taken on a request
- */
-enum RequestAction: string implements JsonSerializable
-{
-    /** The request was entered */
-    case Created = 'Created';
-
-    /** Prayer was recorded for the request */
-    case Prayed = 'Prayed';
-
-    /** The request was updated */
-    case Updated = 'Updated';
-
-    /** The request was marked as answered */
-    case Answered = 'Answered';
-
-    /**
-     * Serialize this enum using its name
-     */
-    public function jsonSerialize(): mixed
-    {
-        return $this->name;
-    }
-}

src/app/lib/start.php

@@ -1,108 +0,0 @@
-<?php
-declare(strict_types=1);
-
-require __DIR__ . '/../vendor/autoload.php';
-
-error_reporting(E_ALL);
-ini_set('display_errors', 'On');
-
-use Auth0\SDK\Auth0;
-use BitBadger\PgDocuments\Configuration;
-use DateTimeZone;
-use Dotenv\Dotenv;
-use MyPrayerJournal\Constants;
-
-Dotenv::createImmutable(__DIR__)->load();
-
-/** @var Auth0 The Auth0 instance to use for the request */
-$auth0 = new Auth0([
-    'domain'       => $_ENV[Constants::AUTH0_DOMAIN],
-    'clientId'     => $_ENV[Constants::AUTH0_CLIENT_ID],
-    'clientSecret' => $_ENV[Constants::AUTH0_CLIENT_SECRET],
-    'cookieSecret' => $_ENV[Constants::AUTH0_COOKIE_SECRET]
-]);
-
-/** @var ?object The Auth0 session for the current user */
-$session = $auth0->getCredentials();
-if (!is_null($session)) $_REQUEST[Constants::USER_ID] = $session->user[Constants::CLAIM_SUB];
-
-$_REQUEST[Constants::IS_HTMX] = array_key_exists(Constants::HEADER_HX_REQUEST, $_SERVER)
-    && (!array_key_exists(Constants::HEADER_HX_HIST_REQ, $_SERVER));
-
-$_REQUEST[Constants::TIME_ZONE] = new DateTimeZone(
-    array_key_exists(Constants::HEADER_USER_TZ, $_SERVER) ? $_SERVER[Constants::HEADER_USER_TZ] : 'Etc/UTC');
-
-$_REQUEST[Constants::VERSION] = 4;
-
-Configuration::$startUp = '\MyPrayerJournal\Data::startUp';
-
-/**
- * Bring in a template
- */
-function template(string $name): void
-{
-    require_once __DIR__ . "/../templates/$name.php";
-}
-
-/**
- * If a user is not found, either redirect them or fail the request
- * 
- * @param bool $fail Whether to fail the request (true) or redirect to log on (false - optional, default)
- */
-function require_user(bool $fail = false): void
-{
-    if (!array_key_exists(Constants::USER_ID, $_REQUEST)) {
-        if ($fail) {
-            http_response_code(403);
-        } else {
-            header(sprintf('Location: /user/log-on?%s=%s', Constants::RETURN_URL, $_SERVER[Constants::REQUEST_URI]));
-        }
-        exit;
-    }
-}
-
-/**
- * Write a bare header for a component result
- */
-function bare_header(): void
-{
-    echo '<!DOCTYPE html><html lang="en"><head><meta charset="utf8"><title></title></head><body>';
-}
-
-/**
- * Create a traditional and htmx link, and apply an active class if the link is active
- * 
- * @param string $url The URL of the page to be linked
- * @param array $classNames CSS class names to be applied to the link (optional, default none)
- * @param bool $checkActive Whether to apply an active class if the route matches (optional, default false)
- */
-function page_link(string $url, array $classNames = [], bool $checkActive = false): void
-{
-    echo 'href="'. $url . '" hx-get="' . $url . '"';
-    if ($checkActive && str_starts_with($_SERVER[Constants::REQUEST_URI], $url)) {
-        $classNames[] = 'is-active-route';
-    }
-    if (!empty($classNames)) {
-        echo sprintf(' class="%s"', implode(' ', $classNames));
-    }
-    echo ' hx-target="#top" hx-swap="innerHTML" hx-push-url="true"';
-}
-
-/**
- * Close any open database connection; close the `body` and `html` tags
- */
-function end_request(): void
-{
-    Configuration::closeConn();
-    echo '</body></html>';
-}
-
-/**
- * Create a new instance of the Unix epoch
- *
- * @return DateTimeImmutable An immutable date/time as of the Unix epoch
- */
-function unix_epoch(): DateTimeImmutable
-{
-    return new DateTimeImmutable('1/1/1970', new DateTimeZone('Etc/UTC'));
-}

src/app/public/components/journal-items.php

@@ -1,90 +0,0 @@
-<?php
-declare(strict_types=1);
-
-require_once '../../lib/start.php';
-
-use MyPrayerJournal\{ Constants, Data, Dates };
-use MyPrayerJournal\Domain\JournalRequest;
-
-require_user(true);
-
-$requests = Data::getJournal($_REQUEST[Constants::USER_ID]);
-
-bare_header();
-if ($requests) { ?>
-    <section id="journalItems" class="row row-cols-1 row-cols-md-2 row-cols-lg-3 row-cols-xl-4 g-3" hx-target="this"
-             hx-swap="outerHTML" aria-label="Prayer Requests">
-        <p class="mb-3 has-text-centered">
-            <a <?php page_link('/request/edit?new'); ?> class="button is-light">
-                <span class="material-icons">add_box</span> Add a Prayer Request
-            </a>
-        </p><?php
-        array_walk($requests, journal_card(...)); ?>
-    </section><?php
-} else {
-    $_REQUEST['EMPTY_HEADING'] = 'No Active Requests';
-    $_REQUEST['EMPTY_LINK']    = '/request/edit?new';
-    $_REQUEST['EMPTY_BTN_TXT'] = 'Add a Request';
-    $_REQUEST['EMPTY_TEXT']    = 'You have no requests to be shown; see the &ldquo;Active&rdquo; link above for '
-        . 'snoozed or deferred requests, and the &ldquo;Answered&rdquo; link for answered requests';
-    template('no_content');
-}
-end_request();
-
-/**
- * Format the activity and relative time
- * 
- * @param string $activity The activity performed (activity or prayed)
- * @param DateTimeImmutable $asOf The date/time the activity was performed
- */
-function format_activity(string $activity, DateTimeImmutable $asOf): void
-{
-    echo sprintf('last %s <span title="%s">%s</span>', $activity,
-        $asOf->setTimezone($_REQUEST[Constants::TIME_ZONE])->format('l, F jS, Y/g:ia T'),
-        Dates::formatDistance(Dates::now(), $asOf));
-} 
-
-/**
- * Create a card for a prayer request
- * 
- * @param JournalRequest $req The request for which a card should be generated
- */
-function journal_card(JournalRequest $req): void
-{
-    $spacer = '<span>&nbsp;</span>'; ?>
-    <div class="col">
-        <div class="card h-100">
-            <div class="card-header p-0 d-flex" role="toolbar">
-                <a <?php page_link("/request/edit?{$req->id}"); ?> class="button btn-secondary" title="Edit Request">
-                    <span class="material-icons">edit</span>
-                </a><?php echo $spacer; ?>
-                <button type="button" class="btn btn-secondary" title="Add Notes" data-bs-toggle="modal"
-                        data-bs-target="#notesModal" hx-get="/components/request/<?php echo $req->id; ?>/add-notes"
-                        hx-target="#notesBody" hx-swap="innerHTML">
-                    <span class="material-icons">comment</span>
-                </button><?php echo $spacer; ?>
-                <button type="button" class="btn btn-secondary" title="Snooze Request" data-bs-toggle="modal"
-                        data-bs-target="#snoozeModal" hx-get="/components/request/<?php echo $req->id; ?>/snooze"
-                        hx-target="#snoozeBody" hx-swap="innerHTML">
-                    <span class="material-icons">schedule</span>
-                </button>
-                <div class="flex-grow-1"></div>
-                <a href="/request/prayed?<?php echo $req->id; ?>" class="button btn-success w-25"
-                   hx-patch="/request/prayed?<?php echo $req->id; ?>" title="Mark as Prayed">
-                    <span class="material-icons">done</span>
-                </a>
-            </div>
-            <div class="card-body">
-                <p class="request-text"><?php echo htmlentities($req->text); ?></p>
-            </div>
-            <div class="card-footer text-end text-muted px-1 py-0">
-                <em><?php
-                    [ $activity, $asOf ] = is_null($req->lastPrayed)
-                        ? [ 'activity', $req->asOf ]
-                        : [ 'prayed',   $req->lastPrayed ];
-                    format_activity($activity, $asOf); ?>
-                </em>
-            </div>
-        </div>
-    </div><?php
-}

src/app/public/index.php

@@ -1,25 +0,0 @@
-<?php
-declare(strict_types=1);
-
-require_once '../lib/start.php';
-
-use MyPrayerJournal\Constants;
-
-$_REQUEST[Constants::PAGE_TITLE] = 'Welcome';
-
-template('layout/page_header'); ?>
-<main class="container">
-    <p class="block">&nbsp;</p>
-    <p class="block">
-        myPrayerJournal is a place where individuals can record their prayer requests, record that they prayed for them,
-        update them as God moves in the situation, and record a final answer received on that request. It also allows
-        individuals to review their answered prayers.
-    </p>
-    <p class="block">
-        This site is open and available to the general public. To get started, simply click the &ldquo;Log On&rdquo;
-        link above, and log on with either a Microsoft or Google account. You can also learn more about the site at the
-        &ldquo;Docs&rdquo; link, also above.
-    </p>
-</main><?php
-template('layout/page_footer');
-end_request();

src/app/public/journal.php

@@ -1,20 +0,0 @@
-<?php
-declare(strict_types=1);
-
-require_once '../lib/start.php';
-
-use MyPrayerJournal\Constants;
-
-require_user();
-
-$_REQUEST[Constants::PAGE_TITLE] = "{$session->user[Constants::CLAIM_GIVEN_NAME]}&rsquo;s Prayer Journal";
-
-template('layout/page_header'); ?>
-<main class="container">
-    <h2 class="title"><?php echo $_REQUEST[Constants::PAGE_TITLE]; ?></h2>
-    <p hx-get="/components/journal-items" hx-swap="outerHTML" hx-trigger="load delay:.25s">
-        Loading your prayer journal&hellip;
-    </p>
-</main><?php
-template('layout/page_footer');
-end_request();

src/app/public/legal/privacy-policy.php

@@ -1,98 +0,0 @@
-<?php
-declare(strict_types=1);
-
-require_once '../../lib/start.php';
-
-use MyPrayerJournal\Constants;
-
-$_REQUEST[Constants::PAGE_TITLE] = 'Privacy Policy';
-
-template('layout/page_header'); ?>
-<main class="container">
-    <h2 class="title">Privacy Policy</h2>
-    <h6 class="subtitle">as of May 21<sup>st</sup>, 2018</h6>
-    <p class="mb-3">
-        The nature of the service is one where privacy is a must. The items below will help you understand the data we
-        collect, access, and store on your behalf as you use this service.
-    </p>
-    <div class="card mb-3">
-        <div class="card-header has-background-light">
-            <h3 class="card-header-title">Third Party Services</h3>
-        </div>
-        <p class="card-content">
-            myPrayerJournal utilizes a third-party authentication and identity provider. You should familiarize yourself
-            with the privacy policy for
-            <a href="https://auth0.com/privacy" target="_blank" rel="noopener">Auth0</a>, as well as your chosen
-            provider
-            (<a href="https://privacy.microsoft.com/en-us/privacystatement" target="_blank"
-                rel="noopener">Microsoft</a> or
-            <a href="https://policies.google.com/privacy" target="_blank" rel="noopener">Google</a>).
-        </p>
-    </div>
-    <div class="card mb-3">
-        <div class="card-header has-background-light">
-            <h3 class="card-header-title">What We Collect</h3>
-        </div>
-        <div class="card-content">
-            <h4 class="subtitle mb-3">Identifying Data</h4>
-            <ul class="mb-3 mx-5">
-                <li>
-                    &bull; The only identifying data myPrayerJournal stores is the subscriber (&ldquo;sub&rdquo;) field
-                    from the token we receive from Auth0, once you have signed in through their hosted service. All
-                    information is associated with you via this field.
-                </li>
-                <li>
-                    &bull; While you are signed in, within your browser, the service has access to your first and last
-                    names, along with a URL to the profile picture (provided by your selected identity provider). This
-                    information is not transmitted to the server, and is removed when &ldquo;Log Off&rdquo; is clicked.
-                </li>
-            </ul>
-            <h4 class="subtitle mb-3">User Provided Data</h4>
-            <ul class="mx-5">
-                <li>
-                    &bull; myPrayerJournal stores the information you provide, including the text of prayer requests,
-                    updates, and notes; and the date/time when certain actions are taken.
-                </li>
-            </ul>
-        </div>
-    </div>
-    <div class="card mb-3">
-        <div class="card-header has-background-light">
-            <h3 class="card-header-title">How Your Data Is Accessed / Secured</h3>
-        </div>
-        <ul class="card-content">
-            <li>
-                &bull; Your provided data is returned to you, as required, to display your journal or your answered
-                requests. On the server, it is stored in a controlled-access database.
-            </li>
-            <li>
-                &bull; Your data is backed up, along with other Bit Badger Solutions hosted systems, in a rolling
-                manner; backups are preserved for the prior 7 days, and backups from the 1<sup>st</sup> and
-                15<sup>th</sup> are preserved for 3 months. These backups are stored in a private cloud data repository.
-            </li>
-            <li>
-                &bull; The data collected and stored is the absolute minimum necessary for the functionality of the
-                service. There are no plans to &ldquo;monetize&rdquo; this service, and storing the minimum amount of
-                information means that the data we have is not interesting to purchasers (or those who may have more
-                nefarious purposes).
-            </li>
-            <li>
-                &bull; Access to servers and backups is strictly controlled and monitored for unauthorized access
-                attempts.
-            </li>
-        </ul>
-    </div>
-    <div class="card mb-3">
-        <div class="card-header has-background-light">
-            <h3 class="card-header-title">Removing Your Data</h3>
-        </div>
-        <p class="card-content">
-            At any time, you may choose to discontinue using this service. Both Microsoft and Google provide ways to
-            revoke access from this application. However, if you want your data removed from the database, please
-            contact daniel at bitbadger.solutions (via e-mail, replacing at with @) prior to doing so, to ensure we can
-            determine which subscriber ID belongs to you.
-        </p>
-    </div>
-</main><?php
-template('layout/page_footer');
-end_request();

src/app/public/legal/terms-of-service.php

@@ -1,73 +0,0 @@
-<?php
-declare(strict_types=1);
-
-require_once '../../lib/start.php';
-
-use MyPrayerJournal\Constants;
-
-$_REQUEST[Constants::PAGE_TITLE] = 'Terms of Service';
-
-template('layout/page_header'); ?>
-<main class="container">
-    <h2 class="title">Terms of Service</h2>
-    <h6 class="subtitle">as of May 21<sup>st</sup>, 2018</h6>
-    <div class="card mb-3">
-        <div class="card-header has-background-light">
-            <h3 class="card-header-title">1. Acceptance of Terms</h3>
-        </div>
-        <p class="card-content">
-            By accessing this web site, you are agreeing to be bound by these Terms and Conditions, and that you are
-            responsible to ensure that your use of this site complies with all applicable laws. Your continued use of
-            this site implies your acceptance of these terms.
-        </p>
-    </div>
-    <div class="card mb-3">
-        <div class="card-header has-background-light">
-            <h3 class="card-header-title">2. Description of Service and Registration</h3>
-        </div>
-        <p class="card-content">
-            myPrayerJournal is a service that allows individuals to enter and amend their prayer requests. It requires
-            no registration by itself, but access is granted based on a successful login with an external identity
-            provider. See <a <?php page_link('/legal/privacy-policy'); ?>>our privacy policy</a> for details on how that
-            information is accessed and stored.
-        </p>
-    </div>
-    <div class="card mb-3">
-        <div class="card-header has-background-light">
-            <h3 class="card-header-title">3. Third Party Services</h3>
-        </div>
-        <p class="card-content">
-            This service utilizes a third-party service provider for identity management. Review the terms of service
-            for <a href="https://auth0.com/terms" target="_blank" rel="noopener">Auth0</a>, as well as those for the
-            selected authorization provider
-            (<a href="https://www.microsoft.com/en-us/servicesagreement" target="_blank"
-                rel="noopener">Microsoft</a> or
-            <a href="https://policies.google.com/terms" target="_blank" rel="noopener">Google</a>).
-        </p>
-    </div>
-    <div class="card mb-3">
-        <div class="card-header has-background-light">
-            <h3 class="card-header-title">4. Liability</h3>
-        </div>
-        <p class="card-content">
-            This service is provided &ldquo;as is&rdquo;, and no warranty (express or implied) exists. The service and
-            its developers may not be held liable for any damages that may arise through the use of this service.
-        </p>
-    </div>
-    <div class="card mb-3">
-        <div class="card-header has-background-light">
-            <h3 class="card-header-title">5. Updates to Terms</h3>
-        </div>
-        <p class="card-content">
-            These terms and conditions may be updated at any time, and this service does not have the capability to
-            notify users when these change. The date at the top of the page will be updated when any of the text of
-            these terms is updated.
-        </p>
-    </div>
-    <p>
-        You may also wish to review our <a <?php page_link('/legal/privacy-policy'); ?>>privacy policy</a> to learn how
-        we handle your data.
-    </p>
-</main><?php
-template('layout/page_footer');
-end_request();

src/app/public/style/style.css

@@ -1,60 +0,0 @@
-
-nav.navbar.is-dark {
-  background-color: green;
-  
-  & .m {
-    font-weight: 100;
-  }
-  & .p {
-    font-weight: 400;
-  }
-  & .j {
-    font-weight: 700;
-  }
-}
-.nav-item {
-  & a:link,
-  & a:visited {
-    padding: .5rem 1rem;
-    margin: 0 .5rem;
-    border-radius: .5rem;
-    color: white;
-    text-decoration: none;
-  }
-  & a:hover {
-    cursor: pointer;
-    background-color: rgba(255, 255, 255, .2);
-  }
-  & a.is-active-route {
-    border-top-left-radius: 0;
-    border-top-right-radius: 0;
-    border-top: solid 4px rgba(255, 255, 255, .3);
-  }
-}
-form {
-  max-width: 60rem;
-  margin: auto;
-}
-.action-cell .material-icons {
-  font-size: 1.1rem ;
-}
-.material-icons {
-  vertical-align: bottom;
-}
-#toastHost {
-  position: sticky;
-  bottom: 0;
-}
-.request-text {
-  white-space: pre-line
-}
-  
-footer {
-  border-top: solid 1px lightgray;
-  margin: 1rem -1rem 0;
-  padding: 0 1rem;
-  
-  & p {
-    margin: 0;
-  }
-}

src/app/public/user/log-off.php

@@ -1,9 +0,0 @@
-<?php
-declare(strict_types=1);
-
-require_once '../../lib/start.php';
-
-use MyPrayerJournal\Constants;
-
-header("Location: {$auth0->logout($_ENV[Constants::BASE_URL])}");
-exit;

src/app/public/user/log-on.php

@@ -1,24 +0,0 @@
-<?php
-declare(strict_types=1);
-
-require_once '../../lib/start.php';
-
-use MyPrayerJournal\Constants;
-
-$auth0->clear();
-
-// Check for return URL; if present, store it in a cookie we'll retrieve when we're logged in
-$nonce = '';
-if (array_key_exists(Constants::RETURN_URL, $_GET)) {
-    $nonce = urlencode(base64_encode(openssl_random_pseudo_bytes(8)));
-    setcookie(Constants::COOKIE_REDIRECT, "$nonce|{$_GET[Constants::RETURN_URL]}", [
-        'expires'  => -1,
-        'secure'   => true,
-        'httponly' => true,
-        'samesite' => 'Strict'
-    ]);
-}
-$params = $nonce ? [ Constants::LOG_ON_STATE => $nonce ] : [];
-
-header('Location: ' . $auth0->login("{$_ENV[Constants::BASE_URL]}/user/logged-on", $params));
-exit;

src/app/public/user/logged-on.php

@@ -1,26 +0,0 @@
-<?php
-declare(strict_types=1);
-
-require_once '../../lib/start.php';
-
-use MyPrayerJournal\Constants;
-
-$auth0->exchange("{$_ENV[Constants::BASE_URL]}/user/logged-on");
-
-$nextUrl = '/journal';
-if (array_key_exists(Constants::LOG_ON_STATE, $_GET)) {
-    $nonce = base64_decode(urldecode($_GET[Constants::LOG_ON_STATE]));
-    [$verify, $newNext] = explode('|', $_COOKIE[Constants::COOKIE_REDIRECT]);
-    if ($verify == $nonce && $newNext && str_starts_with($newNext, '/') && !str_starts_with($newNext, '//')) {
-        $nextUrl = $newNext;
-    }
-}
-
-setcookie(Constants::COOKIE_REDIRECT, '', [
-    'expires'  => -1,
-    'secure'   => true,
-    'httponly' => true,
-    'samesite' => 'Strict'
-]);
-header("Location: $nextUrl");
-exit;

src/app/templates/layout/page_footer.php

@@ -1,21 +0,0 @@
-<?php
-use MyPrayerJournal\Constants; ?>
-    </section><?php
-if (!$_REQUEST[Constants::IS_HTMX]) { ?>
-    <footer class="container-fluid mx-1">
-        <p class="text-muted has-text-right">
-            myPrayerJournal <?php echo $_REQUEST[Constants::VERSION]; ?><br>
-            <em><small>
-                <a <?php page_link('/legal/privacy-policy'); ?>>Privacy Policy</a> &bull;
-                <a <?php page_link('/legal/terms-of-service'); ?>>Terms of Service</a> &bull;
-                <a href="https://github.com/bit-badger/myprayerjournal" target="_blank" rel="noopener">Developed</a>
-                and hosted by
-                <a href="https://bitbadger.solutions" target="_blank" rel="noopener">Bit Badger Solutions</a>
-            </small></em>
-        </p>
-    </footer>
-    <script src="https://unpkg.com/htmx.org@1.9.4"
-            integrity="sha384-zUfuhFKKZCbHTY6aRR46gxiqszMk5tcHjsVFxnUo8VMus4kHGVdIYVbOYYNlKmHV"
-            crossorigin="anonymous"></script>
-    <script src="/script/mpj.js"></script><?php
-}

src/app/templates/layout/page_header.php

@@ -1,50 +0,0 @@
-<?php
-use BitBadger\PgDocuments\Document;
-use MyPrayerJournal\{ Constants, Data };
-
-$isLoggedOn = array_key_exists('MPJ_USER_ID', $_REQUEST);
-$hasSnoozed = false;
-if ($isLoggedOn) {
-    $hasSnoozed = Document::countByJsonPath(Data::REQ_TABLE, '$.snoozedUntil ? (@ == "0")') > 0;
-}
-
-$theTitle = array_key_exists(Constants::PAGE_TITLE, $_REQUEST) ? "{$_REQUEST[Constants::PAGE_TITLE]} &#xab; " : ''; ?>
-<!DOCTYPE html>
-<html lang="en">
-<head>
-    <meta charset="utf8">
-    <title><?php echo $theTitle; ?>myPrayerJournal</title><?php
-    if (!$_REQUEST[Constants::IS_HTMX]) { ?>
-        <meta name="viewport" content="width=device-width, initial-scale=1">
-        <link rel="stylesheet" href="https://cdnjs.cloudflare.com/ajax/libs/bulma/0.9.4/css/bulma.min.css"
-              integrity="sha512-HqxHUkJM0SYcbvxUw5P60SzdOTy/QVwA1JJrvaXJv4q7lmbDZCmZaqz01UPOaQveoxfYRv1tHozWGPMcuTBuvQ=="
-              crossorigin="anonymous" referrerpolicy="no-referrer">
-        <link href="https://fonts.googleapis.com/icon?family=Material+Icons" rel="stylesheet">
-        <link href="/style/style.css" rel="stylesheet"><?php
-    } ?>
-</head>
-<body>
-    <section id="top" aria-label="top navigation">
-    <nav class="navbar is-dark has-shadow" role="navigation" aria-label="main navigation">
-        <div class="navbar-brand">
-            <a <?php page_link('/'); ?> class="navbar-item">
-                <span class="m">my</span><span class="p">Prayer</span><span class="j">Journal</span>
-            </a>
-        </div>
-        <div class="navbar-menu">
-            <div class="navbar-start"><?php
-                if ($isLoggedOn) { ?>
-                    <a <?php page_link('/journal', ['navbar-item'], true); ?>>Journal</a>
-                    <a <?php page_link('/requests/active', ['navbar-item'], true); ?>>Active</a><?php
-                    if ($hasSnoozed) { ?>
-                        <a <?php page_link('/requests/snoozed', ['navbar-item'], true); ?>>Snoozed</a><?php
-                    } ?>
-                    <a <?php page_link('/requests/answered', ['navbar-item'], true); ?>>Answered</a>
-                    <a href="/user/log-off" class="navbar-item">Log Off</a><?php
-                } else { ?>
-                    <a href="/user/log-on" class="navbar-item">Log On</a><?php
-                } ?>
-                <a href="https://docs.prayerjournal.me" class="navbar-item" target="_blank" rel="noopener">Docs</a>
-            </div>
-        </div>
-    </nav>

src/app/templates/no_content.php

@@ -1,10 +0,0 @@
-<div class="card mb-3">
-    <div class="card-header has-background-light">
-        <h5 class="card-header-title"><?php echo $_REQUEST['EMPTY_HEADING']; ?></h5>
-    </div>
-    <div class="card-content has-text-centered">
-        <p class="mb-5"><?php echo $_REQUEST['EMPTY_TEXT']; ?></p>
-        <a <?php page_link($_REQUEST['EMPTY_LINK']); ?>
-           class="button is-link"><?php echo $_REQUEST['EMPTY_BTN_TXT']; ?></a>
-    </div>
-</div>

src/composer.json

@@ -0,0 +1,26 @@
+{
+  "name": "bit-badger/my-prayer-journal",
+  "minimum-stability": "beta",
+  "require": {
+    "php": ">=8.2",
+    "ext-pdo": "*",
+    "ext-sqlite3": "*",
+    "bit-badger/pdo-document": "^1",
+    "visus/cuid2": "^4",
+    "guzzlehttp/guzzle": "^7.8",
+    "guzzlehttp/psr7": "^2.6",
+    "http-interop/http-factory-guzzle": "^1.2",
+    "auth0/auth0-php": "^8.11",
+    "vlucas/phpdotenv": "^5.6"
+  },
+  "autoload": {
+    "psr-4": {
+      "MyPrayerJournal\\": "lib/"
+    }
+  },
+  "config": {
+    "allow-plugins": {
+      "php-http/discovery": true
+    }
+  }
+}

src/convert-from-v3.php

@@ -0,0 +1,56 @@
+<?php declare(strict_types=1);
+
+use BitBadger\PDODocument\{Configuration, Custom, Definition, Document, Mode};
+use BitBadger\PDODocument\Mapper\ArrayMapper;
+use MyPrayerJournal\{History, Note, Recurrence, RecurrencePeriod, Request, RequestAction, Table};
+
+require 'start.php';
+
+echo 'Retrieving v3 requests...' . PHP_EOL;
+
+Configuration::resetPDO();
+Configuration::$pdoDSN = 'pgsql:host=localhost;user=mpj;password=devpassword;dbname=mpj';
+$reqs = Custom::array('SELECT data FROM mpj.request', [], new ArrayMapper());
+
+echo 'Found ' . sizeof($reqs) . ' requests; migrating to v4...' . PHP_EOL;
+
+Configuration::resetPDO();
+Configuration::$mode   = Mode::SQLite;
+Configuration::$pdoDSN = 'sqlite:./data/mpj.db';
+
+Definition::ensureTable(Table::REQUEST);
+
+/** Convert dates to the same format */
+function convertDate(string $date): string
+{
+    return (new DateTimeImmutable($date))->format('c');
+}
+
+foreach ($reqs as $reqJson) {
+    $req     = json_decode($reqJson['data']);
+    $notes   = array_map(fn(stdClass $note) => new Note(convertDate($note->asOf), $note->notes), $req->notes ?? []);
+    $history = array_map(fn(stdClass $hist) =>
+        new History(
+            asOf:   convertDate($hist->asOf),
+            action: RequestAction::from($hist->status),
+            text:   property_exists($hist, 'text') ? $hist->text : null),
+        $req->history);
+    $recurParts  = explode(' ', $req->recurrence);
+    $recurPeriod = RecurrencePeriod::from(end($recurParts));
+    $recur       = match ($recurPeriod) {
+        RecurrencePeriod::Immediate => new Recurrence(RecurrencePeriod::Immediate),
+        default                     => new Recurrence($recurPeriod, (int)$recurParts[0])
+    };
+    $v4Req = new Request(
+        id:           $req->id,
+        enteredOn:    convertDate($req->enteredOn),
+        userId:       $req->userId,
+        snoozedUntil: property_exists($req, 'snoozedUntil') ? convertDate($req->snoozedUntil) : null,
+        showAfter:    property_exists($req, 'showAfter')    ? convertDate($req->showAfter)    : null,
+        recurrence:   $recur,
+        history:      $history,
+        notes:        $notes);
+    Document::insert(Table::REQUEST, $v4Req);
+}
+
+echo PHP_EOL . 'done' . PHP_EOL;

src/lib/Auth.php

@@ -0,0 +1,79 @@
+<?php declare(strict_types=1);
+
+namespace MyPrayerJournal;
+
+use Auth0\SDK\Auth0;
+use Auth0\SDK\Exception\ConfigurationException;
+
+class Auth
+{
+    private static ?Auth0 $auth0 = null;
+
+    public static function client(): Auth0
+    {
+        if (is_null(self::$auth0)) {
+            self::$auth0 = new Auth0([
+                'domain'       => $_ENV['AUTH0_DOMAIN'],
+                'clientId'     => $_ENV['AUTH0_CLIENT_ID'],
+                'clientSecret' => $_ENV['AUTH0_CLIENT_SECRET'],
+                'cookieSecret' => $_ENV['AUTH0_COOKIE_SECRET']
+            ]);
+        }
+        return self::$auth0;
+    }
+
+    /**
+     * Get the logged on user information
+     *
+     * @return array|null The user information (null if no user is logged on)
+     */
+    public static function user(): ?array
+    {
+        return self::client()->getUser();
+    }
+
+    /**
+     * Initiate a log on with Auth0
+     *
+     * @throws ConfigurationException If the Auth0 client is not configured correctly
+     */
+    public static function logOn(): never
+    {
+        $params = match (true) {
+            $_SERVER['PHP_SELF'] <> '/user/log-on.php' => ['redirectUri' => $_SERVER['PHP_SELF']],
+            default                                    => []
+        };
+
+        self::client()->clear();
+        header('Location: ' . self::client()->login($_ENV['AUTH0_BASE_URL'] . '/user/log-on/success', $params));
+        exit;
+    }
+
+    /**
+     * Log off from this application and Auth0
+     *
+     * @throws ConfigurationException If the Auth0 client is not configured correctly
+     */
+    public static function logOff(): never
+    {
+        session_destroy();
+        header('Location: ' . self::client()->logout($_ENV['AUTH0_BASE_URL']));
+        exit;
+    }
+
+    /**
+     * Require a user be logged on
+     *
+     * @param bool $redirect Whether to redirect to log on if there is not a user logged on
+     * @return void If it returns, there is a user logged on; if not, we will be redirected to log on
+     * @throws ConfigurationException If the Auth0 client is not configured correctly
+     */
+    public static function requireUser(bool $redirect = true): void
+    {
+        if (is_null(self::user())) {
+            if ($redirect) self::logOn();
+            http_response_code(403);
+            die('Not Authorized');
+        }
+    }
+}

src/lib/History.php

@@ -0,0 +1,25 @@
+<?php declare(strict_types=1);
+
+namespace MyPrayerJournal;
+
+use JsonSerializable;
+
+/**
+ * A record of an action taken on a request
+ */
+class History implements JsonSerializable
+{
+    /**
+     * @param string $asOf The date/time this entry was made
+     * @param RequestAction $action The action taken for this history entry
+     * @param string|null $text The text for this history entry (optional)
+     */
+    public function __construct(public string $asOf, public RequestAction $action, public ?string $text = null) { }
+
+    public function jsonSerialize(): mixed
+    {
+        $values = ['asOf' => $this->asOf, 'action' => $this->action->value];
+        if (isset($this->text)) $values['text'] = $this->text;
+        return $values;
+    }
+}

src/lib/Layout.php

@@ -0,0 +1,181 @@
+<?php declare(strict_types=1);
+
+namespace MyPrayerJournal;
+
+use BitBadger\PDODocument\Custom;
+use BitBadger\PDODocument\Mapper\ExistsMapper;
+
+class Layout
+{
+    /**
+     * Generate the heading for a bare result
+     */
+    public static function bareHead(): void
+    {
+        echo '<!DOCTYPE html><html lang=en><head><title></title></head><body>';
+    }
+
+    /**
+     * Generate the end of a bare result
+     */
+    public static function bareFoot(): void
+    {
+        echo '</body></html>';
+    }
+
+    /**
+     * Is this an htmx request?
+     *
+     * @return bool True if this is an htmx request, false if not
+     */
+    private static function isHtmx(): bool
+    {
+        return key_exists('HTTP_HX_REQUEST', $_SERVER) && !key_exists('HTTP_HX_HISTORY_RESTORE_REQUEST', $_SERVER);
+    }
+
+    /**
+     * Create the `DOCTYPE` declaration, `html`, and `head` tags for the page
+     *
+     * @param string $title The title of the page
+     */
+    public static function htmlHead(string $title): void
+    {
+        if (self::isHtmx()) {
+            echo "<!DOCTYPE html><html lang=en><head lang=en><title>$title &#xab; myPrayerJournal</title></head>";
+        } else {
+            echo <<<HEAD
+                <!DOCTYPE html>
+                <html lang=en>
+                <head>
+                    <meta name=viewport content="width=device-width, initial-scale=1">
+                    <meta name=description content="Online prayer journal - free w/Google or Microsoft account">
+                    <meta name=htmx-config content='{"historyCacheSize":0}'>
+                    <title>$title &#xab; myPrayerJournal</title>
+                    <link href=https://cdn.jsdelivr.net/npm/bootstrap@5.3.2/dist/css/bootstrap.min.css rel=stylesheet
+                          integrity="sha384-T3c6CoIi6uLrA9TneNEoa7RxnatzjcDSCmG1MXxSR1GAsXEV/Dwwykc2MPK8M2HN"
+                          crossorigin=anonymous>
+                    <link href="https://fonts.googleapis.com/icon?family=Material+Icons" rel=stylesheet>
+                    <link href=/style/style.css rel=stylesheet>
+                </head>
+                HEAD;
+        }
+    }
+
+    private static function navLink(string $url, string $text): void
+    {
+        $classAttr = match (true) {
+            str_starts_with($_SERVER['PHP_SELF'], $url) => ['class' => 'is-active-route'],
+            default => []
+        };
+        echo '<li class=nav-item>';
+        UI::pageLink($url, $text, $classAttr);
+    }
+
+    /**
+     * The default navigation bar, which will load the items on page load, and whenever a refresh event occurs
+     */
+    public static function navBar(): void
+    {
+        $table      = Table::REQUEST;
+        $hasSnoozed = key_exists('user_id', $_SESSION)
+            ? Custom::scalar(<<<SQL
+                SELECT EXISTS (
+                    SELECT 1 FROM $table
+                     WHERE data->>'userId' = :userId AND datetime(data->>'snoozedUntil') > datetime('now'))
+                SQL, [':userId' => $_SESSION['user_id']], new ExistsMapper())
+            : false; ?>
+        <nav class="navbar navbar-dark" role="navigation">
+            <div class=container-fluid><?php
+                UI::pageLink('/', '<span class=m>my</span><span class=p>Prayer</span><span class=j>Journal</span>',
+                    ['class' => 'navbar-brand']); ?>
+                <ul class="navbar-nav me-auto d-flex flex-row"><?php
+                    if (key_exists('user_id', $_SESSION)) {
+                        self::navLink('/journal', 'Journal');
+                        self::navLink('/requests/active', 'Active');
+                    if ($hasSnoozed) self::navLink('/requests/snoozed', 'Snoozed');
+                        self::navLink('/requests/answered', 'Answered'); ?>
+                        <li class=nav-item><a href=/user/log-off>Log Off</a><?php
+                    } else { ?>
+                        <li class=nav-item><a href=/user/log-on>Log On</a><?php
+                    }
+                    self::navLink('/docs', 'Docs'); ?>
+                </ul>
+            </div>
+        </nav><?php
+    }
+
+    /**
+     * Drop .0 or .0.0 from the end of the version to format it for display
+     *
+     * @return string The version of the application for user display
+     */
+    private static function displayVersion(): string {
+        [$major, $minor, $rev] = explode('.', MPJ_VERSION);
+        $minor = $minor == '0' ? '' : ".$minor";
+        $rev = match (true) {
+            $rev == '0'                 => '',
+            str_starts_with($rev, '0-') => substr($rev, 1),
+            default                     => ".$rev"
+        };
+        return "v$major$minor$rev";
+    }
+
+    /**
+     * Create the footer
+     */
+    public static function htmlFoot(): void
+    { ?>
+        <footer class=container-fluid>
+            <p class="text-muted text-end">
+                myPrayerJournal <?=self::displayVersion();?><br>
+                <em><small><?php
+                    UI::pageLink('/legal/privacy-policy', 'Privacy Policy');
+                    echo ' &bull; ';
+                    UI::pageLink('/legal/terms-of-service', 'Terms of Service');
+                    echo ' &bull; '; ?>
+                    <a href=https://git.bitbadger.solutions/bit-badger/myPrayerJournal target=_blank
+                       rel=noopener>Developed</a> and hosted by
+                    <a href=https://bitbadger.solutions target=_blank rel=noopener>Bit Badger Solutions</a>
+                </small></em>
+            <script src=https://unpkg.com/htmx.org@2.0.0 crossorigin=anonymous
+                    integrity="sha384-wS5l5IKJBvK6sPTKa2WZ1js3d947pvWXbPJ1OmWfEuxLgeHcEbjUUA5i9V5ZkpCw"></script>
+            <script>if (!htmx) document.write('<script src=\"/script/htmx.min.js\"><\/script>')</script>
+            <script async src=https://cdn.jsdelivr.net/npm/bootstrap@5.3.2/dist/js/bootstrap.bundle.min.js
+                    integrity="sha384-C6RzsynM9kWDrMNeT87bh95OGNyZPhcTNXj1NW7RuBCsyN/o0jlpcV8Qyq46cDfL"
+                    crossorigin=anonymous></script>
+            <script>
+                setTimeout(function () {
+                    if (!bootstrap) document.write('<script src=\"/script/bootstrap.bundle.min.js\"><\/script>')
+                }, 2000)
+            </script>
+            <script src=/script/mpj.js></script>
+        </footer><?php
+    }
+
+    /**
+     * Generate the heading for a full or partial page result
+     *
+     * @param string $title The title of the page
+     */
+    public static function pageHead(string $title): void
+    {
+        self::htmlHead($title);
+        echo '<body>';
+        if (!self::isHtmx()) echo '<section id=top aria-label="Top navigation">';
+        self::navBar();
+        echo '<main role=main>';
+    }
+
+    /**
+     * Generate the end of the page for a full or partial page result
+     */
+    public static function pageFoot(): void
+    {
+        echo '</main>';
+        if (!self::isHtmx()) {
+            echo '</section>';
+            self::htmlFoot();
+        }
+        echo '</body></html>';
+    }
+}

src/lib/Note.php

@@ -0,0 +1,30 @@
+<?php declare(strict_types=1);
+
+namespace MyPrayerJournal;
+
+use BitBadger\PDODocument\DocumentException;
+
+/**
+ * A note entered on a prayer request
+ */
+class Note
+{
+    /**
+     * @param string $asOf The date/time this note was recorded
+     * @param string $text The text of the note
+     */
+    public function __construct(public string $asOf, public string $text) { }
+
+    /**
+     * Retrieve notes for a given request
+     *
+     * @param string $id The ID of the request for which notes should be retrieved
+     * @return array|Note[] The notes for the request, or an empty array if the request was not found
+     * @throws DocumentException If any is encountered
+     */
+    public static function byRequestId(string $id): array
+    {
+        $req = Request::byId($id);
+        return $req ? $req->notes : [];
+    }
+}

src/lib/Recurrence.php

@@ -0,0 +1,41 @@
+<?php declare(strict_types=1);
+
+namespace MyPrayerJournal;
+
+use DateInterval;
+use JsonSerializable;
+
+/**
+ * The recurrence for a prayer request
+ */
+class Recurrence implements JsonSerializable
+{
+    /**
+     * @param RecurrencePeriod $period The recurrence period
+     * @param int|null $interval How many of the periods will pass before the request is visible again
+     */
+    public function __construct(public RecurrencePeriod $period, public ?int $interval = null) { }
+
+    /**
+     * Get the date/time interval for this recurrence
+     *
+     * @return DateInterval The interval matching the recurrence
+     */
+    public function interval(): DateInterval
+    {
+        $period = match ($this->period) {
+            RecurrencePeriod::Immediate => 'T0S',
+            RecurrencePeriod::Hours     => "T{$this->interval}H",
+            RecurrencePeriod::Days      => "{$this->interval}D",
+            RecurrencePeriod::Weeks     => ($this->interval * 7) . 'D'
+        };
+        return new DateInterval("P$period");
+    }
+
+    public function jsonSerialize(): mixed
+    {
+        $values = ['period' => $this->period->value];
+        if (isset($this->interval)) $values['interval'] = $this->interval;
+        return $values;
+    }
+}

src/lib/RecurrencePeriod.php

@@ -0,0 +1,21 @@
+<?php declare(strict_types=1);
+
+namespace MyPrayerJournal;
+
+/**
+ * The type of recurrence a request can have
+ */
+enum RecurrencePeriod: string
+{
+    /** Requests, once prayed, are available again immediately */
+    case Immediate = 'Immediate';
+
+    /** Requests, once prayed, appear again in a number of hours */
+    case Hours = 'Hours';
+
+    /** Requests, once prayed, appear again in a number of days */
+    case Days = 'Days';
+
+    /** Requests, once prayed, appear again in a number of weeks */
+    case Weeks = 'Weeks';
+}

src/lib/Request.php

@@ -0,0 +1,206 @@
+<?php declare(strict_types=1);
+
+namespace MyPrayerJournal;
+
+use BitBadger\PDODocument\{Custom, DocumentException, DocumentList, Find, Mapper\DocumentMapper};
+use DateTimeImmutable;
+use Exception;
+use JsonSerializable;
+use Visus\Cuid2\Cuid2;
+
+/**
+ * A prayer request
+ */
+class Request implements JsonSerializable
+{
+    /**
+     * @param string $id The ID for the request
+     * @param string $enteredOn The date/time this request was originally entered
+     * @param string $userId The ID of the user to whom this request belongs
+     * @param string|null $snoozedUntil The date/time the snooze expires for this request (null = not snoozed)
+     * @param string|null $showAfter The date/time the current recurrence period is over (null = immediate)
+     * @param Recurrence $recurrence The recurrence for this request
+     * @param History[] $history The history of this request
+     * @param Note[] $notes Notes regarding this request
+     * @throws Exception If the ID generation fails
+     */
+    public function __construct(public string $id = '', public string $enteredOn = '', public string $userId = '',
+                                public ?string $snoozedUntil = null, public ?string $showAfter = null,
+                                public Recurrence $recurrence = new Recurrence(RecurrencePeriod::Immediate),
+                                public array $history = [], public array $notes = [])
+    {
+        if ($id == '') {
+            $this->id = (new Cuid2())->toString();
+        }
+    }
+
+    /**
+     * Get the current text for this request
+     *
+     * @return string The most recent text for the request
+     */
+    public function currentText(): string
+    {
+        foreach ($this->history as $hist) if (isset($hist->text)) return $hist->text;
+        return '';
+    }
+
+    /**
+     * Get the date/time this request was last marked as prayed
+     *
+     * @return string|null The date/time this request was last marked as prayed
+     */
+    public function lastPrayed(): ?string
+    {
+        foreach ($this->history as $hist) if ($hist->action == RequestAction::Prayed) return $hist->asOf;
+        return null;
+    }
+
+    /**
+     * Has this request been answered?
+     *
+     * @return bool True if the request is answered, false if not
+     */
+    public function isAnswered(): bool
+    {
+        return $this->history[0]->action == RequestAction::Answered;
+    }
+
+    /**
+     * Is this request currently snoozed?
+     *
+     * @return bool True if the request is snoozed, false if not
+     * @throws Exception If the snoozed until date/time is not valid
+     */
+    public function isSnoozed(): bool
+    {
+        return isset($this->snoozedUntil) && new DateTimeImmutable($this->snoozedUntil) > new DateTimeImmutable('now');
+    }
+
+    /**
+     * Is this request currently not shown due to recurrence?
+     *
+     * @return bool True if the request is pending, false if not
+     * @throws Exception If the snoozed or show-after date/times are not valid
+     */
+    public function isPending(): bool
+    {
+        return !$this->isSnoozed()
+            && isset($this->showAfter)
+            && new DateTimeImmutable($this->showAfter) > new DateTimeImmutable('now');
+    }
+
+    public function jsonSerialize(): mixed
+    {
+        $values = [
+            'id'         => $this->id,
+            'enteredOn'  => $this->enteredOn,
+            'userId'     => $this->userId,
+            'recurrence' => $this->recurrence,
+            'history'    => $this->history,
+            'notes'      => $this->notes
+        ];
+        if (isset($this->snoozedUntil)) $values['snoozedUntil'] = $this->snoozedUntil;
+        if (isset($this->showAfter))    $values['showAfter']    = $this->showAfter;
+        return $values;
+    }
+
+    /**
+     * Find a request by its ID
+     *
+     * @param string $id The ID of the request
+     * @return Request|false The request if it is found and belongs to the current user, false if not
+     * @throws DocumentException If any is encountered
+     */
+    public static function byId(string $id): Request|false
+    {
+        $req = Find::byId(Table::REQUEST, $id, self::class);
+        return ($req && $req->userId == $_SESSION['user_id']) ? $req : false;
+    }
+
+    /**
+     * Get the user's active journal requests
+     *
+     * @return DocumentList<Request> The requests for the user's journal
+     * @throws DocumentException If any is encountered
+     */
+    public static function forJournal(): DocumentList
+    {
+        $table = Table::REQUEST;
+        return Custom::list(<<<SQL
+            SELECT data, (
+                   SELECT h.value->>'asOf' as_of
+                     FROM $table i LEFT JOIN json_each(i.data, '$.history') h
+                    WHERE r.data->>'id' = i.data->>'id' AND h.value->>'action' = 'Prayed'
+                    LIMIT 1) last_prayed
+              FROM $table r
+             WHERE data->>'userId'               = :userId
+               AND data->>'$.history[0].action' <> 'Answered'
+               AND (data->>'snoozedUntil' IS NULL OR data->>'snoozedUntil' < datetime('now'))
+               AND (data->>'showAfter'    IS NULL OR data->>'showAfter'    < datetime('now'))
+             ORDER BY coalesce(last_prayed, data->>'snoozedUntil', data->>'showAfter', data->>'$.history[0].asOf')
+            SQL, [':userId' => $_SESSION['user_id']], new DocumentMapper(self::class));
+    }
+
+    /**
+     * Get either the user's active or answered requests
+     *
+     * @param bool $active True to retrieve active requests, false to retrieve answered requests
+     * @param bool $snoozed True to retrieve only snoozed requests
+     * @return DocumentList<Request> The requests matching the criteria
+     * @throws DocumentException If any is encountered
+     */
+    private static function forUser(bool $active = true, bool $snoozed = false): DocumentList
+    {
+        $table = Table::REQUEST;
+        $op    = $active ? '<>' : '=';
+        $extra = $snoozed ? "AND datetime(data->>'snoozedUntil') > datetime('now')" : '';
+        $order = $active
+            ? "coalesce(data->>'snoozedUntil', data->>'showAfter', last_prayed, data->>'$.history[0].asOf')"
+            : "data->>'$.history[0].asOf' DESC";
+        return Custom::list(<<<SQL
+            SELECT data, (
+                   SELECT h.value->>'asOf' as_of
+                     FROM $table i LEFT JOIN json_each(i.data, '$.history') h
+                    WHERE r.data->>'id' = i.data->>'id' AND h.value->>'action' = 'Prayed'
+                    LIMIT 1) last_prayed
+              FROM $table r
+             WHERE data->>'userId'                = :userId
+               AND data->>'$.history[0].action' $op 'Answered' $extra
+             ORDER BY $order
+            SQL, [':userId' => $_SESSION['user_id']], new DocumentMapper(self::class));
+    }
+
+    /**
+     * Get a list of active requests for a user
+     *
+     * @return DocumentList<Request> The user's active requests
+     * @throws DocumentException If any is encountered
+     */
+    public static function active(): DocumentList
+    {
+        return self::forUser();
+    }
+
+    /**
+     * Get a list of answered requests for a user
+     *
+     * @return DocumentList<Request> The user's answered requests
+     * @throws DocumentException If any is encountered
+     */
+    public static function answered(): DocumentList
+    {
+        return self::forUser(false);
+    }
+
+    /**
+     * Get a list of snoozed requests for a user
+     *
+     * @return DocumentList<Request> The user's snoozed requests
+     * @throws DocumentException If any is encountered
+     */
+    public static function snoozed(): DocumentList
+    {
+        return self::forUser(snoozed: true);
+    }
+}

src/lib/RequestAction.php

@@ -0,0 +1,21 @@
+<?php declare(strict_types=1);
+
+namespace MyPrayerJournal;
+
+/**
+ * An action taken on a prayer request
+ */
+enum RequestAction: string
+{
+    /** The request was created */
+    case Created = 'Created';
+
+    /** The request was marked as having been prayed for */
+    case Prayed = 'Prayed';
+
+    /** The request was updated */
+    case Updated = 'Updated';
+
+    /** The request was marked as answered */
+    case Answered = 'Answered';
+}

src/lib/Table.php

@@ -0,0 +1,12 @@
+<?php declare(strict_types=1);
+
+namespace MyPrayerJournal;
+
+/**
+ * Constants for table names
+ */
+class Table
+{
+    /** @var string The prayer request table used by myPrayerJournal */
+    const REQUEST = 'request';
+}

src/lib/UI.php

@@ -0,0 +1,238 @@
+<?php declare(strict_types=1);
+
+namespace MyPrayerJournal;
+
+use BitBadger\PDODocument\{DocumentException, DocumentList};
+use DateTimeImmutable;
+use DateTimeZone;
+use Exception;
+
+/**
+ * User interface building blocks
+ */
+class UI
+{
+    /**
+     * Generate a material icon
+     *
+     * @param string $name The name of the material icon
+     * @return string The material icon wrapped in a `span` tag
+     */
+    public static function icon(string $name): string {
+        return "<span class=material-icons>$name</span>";
+    }
+
+    /**
+     * Render the journal items for the current user
+     *
+     * @throws DocumentException If any is encountered
+     */
+    public static function journal(): void
+    {
+        Layout::bareHead();
+        $reqs = Request::forJournal();
+        if ($reqs->hasItems()) { ?>
+            <section id=journalItems class="row row-cols-1 row-cols-md-2 row-cols-lg-3 row-cols-xl-4 g-3" hx-target=this
+                     hx-swap=outerHTML aria-label="Prayer Requests"><?php
+            $spacer = '<span>&nbsp;</span>';
+            foreach ($reqs->items() as /** @var Request $req */ $req) { ?>
+                <div class=col>
+                <div class="card h-100">
+                    <div class="card-header p-0 d-flex" role=toolbar><?php
+                        self::pageLink("/request/edit?id=$req->id", self::icon('edit'),
+                            ['class' => 'btn btn-secondary', 'title' => 'Edit Request']); ?>
+                        <?=$spacer?>
+                        <button type=button class="btn btn-secondary" title="Add Notes" data-bs-toggle=modal
+                                data-bs-target=#notesModal hx-get="/components/request/add-note?id=<?=$req->id?>"
+                                hx-target=#notesBody hx-swap=innerHTML><?=self::icon('comment');?></button>
+                        <?=$spacer?>
+                        <button type=button class="btn btn-secondary" title="Snooze Request" data-bs-toggle=modal
+                                data-bs-target=#snoozeModal hx-get="/components/request/snooze?id=<?=$req->id?>"
+                                hx-target=#snoozeBody hx-swap=innerHTML><?=self::icon('schedule');?></button>
+                        <div class=flex-grow-1></div>
+                        <button type=button class="btn btn-success w-25" hx-patch="/request/prayed?id=<?=$req->id?>"
+                                title="Mark as Prayed"><?=self::icon('done');?></button>
+                    </div>
+                    <div class=card-body>
+                        <p class=request-text><?=htmlentities($req->currentText());?>
+                    </div>
+                    <div class="card-footer text-end text-muted px-1 py-0">
+                        <em><?php
+                            $lastPrayed = $req->lastPrayed();
+                            echo 'last ' . (is_null($lastPrayed) ? 'activity': 'prayed') . ' ';
+                            self::relativeDate($lastPrayed ?? $req->history[0]->asOf); ?>
+                        </em>
+                    </div>
+                </div>
+                </div><?php
+            } ?>
+            </section><?php
+        } else {
+            UI::noResults('No Active Requests', '/request/edit?id=new', 'Add a Request', <<<'TEXT'
+                You have no requests to be shown; see the &ldquo;Active&rdquo; link above for snoozed or deferred
+                requests, and the &ldquo;Answered&rdquo; link for answered requests
+                TEXT);
+        }
+        Layout::bareFoot();
+    }
+
+    /**
+     * Create a card when there are no results found
+     */
+    public static function noResults(string $heading, string $link, string $buttonText, string $text): void
+    { ?>
+        <div class=card>
+        <h5 class=card-header><?=$heading?></h5>
+        <div class="card-body text-center">
+            <p class=card-text><?=$text?></p><?php
+            self::pageLink($link, $buttonText, ['class' => 'btn btn-primary']); ?>
+        </div>
+        </div><?php
+    }
+
+    /**
+     * Generate a link to a page within myPrayerJournal
+     *
+     * @param string $href The URL for the link
+     * @param string $text The text for the link
+     * @param array $attrs Any additional attributes that should be placed on the `a` tag
+     */
+    public static function pageLink(string $href, string $text, array $attrs = []): void
+    { ?>
+        <a href="<?=$href?>" hx-get="<?=$href?>" hx-target=#top hx-swap=innerHTML hx-push-url=true<?php
+        foreach ($attrs as $key => $value) echo " $key=\"" . htmlspecialchars($value) . "\""; ?>><?=$text?></a><?php
+    }
+
+    /**
+     * @throws Exception
+     */
+    public static function relativeDate(string $date): void
+    {
+        $parsed = new DateTimeImmutable($date);
+        $inZone = $parsed->setTimezone(new DateTimeZone($_REQUEST['time_zone']));
+        echo '<span title="' . date_format($inZone, 'l, F j, Y \a\t g:ia T') . '">'
+            . self::formatDistance('now', $parsed) . '</span>';
+    }
+
+    //  Many thanks to date-fns (https://date-fns.org) for this logic
+    /**
+     * Format the distance between two dates
+     *
+     * @param string|DateTimeImmutable $from The starting date/time
+     * @param string|DateTimeImmutable $to The ending date/time
+     * @return string The distance between two dates
+     * @throws Exception If date/time objects cannot be created
+     */
+    public static function formatDistance(string|DateTimeImmutable $from, string|DateTimeImmutable $to): string
+    {
+        $aDay        =  1_440.0;
+        $almost2Days =  2_520.0;
+        $aMonth      = 43_200.0;
+        $twoMonths   = 86_400.0;
+
+        $dtFrom  = is_string($from) ? new DateTimeImmutable($from) : $from;
+        $dtTo    = is_string($to)   ? new DateTimeImmutable($to)   : $to;
+        $minutes = abs($dtFrom->getTimestamp() - $dtTo->getTimestamp()) / 60;
+        $months  = round($minutes / $aMonth);
+        $years   = round($months / 12);
+
+        $typeAndNumber = match (true) {
+            $minutes < 1.0          => [FormatDistanceToken::LessThanXMinutes, 1],
+            $minutes < 45.0         => [FormatDistanceToken::XMinutes,         round($minutes)],
+            $minutes < 90.0         => [FormatDistanceToken::AboutXHours,      1],
+            $minutes < $aDay        => [FormatDistanceToken::AboutXHours,      round($minutes / 60)],
+            $minutes < $almost2Days => [FormatDistanceToken::XDays,            1],
+            $minutes < $aMonth      => [FormatDistanceToken::XDays,            round($minutes / $aDay)],
+            $minutes < $twoMonths   => [FormatDistanceToken::AboutXMonths,     round($minutes / $aMonth)],
+            $months      < 12       => [FormatDistanceToken::XMonths,          round($minutes / $aMonth)],
+            $months % 12 < 3        => [FormatDistanceToken::AboutXYears,      $years],
+            $months % 12 < 9        => [FormatDistanceToken::OverXYears,       $years],
+            default                 => [FormatDistanceToken::AlmostXYears,     $years]
+        };
+        $format = match ($typeAndNumber[0]) {
+            FormatDistanceToken::LessThanXMinutes => ['less than a minute', 'less than %d minutes'],
+            FormatDistanceToken::XMinutes         => ['a minute',           '%d minutes'],
+            FormatDistanceToken::AboutXHours      => ['about an hour',      'about %d hours'],
+            FormatDistanceToken::XHours           => ['an hour',            '%d hours'],
+            FormatDistanceToken::XDays            => ['a day',              '%d days'],
+            FormatDistanceToken::AboutXWeeks      => ['about a week',       'about %d weeks'],
+            FormatDistanceToken::XWeeks           => ['a week',             '%d weeks'],
+            FormatDistanceToken::AboutXMonths     => ['about a month',      'about %d months'],
+            FormatDistanceToken::XMonths          => ['a month',            '%d months'],
+            FormatDistanceToken::AboutXYears      => ['about a year',       'about %d years'],
+            FormatDistanceToken::XYears           => ['a year',             '%d years'],
+            FormatDistanceToken::OverXYears       => ['over a year',        'over %d years'],
+            FormatDistanceToken::AlmostXYears     => ['almost a year',      'almost %d years']
+        };
+        $value = $typeAndNumber[1] == 1 ? $format[0] : sprintf($format[1], $typeAndNumber[1]);
+        return $dtFrom > $dtTo ? "$value ago" : "in $value";
+    }
+
+    public static function requestItem(Request $req): void
+    {
+        $btnClass   = "btn btn-light mx-2";
+        $restoreBtn = fn(string $id, string $link, string $title) =>
+            '<button class="' . $btnClass. '" hx-patch="/request/' . $link . '?id=' . $id
+            . '" title="' . htmlspecialchars($title) . '">' . self::icon('restore') . '</button>'; ?>
+        <div class="list-group-item px-0 d-flex flex-row align-items-start" hx-target=this
+             hx-swap=outerHTML><?php
+        self::pageLink("/request/full?id=$req->id", self::icon('description'),
+            ['class' => $btnClass, 'title' => 'View Full Request']);
+        if (!$req->isAnswered()) {
+            self::pageLink("/request/edit?id=$req->id", self::icon('edit'),
+                ['class' => $btnClass, 'title' => 'Edit Request']);
+        }
+        if ($req->isSnoozed()) {
+            echo $restoreBtn($req->id, 'cancel-snooze', 'Cancel Snooze');
+        } elseif ($req->isPending()) {
+            echo $restoreBtn($req->id, 'show', 'Show Now');
+        }
+        echo '<p class="request-text mb-0">' . $req->currentText();
+        if ($req->isSnoozed() || $req->isPending() || $req->isAnswered()) { ?>
+            <br>
+            <small class=text-muted><em><?php
+                switch (true) {
+                    case $req->isSnoozed():
+                        echo 'Snooze expires '; self::relativeDate($req->snoozedUntil);
+                        break;
+                    case $req->isPending():
+                        echo 'Request appears next '; self::relativeDate($req->showAfter);
+                        break;
+                    default:
+                        echo 'Answered '; self::relativeDate($req->history[0]->asOf);
+                } ?>
+            </em></small><?php
+        } ?>
+        </div><?php
+    }
+
+    /**
+     * Render the given list of requests
+     *
+     * @param DocumentList<Request> $reqs The list of requests to render
+     * @throws Exception If date/time instances are not valid
+     */
+    public static function requestList(DocumentList $reqs): void
+    {
+        echo '<div class=list-group>';
+        foreach ($reqs->items() as $req) self::requestItem($req);
+        echo '</div>';
+    }
+}
+
+enum FormatDistanceToken
+{
+    case LessThanXMinutes;
+    case XMinutes;
+    case AboutXHours;
+    case XHours;
+    case XDays;
+    case AboutXWeeks;
+    case XWeeks;
+    case AboutXMonths;
+    case XMonths;
+    case AboutXYears;
+    case XYears;
+    case OverXYears;
+    case AlmostXYears;
+}

src/public/components/journal-items.php

@@ -0,0 +1,10 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Auth, UI};
+
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+require '../../start.php';
+
+Auth::requireUser(false);
+
+UI::journal();

src/public/components/request/add-note.php

@@ -0,0 +1,24 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Auth, Layout, Request};
+
+require '../../../start.php';
+
+$req = validate_request($_GET['id'], ['GET'], false);
+
+Layout::bareHead(); ?>
+<form hx-post="/request/note?id=<?=$req->id?>">
+    <div class="form-floating pb-3">
+        <textarea id=notes name=notes class=form-control style="min-height: 8rem;" placeholder=Notes autofocus
+                  required></textarea>
+        <label for=notes>Notes</label>
+    </div>
+    <p class=text-end><button type=submit class="btn btn-primary">Add Notes</button>
+</form>
+<hr style="margin: .5rem -1rem">
+<div id=priorNotes>
+    <p class="text-center pt-3">
+        <button type=button class="btn btn-secondary" hx-get="/components/request/notes?id=<?=$req->id?>"
+                hx-swap=outerHTML hx-target=#priorNotes>Load Prior Notes</button>
+</div><?php
+Layout::bareFoot();

src/public/components/request/notes.php

@@ -0,0 +1,19 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Layout, UI};
+
+require '../../../start.php';
+
+$req = validate_request($_GET['id'], ['GET'], false);
+
+Layout::bareHead();?>
+<p class=text-center><strong>Prior Notes for This Request</strong><?php
+if (sizeof($req->notes) > 0) {
+    foreach ($req->notes as $note) { ?>
+        <p><small class=text-muted><?php UI::relativeDate($note->asOf); ?></small><br>
+            <?=htmlentities($note->text)?><?php
+    }
+} else { ?>
+    <p class="text-center text-muted">There are no prior notes for this request<?php
+}
+Layout::bareFoot();

src/public/components/request/snooze.php

@@ -0,0 +1,18 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\Layout;
+
+require '../../../start.php';
+
+$req = validate_request($_GET['id'], ['GET'], false);
+
+Layout::bareHead(); ?>
+<form hx-patch="/request/snooze?id=<?=$req->id?>" hx-target=#journalItems hx-swap=outerHTML>
+    <div class="form-floating pb-3">
+        <input type=date id=until name=until class=form-control
+               min="<?=(new DateTimeImmutable('now'))->format('Y-m-d')?>" required>
+        <label for=until>Until</label>
+    </div>
+    <p class="text-end mb-0"><button type=submit class="btn btn-primary">Snooze</button>
+</form><?php
+Layout::bareFoot();

src/public/docs.php

@@ -0,0 +1,102 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\Layout;
+
+require '../start.php';
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+
+Layout::pageHead('Documentation'); ?>
+<article class="container mt-3">
+    <h2 class=mb-3>Documentation</h2>
+
+    <h3 class="mb-3 mt-4">About myPrayerJournal</h3>
+    <p>Journaling has a long history; it helps people remember what happened, and the act of writing helps people think
+        about what happened and process it. A prayer journal is not a new concept; it helps you keep track of the
+        requests for which you&rsquo;ve prayed, you can use it to pray over things repeatedly, and you can write the
+        result when the answer comes <em>(or it was &ldquo;no&rdquo;)</em>.
+    <p>myPrayerJournal was borne of out of a personal desire
+        <a href=https://daniel.summershome.org target=_blank rel=noopener>Daniel</a> had to have something that would
+        help him with his prayer life. When it&rsquo;s time to pray, it&rsquo;s not really time to use an app, so the
+        design goal here is to keep it simple and unobtrusive. It will also help eliminate some of the downsides to a
+        paper prayer journal, like not remembering whether you&rsquo;ve prayed for a request, or running out of room to
+        write another update on one.
+
+    <h3 class="mb-3 mt-4">Signing Up</h3>
+    <p>myPrayerJournal uses login services using Google or Microsoft accounts. The only information the application
+        stores in its database is your user ID token it receives from these services, so there are no permissions you
+        should have to accept from these provider other than establishing that you can log on with that account. Because
+        of this, you&rsquo;ll want to pick the same one each time; the tokens between the two accounts are different,
+        even if you use the same e-mail address to log on to both.
+
+    <h3 class="mb-3 mt-4">Your Prayer Journal</h3>
+    <p>Your current requests will be presented in columns (usually three, but it could be more or less, depending on the
+        size of your screen or device). Each request is in its own card, and the buttons at the top of each card apply
+        to that request. The last line of each request also tells you how long it has been since anything has been done
+        on that request. Any time you see something like &ldquo;a few minutes ago,&rdquo; you can hover over that to see
+        the actual date/time the action was taken.
+
+    <h3 class="mb-3 mt-4">Adding a Request</h3>
+    <p>To add a request, click the &ldquo;Add a New Request&rdquo; button at the top of your journal. Then, enter the
+        text of the request as you see fit; there is no right or wrong way, and you are the only person who will see the
+        text you enter. When you save the request, it will go to the bottom of the list of requests.
+
+    <h3 class="mb-3 mt-4">Setting Request Recurrence</h3>
+    <p>When you add or update a request, you can choose whether requests go to the bottom of the journal once they have
+        been marked &ldquo;Prayed&rdquo; or whether they will reappear after a delay. You can set recurrence in terms of
+        hours, days, or weeks, but it cannot be longer than 365 days. If you decide you want a request to reappear
+        sooner, you can skip the current delay; click the &ldquo;Active&rdquo; menu link, find the request in the list
+        (likely near the bottom), and click the &ldquo;Show Now&rdquo; button.
+
+    <h3 class="mb-3 mt-4">Praying for Requests</h3>
+    <p>The first button for each request has a checkmark icon; clicking this button will mark the request as
+        &ldquo;Prayed&rdquo; and move it to the bottom of the list (or off, if you&rsquo;ve set a recurrence period for
+        the request). This allows you, if you&rsquo;re praying through your requests, to start at the top left (with the
+        request that it&rsquo;s been the longest since you&rsquo;ve prayed) and click the button as you pray; when the
+        request move below or away, the next-least-recently-prayed request will take the top spot.
+
+    <h3 class="mb-3 mt-4">Editing Requests</h3>
+    <p>The second button for each request has a pencil icon. This allows you to edit the text of the request, pretty
+        much the same way you entered it; it starts with the current text, and you can add to it, modify it, or
+        completely replace it. By default, updates will go in with an &ldquo;Updated&rdquo; status; you have the option
+        to also mark this update as &ldquo;Prayed&rdquo; or &ldquo;Answered&rdquo;. Answered requests will drop off the
+        journal list.
+
+    <h3 class="mb-3 mt-4">Adding Notes</h3>
+    <p>The third button for each request has an icon that looks like a speech bubble with lines on it; this lets you
+        record notes about the request. If there is something you want to record that doesn&rsquo;t change the text of
+        the request, this is the place to do it. For example, you may be praying for a long-term health issue, and that
+        person tells you that their status is the same; or, you may want to record something God said to you while you
+        were praying for that request."
+
+    <h3 class="mb-3 mt-4">Snoozing Requests</h3>
+    <p>There may be a time when a request does not need to appear. The fourth button, with the clock icon, allows you to
+        snooze requests until the day you specify. Additionally, if you have any snoozed requests, a
+        &ldquo;Snoozed&rdquo; menu item will appear next to the &ldquo;Journal&rdquo; one; this page allows you to see
+        what requests are snoozed, and return them to your journal by canceling the snooze.
+
+    <h3 class="mb-3 mt-4">Viewing a Request and Its History</h3>
+    <p>myPrayerJournal tracks all actions related to a request; from the &ldquo;Active&rdquo; and &ldquo;Answered&rdquo;
+        menu links (and &ldquo;Snoozed&rdquo;, if it&rsquo;s showing), there is a &ldquo;View Full Request&rdquo;
+        button. That page will show the current text of the request; how many times it has been marked as prayed; how
+        long it has been an active request; and a log of all updates, prayers, and notes you have recorded. That log is
+        listed from most recent to least recent; if you want to read it chronologically, press the &ldquo;End&rdquo; key
+        on your keyboard and read it from the bottom up.
+    <p>The &ldquo;Active&rdquo; link will show all requests that have not yet been marked answered, including snoozed
+        and recurring requests. If requests are snoozed, or in a recurrence period off the journal, there will be a
+        button where you can return the request to the list (either &ldquo;Cancel Snooze&rdquo; or &ldquo;Show
+        Now&rdquo;). The &ldquo;Answered&rdquo; link shows all requests that have been marked answered. The
+        &ldquo;Snoozed&rdquo; link only shows snoozed requests.
+
+    <h3 class="mb-3 mt-4">Final Notes</h3>
+    <ul>
+        <li>If you encounter errors, please
+            <a href=https://git.bitbadger.solutions/bit-badger/myPrayerJournal/issues target=_blank rel=noopener>file an
+            issue</a> (or <a href="mailto:daniel@bitbadger.solutions?subject=myPrayerJournal+Issue">e-mail Daniel</a> if
+            you do not have an account on that server) with as much detail as possible. You can also provide
+            suggestions, or browse the list of currently open issues.
+        <li>Prayer requests and their history are securely backed up nightly along with other Bit Badger Solutions data.
+        <li>Prayer changes things - most of all, the one doing the praying. I pray that this tool enables you to deepen
+            and strengthen your prayer life.
+    </ul>
+</article><?php
+Layout::pageFoot();

src/public/index.php

@@ -0,0 +1,18 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\Layout;
+
+require '../start.php';
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+
+Layout::pageHead('Welcome'); ?>
+<article class="container mt-3">
+    <p>&nbsp;
+    <p>myPrayerJournal is a place where individuals can record their prayer requests, record that they prayed for them,
+        update them as God moves in the situation, and record a final answer received on that request. It also allows
+        individuals to review their answered prayers.
+    <p>This site is open and available for anyone who wants to use it. To get started, simply click the &ldquo;Log
+        On&rdquo; link above, and log on with either a Microsoft or Google account. You can also learn more about the
+        site at the &ldquo;Docs&rdquo; link, also above.
+</article><?php
+Layout::pageFoot();

src/public/journal.php

@@ -0,0 +1,50 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Auth, Layout, UI};
+
+require '../start.php';
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+
+Auth::requireUser();
+
+$user = Auth::user();
+$name = $user['given_name'] ?? 'Your';
+Layout::pageHead('Journal'); ?>
+<article class="container-fluid mt-3">
+    <h2 class=pb-3><?=$name?><?=$name == 'Your' ? '' : '&rsquo;s'?> Prayer Journal</h2>
+    <p class="pb-3 text-center"><?php
+        UI::pageLink('/request/edit?id=new', UI::icon('add_box') . ' Add a Prayer Request',
+            ['class' => 'btn btn-primary']); ?>
+    <p hx-get=/components/journal-items hx-swap=outerHTML hx-trigger=load hx-target=this>
+        Loading your prayer journal&hellip;
+    <div id=notesModal class="modal fade" tabindex=-1 aria-labelledby=nodesModalLabel aria-hidden=true>
+        <div class="modal-dialog modal-dialog-scrollable">
+            <div class=modal-content>
+                <div class=modal-header>
+                    <h5 class=modal-title id=nodesModalLabel>Add Notes to Prayer Request</h5>
+                    <button type=button class=btn-close data-bs-dismiss=modal aria-label=Close></button>
+                </div>
+                <div class=modal-body id=notesBody></div>
+                <div class=modal-footer>
+                    <button type=button id=notesDismiss class="btn btn-secondary" data-bs-dismiss=modal>Close</button>
+                </div>
+            </div>
+        </div>
+    </div>
+    <div id=snoozeModal class="modal fade" tabindex=-1 aria-labelledby=snoozeModalLabel aria-hidden=true>
+        <div class="modal-dialog modal-sm">
+            <div class=modal-content>
+                <div class=modal-header>
+                    <h5 class=modal-title id=snoozeModalLabel>Snooze Prayer Request</h5>
+                    <button type=button class=btn-close data-bs-dismiss=modal aria-label=Close></button>
+                </div>
+                <div class=modal-body id=snoozeBody></div>
+                <div class=modal-footer>
+                    <button type=button id=snoozeDismiss class="btn btn-secondary" data-bs-dismiss=modal>Close</button>
+                </div>
+            </div>
+        </div>
+    </div>
+</article><?php
+Layout::pageFoot();
+

src/public/legal/privacy-policy.php

@@ -0,0 +1,72 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\Layout;
+
+require '../../start.php';
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+
+Layout::pageHead('Privacy Policy'); ?>
+<article class="container mt-3">
+    <h2 class=mb-2>Privacy Policy</h2>
+    <h6 class="text-muted pb-3">as of May 21<sup>st</sup>, 2018</h6>
+    <p>The nature of the service is one where privacy is a must. The items below will help you understand the data we
+        collect, access, and store on your behalf as you use this service.
+    <div class=card>
+        <div class="list-group list-group-flush">
+            <div class=list-group-item>
+                <h3>Third Party Services</h3>
+                <p class=card-text>
+                    myPrayerJournal utilizes a third-party authentication and identity provider. You should familiarize
+                    yourself with the privacy policy for
+                    <a href=https://auth0.com/privacy target=_blank rel=noopener>Auth0</a>, as well as your chosen
+                    provider
+                    (<a href=https://privacy.microsoft.com/en-us/privacystatement target=_blank rel=noopener>Microsoft</a>
+                    or <a href=https://policies.google.com/privacy target=_blank rel=noopener>Google</a>).
+            </div>
+            <div class=list-group-item>
+                <h3>What We Collect</h3>
+                <h4>Identifying Data</h4>
+                <ul>
+                    <li>The only identifying data myPrayerJournal stores is the subscriber (&ldquo;sub&rdquo;) field
+                        from the token we receive from Auth0, once you have signed in through their hosted service. All
+                        information is associated with you via this field.
+                    <li>While you are signed in, within your browser, the service has access to your first and last
+                        names, along with a URL to the profile picture (provided by your selected identity provider).
+                        This information is not transmitted to the server, and is removed when &ldquo;Log Off&rdquo; is
+                        clicked.
+                </ul>
+                <h4>User Provided Data</h4>
+                <ul class=mb-0>
+                    <li>myPrayerJournal stores the information you provide, including the text of prayer requests,
+                        updates, and notes; and the date/time when certain actions are taken.
+                </ul>
+            </div>
+            <div class=list-group-item>
+                <h3>How Your Data Is Accessed / Secured</h3>
+                <ul class=mb-0>
+                    <li>Your provided data is returned to you, as required, to display your journal or your answered
+                        requests. On the server, it is stored in a controlled-access database.
+                    <li>Your data is backed up, along with other Bit Badger Solutions hosted systems, in a rolling
+                        manner; backups are preserved for the prior 7 days, and backups from the 1<sup>st</sup> and
+                        15<sup>th</sup> are preserved for 3 months. These backups are stored in a private cloud data
+                        repository.
+                    <li>The data collected and stored is the absolute minimum necessary for the functionality of the
+                        service. There are no plans to &ldquo;monetize&rdquo; this service, and storing the minimum
+                        amount of information means that the data we have is not interesting to purchasers (or those who
+                        may have more nefarious purposes).
+                    <li>Access to servers and backups is strictly controlled and monitored for unauthorized access
+                        attempts.
+                </ul>
+            </div>
+            <div class=list-group-item>
+                <h3>Removing Your Data</h3>
+                <p class=card-text>
+                    At any time, you may choose to discontinue using this service. Both Microsoft and Google provide
+                    ways to revoke access from this application. However, if you want your data removed from the
+                    database, please contact daniel at bitbadger.solutions (via e-mail, replacing at with @) prior to
+                    doing so, to ensure we can determine which subscriber ID belongs to you.
+            </div>
+        </div>
+    </div>
+</article><?php
+Layout::pageFoot();

src/public/legal/terms-of-service.php

@@ -0,0 +1,59 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Layout, UI};
+
+require '../../start.php';
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+
+Layout::pageHead('Terms of Service'); ?>
+<article class="container mt-3">
+    <h2 class=mb-2>Terms of Service</h2>
+    <h6 class="text-muted pb-3">as of May 21<sup>st</sup>, 2018</h6>
+    <div class=card>
+        <div class="list-group list-group-flush">
+            <div class=list-group-item>
+                <h3>1. Acceptance of Terms</h3>
+                <p class=card-text>
+                    By accessing this web site, you are agreeing to be bound by these Terms and Conditions, and that you
+                    are responsible to ensure that your use of this site complies with all applicable laws. Your
+                    continued use of this site implies your acceptance of these terms.
+            </div>
+            <div class=list-group-item>
+                <h3>2. Description of Service and Registration</h3>
+                <p class=card-text>
+                    myPrayerJournal is a service that allows individuals to enter and amend their prayer requests. It
+                    requires no registration by itself, but access is granted based on a successful login with an
+                    external identity provider. See
+                    <?php UI::pageLink('/legal/privacy-policy', 'our privacy policy'); ?> for details on how that
+                    information is accessed and stored.
+            </div>
+            <div class=list-group-item>
+                <h3>3. Third Party Services</h3>
+                <p class=card-text>
+                    This service utilizes a third-party service provider for identity management. Review the terms of
+                    service for <a href=https://auth0.com/terms target=_blank rel=noopener>Auth0</a>, as well as those
+                    for the selected authorization provider
+                    (<a href=https://www.microsoft.com/en-us/servicesagreement target=_blank rel=noopener>Microsoft</a>
+                    or <a href=https://policies.google.com/terms target=_blank rel=noopener>Google</a>).
+            </div>
+            <div class=list-group-item>
+                <h3>4. Liability</h3>
+                <p class=card-text>
+                    This service is provided &ldquo;as is&rdquo;, and no warranty (express or implied) exists. The
+                    service and its developers may not be held liable for any damages that may arise through the use of
+                    this service.
+            </div>
+            <div class=list-group-item>
+                <h3>5. Updates to Terms</h3>
+                <p class=card-text>
+                    These terms and conditions may be updated at any time, and this service does not have the capability
+                    to notify users when these change. The date at the top of the page will be updated when any of the
+                    text of these terms is updated."
+            </div>
+        </div>
+    </div>
+    <p class=pt-3>
+        You may also wish to review our <?php UI::pageLink('/legal/privacy-policy', 'privacy policy'); ?> to learn how
+        we handle your data.
+</article><?php
+Layout::pageFoot();

src/public/request/cancel-snooze.php

@@ -0,0 +1,15 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Layout, Table, UI};
+use BitBadger\PDODocument\RemoveFields;
+
+require '../../../start.php';
+
+$req = validate_request($_GET['id'], ['GET'], false);
+
+RemoveFields::byId(Table::REQUEST, $req->id, ['snoozedUntil']);
+
+// TODO: message
+Layout::bareHead();
+UI::requestItem($req);
+Layout::bareFoot();

src/public/request/edit.php

@@ -0,0 +1,105 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Auth, Layout, RecurrencePeriod, Request, RequestAction, UI};
+
+require '../../start.php';
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+
+Auth::requireUser();
+
+$isNew = $_GET['id'] == 'new';
+
+$req = match ($isNew) {
+    true  => new Request('new'),
+    false => Request::byId($_GET['id'])
+};
+if (!$req) not_found();
+
+$cancelLink = match (true) {
+    str_ends_with($_SERVER['HTTP_REFERER'] ?? '', 'active.php')  => '/requests/active',
+    str_ends_with($_SERVER['HTTP_REFERER'] ?? '', 'snoozed.php') => '/requests/snoozed',
+    default                                                      => '/journal'
+};
+$action = $_GET['id'] == 'new' ? 'Add' : 'Edit';
+
+Layout::pageHead("$action Prayer Request");?>
+<article class=container>
+    <h2 class=pb-3><?=$action?> Prayer Request</h2>
+    <form <?=$isNew ? 'hx-post' : 'hx-patch'?>=/request/save hx-target=#top hx-push-url=true>
+        <input type=hidden name=requestId value=<?=$req->id?>>
+        <input type=hidden name=returnTo value=<?=$cancelLink?>>
+        <div class="form-floating pb-3">
+            <textarea id=requestText name=requestText class=form-control style="min-height: 8rem;"
+                      placeholder="Enter the text of the request" autofocus required><?=$req->currentText()?></textarea>
+            <label for=requestText>Prayer Request</label>
+        </div><br><?php
+        if (!$isNew) { ?>
+            <div class=pb-3>
+                <label>Also Mark As</label><br>
+                <div class="form-check form-check-inline">
+                    <input type=radio class=form-check-input id=sU name=status value=<?=RequestAction::Updated->value?>
+                           checked>
+                    <label for=sU>Updated</label>
+                </div>
+                <div class="form-check form-check-inline">
+                    <input type=radio class=form-check-input id=sP name=status value=<?=RequestAction::Prayed->value?>>
+                    <label for=sP>Prayed</label>
+                </div>
+                <div class="form-check form-check-inline">
+                    <input type=radio class=form-check-input id=sA name=status
+                           value=<?=RequestAction::Answered->value?>>
+                    <label for=sA>Answered</label>
+                </div>
+            </div><?php
+        } ?>
+        <div class=row">
+            <div class="col-12 offset-md-2 col-md-8 offset-lg-3 col-lg-6">
+                <p><strong>Recurrence &nbsp;</strong> <em class=text-muted>After prayer, request reappears&hellip;</em>
+                <div class="d-flex flex-row flex-wrap justify-content-center align-items-center">
+                    <div class="form-check mx-2">
+                        <input type=radio class=form-check-input id=rI name=recurType
+                               value=<?=RecurrencePeriod::Immediate->value?>
+                               onclick="mpj.edit.toggleRecurrence(event)"<?php
+                               if ($req->recurrence->period == RecurrencePeriod::Immediate) echo ' checked'; ?>>
+                        <label for=rI>Immediately</label>
+                    </div>
+                    <div class="form-check mx-2">
+                        <input type=radio class=form-check-input id=rO name=recurType value=Other
+                               onclick="mpj.edit.toggleRecurrence(event)"<?php
+                               if ($req->recurrence->period <> RecurrencePeriod::Immediate) echo ' checked'; ?>>
+                        <label for=rO>Every&hellip;</label>
+                    </div>
+                    <div class="form-floating mx-2">
+                        <input type=number class=form-control id=recurCount name=recurCount placeholder=0 required
+                               value=<?=$req->recurrence->interval ?? 0?> style="width:6rem;"<?php
+                               if ($req->recurrence->period == RecurrencePeriod::Immediate) echo ' disabled'; ?>>
+                        <label for=recurCount>Count</label>
+                    </div>
+                    <div class="form-floating mx-2">
+                        <select class=form-control id=recurInterval name=recurInterval style="width:6rem;" required<?php
+                                if ($req->recurrence->period == RecurrencePeriod::Immediate) echo ' disabled'; ?>>
+                            <option value=<?=RecurrencePeriod::Hours->value?><?php
+                                    if ($req->recurrence->period == RecurrencePeriod::Hours) echo ' selected'; ?>>
+                                hours
+                            </option>
+                            <option value=<?=RecurrencePeriod::Days->value?><?php
+                                    if ($req->recurrence->period == RecurrencePeriod::Days) echo ' selected'; ?>>
+                                days
+                            </option>
+                            <option value=<?=RecurrencePeriod::Weeks->value?><?php
+                                    if ($req->recurrence->period == RecurrencePeriod::Weeks) echo ' selected'; ?>>
+                                weeks
+                            </option>
+                        </select>
+                        <label for=recurInterval>Interval</label>
+                    </div>
+                </div>
+            </div>
+        </div>
+        <div class="text-end pt-3">
+            <button class="btn btn-primary me-2" type=submit><?=UI::icon('save');?> Save</button><?php
+            UI::pageLink($cancelLink, UI::icon('arrow_back') . ' Cancel', ['class' => 'btn btn-secondary ms-2']); ?>
+        </div>
+    </form>
+</article><?php
+Layout::pageFoot();

src/public/request/full.php

@@ -0,0 +1,45 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{History, Layout, Note, RequestAction, UI};
+
+require '../../start.php';
+
+$req = validate_request($_GET['id'], ['GET']);
+
+$answered = $req->isAnswered() ? new DateTimeImmutable($req->history[0]->asOf) : null;
+$prayed   = sizeof(array_filter($req->history, fn(History $hist) => $hist->action == RequestAction::Prayed));
+$daysOpen =
+    (($answered ?? new DateTimeImmutable('now'))->getTimestamp()
+        - (new DateTimeImmutable(end($req->history)->asOf))->getTimestamp()) / 86400;
+
+$logs = array_merge(
+    array_map(fn(Note $note) => [new DateTimeImmutable($note->asOf), 'Notes', $note->text], $req->notes),
+    array_map(fn(History $hist) => [new DateTimeImmutable($hist->asOf), $hist->action->value, $hist->text ?? ''],
+        $req->history));
+usort($logs, fn($a, $b) => $a[0] > $b[0] ? -1 : 1);
+if ($req->isAnswered()) array_shift($logs);
+
+Layout::pageHead('Full Request');?>
+<article class="container mt-3">
+    <div class=card>
+        <h5 class=card-header>Full Prayer Request</h5>
+        <div class=card-body>
+            <h6 class="card-subtitle text-muted mb-2"><?php
+                if (!is_null($answered)) { ?>
+                    Answered <?=$answered->format('F j, Y')?>
+                    (<?=UI::formatDistance('now', $req->history[0]->asOf);?>) &bull;<?php
+                } ?>
+                Prayed <?=number_format($prayed)?> times &bull; Open <?=number_format($daysOpen)?> days
+            </h6>
+            <p class=card-text><?=htmlentities($req->currentText())?>
+        </div>
+        <ul class="list-group list-group-flush"><?php
+            foreach ($logs as $log) { ?>
+                <li class=list-group-item>
+                    <p class=m-0><?=$log[1]?>&nbsp; <small><em><?=$log[0]->format('F j, Y')?></em></small><?php
+                    if ($log[2] <> '') echo '<p class="mt-2 mb-0">' . htmlentities($log[2]);
+            } ?>
+        </ul>
+    </div>
+</article><?php
+Layout::pageFoot();

src/public/request/note.php

@@ -0,0 +1,14 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Note, Table};
+use BitBadger\PDODocument\Patch;
+
+require '../../start.php';
+
+$req = validate_request($_GET['id'], ['POST'], false);
+
+array_unshift($req->notes, new Note((new DateTimeImmutable('now'))->format('c'), $_POST['notes']));
+Patch::byId(Table::REQUEST, $req->id, ['notes' => $req->notes]);
+
+hide_modal('notes');
+http_response_code(202);

src/public/request/prayed.php

@@ -0,0 +1,19 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{History, RecurrencePeriod, RequestAction, Table, UI};
+use BitBadger\PDODocument\Patch;
+
+require '../../start.php';
+
+$req = validate_request($_GET['id'], ['PATCH'], false);
+$now = new DateTimeImmutable('now');
+
+array_unshift($req->history, new History($now->format('c'), RequestAction::Prayed));
+$patch = ['history' => $req->history];
+
+if ($req->recurrence->period <> RecurrencePeriod::Immediate) {
+    $patch['showAfter'] = $now->add($req->recurrence->interval())->format('c');
+}
+Patch::byId(Table::REQUEST, $req->id, $patch);
+
+UI::journal();

src/public/request/save.php

@@ -0,0 +1,46 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Auth, History, Recurrence, RecurrencePeriod, Request, RequestAction, Table};
+use BitBadger\PDODocument\{Document, Patch, RemoveFields};
+
+require '../../start.php';
+if ($_SERVER['REQUEST_METHOD'] <> 'POST' && $_SERVER['REQUEST_METHOD'] <> 'PATCH') not_found();
+
+Auth::requireUser(false);
+
+$now        = new DateTimeImmutable('now');
+$recurrence = new Recurrence(RecurrencePeriod::from($_POST['recurType'] ?? $_PATCH['recurType']));
+if ($recurrence->period <> RecurrencePeriod::Immediate) {
+    $recurrence->interval = (int)($_POST['recurCount'] ?? $_PATCH['recurCount']);
+}
+
+switch ($_SERVER['REQUEST_METHOD']) {
+    case 'POST':
+        Document::insert(Table::REQUEST, new Request(
+            enteredOn:  $now->format('c'),
+            userId:     $_SESSION['user_id'],
+            recurrence: $recurrence,
+            history:    [new History($now->format('c'), RequestAction::Created, $_POST['requestText'])]));
+        //Messages.pushSuccess ctx "Added prayer request" "/journal"
+        see_other('/journal');
+
+    case 'PATCH':
+        $req = Request::byId($_PATCH['requestId']);
+        if (!$req) not_found();
+        $patch = [];
+        // update recurrence if changed
+        if ($recurrence != $req->recurrence) {
+            $patch['recurrence'] = $recurrence;
+            if ($recurrence->period == RecurrencePeriod::Immediate) {
+                RemoveFields::byId(Table::REQUEST, $req->id, ['showAfter']);
+            }
+        }
+        // append history
+        $upd8Text = trim($_PATCH['requestText']);
+        $text     = $upd8Text == '' || $upd8Text == $req->currentText() ? null : $upd8Text;
+        array_unshift($req->history, new History($now->format('c'), RequestAction::from($_PATCH['status']), $text));
+        $patch['history'] = $req->history;
+        Patch::byId(Table::REQUEST, $req->id, $patch);
+        //Messages.pushSuccess ctx "Prayer request updated successfully" nextUrl
+        see_other($_PATCH['returnTo']);
+}

src/public/request/snooze.php

@@ -0,0 +1,17 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Table, UI};
+use BitBadger\PDODocument\Patch;
+
+require '../../start.php';
+
+$req = validate_request($_GET['id'], ['PATCH'], false);
+
+$until = (new DateTimeImmutable($_PATCH['until'] . 'T00:00:00', new DateTimeZone($_REQUEST['time_zone'])))
+             ->setTimezone(new DateTimeZone('Etc/UTC'));
+Patch::byId(Table::REQUEST, $req->id, ['snoozedUntil' => $until->format('c')]);
+
+// TODO: message
+
+hide_modal('snooze');
+UI::journal();

src/public/requests/active.php

@@ -0,0 +1,22 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Auth, Layout, Request, UI};
+
+require '../../start.php';
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+
+Auth::requireUser();
+
+$reqs = Request::active();
+
+Layout::pageHead('Active Requests'); ?>
+<article class="container mt-3">
+    <h2 class=pb-3>Active Requests</h2><?php
+    if ($reqs->hasItems()) {
+        UI::requestList($reqs);
+    } else {
+        UI::noResults('No Active Requests', '/journal', 'Return to your journal',
+            'Your prayer journal has no active requests');
+    } ?>
+</article><?php
+Layout::pageFoot();

src/public/requests/answered.php

@@ -0,0 +1,24 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Auth, Layout, Request, UI};
+
+require '../../start.php';
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+
+Auth::requireUser();
+
+$reqs = Request::answered();
+
+Layout::pageHead('Answered Requests'); ?>
+<article class="container mt-3">
+    <h2 class=pb-3>Answered Requests</h2><?php
+    if ($reqs->hasItems()) {
+        UI::requestList($reqs);
+    } else {
+        UI::noResults('No Answered Requests', '/journal', 'Return to your journal', <<<'TEXT'
+            Your prayer journal has no answered requests; once you have marked one as &ldquo;Answered&rdquo;, it will
+            appear here
+            TEXT);
+    } ?>
+</article><?php
+Layout::pageFoot();

src/public/requests/snoozed.php

@@ -0,0 +1,22 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\{Auth, Layout, Request, UI};
+
+require '../../start.php';
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+
+Auth::requireUser();
+
+$reqs = Request::snoozed();
+
+Layout::pageHead('Snoozed Requests'); ?>
+<article class="container mt-3">
+    <h2 class=pb-3>Snoozed Requests</h2><?php
+    if ($reqs->hasItems()) {
+        UI::requestList($reqs);
+    } else {
+        UI::noResults('No Snoozed Requests', '/journal', 'Return to your journal',
+            'Your prayer journal has no snoozed requests');
+    } ?>
+</article><?php
+Layout::pageFoot();

src/public/style/style.css

@@ -0,0 +1,57 @@
+
+nav {
+  background-color: green;
+}
+nav .m {
+  font-weight: 100;
+}
+nav .p {
+  font-weight: 400;
+}
+nav .j {
+  font-weight: 700;
+}
+.nav-item a:link,
+.nav-item a:visited {
+  padding: .5rem 1rem;
+  margin: 0 .5rem;
+  border-radius: .5rem;
+  color: white;
+  text-decoration: none;
+}
+.nav-item a:hover {
+  cursor: pointer;
+  background-color: rgba(255, 255, 255, .2);
+}
+.nav-item a.is-active-route {
+  border-top-left-radius: 0;
+  border-top-right-radius: 0;
+  border-top: solid 4px rgba(255, 255, 255, .3);
+}
+
+form {
+  max-width: 60rem;
+  margin: auto;
+}
+.action-cell .material-icons {
+  font-size: 1.1rem ;
+}
+.material-icons {
+  vertical-align: bottom;
+}
+#toastHost {
+  position: sticky;
+  bottom: 0;
+}
+.request-text {
+  white-space: pre-line
+}
+
+footer {
+  border-top: solid 1px lightgray;
+  margin: 1rem -1rem 0;
+  padding: 0 1rem;
+}
+footer p {
+  margin: 0;
+}

src/public/user/log-off.php

@@ -0,0 +1,7 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\Auth;
+
+require '../../start.php';
+
+Auth::logOff();

src/public/user/log-on.php

@@ -0,0 +1,8 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\Auth;
+
+if ($_SERVER['REQUEST_METHOD'] <> 'GET') not_found();
+require '../../start.php';
+
+Auth::logOn();

src/public/user/log-on/success.php

@@ -0,0 +1,11 @@
+<?php declare(strict_types=1);
+
+use MyPrayerJournal\Auth;
+
+require '../../../start.php';
+
+Auth::client()->exchange($_ENV['AUTH0_BASE_URL'] . '/user/log-on/success');
+
+// TODO: get the possible redirect URL
+header('Location: /journal');
+exit();

src/start.php

@@ -0,0 +1,85 @@
+<?php declare(strict_types=1);
+
+use Auth0\SDK\Exception\ConfigurationException;
+use BitBadger\PDODocument\{Configuration, Definition, DocumentException, Mode};
+use Dotenv\Dotenv;
+use MyPrayerJournal\{Auth, Request, Table};
+
+require __DIR__ . '/vendor/autoload.php';
+
+/** The version of this application */
+const MPJ_VERSION = '4.0.0-alpha1';
+
+(Dotenv::createImmutable(__DIR__))->load();
+
+if (php_sapi_name() != 'cli') {
+    session_start();
+
+    $auth0_user = Auth::user();
+    if (!is_null($auth0_user)) {
+        $_SESSION['user_id'] = $auth0_user['sub'];
+    }
+
+    $_REQUEST['time_zone'] = $_SERVER['HTTP_X_TIME_ZONE'] ?? 'Etc/UTC';
+}
+
+Configuration::$pdoDSN = 'sqlite:' . implode(DIRECTORY_SEPARATOR, [__DIR__, 'data', 'mpj.db']);
+Configuration::$mode   = Mode::SQLite;
+Definition::ensureTable(Table::REQUEST);
+Definition::ensureFieldIndex(Table::REQUEST, 'user', ['userId']);
+
+$_PATCH = [];
+if ($_SERVER['REQUEST_METHOD'] ?? '' == 'PATCH') parse_str(file_get_contents('php://input'), $_PATCH);
+
+/**
+ * Return a 404 and exit
+ */
+function not_found(): never
+{
+    http_response_code(404);
+    die('Not found');
+}
+
+/**
+ * Return a 303 redirect ("see other" - redirects to a GET)
+ *
+ * @param string $url The URL to which the browser should be redirected
+ */
+function see_other(string $url): never
+{
+    header('Location: ' . (str_starts_with($url, 'http') ? '/' : $url));
+    http_response_code(303);
+    exit;
+}
+
+/**
+ * Add a header that instructs the browser to close an open modal dialog
+ *
+ * @param string $name The name of the dialog to be closed
+ */
+function hide_modal(string $name): void
+{
+    header("X-Hide-Modal: $name");
+}
+
+/**
+ * Validate the user, HTTP method, and request
+ *
+ * @param string $id The ID of the prayer request to retrieve
+ * @param array $methods The allowable HTTP methods
+ * @param bool $redirect Whether to redirect not-logged-on users (optional, defaults to true)
+ * @return Request The request (failures will not return)
+ * @throws ConfigurationException If any is encountered
+ * @throws DocumentException If any is encountered
+ */
+function validate_request(string $id, array $methods, bool $redirect = true): Request
+{
+    if (sizeof(array_filter($methods, fn($it) => $_SERVER['REQUEST_METHOD'] == $it)) == 0) not_found();
+
+    Auth::requireUser($redirect);
+
+    $req = Request::byId($id);
+    if (!$req) not_found();
+
+    return $req;
+}