Version 2.2.2 (#35)

- Allow instances to be disabled (partial fix for #29 and #33)
- Use RethinkDB F# driver (partial fix for #34)
- Add FAKE build script (addresses #30)

.config/dotnet-tools.json

@@ -0,0 +1,12 @@
+{
+  "version": 1,
+  "isRoot": true,
+  "tools": {
+    "fake-cli": {
+      "version": "5.22.0",
+      "commands": [
+        "fake"
+      ]
+    }
+  }
+}

.gitignore

@@ -4,6 +4,4 @@ src/**/bin
 src/**/obj
 src/**/appsettings.*.json
 src/.vs
-
+src/.idea
-## This stores history of every deployment
-src/JobsJobsJobs/Server/Properties/PublishProfiles/FolderProfile.pubxml.user

build.fsx

@@ -0,0 +1,78 @@
+#r "paket:
+nuget Fake.DotNet.Cli
+nuget Fake.IO.FileSystem
+nuget Fake.JavaScript.Npm
+nuget Fake.Core.Target //"
+#load ".fake/build.fsx/intellisense.fsx"
+open Fake.Core
+open Fake.DotNet
+open Fake.IO
+open Fake.IO.Globbing.Operators
+open Fake.JavaScript
+open Fake.Core.TargetOperators
+
+/// The path to the Vue client
+let clientPath = "src/JobsJobsJobs/App"
+
+/// The path to the API server
+let serverPath = "src/JobsJobsJobs/Server"
+
+Target.initEnvironment ()
+
+Target.create "Clean" (fun _ ->
+    !! "src/**/bin"
+    ++ "src/**/obj"
+    ++ $"{serverPath}/wwwroot"
+    |> Shell.cleanDirs
+)
+
+Target.create "BuildClient" (fun _ ->
+    let inClientPath (opts : Npm.NpmParams) = { opts with WorkingDirectory = clientPath;  }
+    Npm.exec "i --legacy-peer-deps" inClientPath
+    Npm.run  "build"                inClientPath
+)
+
+Target.create "BuildServer" (fun _ ->
+    DotNet.build (fun opts -> { opts with NoLogo = true }) serverPath
+)
+
+Target.create "RunServer" (fun _ ->
+    DotNet.exec (fun opts -> { opts with WorkingDirectory = serverPath }) "run" "" |> ignore
+)
+
+Target.create "Publish" (fun _ ->
+    DotNet.publish
+        (fun opts -> { opts with Runtime = Some "linux-x64"; SelfContained = Some false; NoLogo = true })
+        serverPath
+)
+
+Target.create "BuildAndRun" ignore
+Target.create "All" ignore
+
+"Clean"
+  ==> "All"
+"Clean"
+  ==> "Publish"
+"Clean"
+  ?=> "BuildClient"
+"Clean"
+  ==> "BuildAndRun"
+
+"BuildClient"
+  ==> "All"
+"BuildClient"
+  ?=> "BuildServer"
+"BuildClient"
+  ?=> "RunServer"
+"BuildClient"
+  ==> "BuildAndRun"
+"BuildClient"
+  ==> "Publish"
+
+"BuildServer"
+  ==> "All"
+
+"RunServer"
+  ==> "BuildAndRun"
+
+Target.runOrDefault "All"

build.fsx.lock

@@ -0,0 +1,232 @@
+STORAGE: NONE
+RESTRICTION: || (== net6.0) (== netstandard2.0)
+NUGET
+  remote: https://api.nuget.org/v3/index.json
+    BlackFox.VsWhere (1.1)
+      FSharp.Core (>= 4.2.3)
+      Microsoft.Win32.Registry (>= 4.7)
+    Fake.Core.CommandLineParsing (5.22)
+      FParsec (>= 1.1.1)
+      FSharp.Core (>= 6.0)
+    Fake.Core.Context (5.22)
+      FSharp.Core (>= 6.0)
+    Fake.Core.Environment (5.22)
+      FSharp.Core (>= 6.0)
+    Fake.Core.FakeVar (5.22)
+      Fake.Core.Context (>= 5.22)
+      FSharp.Core (>= 6.0)
+    Fake.Core.Process (5.22)
+      Fake.Core.Environment (>= 5.22)
+      Fake.Core.FakeVar (>= 5.22)
+      Fake.Core.String (>= 5.22)
+      Fake.Core.Trace (>= 5.22)
+      Fake.IO.FileSystem (>= 5.22)
+      FSharp.Core (>= 6.0)
+      System.Collections.Immutable (>= 5.0)
+    Fake.Core.SemVer (5.22)
+      FSharp.Core (>= 6.0)
+    Fake.Core.String (5.22)
+      FSharp.Core (>= 6.0)
+    Fake.Core.Target (5.22)
+      Fake.Core.CommandLineParsing (>= 5.22)
+      Fake.Core.Context (>= 5.22)
+      Fake.Core.Environment (>= 5.22)
+      Fake.Core.FakeVar (>= 5.22)
+      Fake.Core.Process (>= 5.22)
+      Fake.Core.String (>= 5.22)
+      Fake.Core.Trace (>= 5.22)
+      FSharp.Control.Reactive (>= 5.0.2)
+      FSharp.Core (>= 6.0)
+    Fake.Core.Tasks (5.22)
+      Fake.Core.Trace (>= 5.22)
+      FSharp.Core (>= 6.0)
+    Fake.Core.Trace (5.22)
+      Fake.Core.Environment (>= 5.22)
+      Fake.Core.FakeVar (>= 5.22)
+      FSharp.Core (>= 6.0)
+    Fake.Core.Xml (5.22)
+      Fake.Core.String (>= 5.22)
+      FSharp.Core (>= 6.0)
+    Fake.DotNet.Cli (5.22)
+      Fake.Core.Environment (>= 5.22)
+      Fake.Core.Process (>= 5.22)
+      Fake.Core.String (>= 5.22)
+      Fake.Core.Trace (>= 5.22)
+      Fake.DotNet.MSBuild (>= 5.22)
+      Fake.DotNet.NuGet (>= 5.22)
+      Fake.IO.FileSystem (>= 5.22)
+      FSharp.Core (>= 6.0)
+      Mono.Posix.NETStandard (>= 1.0)
+      Newtonsoft.Json (>= 13.0.1)
+    Fake.DotNet.MSBuild (5.22)
+      BlackFox.VsWhere (>= 1.1)
+      Fake.Core.Environment (>= 5.22)
+      Fake.Core.Process (>= 5.22)
+      Fake.Core.String (>= 5.22)
+      Fake.Core.Trace (>= 5.22)
+      Fake.IO.FileSystem (>= 5.22)
+      FSharp.Core (>= 6.0)
+      MSBuild.StructuredLogger (>= 2.1.545)
+    Fake.DotNet.NuGet (5.22)
+      Fake.Core.Environment (>= 5.22)
+      Fake.Core.Process (>= 5.22)
+      Fake.Core.SemVer (>= 5.22)
+      Fake.Core.String (>= 5.22)
+      Fake.Core.Tasks (>= 5.22)
+      Fake.Core.Trace (>= 5.22)
+      Fake.Core.Xml (>= 5.22)
+      Fake.IO.FileSystem (>= 5.22)
+      Fake.Net.Http (>= 5.22)
+      FSharp.Core (>= 6.0)
+      Newtonsoft.Json (>= 13.0.1)
+      NuGet.Protocol (>= 5.11)
+    Fake.IO.FileSystem (5.22)
+      Fake.Core.String (>= 5.22)
+      FSharp.Core (>= 6.0)
+    Fake.JavaScript.Npm (5.22)
+      Fake.Core.Environment (>= 5.22)
+      Fake.Core.Process (>= 5.22)
+      Fake.IO.FileSystem (>= 5.22)
+      Fake.Testing.Common (>= 5.22)
+      FSharp.Core (>= 6.0)
+    Fake.Net.Http (5.22)
+      Fake.Core.Trace (>= 5.22)
+      FSharp.Core (>= 6.0)
+    Fake.Testing.Common (5.22)
+      Fake.Core.Trace (>= 5.22)
+      FSharp.Core (>= 6.0)
+    FParsec (1.1.1)
+      FSharp.Core (>= 4.3.4)
+    FSharp.Control.Reactive (5.0.5)
+      FSharp.Core (>= 4.7.2)
+      System.Reactive (>= 5.0 < 6.0)
+    FSharp.Core (6.0.5)
+    Microsoft.Build (17.2)
+      Microsoft.Build.Framework (>= 17.2) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net472)) (&& (== netstandard2.0) (>= net6.0))
+      Microsoft.NET.StringTools (>= 1.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net472)) (&& (== netstandard2.0) (>= net6.0))
+      Microsoft.Win32.Registry (>= 4.3) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net6.0))
+      System.Collections.Immutable (>= 5.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net472)) (&& (== netstandard2.0) (>= net6.0))
+      System.Configuration.ConfigurationManager (>= 4.7) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net472)) (&& (== netstandard2.0) (>= net6.0))
+      System.Reflection.Metadata (>= 1.6) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net6.0))
+      System.Security.Principal.Windows (>= 4.7) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net6.0))
+      System.Text.Encoding.CodePages (>= 4.0.1) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net6.0))
+      System.Text.Json (>= 6.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net472)) (&& (== netstandard2.0) (>= net6.0))
+      System.Threading.Tasks.Dataflow (>= 6.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net472)) (&& (== netstandard2.0) (>= net6.0))
+    Microsoft.Build.Framework (17.2)
+      Microsoft.Win32.Registry (>= 4.3)
+      System.Security.Permissions (>= 4.7)
+    Microsoft.Build.Tasks.Core (17.2)
+      Microsoft.Build.Framework (>= 17.2)
+      Microsoft.Build.Utilities.Core (>= 17.2)
+      Microsoft.NET.StringTools (>= 1.0)
+      Microsoft.Win32.Registry (>= 4.3)
+      System.CodeDom (>= 4.4)
+      System.Collections.Immutable (>= 5.0)
+      System.Reflection.Metadata (>= 1.6)
+      System.Resources.Extensions (>= 4.6)
+      System.Security.Cryptography.Pkcs (>= 4.7)
+      System.Security.Cryptography.Xml (>= 4.7)
+      System.Security.Permissions (>= 4.7)
+      System.Threading.Tasks.Dataflow (>= 6.0)
+    Microsoft.Build.Utilities.Core (17.2)
+      Microsoft.Build.Framework (>= 17.2)
+      Microsoft.NET.StringTools (>= 1.0)
+      Microsoft.Win32.Registry (>= 4.3)
+      System.Collections.Immutable (>= 5.0)
+      System.Configuration.ConfigurationManager (>= 4.7)
+      System.Security.Permissions (>= 4.7) - restriction: == netstandard2.0
+      System.Text.Encoding.CodePages (>= 4.0.1) - restriction: == netstandard2.0
+    Microsoft.NET.StringTools (1.0)
+      System.Memory (>= 4.5.4)
+      System.Runtime.CompilerServices.Unsafe (>= 5.0)
+    Microsoft.NETCore.Platforms (6.0.4) - restriction: || (&& (== net6.0) (< netcoreapp3.1)) (&& (== net6.0) (< netstandard1.2)) (&& (== net6.0) (< netstandard1.3)) (&& (== net6.0) (< netstandard1.5)) (== netstandard2.0)
+    Microsoft.NETCore.Targets (5.0) - restriction: || (&& (== net6.0) (< netcoreapp3.1)) (&& (== net6.0) (< netstandard1.2)) (&& (== net6.0) (< netstandard1.3)) (&& (== net6.0) (< netstandard1.5)) (== netstandard2.0)
+    Microsoft.Win32.Registry (5.0)
+      System.Buffers (>= 4.5.1) - restriction: || (&& (== net6.0) (>= monoandroid) (< netstandard1.3)) (&& (== net6.0) (>= monotouch)) (&& (== net6.0) (< netcoreapp2.0)) (&& (== net6.0) (>= xamarinios)) (&& (== net6.0) (>= xamarinmac)) (&& (== net6.0) (>= xamarintvos)) (&& (== net6.0) (>= xamarinwatchos)) (== netstandard2.0)
+      System.Memory (>= 4.5.4) - restriction: || (&& (== net6.0) (< netcoreapp2.0)) (&& (== net6.0) (< netcoreapp2.1)) (&& (== net6.0) (>= uap10.1)) (== netstandard2.0)
+      System.Security.AccessControl (>= 5.0)
+      System.Security.Principal.Windows (>= 5.0)
+    Microsoft.Win32.SystemEvents (6.0.1) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= netcoreapp3.1))
+    Mono.Posix.NETStandard (1.0)
+    MSBuild.StructuredLogger (2.1.669)
+      Microsoft.Build (>= 16.10)
+      Microsoft.Build.Framework (>= 16.10)
+      Microsoft.Build.Tasks.Core (>= 16.10)
+      Microsoft.Build.Utilities.Core (>= 16.10)
+    Newtonsoft.Json (13.0.1)
+    NuGet.Common (6.2.1)
+      NuGet.Frameworks (>= 6.2.1)
+    NuGet.Configuration (6.2.1)
+      NuGet.Common (>= 6.2.1)
+      System.Security.Cryptography.ProtectedData (>= 4.4)
+    NuGet.Frameworks (6.2.1)
+    NuGet.Packaging (6.2.1)
+      Newtonsoft.Json (>= 13.0.1)
+      NuGet.Configuration (>= 6.2.1)
+      NuGet.Versioning (>= 6.2.1)
+      System.Security.Cryptography.Cng (>= 5.0)
+      System.Security.Cryptography.Pkcs (>= 5.0)
+    NuGet.Protocol (6.2.1)
+      NuGet.Packaging (>= 6.2.1)
+    NuGet.Versioning (6.2.1)
+    System.Buffers (4.5.1) - restriction: || (&& (== net6.0) (>= monoandroid) (< netstandard1.3)) (&& (== net6.0) (>= monotouch)) (&& (== net6.0) (< netcoreapp2.0)) (&& (== net6.0) (>= xamarinios)) (&& (== net6.0) (>= xamarinmac)) (&& (== net6.0) (>= xamarintvos)) (&& (== net6.0) (>= xamarinwatchos)) (== netstandard2.0)
+    System.CodeDom (6.0)
+    System.Collections.Immutable (6.0)
+      System.Memory (>= 4.5.4) - restriction: || (&& (== net6.0) (>= net461)) (== netstandard2.0)
+      System.Runtime.CompilerServices.Unsafe (>= 6.0)
+    System.Configuration.ConfigurationManager (6.0)
+      System.Security.Cryptography.ProtectedData (>= 6.0)
+      System.Security.Permissions (>= 6.0)
+    System.Drawing.Common (6.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= netcoreapp3.1))
+      Microsoft.Win32.SystemEvents (>= 6.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= netcoreapp3.1))
+    System.Formats.Asn1 (6.0)
+      System.Buffers (>= 4.5.1) - restriction: || (&& (== net6.0) (>= net461)) (== netstandard2.0)
+      System.Memory (>= 4.5.4) - restriction: || (&& (== net6.0) (>= net461)) (== netstandard2.0)
+    System.Memory (4.5.5)
+      System.Buffers (>= 4.5.1) - restriction: || (&& (== net6.0) (>= monotouch)) (&& (== net6.0) (>= net461)) (&& (== net6.0) (< netcoreapp2.0)) (&& (== net6.0) (< netstandard1.1)) (&& (== net6.0) (< netstandard2.0)) (&& (== net6.0) (>= xamarinios)) (&& (== net6.0) (>= xamarinmac)) (&& (== net6.0) (>= xamarintvos)) (&& (== net6.0) (>= xamarinwatchos)) (== netstandard2.0)
+      System.Numerics.Vectors (>= 4.4) - restriction: || (&& (== net6.0) (< netcoreapp2.0)) (== netstandard2.0)
+      System.Runtime.CompilerServices.Unsafe (>= 4.5.3) - restriction: || (&& (== net6.0) (>= monotouch)) (&& (== net6.0) (>= net461)) (&& (== net6.0) (< netcoreapp2.0)) (&& (== net6.0) (< netcoreapp2.1)) (&& (== net6.0) (< netstandard1.1)) (&& (== net6.0) (< netstandard2.0)) (&& (== net6.0) (>= uap10.1)) (&& (== net6.0) (>= xamarinios)) (&& (== net6.0) (>= xamarinmac)) (&& (== net6.0) (>= xamarintvos)) (&& (== net6.0) (>= xamarinwatchos)) (== netstandard2.0)
+    System.Numerics.Vectors (4.5) - restriction: || (&& (== net6.0) (>= net461)) (== netstandard2.0)
+    System.Reactive (5.0)
+      System.Runtime.InteropServices.WindowsRuntime (>= 4.3) - restriction: || (&& (== net6.0) (< netcoreapp3.1)) (== netstandard2.0)
+      System.Threading.Tasks.Extensions (>= 4.5.4) - restriction: || (&& (== net6.0) (>= net472)) (&& (== net6.0) (< netcoreapp3.1)) (&& (== net6.0) (>= uap10.1)) (== netstandard2.0)
+    System.Reflection.Metadata (6.0.1)
+      System.Collections.Immutable (>= 6.0)
+    System.Resources.Extensions (6.0)
+      System.Memory (>= 4.5.4) - restriction: || (&& (== net6.0) (>= net461)) (== netstandard2.0)
+    System.Runtime (4.3.1) - restriction: || (&& (== net6.0) (< netcoreapp3.1)) (== netstandard2.0)
+      Microsoft.NETCore.Platforms (>= 1.1.1)
+      Microsoft.NETCore.Targets (>= 1.1.3)
+    System.Runtime.CompilerServices.Unsafe (6.0)
+    System.Runtime.InteropServices.WindowsRuntime (4.3) - restriction: || (&& (== net6.0) (< netcoreapp3.1)) (== netstandard2.0)
+      System.Runtime (>= 4.3)
+    System.Security.AccessControl (6.0)
+      System.Security.Principal.Windows (>= 5.0) - restriction: || (&& (== net6.0) (>= net461)) (== netstandard2.0)
+    System.Security.Cryptography.Cng (5.0)
+      System.Formats.Asn1 (>= 5.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= netcoreapp3.0))
+    System.Security.Cryptography.Pkcs (6.0.1)
+      System.Buffers (>= 4.5.1) - restriction: || (&& (== net6.0) (< netstandard2.1)) (== netstandard2.0)
+      System.Formats.Asn1 (>= 6.0)
+      System.Memory (>= 4.5.4) - restriction: || (&& (== net6.0) (< netstandard2.1)) (== netstandard2.0)
+      System.Security.Cryptography.Cng (>= 5.0) - restriction: || (&& (== net6.0) (< netcoreapp3.1)) (&& (== net6.0) (< netstandard2.1)) (== netstandard2.0)
+    System.Security.Cryptography.ProtectedData (6.0)
+    System.Security.Cryptography.Xml (6.0)
+      System.Memory (>= 4.5.4) - restriction: == netstandard2.0
+      System.Security.AccessControl (>= 6.0)
+      System.Security.Cryptography.Pkcs (>= 6.0)
+    System.Security.Permissions (6.0)
+      System.Security.AccessControl (>= 6.0)
+      System.Windows.Extensions (>= 6.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= netcoreapp3.1))
+    System.Security.Principal.Windows (5.0)
+    System.Text.Encoding.CodePages (6.0)
+      System.Runtime.CompilerServices.Unsafe (>= 6.0)
+    System.Text.Encodings.Web (6.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net472)) (&& (== netstandard2.0) (>= net6.0))
+      System.Runtime.CompilerServices.Unsafe (>= 6.0)
+    System.Text.Json (6.0.5) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= net472)) (&& (== netstandard2.0) (>= net6.0))
+      System.Runtime.CompilerServices.Unsafe (>= 6.0)
+      System.Text.Encodings.Web (>= 6.0)
+    System.Threading.Tasks.Dataflow (6.0)
+    System.Threading.Tasks.Extensions (4.5.4) - restriction: || (&& (== net6.0) (>= net472)) (&& (== net6.0) (< netcoreapp3.1)) (&& (== net6.0) (>= uap10.1)) (== netstandard2.0)
+      System.Runtime.CompilerServices.Unsafe (>= 4.5.3) - restriction: || (&& (== net6.0) (>= net461)) (&& (== net6.0) (< netcoreapp2.1)) (&& (== net6.0) (< netstandard1.0)) (&& (== net6.0) (< netstandard2.0)) (&& (== net6.0) (>= wp8)) (== netstandard2.0)
+    System.Windows.Extensions (6.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= netcoreapp3.1))
+      System.Drawing.Common (>= 6.0) - restriction: || (== net6.0) (&& (== netstandard2.0) (>= netcoreapp3.1))

fake.cmd

@@ -0,0 +1,2 @@
+dotnet tool restore
+dotnet fake %*

fake.sh

@@ -0,0 +1,7 @@
+#!/usr/bin/env bash
+
+set -eu
+set -o pipefail
+
+dotnet tool restore
+dotnet fake "$@"

src/JobsJobsJobs.sln

@@ -13,9 +13,9 @@ Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "Solution Items", "Solution
 EndProject
 Project("{2150E333-8FDC-42A3-9474-1A3956D46DE8}") = "JobsJobsJobs", "JobsJobsJobs", "{FA833B24-B8F6-4CE6-A044-99257EAC02FF}"
 EndProject
-Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Domain", "JobsJobsJobs\Domain\Domain.fsproj", "{C81278DA-DA97-4E55-AB39-4B88565B615D}"
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Domain", "JobsJobsJobs\Domain\JobsJobsJobs.Domain.fsproj", "{C81278DA-DA97-4E55-AB39-4B88565B615D}"
 EndProject
-Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Api", "JobsJobsJobs\Api\Api.fsproj", "{8F5A3D1E-562B-4F27-9787-6CB14B35E69E}"
+Project("{F2A71F9B-5D33-465A-A702-920D77279786}") = "Api", "JobsJobsJobs\Server\JobsJobsJobs.Server.fsproj", "{8F5A3D1E-562B-4F27-9787-6CB14B35E69E}"
 EndProject
 Global
 	GlobalSection(SolutionConfigurationPlatforms) = preSolution

src/JobsJobsJobs/Api/App.fs

@@ -1,83 +0,0 @@
-/// The main API application for Jobs, Jobs, Jobs
-module JobsJobsJobs.Api.App
-
-open Microsoft.AspNetCore.Builder
-open Microsoft.AspNetCore.Hosting
-open Microsoft.Extensions.DependencyInjection
-open Microsoft.Extensions.Hosting
-open Giraffe
-open Giraffe.EndpointRouting
-
-
-/// Configure the ASP.NET Core pipeline to use Giraffe
-let configureApp (app : IApplicationBuilder) =
-  app
-    .UseCors(fun p -> p.AllowAnyOrigin().AllowAnyHeader() |> ignore)
-    .UseStaticFiles()
-    .UseRouting()
-    .UseAuthentication()
-    .UseAuthorization()
-    .UseGiraffeErrorHandler(Handlers.Error.unexpectedError)
-    .UseEndpoints(fun e ->
-        e.MapGiraffeEndpoints Handlers.allEndpoints
-        e.MapFallbackToFile "index.html" |> ignore)
-  |> ignore
-
-open Newtonsoft.Json
-open NodaTime
-open Microsoft.AspNetCore.Authentication.JwtBearer
-open Microsoft.Extensions.Configuration
-open Microsoft.Extensions.Logging
-open Microsoft.IdentityModel.Tokens
-open System.Text
-open JobsJobsJobs.Domain.SharedTypes
-
-/// Configure dependency injection
-let configureServices (svc : IServiceCollection) =
-  svc.AddGiraffe ()                             |> ignore
-  svc.AddSingleton<IClock> SystemClock.Instance |> ignore
-  svc.AddLogging ()                             |> ignore
-  svc.AddCors ()                                |> ignore
-  
-  let jsonCfg = JsonSerializerSettings ()
-  Data.Converters.all () |> List.iter jsonCfg.Converters.Add
-  svc.AddSingleton<Json.ISerializer> (NewtonsoftJson.Serializer jsonCfg) |> ignore
-
-  let svcs = svc.BuildServiceProvider ()
-  let cfg  = svcs.GetRequiredService<IConfiguration> ()
-  
-  svc.AddAuthentication(fun o ->
-      o.DefaultAuthenticateScheme <- JwtBearerDefaults.AuthenticationScheme
-      o.DefaultChallengeScheme    <- JwtBearerDefaults.AuthenticationScheme
-      o.DefaultScheme             <- JwtBearerDefaults.AuthenticationScheme)
-    .AddJwtBearer(fun o ->
-        o.RequireHttpsMetadata      <- false
-        o.TokenValidationParameters <- TokenValidationParameters (
-          ValidateIssuer   = true,
-          ValidateAudience = true,
-          ValidAudience    = "https://noagendacareers.com",
-          ValidIssuer      = "https://noagendacareers.com",
-          IssuerSigningKey = SymmetricSecurityKey (
-            Encoding.UTF8.GetBytes (cfg.GetSection "Auth").["ServerSecret"])))
-    |> ignore
-  svc.AddAuthorization () |> ignore
-  svc.Configure<AuthOptions> (cfg.GetSection "Auth") |> ignore
-  
-  let dbCfg = cfg.GetSection "Rethink"
-  let log   = svcs.GetRequiredService<ILoggerFactory>().CreateLogger (nameof Data.Startup)
-  let conn  = Data.Startup.createConnection dbCfg log
-  svc.AddSingleton conn |> ignore
-  Data.Startup.establishEnvironment dbCfg log conn |> Data.awaitIgnore
-
-[<EntryPoint>]
-let main _ =
-  Host.CreateDefaultBuilder()
-    .ConfigureWebHostDefaults(
-      fun webHostBuilder ->
-        webHostBuilder
-          .Configure(configureApp)
-          .ConfigureServices(configureServices)
-        |> ignore)
-    .Build()
-    .Run ()
-  0

src/JobsJobsJobs/Api/Auth.fs

@@ -1,104 +0,0 @@
-/// Authorization / authentication functions
-module JobsJobsJobs.Api.Auth
-
-open System.Text.Json.Serialization
-
-/// The variables we need from the account information we get from Mastodon
-[<NoComparison; NoEquality; AllowNullLiteral>]
-type MastodonAccount () =
-  /// The user name (what we store as mastodonUser)
-  [<JsonPropertyName "username">]
-  member val Username = "" with get, set
-  /// The account name; will generally be the same as username for local accounts, which is all we can verify
-  [<JsonPropertyName "acct">]
-  member val AccountName = "" with get, set
-  /// The user's display name as it currently shows on Mastodon
-  [<JsonPropertyName "display_name">]
-  member val DisplayName = "" with get, set
-  /// The user's profile URL
-  [<JsonPropertyName "url">]
-  member val Url = "" with get, set
-
-
-open FSharp.Control.Tasks
-open Microsoft.Extensions.Logging
-open System
-open System.Net.Http
-open System.Net.Http.Headers
-open System.Net.Http.Json
-open System.Text.Json
-open JobsJobsJobs.Domain.SharedTypes
-
-/// HTTP client to use to communication with Mastodon
-let private http = new HttpClient()
-
-/// Verify the authorization code with Mastodon and get the user's profile
-let verifyWithMastodon (authCode : string) (inst : MastodonInstance) rtnHost (log : ILogger) = task {
-
-  // Function to create a URL for the given instance
-  let apiUrl = sprintf "%s/api/v1/%s" inst.Url
-
-  // Use authorization code to get an access token from Mastodon
-  use! codeResult =
-    http.PostAsJsonAsync($"{inst.Url}/oauth/token",
-      {|  client_id     = inst.ClientId
-          client_secret = inst.Secret
-          redirect_uri  = $"{rtnHost}/citizen/{inst.Abbr}/authorized"
-          grant_type    = "authorization_code"
-          code          = authCode
-          scope         = "read"
-        |})
-  match codeResult.IsSuccessStatusCode with
-  | true ->
-      let! responseBytes = codeResult.Content.ReadAsByteArrayAsync ()
-      use  tokenResponse = JsonSerializer.Deserialize<JsonDocument> (ReadOnlySpan<byte> responseBytes)
-      match tokenResponse with
-      | null -> return Error "Could not parse authorization code result"
-      | _ ->
-          // Use access token to get profile from NAS
-          use req = new HttpRequestMessage (HttpMethod.Get, apiUrl "accounts/verify_credentials")
-          req.Headers.Authorization <- AuthenticationHeaderValue
-            ("Bearer", tokenResponse.RootElement.GetProperty("access_token").GetString ())
-          use! profileResult = http.SendAsync req
-          
-          match profileResult.IsSuccessStatusCode with
-          | true ->
-              let! profileBytes = profileResult.Content.ReadAsByteArrayAsync ()
-              match JsonSerializer.Deserialize<MastodonAccount>(ReadOnlySpan<byte> profileBytes) with
-              | null -> return Error "Could not parse profile result"
-              | profile -> return Ok profile
-          | false -> return Error $"Could not get profile ({profileResult.StatusCode:D}: {profileResult.ReasonPhrase})"
-  | false ->
-      let! err = codeResult.Content.ReadAsStringAsync ()
-      log.LogError $"Could not get token result from Mastodon:\n  {err}"
-      return Error $"Could not get token ({codeResult.StatusCode:D}: {codeResult.ReasonPhrase})"
-  }
-
-
-open JobsJobsJobs.Domain
-open JobsJobsJobs.Domain.Types
-open Microsoft.IdentityModel.Tokens
-open System.IdentityModel.Tokens.Jwt
-open System.Security.Claims
-open System.Text
-
-/// Create a JSON Web Token for this citizen to use for further requests to this API
-let createJwt (citizen : Citizen) (cfg : AuthOptions) =
-
-  let tokenHandler = JwtSecurityTokenHandler ()
-  let token =
-    tokenHandler.CreateToken (
-      SecurityTokenDescriptor (
-        Subject = ClaimsIdentity [|
-          Claim (ClaimTypes.NameIdentifier, CitizenId.toString citizen.id)
-          Claim (ClaimTypes.Name, Citizen.name citizen)
-          |],
-        Expires  = DateTime.UtcNow.AddHours 2.,
-        Issuer   = "https://noagendacareers.com",
-        Audience = "https://noagendacareers.com",
-        SigningCredentials = SigningCredentials (
-          SymmetricSecurityKey (Encoding.UTF8.GetBytes cfg.ServerSecret), SecurityAlgorithms.HmacSha256Signature)
-        )
-      )
-  tokenHandler.WriteToken token
-

src/JobsJobsJobs/Api/Data.fs

@@ -1,568 +0,0 @@
-/// Data access functions for Jobs, Jobs, Jobs
-module JobsJobsJobs.Api.Data
-
-open FSharp.Control.Tasks
-open JobsJobsJobs.Domain.Types
-open Polly
-open RethinkDb.Driver
-open RethinkDb.Driver.Net
-open RethinkDb.Driver.Ast
-
-/// Shorthand for the RethinkDB R variable (how every command starts)
-let private r = RethinkDB.R
-
-/// Shorthand for await task / run sync / ignore (used in non-async contexts)
-let awaitIgnore x = x |> Async.AwaitTask |> Async.RunSynchronously |> ignore
-
-
-/// JSON converters used with RethinkDB persistence
-module Converters =
-  
-  open JobsJobsJobs.Domain
-  open Microsoft.FSharpLu.Json
-  open Newtonsoft.Json
-  open System
-
-  /// JSON converter for citizen IDs
-  type CitizenIdJsonConverter() =
-    inherit JsonConverter<CitizenId>()
-    override __.WriteJson(writer : JsonWriter, value : CitizenId, _ : JsonSerializer) =
-      writer.WriteValue (CitizenId.toString value)
-    override __.ReadJson(reader: JsonReader, _ : Type, _ : CitizenId, _ : bool, _ : JsonSerializer) =
-      (string >> CitizenId.ofString) reader.Value
-  
-  /// JSON converter for continent IDs
-  type ContinentIdJsonConverter() =
-    inherit JsonConverter<ContinentId>()
-    override __.WriteJson(writer : JsonWriter, value : ContinentId, _ : JsonSerializer) =
-      writer.WriteValue (ContinentId.toString value)
-    override __.ReadJson(reader: JsonReader, _ : Type, _ : ContinentId, _ : bool, _ : JsonSerializer) =
-      (string >> ContinentId.ofString) reader.Value
-
-  /// JSON converter for Markdown strings
-  type MarkdownStringJsonConverter() =
-    inherit JsonConverter<MarkdownString>()
-    override __.WriteJson(writer : JsonWriter, value : MarkdownString, _ : JsonSerializer) =
-      let (Text text) = value
-      writer.WriteValue text
-    override __.ReadJson(reader: JsonReader, _ : Type, _ : MarkdownString, _ : bool, _ : JsonSerializer) =
-      (string >> Text) reader.Value
-
-  /// JSON converter for listing IDs
-  type ListingIdJsonConverter() =
-    inherit JsonConverter<ListingId>()
-    override __.WriteJson(writer : JsonWriter, value : ListingId, _ : JsonSerializer) =
-      writer.WriteValue (ListingId.toString value)
-    override __.ReadJson(reader: JsonReader, _ : Type, _ : ListingId, _ : bool, _ : JsonSerializer) =
-      (string >> ListingId.ofString) reader.Value
-
-  /// JSON converter for skill IDs
-  type SkillIdJsonConverter() =
-    inherit JsonConverter<SkillId>()
-    override __.WriteJson(writer : JsonWriter, value : SkillId, _ : JsonSerializer) =
-      writer.WriteValue (SkillId.toString value)
-    override __.ReadJson(reader: JsonReader, _ : Type, _ : SkillId, _ : bool, _ : JsonSerializer) =
-      (string >> SkillId.ofString) reader.Value
-  
-  /// JSON converter for success report IDs
-  type SuccessIdJsonConverter() =
-    inherit JsonConverter<SuccessId>()
-    override __.WriteJson(writer : JsonWriter, value : SuccessId, _ : JsonSerializer) =
-      writer.WriteValue (SuccessId.toString value)
-    override __.ReadJson(reader: JsonReader, _ : Type, _ : SuccessId, _ : bool, _ : JsonSerializer) =
-      (string >> SuccessId.ofString) reader.Value
-  
-  /// All JSON converters needed for the application
-  let all () = [
-    CitizenIdJsonConverter () :> JsonConverter
-    upcast ContinentIdJsonConverter ()
-    upcast MarkdownStringJsonConverter ()
-    upcast ListingIdJsonConverter ()
-    upcast SkillIdJsonConverter ()
-    upcast SuccessIdJsonConverter ()
-    upcast CompactUnionJsonConverter ()
-  ]
-
-
-/// Table names
-[<RequireQualifiedAccess>]
-module Table =
-  /// The user (citizen of Gitmo Nation) table
-  let Citizen = "citizen"
-  /// The continent table
-  let Continent = "continent"
-  /// The job listing table
-  let Listing = "listing"
-  /// The citizen employment profile table
-  let Profile = "profile"
-  /// The success story table
-  let Success = "success"
-  /// All tables
-  let all () = [ Citizen; Continent; Listing; Profile; Success ]
-
-
-/// Functions run at startup
-[<RequireQualifiedAccess>]
-module Startup =
-  
-  open Microsoft.Extensions.Configuration
-  open Microsoft.Extensions.Logging
-  open NodaTime
-  open NodaTime.Serialization.JsonNet
-  
-  /// Create a RethinkDB connection
-  let createConnection (cfg : IConfigurationSection) (log : ILogger) =
-    
-    // Add all required JSON converters
-    Converter.Serializer.ConfigureForNodaTime DateTimeZoneProviders.Tzdb |> ignore
-    Converters.all ()
-    |> List.iter Converter.Serializer.Converters.Add
-    // Read the configuration and create a connection
-    let bldr =
-      seq<Connection.Builder -> Connection.Builder> {
-        yield fun b -> match cfg.["Hostname"] with null -> b | host -> b.Hostname host
-        yield fun b -> match cfg.["Port"]     with null -> b | port -> (int >> b.Port) port
-        yield fun b -> match cfg.["AuthKey"]  with null -> b | key  -> b.AuthKey key
-        yield fun b -> match cfg.["Db"]       with null -> b | db   -> b.Db db
-        yield fun b -> match cfg.["Timeout"]  with null -> b | time -> (int >> b.Timeout) time
-        }
-      |> Seq.fold (fun b step -> step b) (r.Connection ())
-    match log.IsEnabled LogLevel.Debug with
-    | true -> log.LogDebug $"RethinkDB: Connecting to {bldr.Hostname}:{bldr.Port}, database {bldr.Db}"
-    | false -> ()
-    bldr.Connect () :> IConnection
-
-  /// Ensure the data, tables, and indexes that are required exist
-  let establishEnvironment (cfg : IConfigurationSection) (log : ILogger) conn = task {
-    // Ensure the database exists
-    match cfg.["Db"] |> Option.ofObj with
-    | Some database ->
-        let! dbs = r.DbList().RunResultAsync<string list> conn
-        match dbs |> List.contains database with
-        | true -> ()
-        | false ->
-            log.LogInformation $"Creating database {database}..."
-            let! _ = r.DbCreate(database).RunWriteAsync conn
-            ()
-    | None -> ()
-    // Ensure the tables exist
-    let! tables = r.TableList().RunResultAsync<string list> conn
-    Table.all ()
-    |> List.iter (
-        fun tbl ->
-            match tables |> List.contains tbl with
-            | true -> ()
-            | false ->
-                log.LogInformation $"Creating {tbl} table..."
-                r.TableCreate(tbl).RunWriteAsync conn |> awaitIgnore)
-    // Ensure the indexes exist
-    let ensureIndexes table indexes = task {
-      let! tblIdxs = r.Table(table).IndexList().RunResultAsync<string list> conn
-      indexes
-      |> List.iter (
-          fun idx ->
-              match tblIdxs |> List.contains idx with
-              | true -> ()
-              | false ->
-                  log.LogInformation $"Creating \"{idx}\" index on {table}"
-                  r.Table(table).IndexCreate(idx).RunWriteAsync conn |> awaitIgnore)
-      }
-    do! ensureIndexes Table.Listing [ "citizenId"; "continentId"; "isExpired" ]
-    do! ensureIndexes Table.Profile [ "continentId" ]
-    do! ensureIndexes Table.Success [ "citizenId" ]
-    // The instance/user is a compound index
-    let! userIdx = r.Table(Table.Citizen).IndexList().RunResultAsync<string list> conn
-    match userIdx |> List.contains "instanceUser" with
-    | true -> ()
-    | false ->
-        let! _ =
-          r.Table(Table.Citizen)
-            .IndexCreate("instanceUser",
-                ReqlFunction1 (fun row -> upcast r.Array (row.G "instance", row.G "mastodonUser")))
-            .RunWriteAsync conn
-        ()
-    }
-
-
-/// Determine if a record type (not nullable) is null
-let toOption x = match x |> box |> isNull with true -> None | false -> Some x
-
-[<AutoOpen>]
-module private Reconnect =
-  
-  open System.Threading.Tasks
-
-  /// Execute a query with a retry policy that will reconnect to RethinkDB if it has gone away
-  let withReconn (conn : IConnection) (f : IConnection -> Task<'T>)  = 
-    Policy
-      .Handle<ReqlDriverError>()
-      .RetryAsync(System.Action<exn, int> (fun ex _ ->
-          printf "Encountered RethinkDB exception: %s" ex.Message
-          match ex.Message.Contains "socket" with
-          | true ->
-              printf "Reconnecting to RethinkDB"
-              (conn :?> Connection).Reconnect false
-          | false -> ()))
-      .ExecuteAsync(fun () -> f conn)
-
-  /// Execute a query that returns one or none item, using the reconnect logic
-  let withReconnOption (conn : IConnection) (f : IConnection -> Task<'T>) =
-    fun c -> task {
-      let! it = f c
-      return toOption it
-      }
-    |> withReconn conn
-
-  /// Execute a query that does not return a result, using the above reconnect logic
-  let withReconnIgnore (conn : IConnection) (f : IConnection -> Task<'T>) =
-    fun c -> task {
-      let! _ = f c
-      ()
-      }
-    |> withReconn conn
-
-/// Sanitize user input, and create a "contains" pattern for use with RethinkDB queries
-let regexContains = System.Text.RegularExpressions.Regex.Escape >> sprintf "(?i)%s"
-
-open JobsJobsJobs.Domain
-open JobsJobsJobs.Domain.SharedTypes
-
-/// Profile data access functions
-[<RequireQualifiedAccess>]
-module Profile =
-
-  let count conn =
-    r.Table(Table.Profile)
-      .Count()
-      .RunResultAsync<int64>
-    |> withReconn conn
-
-  /// Find a profile by citizen ID
-  let findById (citizenId : CitizenId) conn =
-    r.Table(Table.Profile)
-      .Get(citizenId)
-      .RunResultAsync<Profile>
-    |> withReconnOption conn
-  
-  /// Insert or update a profile
-  let save (profile : Profile) conn =
-    r.Table(Table.Profile)
-      .Get(profile.id)
-      .Replace(profile)
-      .RunWriteAsync
-    |> withReconnIgnore conn
-  
-  /// Delete a citizen's profile
-  let delete (citizenId : CitizenId) conn =
-    r.Table(Table.Profile)
-      .Get(citizenId)
-      .Delete()
-      .RunWriteAsync
-    |> withReconnIgnore conn
-  
-  /// Search profiles (logged-on users)
-  let search (srch : ProfileSearch) conn =
-    fun c ->
-        (seq {
-          match srch.continentId with
-          | Some conId ->
-              yield (fun (q : ReqlExpr) ->
-                  q.Filter (r.HashMap (nameof srch.continentId, ContinentId.ofString conId)) :> ReqlExpr)
-          | None -> ()
-          match srch.remoteWork with
-          | "" -> ()
-          | _ -> yield (fun q -> q.Filter (r.HashMap (nameof srch.remoteWork, srch.remoteWork = "yes")) :> ReqlExpr)
-          match srch.skill with
-          | Some skl ->
-              yield (fun q -> q.Filter (ReqlFunction1(fun it ->
-                  upcast it.G("skills").Contains (ReqlFunction1(fun s ->
-                      upcast s.G("description").Match (regexContains skl))))) :> ReqlExpr)
-          | None -> ()
-          match srch.bioExperience with
-          | Some text ->
-              let txt = regexContains text
-              yield (fun q -> q.Filter (ReqlFunction1(fun it ->
-                  upcast it.G("biography").Match(txt).Or (it.G("experience").Match txt))) :> ReqlExpr)
-          | None -> ()
-          }
-        |> Seq.toList
-        |> List.fold
-            (fun q f -> f q)
-            (r.Table(Table.Profile)
-              .EqJoin("id", r.Table Table.Citizen)
-              .Without(r.HashMap ("right", "id"))
-              .Zip () :> ReqlExpr))
-          .Merge(ReqlFunction1 (fun it ->
-              upcast r
-                .HashMap("displayName",
-                  r.Branch (it.G("realName"   ).Default_("").Ne "", it.G "realName",
-                            it.G("displayName").Default_("").Ne "", it.G "displayName",
-                                                                    it.G "mastodonUser"))
-                .With ("citizenId", it.G "id")))
-          .Pluck("citizenId", "displayName", "seekingEmployment", "remoteWork", "fullTime", "lastUpdatedOn")
-          .OrderBy(ReqlFunction1 (fun it -> upcast it.G("displayName").Downcase ()))
-          .RunResultAsync<ProfileSearchResult list> c
-    |> withReconn conn
-
-  // Search profiles (public)
-  let publicSearch (srch : PublicSearch) conn =
-    fun c ->
-        (seq {
-          match srch.continentId with
-          | Some conId ->
-              yield (fun (q : ReqlExpr) ->
-                  q.Filter (r.HashMap (nameof srch.continentId, ContinentId.ofString conId)) :> ReqlExpr)
-          | None -> ()
-          match srch.region with
-          | Some reg ->
-              yield (fun q ->
-                  q.Filter (ReqlFunction1 (fun it -> upcast it.G("region").Match (regexContains reg))) :> ReqlExpr)
-          | None -> ()
-          match srch.remoteWork with
-          | "" -> ()
-          | _ -> yield (fun q -> q.Filter (r.HashMap (nameof srch.remoteWork, srch.remoteWork = "yes")) :> ReqlExpr)
-          match srch.skill with
-          | Some skl ->
-              yield (fun q -> q.Filter (ReqlFunction1 (fun it ->
-                  upcast it.G("skills").Contains (ReqlFunction1(fun s ->
-                      upcast s.G("description").Match (regexContains skl))))) :> ReqlExpr)
-          | None -> ()
-          }
-        |> Seq.toList
-        |> List.fold
-            (fun q f -> f q)
-            (r.Table(Table.Profile)
-              .EqJoin("continentId", r.Table Table.Continent)
-              .Without(r.HashMap ("right", "id"))
-              .Zip()
-              .Filter(r.HashMap ("isPublic", true)) :> ReqlExpr))
-          .Merge(ReqlFunction1 (fun it ->
-              upcast r
-                .HashMap("skills", 
-                  it.G("skills").Map (ReqlFunction1 (fun skill ->
-                    upcast r.Branch(skill.G("notes").Default_("").Eq "", skill.G "description",
-                                    skill.G("description").Add(" (").Add(skill.G("notes")).Add ")"))))
-                .With("continent", it.G "name")))
-          .Pluck("continent", "region", "skills", "remoteWork")
-          .RunResultAsync<PublicSearchResult list> c
-    |> withReconn conn
-
-/// Citizen data access functions
-[<RequireQualifiedAccess>]
-module Citizen =
-  
-  /// Find a citizen by their ID
-  let findById (citizenId : CitizenId) conn =
-    r.Table(Table.Citizen)
-      .Get(citizenId)
-      .RunResultAsync<Citizen>
-    |> withReconnOption conn
-
-  /// Find a citizen by their Mastodon username
-  let findByMastodonUser (instance : string) (mastodonUser : string) conn =
-    fun c -> task {
-      let! u =
-        r.Table(Table.Citizen)
-          .GetAll(r.Array (instance, mastodonUser)).OptArg("index", "instanceUser").Limit(1)
-          .RunResultAsync<Citizen list> c
-      return u |> List.tryHead
-      }
-    |> withReconn conn
-  
-  /// Add a citizen
-  let add (citizen : Citizen) conn =
-    r.Table(Table.Citizen)
-      .Insert(citizen)
-      .RunWriteAsync
-    |> withReconnIgnore conn
-
-  /// Update the display name and last seen on date for a citizen
-  let logOnUpdate (citizen : Citizen) conn =
-    r.Table(Table.Citizen)
-      .Get(citizen.id)
-      .Update(r.HashMap( nameof citizen.displayName, citizen.displayName)
-                  .With (nameof citizen.lastSeenOn,  citizen.lastSeenOn))
-      .RunWriteAsync
-    |> withReconnIgnore conn
-  
-  /// Delete a citizen
-  let delete citizenId conn =
-    fun c -> task {
-        do! Profile.delete citizenId c
-        let! _ =
-          r.Table(Table.Success)
-            .GetAll(citizenId).OptArg("index", "citizenId")
-            .Delete()
-            .RunWriteAsync c
-        let! _ =
-          r.Table(Table.Listing)
-            .GetAll(citizenId).OptArg("index", "citizenId")
-            .Delete()
-            .RunWriteAsync c
-        let! _ =
-          r.Table(Table.Citizen)
-            .Get(citizenId)
-            .Delete()
-            .RunWriteAsync c
-        ()
-      }
-    |> withReconnIgnore conn
-  
-  /// Update a citizen's real name
-  let realNameUpdate (citizenId : CitizenId) (realName : string option) conn =
-    r.Table(Table.Citizen)
-      .Get(citizenId)
-      .Update(r.HashMap (nameof realName, realName))
-      .RunWriteAsync
-    |> withReconnIgnore conn
-
-
-/// Continent data access functions
-[<RequireQualifiedAccess>]
-module Continent =
-
-  /// Get all continents
-  let all conn =
-    r.Table(Table.Continent)
-      .RunResultAsync<Continent list>
-    |> withReconn conn
-  
-  /// Get a continent by its ID
-  let findById (contId : ContinentId) conn =
-    r.Table(Table.Continent)
-      .Get(contId)
-      .RunResultAsync<Continent>
-    |> withReconnOption conn
-
-
-/// Job listing data access functions
-[<RequireQualifiedAccess>]
-module Listing =  
-
-  open NodaTime
-
-  /// Find all job listings posted by the given citizen
-  let findByCitizen (citizenId : CitizenId) conn =
-    r.Table(Table.Listing)
-      .GetAll(citizenId).OptArg("index", nameof citizenId)
-      .EqJoin("continentId", r.Table Table.Continent)
-      .Map(ReqlFunction1 (fun it -> upcast r.HashMap("listing", it.G "left").With ("continent", it.G "right")))
-      .RunResultAsync<ListingForView list>
-    |> withReconn conn
-  
-  /// Find a listing by its ID
-  let findById (listingId : ListingId) conn =
-    r.Table(Table.Listing)
-      .Get(listingId)
-      .RunResultAsync<Listing>
-    |> withReconnOption conn
-  
-  /// Find a listing by its ID for viewing (includes continent information)
-  let findByIdForView (listingId : ListingId) conn =
-    fun c -> task {
-        let! listing =
-          r.Table(Table.Listing)
-            .Filter(r.HashMap ("id", listingId))
-            .EqJoin("continentId", r.Table Table.Continent)
-            .Map(ReqlFunction1 (fun it -> upcast r.HashMap("listing", it.G "left").With ("continent", it.G "right")))
-            .RunResultAsync<ListingForView list> c
-        return List.tryHead listing
-      }
-    |> withReconn conn
-  
-  /// Add a listing
-  let add (listing : Listing) conn =
-    r.Table(Table.Listing)
-      .Insert(listing)
-      .RunWriteAsync
-    |> withReconnIgnore conn
-  
-  /// Update a listing
-  let update (listing : Listing) conn =
-    r.Table(Table.Listing)
-      .Get(listing.id)
-      .Replace(listing)
-      .RunWriteAsync
-    |> withReconnIgnore conn
-
-  /// Expire a listing
-  let expire (listingId : ListingId) (fromHere : bool) (now : Instant) conn =
-    r.Table(Table.Listing)
-      .Get(listingId)
-      .Update(r.HashMap("isExpired", true).With("wasFilledHere", fromHere).With ("updatedOn", now))
-      .RunWriteAsync
-    |> withReconnIgnore conn
-
-  /// Search job listings
-  let search (srch : ListingSearch) conn =
-    fun c ->
-        (seq {
-          match srch.continentId with
-          | Some conId ->
-              yield (fun (q : ReqlExpr) ->
-                  q.Filter (r.HashMap (nameof srch.continentId, ContinentId.ofString conId)) :> ReqlExpr)
-          | None -> ()
-          match srch.region with
-          | Some rgn ->
-              yield (fun q ->
-                  q.Filter (ReqlFunction1 (fun it ->
-                      upcast it.G(nameof srch.region).Match (regexContains rgn))) :> ReqlExpr)
-          | None -> ()
-          match srch.remoteWork with
-          | "" -> ()
-          | _ ->
-              yield (fun q -> q.Filter (r.HashMap (nameof srch.remoteWork, srch.remoteWork = "yes")) :> ReqlExpr)
-          match srch.text with
-          | Some text ->
-              yield (fun q ->
-                  q.Filter (ReqlFunction1 (fun it ->
-                      upcast it.G(nameof srch.text).Match (regexContains text))) :> ReqlExpr)
-          | None -> ()
-          }
-        |> Seq.toList
-        |> List.fold
-            (fun q f -> f q)
-            (r.Table(Table.Listing)
-              .GetAll(false).OptArg ("index", "isExpired") :> ReqlExpr))
-          .EqJoin("continentId", r.Table Table.Continent)
-          .Map(ReqlFunction1 (fun it -> upcast r.HashMap("listing", it.G "left").With ("continent", it.G "right")))
-          .RunResultAsync<ListingForView list> c
-    |> withReconn conn
-
-
-/// Success story data access functions
-[<RequireQualifiedAccess>]
-module Success =
-
-  /// Find a success report by its ID
-  let findById (successId : SuccessId) conn =
-    r.Table(Table.Success)
-      .Get(successId)
-      .RunResultAsync<Success>
-    |> withReconnOption conn
-
-  /// Insert or update a success story
-  let save (success : Success) conn =
-    r.Table(Table.Success)
-      .Get(success.id)
-      .Replace(success)
-      .RunWriteAsync
-    |> withReconnIgnore conn
-
-  // Retrieve all success stories  
-  let all conn =
-    r.Table(Table.Success)
-      .EqJoin("citizenId", r.Table Table.Citizen)
-      .Without(r.HashMap ("right", "id"))
-      .Zip()
-      .Merge(ReqlFunction1 (fun it ->
-          upcast r
-            .HashMap("citizenName",
-              r.Branch(it.G("realName"   ).Default_("").Ne "", it.G "realName",
-                       it.G("displayName").Default_("").Ne "", it.G "displayName",
-                                                               it.G "mastodonUser"))
-            .With ("hasStory", it.G("story").Default_("").Gt "")))
-      .Pluck("id", "citizenId", "citizenName", "recordedOn", "fromHere", "hasStory")
-      .OrderBy(r.Desc "recordedOn")
-      .RunResultAsync<StoryEntry list>
-    |> withReconn conn

src/JobsJobsJobs/Api/Handlers.fs

@@ -1,563 +0,0 @@
-/// Route handlers for Giraffe endpoints
-module JobsJobsJobs.Api.Handlers
-
-open FSharp.Control.Tasks
-open Giraffe
-open JobsJobsJobs.Domain
-open JobsJobsJobs.Domain.SharedTypes
-open JobsJobsJobs.Domain.Types
-open Microsoft.AspNetCore.Http
-open Microsoft.Extensions.Logging
-
-/// Handler to return the files required for the Vue client app
-module Vue =
-
-  /// Handler that returns index.html (the Vue client app)
-  let app = htmlFile "wwwroot/index.html"
-
-
-/// Handlers for error conditions
-module Error =
-  
-  open System.Threading.Tasks
-
-  /// URL prefixes for the Vue app
-  let vueUrls = [
-    "/how-it-works"; "/privacy-policy"; "/terms-of-service"; "/citizen"; "/help-wanted"; "/listing"; "/profile"
-    "/so-long"; "/success-story"
-    ]
-
-  /// Handler that will return a status code 404 and the text "Not Found"
-  let notFound : HttpHandler =
-    fun next ctx -> task {
-      let fac  = ctx.GetService<ILoggerFactory> ()
-      let log  = fac.CreateLogger "Handler"
-      let path = string ctx.Request.Path
-      match [ "GET"; "HEAD" ] |> List.contains ctx.Request.Method with
-      | true when path = "/" || vueUrls |> List.exists path.StartsWith ->
-          log.LogInformation "Returning Vue app"
-          return! Vue.app next ctx
-      | _ ->
-          log.LogInformation "Returning 404"
-          return! RequestErrors.NOT_FOUND $"The URL {path} was not recognized as a valid URL" next ctx
-      }
-  
-  /// Handler that returns a 403 NOT AUTHORIZED response
-  let notAuthorized : HttpHandler =
-    setStatusCode 403 >=> fun _ _ -> Task.FromResult<HttpContext option> None
-
-  /// Handler to log 500s and return a message we can display in the application
-  let unexpectedError (ex: exn) (log : ILogger) =
-    log.LogError(ex, "An unexpected error occurred")
-    clearResponse >=> ServerErrors.INTERNAL_ERROR ex.Message
-  
-
-/// Helper functions
-[<AutoOpen>]
-module Helpers =
-
-  open NodaTime
-  open Microsoft.Extensions.Configuration
-  open Microsoft.Extensions.Options
-  open RethinkDb.Driver.Net
-  open System.Security.Claims
-
-  /// Get the NodaTime clock from the request context
-  let clock (ctx : HttpContext) = ctx.GetService<IClock> ()
-
-  /// Get the application configuration from the request context
-  let config (ctx : HttpContext) = ctx.GetService<IConfiguration> ()
-
-  /// Get the authorization configuration from the request context
-  let authConfig (ctx : HttpContext) = (ctx.GetService<IOptions<AuthOptions>> ()).Value
-
-  /// Get the logger factory from the request context
-  let logger (ctx : HttpContext) = ctx.GetService<ILoggerFactory> ()
-
-  /// Get the RethinkDB connection from the request context
-  let conn (ctx : HttpContext) = ctx.GetService<IConnection> ()
-
-  /// `None` if a `string option` is `None`, whitespace, or empty
-  let noneIfBlank (s : string option) =
-    s |> Option.map (fun x -> match x.Trim () with "" -> None | _ -> Some x) |> Option.flatten
-  
-  /// `None` if a `string` is null, empty, or whitespace; otherwise, `Some` and the trimmed string
-  let noneIfEmpty = Option.ofObj >> noneIfBlank
-  
-  /// Try to get the current user
-  let tryUser (ctx : HttpContext) =
-    ctx.User.FindFirst ClaimTypes.NameIdentifier
-    |> Option.ofObj
-    |> Option.map (fun x -> x.Value)
-
-  /// Require a user to be logged in
-  let authorize : HttpHandler =
-    fun next ctx -> match tryUser ctx with Some _ -> next ctx | None -> Error.notAuthorized next ctx
-
-  /// Get the ID of the currently logged in citizen
-  //  NOTE: if no one is logged in, this will raise an exception
-  let currentCitizenId = tryUser >> Option.get >> CitizenId.ofString
-
-  /// Return an empty OK response
-  let ok : HttpHandler = Successful.OK ""
-
-
-
-/// Handlers for /api/citizen routes
-[<RequireQualifiedAccess>]
-module Citizen =
-
-  // GET: /api/citizen/log-on/[code]
-  let logOn (abbr, authCode) : HttpHandler =
-    fun next ctx -> task {
-      // Step 1 - Verify with Mastodon
-      let cfg = authConfig ctx
-      
-      match cfg.Instances |> Array.tryFind (fun it -> it.Abbr = abbr) with
-      | Some instance ->
-          let log = (logger ctx).CreateLogger (nameof JobsJobsJobs.Api.Auth)
-          
-          match! Auth.verifyWithMastodon authCode instance cfg.ReturnHost log with
-          | Ok account ->
-              // Step 2 - Find / establish Jobs, Jobs, Jobs account
-              let  now     = (clock ctx).GetCurrentInstant ()
-              let  dbConn  = conn ctx
-              let! citizen = task {
-                match! Data.Citizen.findByMastodonUser instance.Abbr account.Username dbConn with
-                | None ->
-                    let it : Citizen =
-                      { id           = CitizenId.create ()
-                        instance     = instance.Abbr
-                        mastodonUser = account.Username
-                        displayName  = noneIfEmpty account.DisplayName
-                        realName     = None
-                        profileUrl   = account.Url
-                        joinedOn     = now
-                        lastSeenOn   = now
-                        }
-                    do! Data.Citizen.add it dbConn
-                    return it
-                | Some citizen ->
-                    let it = { citizen with displayName = noneIfEmpty account.DisplayName; lastSeenOn = now }
-                    do! Data.Citizen.logOnUpdate it dbConn
-                    return it
-              }
-              
-              // Step 3 - Generate JWT
-              return!
-                json
-                  { jwt       = Auth.createJwt citizen cfg
-                    citizenId = CitizenId.toString citizen.id
-                    name      = Citizen.name citizen
-                    } next ctx
-          | Error err -> return! RequestErrors.BAD_REQUEST err next ctx
-      | None -> return! Error.notFound next ctx
-      }
-  
-  // GET: /api/citizen/[id]
-  let get citizenId : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      match! Data.Citizen.findById (CitizenId citizenId) (conn ctx) with
-      | Some citizen -> return! json citizen next ctx
-      | None -> return! Error.notFound next ctx
-      }
-
-  // DELETE: /api/citizen
-  let delete : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      do! Data.Citizen.delete (currentCitizenId ctx) (conn ctx)
-      return! ok next ctx
-      }
-
-
-/// Handlers for /api/continent routes
-[<RequireQualifiedAccess>]
-module Continent =
-  
-  // GET: /api/continent/all
-  let all : HttpHandler =
-    fun next ctx -> task {
-      let! continents = Data.Continent.all (conn ctx)
-      return! json continents next ctx
-      }
-
-
-/// Handlers for /api/instances routes
-[<RequireQualifiedAccess>]
-module Instances =
-
-  /// Convert a Masotodon instance to the one we use in the API
-  let private toInstance (inst : MastodonInstance) =
-    { name     = inst.Name
-      url      = inst.Url
-      abbr     = inst.Abbr
-      clientId = inst.ClientId
-      }
-
-  // GET: /api/instances
-  let all : HttpHandler =
-    fun next ctx -> task {
-      return! json ((authConfig ctx).Instances |> Array.map toInstance) next ctx
-      }
-
-
-/// Handlers for /api/listing[s] routes
-[<RequireQualifiedAccess>]
-module Listing =
-
-  open NodaTime
-  open System
-
-  /// Parse the string we receive from JSON into a NodaTime local date
-  let private parseDate = DateTime.Parse >> LocalDate.FromDateTime
-
-  // GET: /api/listings/mine
-  let mine : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let! listings = Data.Listing.findByCitizen (currentCitizenId ctx) (conn ctx)
-      return! json listings next ctx
-      }
-
-  // GET: /api/listing/[id]
-  let get listingId : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      match! Data.Listing.findById (ListingId listingId) (conn ctx) with
-      | Some listing -> return! json listing next ctx
-      | None -> return! Error.notFound next ctx
-      }
-  
-  // GET: /api/listing/view/[id]
-  let view listingId : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      match! Data.Listing.findByIdForView (ListingId listingId) (conn ctx) with
-      | Some listing -> return! json listing next ctx
-      | None -> return! Error.notFound next ctx
-      }
-
-  // POST: /listings
-  let add : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let! form = ctx.BindJsonAsync<ListingForm> ()
-      let  now  = (clock ctx).GetCurrentInstant ()
-      do! Data.Listing.add
-            { id            = ListingId.create ()
-              citizenId     = currentCitizenId ctx
-              createdOn     = now
-              title         = form.title
-              continentId   = ContinentId.ofString form.continentId
-              region        = form.region
-              remoteWork    = form.remoteWork
-              isExpired     = false
-              updatedOn     = now
-              text          = Text form.text
-              neededBy      = (form.neededBy |> Option.map parseDate)
-              wasFilledHere = None
-              } (conn ctx)
-      return! ok next ctx
-      }
-
-  // PUT: /api/listing/[id]
-  let update listingId : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let dbConn = conn ctx
-      match! Data.Listing.findById (ListingId listingId) dbConn with
-      | Some listing when listing.citizenId <> (currentCitizenId ctx) -> return! Error.notAuthorized next ctx
-      | Some listing ->
-          let! form = ctx.BindJsonAsync<ListingForm> ()
-          do! Data.Listing.update
-                { listing with
-                    title       = form.title
-                    continentId = ContinentId.ofString form.continentId
-                    region      = form.region
-                    remoteWork  = form.remoteWork
-                    text        = Text form.text
-                    neededBy    = form.neededBy |> Option.map parseDate
-                    updatedOn   = (clock ctx).GetCurrentInstant ()
-                  } dbConn
-          return! ok next ctx
-      | None -> return! Error.notFound next ctx
-      }
-  
-  // PATCH: /api/listing/[id]
-  let expire listingId : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let dbConn = conn ctx
-      let now    = clock(ctx).GetCurrentInstant ()
-      match! Data.Listing.findById (ListingId listingId) dbConn with
-      | Some listing when listing.citizenId <> (currentCitizenId ctx) -> return! Error.notAuthorized next ctx
-      | Some listing ->
-          let! form = ctx.BindJsonAsync<ListingExpireForm> ()
-          do! Data.Listing.expire listing.id form.fromHere now dbConn
-          match form.successStory with
-          | Some storyText ->
-              do! Data.Success.save
-                    { id         = SuccessId.create()
-                      citizenId  = currentCitizenId ctx
-                      recordedOn = now
-                      fromHere   = form.fromHere
-                      source     = "listing"
-                      story      = (Text >> Some) storyText
-                      } dbConn
-          | None -> ()
-          return! ok next ctx
-      | None -> return! Error.notFound next ctx
-
-    }
-
-  // GET: /api/listing/search
-  let search : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let  search  = ctx.BindQueryString<ListingSearch> ()
-      let! results = Data.Listing.search search (conn ctx)
-      return! json results next ctx
-      }
-  
-
-/// Handlers for /api/profile routes
-[<RequireQualifiedAccess>]
-module Profile =
-
-  // GET: /api/profile
-  //      This returns the current citizen's profile, or a 204 if it is not found (a citizen not having a profile yet
-  //      is not an error). The "get" handler returns a 404 if a profile is not found.
-  let current : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      match! Data.Profile.findById (currentCitizenId ctx) (conn ctx) with
-      | Some profile -> return! json profile next ctx
-      | None -> return! Successful.NO_CONTENT next ctx
-      }
-  
-  // GET: /api/profile/get/[id]
-  let get citizenId : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      match! Data.Profile.findById (CitizenId citizenId) (conn ctx) with
-      | Some profile -> return! json profile next ctx
-      | None -> return! Error.notFound next ctx
-      }
-
-  // GET: /api/profile/view/[id]
-  let view citizenId : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let citId  = CitizenId citizenId
-      let dbConn = conn ctx
-      match! Data.Profile.findById citId dbConn with
-      | Some profile ->
-          match! Data.Citizen.findById citId dbConn with
-          | Some citizen ->
-              match! Data.Continent.findById profile.continentId dbConn with
-              | Some continent ->
-                  return!
-                    json {
-                      profile   = profile
-                      citizen   = citizen
-                      continent = continent
-                      } next ctx
-              | None -> return! Error.notFound next ctx
-          | None -> return! Error.notFound next ctx
-      | None -> return! Error.notFound next ctx
-      }
-  
-  // GET: /api/profile/count
-  let count : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let! theCount = Data.Profile.count (conn ctx)
-      return! json { count = theCount } next ctx
-      }
-  
-  // POST: /api/profile/save
-  let save : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let  citizenId = currentCitizenId ctx
-      let  dbConn    = conn ctx
-      let! form      = ctx.BindJsonAsync<ProfileForm>()
-      let! profile   = task {
-        match! Data.Profile.findById citizenId dbConn with
-        | Some p -> return p
-        | None -> return { Profile.empty with id = citizenId }
-        }
-      do! Data.Profile.save
-            { profile with
-                seekingEmployment = form.isSeekingEmployment
-                isPublic          = form.isPublic
-                continentId       = ContinentId.ofString form.continentId
-                region            = form.region
-                remoteWork        = form.remoteWork
-                fullTime          = form.fullTime
-                biography         = Text form.biography
-                lastUpdatedOn     = (clock ctx).GetCurrentInstant ()
-                experience        = noneIfBlank form.experience |> Option.map Text
-                skills            = form.skills
-                                    |> List.map (fun s ->
-                                        { id          = match s.id.StartsWith "new" with
-                                                        | true -> SkillId.create ()
-                                                        | false -> SkillId.ofString s.id
-                                          description = s.description
-                                          notes       = noneIfBlank s.notes
-                                          })
-              } dbConn
-      do! Data.Citizen.realNameUpdate citizenId (noneIfBlank (Some form.realName)) dbConn
-      return! ok next ctx
-      }
-  
-  // PATCH: /api/profile/employment-found
-  let employmentFound : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let dbConn = conn ctx
-      match! Data.Profile.findById (currentCitizenId ctx) dbConn with
-      | Some profile ->
-          do! Data.Profile.save { profile with seekingEmployment = false } dbConn
-          return! ok next ctx
-      | None -> return! Error.notFound next ctx
-      }
-  
-  // DELETE: /api/profile
-  let delete : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      do! Data.Profile.delete (currentCitizenId ctx) (conn ctx)
-      return! ok next ctx
-      }
-  
-  // GET: /api/profile/search
-  let search : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let  search  = ctx.BindQueryString<ProfileSearch> ()
-      let! results = Data.Profile.search search (conn ctx)
-      return! json results next ctx
-      }
-  
-  // GET: /api/profile/public-search
-  let publicSearch : HttpHandler =
-    fun next ctx -> task {
-      let  search  = ctx.BindQueryString<PublicSearch> ()
-      let! results = Data.Profile.publicSearch search (conn ctx)
-      return! json results next ctx
-      }
-
-
-/// Handlers for /api/success routes
-[<RequireQualifiedAccess>]
-module Success =
-
-  open System
-
-  // GET: /api/success/[id]
-  let get successId : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      match! Data.Success.findById (SuccessId successId) (conn ctx) with
-      | Some story -> return! json story next ctx
-      | None -> return! Error.notFound next ctx
-      }
-
-  // GET: /api/success/list
-  let all : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let! stories = Data.Success.all (conn ctx)
-      return! json stories next ctx
-      }
-  
-  // POST: /api/success/save
-  let save : HttpHandler =
-    authorize
-    >=> fun next ctx -> task {
-      let  citizenId = currentCitizenId ctx
-      let  dbConn    = conn ctx
-      let  now       = (clock ctx).GetCurrentInstant ()
-      let! form      = ctx.BindJsonAsync<StoryForm> ()
-      let! success = task {
-        match form.id with
-        | "new" ->
-            return Some { id         = SuccessId.create ()
-                          citizenId  = citizenId
-                          recordedOn = now
-                          fromHere   = form.fromHere
-                          source     = "profile"
-                          story      = noneIfEmpty form.story |> Option.map Text
-                          }
-        | successId ->
-            match! Data.Success.findById (SuccessId.ofString successId) dbConn with
-            | Some story when story.citizenId = citizenId ->
-                return Some { story with
-                                fromHere = form.fromHere
-                                story    = noneIfEmpty form.story |> Option.map Text
-                              }
-            | Some _ | None -> return None
-        }
-      match success with
-      | Some story ->
-          do! Data.Success.save story dbConn
-          return! ok next ctx
-      | None -> return! Error.notFound next ctx
-      }
-
-
-open Giraffe.EndpointRouting
-
-/// All available endpoints for the application
-let allEndpoints = [
-  subRoute "/api" [
-    subRoute "/citizen" [
-      GET_HEAD [
-        routef "/log-on/%s/%s" Citizen.logOn
-        routef "/%O"           Citizen.get
-        ]
-      DELETE [ route "" Citizen.delete ]
-      ]
-    GET_HEAD [ route "/continents" Continent.all ]
-    GET_HEAD [ route "/instances"  Instances.all ]
-    subRoute "/listing" [
-      GET_HEAD [
-        routef "/%O"      Listing.get
-        route  "/search"  Listing.search
-        routef "/%O/view" Listing.view
-        route  "s/mine"   Listing.mine
-        ]
-      PATCH [
-        routef "/%O" Listing.expire
-        ]
-      POST [
-        route "s" Listing.add
-        ]
-      PUT [
-        routef "/%O" Listing.update
-        ]
-      ]
-    subRoute "/profile" [
-      GET_HEAD [
-        route  ""               Profile.current
-        route  "/count"         Profile.count
-        routef "/%O"            Profile.get
-        routef "/%O/view"       Profile.view
-        route  "/public-search" Profile.publicSearch
-        route  "/search"        Profile.search
-        ]
-      PATCH [ route "/employment-found" Profile.employmentFound ]
-      POST [ route "" Profile.save ]
-      ]
-    subRoute "/success" [
-      GET_HEAD [
-        routef "/%O" Success.get
-        route  "es"  Success.all
-        ]
-      POST [ route "" Success.save ]
-      ]
-    ]
-  ]

src/JobsJobsJobs/App/.eslintrc.js

@@ -21,6 +21,7 @@ module.exports = {
     "no-console": process.env.NODE_ENV === "production" ? "warn" : "off",
     "no-debugger": process.env.NODE_ENV === "production" ? "warn" : "off",
     "vue/no-multiple-template-root": "off",
+    "vue/multi-word-component-names": "off",
     "vue/script-setup-uses-vars": 1,
     "quotes": ["error", "double", { avoidEscape: true, allowTemplateLiterals: true }],
     "func-call-spacing": "off",

src/JobsJobsJobs/App/package.json

@@ -1,24 +1,23 @@
 {
   "name": "jobs-jobs-jobs",
-  "version": "2.1.0",
+  "version": "2.2.2",
   "private": true,
   "scripts": {
     "serve": "vue-cli-service serve",
     "build": "vue-cli-service build",
-    "lint": "vue-cli-service lint",
+    "lint": "vue-cli-service lint"
-    "apiserve": "vue-cli-service build && cd ../Api && dotnet run -c Debug",
-    "publish": "vue-cli-service build --modern && cd ../Api && dotnet publish -c Release -r linux-x64 --self-contained false"
   },
   "dependencies": {
-    "@mdi/js": "^5.9.55",
+    "@mdi/js": "^6.9.96",
     "@vuelidate/core": "^2.0.0-alpha.24",
     "@vuelidate/validators": "^2.0.0-alpha.21",
+    "@vueuse/core": "^8.9.1",
     "bootstrap": "^5.1.0",
     "core-js": "^3.16.3",
     "date-fns": "^2.23.0",
     "date-fns-tz": "^1.1.6",
     "dompurify": "^2.3.1",
-    "marked": "^2.1.3",
+    "marked": "^4.0.18",
     "vue": "^3.2.6",
     "vue-router": "^4.0.11",
     "vuex": "^4.0.0-0"
@@ -26,27 +25,28 @@
   "devDependencies": {
     "@types/bootstrap": "^5.1.2",
     "@types/dompurify": "^2.2.3",
-    "@types/marked": "^2.0.5",
+    "@types/marked": "^4.0.3",
-    "@typescript-eslint/eslint-plugin": "^4.29.3",
+    "@typescript-eslint/eslint-plugin": "^5.30.0",
-    "@typescript-eslint/parser": "^4.29.3",
+    "@typescript-eslint/parser": "^5.30.0",
-    "@vue/cli-plugin-babel": "~4.5.0",
+    "@vue/cli-plugin-babel": "~5.0.0",
-    "@vue/cli-plugin-eslint": "~4.5.0",
+    "@vue/cli-plugin-eslint": "~5.0.0",
-    "@vue/cli-plugin-router": "~4.5.0",
+    "@vue/cli-plugin-router": "~5.0.0",
-    "@vue/cli-plugin-typescript": "~4.5.0",
+    "@vue/cli-plugin-typescript": "~5.0.0",
-    "@vue/cli-plugin-vuex": "~4.5.0",
+    "@vue/cli-plugin-vuex": "~5.0.0",
-    "@vue/cli-service": "~4.5.0",
+    "@vue/cli-service": "~5.0.0",
     "@vue/compiler-sfc": "^3.2.6",
-    "@vue/eslint-config-standard": "^6.1.0",
+    "@vue/eslint-config-standard": "^7.0.0",
-    "@vue/eslint-config-typescript": "^7.0.0",
+    "@vue/eslint-config-typescript": "^11.0.0",
-    "eslint": "^7.32.0",
+    "eslint": "^8.19.0",
     "eslint-plugin-import": "^2.24.2",
+    "eslint-plugin-n": "^15.2.4",
     "eslint-plugin-node": "^11.1.0",
-    "eslint-plugin-promise": "^5.0.0",
+    "eslint-plugin-promise": "^6.0.0",
     "eslint-plugin-standard": "^5.0.0",
-    "eslint-plugin-vue": "^7.17.0",
+    "eslint-plugin-vue": "^9.2.0",
     "sass": "~1.37.0",
     "sass-loader": "^10.0.0",
-    "typescript": "~4.3.5",
+    "typescript": "~4.5.0",
     "vue-cli-plugin-pug": "~2.0.0"
   }
 }

src/JobsJobsJobs/App/src/App.vue

@@ -10,11 +10,12 @@
 </template>
 
 <script lang="ts">
-import { defineComponent } from "vue"
+import { defineComponent, onMounted } from "vue"
 
 import "bootstrap/dist/css/bootstrap.min.css"
 
 import { Citizen } from "./api"
+import { Mutations, useStore } from "./store"
 import AppFooter from "./components/layout/AppFooter.vue"
 import AppNav from "./components/layout/AppNav.vue"
 import AppToaster from "./components/layout/AppToaster.vue"
@@ -29,6 +30,10 @@ export default defineComponent({
   }
 })
 
+const store = useStore()
+
+onMounted(() => store.commit(Mutations.SetTitle, "Jobs, Jobs, Jobs"))
+
 /**
  * Return "Yes" for true and "No" for false
  *

src/JobsJobsJobs/App/src/api/types.ts

@@ -43,6 +43,10 @@ export interface Instance {
   abbr : string
   /** The client ID (assigned by the Mastodon server) */
   clientId : string
+  /** Whether this instance is enabled */
+  isEnabled : boolean
+  /** If disabled, the reason why it is disabled */
+  reason : string
 }
 
 /** A job listing */

src/JobsJobsJobs/App/src/components/ListingSearchForm.vue

@@ -1,15 +1,15 @@
 <template lang="pug">
 form.container
   .row
-    .col.col-xs-12.col-sm-6.col-md-4.col-lg-3
+    .col-xs-12.col-sm-6.col-md-4.col-lg-3
       continent-list(v-model="criteria.continentId" topLabel="Any" @update:modelValue="updateContinent")
-    .col.col-xs-12.col-sm-6.col-lg-3
+    .col-xs-12.col-sm-6.col-lg-3
       .form-floating
         input.form-control(type="text" id="regionSearch" placeholder="(free-form text)" :value="criteria.region"
                            @input="updateValue('region', $event.target.value)")
         label(for="regionSearch") Region
       .form-text (free-form text)
-    .col.col-xs-12.col-sm-6.col-offset-md-2.col-lg-3.col-offset-lg-0
+    .col-xs-12.col-sm-6.col-offset-md-2.col-lg-3.col-offset-lg-0
       label.jjj-label Remote Work Opportunity?
       br
       .form-check.form-check-inline
@@ -24,13 +24,13 @@ form.container
         input.form-check-input(type="radio" id="remoteNo" name="remoteWork" :checked="criteria.remoteWork === 'no'"
                                @click="updateValue('remoteWork', 'no')")
         label.form-check-label(for="remoteNo") No
-    .col.col-xs-12.col-sm-6.col-lg-3
+    .col-xs-12.col-sm-6.col-lg-3
       .form-floating
         input.form-control(type="text" id="textSearch" placeholder="(free-form text)" :value="criteria.text"
                            @input="updateValue('text', $event.target.value)")
         label(for="textSearch") Job Listing Text
       .form-text (free-form text)
-  .row: .col.col-xs-12
+  .row: .col
     br
     button.btn.btn-outline-primary(type="submit" @click.prevent="$emit('search')") Search
 </template>

src/JobsJobsJobs/App/src/components/PageTitle.vue

@@ -1,28 +0,0 @@
-<template lang="pug">
-p(v-if="false")
-</template>
-
-<script setup lang="ts">
-import { onMounted, watch } from "vue"
-
-const props = defineProps<{
-  title: string
-}>()
-
-/** The name of the application */
-const appName = "Jobs, Jobs, Jobs"
-
-/** Set the page title based on the input title attribute */
-const setTitle = () => {
-  if (props.title === "") {
-    document.title = appName
-  } else {
-    document.title = `${props.title} | ${appName}`
-  }
-}
-
-onMounted(setTitle)
-
-/** Change the page title when the property changes */
-watch(() => props.title, setTitle)
-</script>

src/JobsJobsJobs/App/src/components/layout/AppLinks.vue

@@ -0,0 +1,81 @@
+<template lang="pug">
+nav
+  template(v-if="isLoggedOn")
+    router-link(to="/citizen/dashboard" @click="hide") #[icon(:icon="mdiViewDashboardVariant")]&nbsp; Dashboard
+    router-link(to="/help-wanted" @click="hide") #[icon(:icon="mdiNewspaperVariantMultipleOutline")]&nbsp; Help Wanted!
+    router-link(to="/profile/search" @click="hide") #[icon(:icon="mdiViewListOutline")]&nbsp; Employment Profiles
+    router-link(to="/success-story/list" @click="hide") #[icon(:icon="mdiThumbUp")]&nbsp; Success Stories
+    .separator
+    router-link(to="/listings/mine" @click="hide") #[icon(:icon="mdiSignText")]&nbsp; My Job Listings
+    router-link(to="/citizen/profile" @click="hide") #[icon(:icon="mdiPencil")]&nbsp; My Employment Profile
+    .separator
+    router-link(to="/citizen/log-off" @click="hide") #[icon(:icon="mdiLogoutVariant")]&nbsp; Log Off
+  template(v-else)
+    router-link(to="/" @click="hide") #[icon(:icon="mdiHome")]&nbsp; Home
+    router-link(to="/profile/seeking" @click="hide") #[icon(:icon="mdiViewListOutline")]&nbsp; Job Seekers
+    router-link(to="/citizen/log-on" @click="hide") #[icon(:icon="mdiLoginVariant")]&nbsp; Log On
+  router-link(to="/how-it-works" @click="hide") #[icon(:icon="mdiHelpCircleOutline")]&nbsp; How It Works
+</template>
+
+<script setup lang="ts">
+import { computed } from "vue"
+import { useRouter } from "vue-router"
+import { Offcanvas } from "bootstrap"
+import { useStore } from "@/store"
+import {
+  mdiHelpCircleOutline,
+  mdiHome,
+  mdiLoginVariant,
+  mdiLogoutVariant,
+  mdiNewspaperVariantMultipleOutline,
+  mdiPencil,
+  mdiSignText,
+  mdiThumbUp,
+  mdiViewDashboardVariant,
+  mdiViewListOutline
+} from "@mdi/js"
+
+const store = useStore()
+const router = useRouter()
+
+/** Whether a user is logged in or not */
+const isLoggedOn = computed(() => store.state.user !== undefined)
+
+/** The current mobile menu */
+const menu = computed(() => {
+  const elt = document.getElementById("mobileMenu")
+  return elt ? Offcanvas.getOrCreateInstance(elt) : undefined
+})
+
+/** Hide the offcanvas menu (if it exists) when a link is clicked */
+const hide = () => { if (menu.value) menu.value.hide() }
+</script>
+
+<style lang="sass" scoped>
+path
+  fill: white
+path:hover
+  fill: black
+a:link, a:visited
+  text-decoration: none
+  color: white
+nav > a
+  display: block
+  width: 100%
+  border-radius: .25rem
+  padding: .5rem
+  margin: .5rem 0
+  font-size: 1rem
+  > i
+    vertical-align: top
+    margin-right: 1rem
+  &.router-link-exact-active
+    background-color: rgba(255, 255, 255, .2)
+  &:hover
+    background-color: rgba(255, 255, 255, .5)
+    color: black
+    text-decoration: none
+nav > div.separator
+  border-bottom: solid 1px rgba(255, 255, 255, .75)
+  height: 1px
+</style>

src/JobsJobsJobs/App/src/components/layout/AppNav.vue

@@ -1,88 +1,45 @@
 <template lang="pug">
-aside.collapse.show.p-3
+#mobileMenu.offcanvas.offcanvas-end(v-if="showMobileMenu" tabindex="-1" aria-labelledby="mobileMenuLabel")
+  .offcanvas-header
+    h5#mobileMenuLabel Menu
+    button.btn-close.text-reset(type="button" data-bs-dismiss="offcanvas" aria-label="Close")
+  .offcanvas-body: app-links
+aside.collapse.show.p-3(v-else)
   p.home-link.pb-3: router-link(to="/") Jobs, Jobs, Jobs
   p &nbsp;
-  nav
+  app-links
-    template(v-if="isLoggedOn")
-      router-link(to="/citizen/dashboard") #[icon(:icon="mdiViewDashboardVariant")]&nbsp; Dashboard
-      router-link(to="/help-wanted") #[icon(:icon="mdiNewspaperVariantMultipleOutline")]&nbsp; Help Wanted!
-      router-link(to="/profile/search") #[icon(:icon="mdiViewListOutline")]&nbsp; Employment Profiles
-      router-link(to="/success-story/list") #[icon(:icon="mdiThumbUp")]&nbsp; Success Stories
-      .separator
-      router-link(to="/listings/mine") #[icon(:icon="mdiSignText")]&nbsp; My Job Listings
-      router-link(to="/citizen/profile") #[icon(:icon="mdiPencil")]&nbsp; My Employment Profile
-      .separator
-      router-link(to="/citizen/log-off") #[icon(:icon="mdiLogoutVariant")]&nbsp; Log Off
-    template(v-else)
-      router-link(to="/") #[icon(:icon="mdiHome")]&nbsp; Home
-      router-link(to="/profile/seeking") #[icon(:icon="mdiViewListOutline")]&nbsp; Job Seekers
-      router-link(to="/citizen/log-on") #[icon(:icon="mdiLoginVariant")]&nbsp; Log On
-    router-link(to="/how-it-works") #[icon(:icon="mdiHelpCircleOutline")]&nbsp; How It Works
 </template>
 
 <script setup lang="ts">
-import { computed } from "vue"
+import { useBreakpoints, breakpointsBootstrapV5 } from "@vueuse/core"
-import { useStore } from "@/store"
+import AppLinks from "./AppLinks.vue"
-import {
-  mdiHelpCircleOutline,
-  mdiHome,
-  mdiLoginVariant,
-  mdiLogoutVariant,
-  mdiNewspaperVariantMultipleOutline,
-  mdiPencil,
-  mdiSignText,
-  mdiThumbUp,
-  mdiViewDashboardVariant,
-  mdiViewListOutline
-} from "@mdi/js"
 
-const store = useStore()
+const breakpoints = useBreakpoints(breakpointsBootstrapV5)
 
-/** Whether a user is logged in or not */
+/** Whether the mobile menu or the desktop menu should be shown */
-const isLoggedOn = computed(() => store.state.user !== undefined)
+const showMobileMenu = breakpoints.smaller("md")
 </script>
 
 <style lang="sass" scoped>
-aside
+aside,
+#mobileMenu
   background-image: linear-gradient(180deg, darkgreen 0%, green 70%)
   color: white
   font-size: 1.2rem
+aside
   min-height: 100vh
   width: 250px
   min-width: 250px
   position: sticky
   top: 0
-path
-  fill: white
-path:hover
-  fill: black
-a:link, a:visited
-  text-decoration: none
-  color: white
-  // font-weight: 500
   .home-link
     font-size: 1.2rem
     text-align: center
     background-color: rgba(0, 0, 0, .4)
     margin: -1rem
     padding: 1rem
-nav > a
+  a:link,
-  display: block
+  a:visited
-  width: 100%
-  border-radius: .25rem
-  padding: .5rem
-  margin: .5rem 0
-  font-size: 1rem
-  > i
-    vertical-align: top
-    margin-right: 1rem
-  &.router-link-exact-active
-    background-color: rgba(255, 255, 255, .2)
-  &:hover
-    background-color: rgba(255, 255, 255, .5)
-    color: black
     text-decoration: none
-nav > div.separator
+    color: white
-  border-bottom: solid 1px rgba(255, 255, 255, .75)
-  height: 1px
 </style>

src/JobsJobsJobs/App/src/components/layout/TitleBar.vue

@@ -1,16 +1,38 @@
 <template lang="pug">
-nav.navbar.navbar-light.bg-light
+nav.navbar.navbar-dark(v-if="showMobileHeader")
+  span.navbar-text: router-link(to="/") Jobs, Jobs, Jobs
+  button.btn(data-bs-toggle="offcanvas" data-bs-target="#mobileMenu" aria-controls="mobileMenu")
+    icon(:icon="mdiMenu")
+nav.navbar.navbar-light.bg-light(v-else)
   span &nbsp;
   span.navbar-text.
     (&hellip;and Jobs &ndash; #[audio-clip(clip="pelosi-jobs") Let&rsquo;s Vote for Jobs!])
 </template>
 
 <script setup lang="ts">
+import { mdiMenu } from "@mdi/js"
+import { useBreakpoints, breakpointsBootstrapV5 } from "@vueuse/core"
+
 import AudioClip from "@/components/AudioClip.vue"
+
+const breakpoints = useBreakpoints(breakpointsBootstrapV5)
+
+/** Whether to show the mobile or desktop header */
+const showMobileHeader = breakpoints.smaller("md")
 </script>
 
 <style lang="sass" scoped>
+.navbar-dark
+  background-image: linear-gradient(0deg, green 0%, darkgreen 70%)
+  padding-left: 1rem
+  padding-right: 1rem
+  button
+    padding: 0
+  .navbar-text
+    font-weight: bold
+    color: white
+.navbar-light
   .navbar-text
     font-style: italic
-  padding-right: 1rem
+    padding: 0 1rem 0 0
 </style>

src/JobsJobsJobs/App/src/components/profile/PublicSearchForm.vue

@@ -1,15 +1,15 @@
 <template lang="pug">
 form.container
   .row
-    .col.col-xs-12.col-sm-6.col-md-4.col-lg-3
+    .col-xs-12.col-sm-6.col-md-4.col-lg-3
       continent-list(v-model="criteria.continentId" topLabel="Any" @update:modelValue="updateContinent")
-    .col.col-xs-12.col-sm-6.col-md-4.col-lg-3
+    .col-xs-12.col-sm-6.col-md-4.col-lg-3
       .form-floating
         input.form-control.form-control-sm(type="text" id="region" placeholder="(free-form text)"
                                            :value="criteria.region" @input="updateValue('region', $event.target.value)")
         label(for="region") Region
       .form-text (free-form text)
-    .col.col-xs-12.col-sm-6.col-offset-md-2.col-lg-3.col-offset-lg-0
+    .col-xs-12.col-sm-6.col-offset-md-2.col-lg-3.col-offset-lg-0
       label.jjj-label Seeking Remote Work?
       br
       .form-check.form-check-inline
@@ -24,13 +24,13 @@ form.container
         input.form-check-input(type="radio" id="remoteNo" name="remoteWork" :checked="criteria.remoteWork === 'no'"
                                @click="updateValue('remoteWork', 'no')")
         label.form-check-label(for="remoteNo") No
-    .col.col-xs-12.col-sm-6.col-lg-3
+    .col-xs-12.col-sm-6.col-lg-3
       .form-floating
         input.form-control.form-control-sm(type="text" id="skillSearch" placeholder="(free-form text)"
                                            :value="criteria.skill" @input="updateValue('skill', $event.target.value)")
         label(for="skillSearch") Skill
       .form-text (free-form text)
-  .row: .col.col-xs-12
+  .row: .col
     br
     button.btn.btn-outline-primary(type="submit" @click.prevent="$emit('search')") Search
 </template>

src/JobsJobsJobs/App/src/components/profile/SearchForm.vue

@@ -1,9 +1,9 @@
 <template lang="pug">
 form.container
   .row
-    .col.col-xs-12.col-sm-6.col-md-4.col-lg-3
+    .col-xs-12.col-sm-6.col-md-4.col-lg-3
       continent-list(v-model="criteria.continentId" topLabel="Any" @update:modelValue="updateContinent")
-    .col.col-xs-12.col-sm-6.col-offset-md-2.col-lg-3.col-offset-lg-0
+    .col-xs-12.col-sm-6.col-offset-md-2.col-lg-3.col-offset-lg-0
       label.jjj-label Seeking Remote Work?
       br
       .form-check.form-check-inline
@@ -18,19 +18,19 @@ form.container
         input.form-check-input(type="radio" id="remoteNo" name="remoteWork" :checked="criteria.remoteWork === 'no'"
                                @click="updateValue('remoteWork', 'no')")
         label.form-check-label(for="remoteNo") No
-    .col.col-xs-12.col-sm-6.col-lg-3
+    .col-xs-12.col-sm-6.col-lg-3
       .form-floating
         input.form-control(type="text" id="skillSearch" placeholder="(free-form text)" :value="criteria.skill"
                            @input="updateValue('skill', $event.target.value)")
         label(for="skillSearch") Skill
       .form-text (free-form text)
-    .col.col-xs-12.col-sm-6.col-lg-3
+    .col-xs-12.col-sm-6.col-lg-3
       .form-floating
         input.form-control(type="text" id="bioSearch" placeholder="(free-form text)" :value="criteria.bioExperience"
                            @input="updateValue('bioExperience', $event.target.value)")
         label(for="bioSearch") Bio / Experience
       .form-text (free-form text)
-  .row: .col.col-xs-12
+  .row: .col
     br
     button.btn.btn-outline-primary(type="submit" @click.prevent="$emit('search')") Search
 </template>

src/JobsJobsJobs/App/src/components/profile/SkillEdit.vue

@@ -1,15 +1,15 @@
 <template lang="pug">
 .row.pb-3
-  .col.col-xs-2.col-md-1.align-self-center
+  .col-xs-2.col-md-1.align-self-center
     button.btn.btn-sm.btn-outline-danger.rounded-pill(title="Delete" @click.prevent="$emit('remove')") &nbsp;&minus;&nbsp;
-  .col.col-xs-10.col-md-6
+  .col-xs-10.col-md-6
     .form-floating
       input.form-control(type="text" :id="`skillDesc${skill.id}`" maxlength="100"
                          placeholder="A skill (language, design technique, process, etc.)" :value="skill.description"
                          @input="updateValue('description', $event.target.value)")
       label.jjj-label(:for="`skillDesc${skill.id}`") Skill
     .form-text A skill (language, design technique, process, etc.)
-  .col.col-xs-12.col-md-5
+  .col-xs-12.col-md-5
     .form-floating
       input.form-control(type="text" :id="`skillNotes${skill.id}`" maxlength="100"
                          placeholder="A further description of the skill (100 characters max)" :value="skill.notes"

src/JobsJobsJobs/App/src/main.ts

@@ -3,13 +3,11 @@ import App from "./App.vue"
 import router from "./router"
 import store, { key } from "./store"
 import Icon from "./components/Icon.vue"
-import PageTitle from "./components/PageTitle.vue"
 
 const app = createApp(App)
   .use(router)
   .use(store, key)
 
 app.component("Icon", Icon)
-app.component("PageTitle", PageTitle)
 
 app.mount("#app")

src/JobsJobsJobs/App/src/markdown.ts

@@ -1,5 +1,5 @@
 import { sanitize } from "dompurify"
-import marked from "marked"
+import { marked } from "marked"
 
 /**
  * Transform Markdown to HTML (standardize option, sanitize the output)

src/JobsJobsJobs/App/src/router/index.ts

@@ -3,10 +3,9 @@ import {
   createWebHistory,
   RouteLocationNormalized,
   RouteLocationNormalizedLoaded,
-  RouteRecordName,
   RouteRecordRaw
 } from "vue-router"
-import store from "@/store"
+import store, { Mutations } from "@/store"
 import Home from "@/views/Home.vue"
 import LogOn from "@/views/citizen/LogOn.vue"
 
@@ -29,124 +28,141 @@ const routes: Array<RouteRecordRaw> = [
   {
     path: "/",
     name: "Home",
-    component: Home
+    component: Home,
+    meta: { title: "Welcome!" }
   },
   {
     path: "/how-it-works",
     name: "HowItWorks",
-    component: () => import(/* webpackChunkName: "help" */ "../views/HowItWorks.vue")
+    component: () => import(/* webpackChunkName: "help" */ "../views/HowItWorks.vue"),
+    meta: { title: "How It Works" }
   },
   {
     path: "/privacy-policy",
     name: "PrivacyPolicy",
-    component: () => import(/* webpackChunkName: "legal" */ "../views/PrivacyPolicy.vue")
+    component: () => import(/* webpackChunkName: "legal" */ "../views/PrivacyPolicy.vue"),
+    meta: { title: "Privacy Policy" }
   },
   {
     path: "/terms-of-service",
     name: "TermsOfService",
-    component: () => import(/* webpackChunkName: "legal" */ "../views/TermsOfService.vue")
+    component: () => import(/* webpackChunkName: "legal" */ "../views/TermsOfService.vue"),
+    meta: { title: "Terms of Service" }
   },
   // Citizen URLs
   {
     path: "/citizen/log-on",
     name: "LogOn",
-    component: LogOn
+    component: LogOn,
+    meta: { title: "Log On" }
   },
   {
     path: "/citizen/:abbr/authorized",
     name: "CitizenAuthorized",
-    component: () => import(/* webpackChunkName: "dashboard" */ "../views/citizen/Authorized.vue")
+    component: () => import(/* webpackChunkName: "dashboard" */ "../views/citizen/Authorized.vue"),
+    meta: { title: "Logging On" }
   },
   {
     path: "/citizen/dashboard",
     name: "Dashboard",
-    component: () => import(/* webpackChunkName: "dashboard" */ "../views/citizen/Dashboard.vue")
+    component: () => import(/* webpackChunkName: "dashboard" */ "../views/citizen/Dashboard.vue"),
+    meta: { auth: true, title: "Dashboard" }
   },
   {
     path: "/citizen/profile",
     name: "EditProfile",
-    component: () => import(/* webpackChunkName: "profedit" */ "../views/citizen/EditProfile.vue")
+    component: () => import(/* webpackChunkName: "profedit" */ "../views/citizen/EditProfile.vue"),
+    meta: { auth: true, title: "Edit Profile" }
   },
   {
     path: "/citizen/log-off",
     name: "LogOff",
-    component: () => import(/* webpackChunkName: "logoff" */ "../views/citizen/LogOff.vue")
+    component: () => import(/* webpackChunkName: "logoff" */ "../views/citizen/LogOff.vue"),
+    meta: { auth: true, title: "Logging Off" }
   },
   // Job Listing URLs
   {
     path: "/help-wanted",
     name: "HelpWanted",
-    component: () => import(/* webpackChunkName: "joblist" */ "../views/listing/HelpWanted.vue")
+    component: () => import(/* webpackChunkName: "joblist" */ "../views/listing/HelpWanted.vue"),
+    meta: { auth: true, title: "Help Wanted" }
   },
   {
     path: "/listing/:id/edit",
     name: "EditListing",
-    component: () => import(/* webpackChunkName: "jobedit" */ "../views/listing/ListingEdit.vue")
+    component: () => import(/* webpackChunkName: "jobedit" */ "../views/listing/ListingEdit.vue"),
+    meta: { auth: true, title: "Edit Job Listing" }
   },
   {
     path: "/listing/:id/expire",
     name: "ExpireListing",
-    component: () => import(/* webpackChunkName: "jobedit" */ "../views/listing/ListingExpire.vue")
+    component: () => import(/* webpackChunkName: "jobedit" */ "../views/listing/ListingExpire.vue"),
+    meta: { auth: true, title: "Expire Job Listing" }
   },
   {
     path: "/listing/:id/view",
     name: "ViewListing",
-    component: () => import(/* webpackChunkName: "joblist" */ "../views/listing/ListingView.vue")
+    component: () => import(/* webpackChunkName: "joblist" */ "../views/listing/ListingView.vue"),
+    meta: { auth: true, title: "Loading Job Listing..." }
   },
   {
     path: "/listings/mine",
     name: "MyListings",
-    component: () => import(/* webpackChunkName: "joblist" */ "../views/listing/MyListings.vue")
+    component: () => import(/* webpackChunkName: "joblist" */ "../views/listing/MyListings.vue"),
+    meta: { auth: true, title: "My Job Listings" }
   },
   // Profile URLs
   {
     path: "/profile/:id/view",
     name: "ViewProfile",
-    component: () => import(/* webpackChunkName: "profview" */ "../views/profile/ProfileView.vue")
+    component: () => import(/* webpackChunkName: "profview" */ "../views/profile/ProfileView.vue"),
+    meta: { auth: true, title: "Loading Profile..." }
   },
   {
     path: "/profile/search",
     name: "SearchProfiles",
-    component: () => import(/* webpackChunkName: "profview" */ "../views/profile/ProfileSearch.vue")
+    component: () => import(/* webpackChunkName: "profview" */ "../views/profile/ProfileSearch.vue"),
+    meta: { auth: true, title: "Search Profiles" }
   },
   {
     path: "/profile/seeking",
     name: "PublicSearchProfiles",
-    component: () => import(/* webpackChunkName: "seeking" */ "../views/profile/Seeking.vue")
+    component: () => import(/* webpackChunkName: "seeking" */ "../views/profile/Seeking.vue"),
+    meta: { auth: false, title: "People Seeking Work" }
   },
   // "So Long" URLs
   {
     path: "/so-long/options",
     name: "DeletionOptions",
-    component: () => import(/* webpackChunkName: "so-long" */ "../views/so-long/DeletionOptions.vue")
+    component: () => import(/* webpackChunkName: "so-long" */ "../views/so-long/DeletionOptions.vue"),
+    meta: { auth: true, title: "Account Deletion Options" }
   },
   {
     path: "/so-long/success/:abbr",
     name: "DeletionSuccess",
-    component: () => import(/* webpackChunkName: "so-long" */ "../views/so-long/DeletionSuccess.vue")
+    component: () => import(/* webpackChunkName: "so-long" */ "../views/so-long/DeletionSuccess.vue"),
+    meta: { auth: false, title: "Account Deletion Success" }
   },
   // Success Story URLs
   {
     path: "/success-story/list",
     name: "ListStories",
-    component: () => import(/* webpackChunkName: "success" */ "../views/success-story/StoryList.vue")
+    component: () => import(/* webpackChunkName: "success" */ "../views/success-story/StoryList.vue"),
+    meta: { auth: false, title: "Success Stories" }
   },
   {
     path: "/success-story/:id/edit",
     name: "EditStory",
-    component: () => import(/* webpackChunkName: "succedit" */ "../views/success-story/StoryEdit.vue")
+    component: () => import(/* webpackChunkName: "succedit" */ "../views/success-story/StoryEdit.vue"),
+    meta: { auth: false, title: "Edit Success Story" }
   },
   {
     path: "/success-story/:id/view",
     name: "ViewStory",
-    component: () => import(/* webpackChunkName: "success" */ "../views/success-story/StoryView.vue")
+    component: () => import(/* webpackChunkName: "success" */ "../views/success-story/StoryView.vue"),
+    meta: { auth: false, title: "Success Story" }
   }
 ]
-/** The routes that do not require logins */
-const publicRoutes : Array<RouteRecordName> = [
-  "Home", "HowItWorks", "PrivacyPolicy", "TermsOfService", "LogOn", "CitizenAuthorized", "PublicSearchProfiles",
-  "DeletionSuccess"
-]
 
 const router = createRouter({
   history: createWebHistory(process.env.BASE_URL),
@@ -159,10 +175,11 @@ const router = createRouter({
 
 // eslint-disable-next-line
 router.beforeEach((to : RouteLocationNormalized, from : RouteLocationNormalized) => {
-  if (store.state.user === undefined && !publicRoutes.includes(to.name ?? "")) {
+  if (store.state.user === undefined && (to.meta.auth || false)) {
     window.localStorage.setItem(AFTER_LOG_ON_URL, to.fullPath)
     return "/citizen/log-on"
   }
+  store.commit(Mutations.SetTitle, to.meta.title ?? "")
 })
 
 export default router

src/JobsJobsJobs/App/src/store/index.ts

@@ -1,3 +1,4 @@
+import { useTitle } from "@vueuse/core"
 import { InjectionKey } from "vue"
 import { createStore, Store, useStore as baseUseStore } from "vuex"
 import api, { Continent, Instance, LogOnSuccess } from "../api"
@@ -6,6 +7,8 @@ import * as Mutations from "./mutations"
 
 /** The state tracked by the application */
 export interface State {
+  /** The document's current title */
+  pageTitle : string
   /** The currently logged-on user */
   user : LogOnSuccess | undefined
   /** The state of the log on process */
@@ -24,9 +27,13 @@ export function useStore () : Store<State> {
   return baseUseStore(key)
 }
 
+/** The application name */
+const appName = "Jobs, Jobs, Jobs"
+
 export default createStore({
   state: () : State => {
     return {
+      pageTitle: "",
       user: undefined,
       logOnState: "<em>Welcome back!</em>",
       continents: [],
@@ -34,6 +41,10 @@ export default createStore({
     }
   },
   mutations: {
+    [Mutations.SetTitle]: (state, title : string) => {
+      state.pageTitle = title === "" ? appName : `${title} | ${appName}`
+      useTitle(state.pageTitle)
+    },
     [Mutations.SetUser]: (state, user : LogOnSuccess) => { state.user = user },
     [Mutations.ClearUser]: (state) => { state.user = undefined },
     [Mutations.SetLogOnState]: (state, message : string) => { state.logOnState = message },

src/JobsJobsJobs/App/src/store/mutations.ts

@@ -1,3 +1,6 @@
+/** Set the page title */
+export const SetTitle = "setTitle"
+
 /** Set the logged-on user */
 export const SetUser = "setUser"
 

src/JobsJobsJobs/App/src/views/Home.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Welcome!")
   p &nbsp;
   p.
     Welcome to Jobs, Jobs, Jobs (AKA No Agenda Careers), where citizens of Gitmo Nation can assist one another in

src/JobsJobsJobs/App/src/views/HowItWorks.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="How It Works")
   h3 How It Works
   h5.pb-3.text-muted: em Last Updated August 29#[sup th], 2021
   p: em.

src/JobsJobsJobs/App/src/views/PrivacyPolicy.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Privacy Policy")
   h3 Privacy Policy
   p: em (as of September 6#[sup th], 2021)
 

src/JobsJobsJobs/App/src/views/TermsOfService.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Terms of Service")
   h3 Terms of Service
   p: em (as of September 6#[sup th], 2021)
 

src/JobsJobsJobs/App/src/views/citizen/Authorized.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Logging on...")
   p &nbsp;
   p(v-html="message")
 </template>

src/JobsJobsJobs/App/src/views/citizen/Dashboard.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article.container
-  page-title(title="Dashboard")
   h3.pb-4 Welcome, {{user.name}}
   load-data(:load="retrieveData"): .row.row-cols-1.row-cols-md-2
     .col: .card.h-100

src/JobsJobsJobs/App/src/views/citizen/EditProfile.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Edit Profile")
   h3.pb-3 My Employment Profile
   load-data(:load="retrieveData"): form.row.g-3
     .col-12.col-sm-10.col-md-8.col-lg-6

src/JobsJobsJobs/App/src/views/citizen/LogOff.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Logging off...")
   p &nbsp;
   p.fst-italic Logging off&hellip;
 </template>

src/JobsJobsJobs/App/src/views/citizen/LogOn.vue

@@ -5,7 +5,10 @@ article
   template(v-else)
     p.text-center Please select your No Agenda-affiliated Mastodon instance
     p.text-center(v-for="it in instances" :key="it.abbr")
+      template(v-if="it.isEnabled")
         button.btn.btn-primary(@click.prevent="select(it.abbr)") {{it.name}}
+      template(v-else).
+        #[button.btn.btn-secondary(disabled="disabled") {{it.name}}]#[br]#[em {{it.reason}}]
 </template>
 
 <script setup lang="ts">

src/JobsJobsJobs/App/src/views/listing/HelpWanted.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Help Wanted")
   h3.pb-3 Help Wanted
   p(v-if="!searched").
     Enter relevant criteria to find results, or just click &ldquo;Search&rdquo; to see all current job listings.

src/JobsJobsJobs/App/src/views/listing/ListingEdit.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(:title="isNew ? 'Add a Job Listing' : 'Edit Job Listing'")
   h3.pb-3(v-if="isNew") Add a Job Listing
   h3.pb-3(v-else) Edit Job Listing
   load-data(:load="retrieveData"): form.row.g-3
@@ -44,7 +43,7 @@ import { required } from "@vuelidate/validators"
 
 import api, { Listing, ListingForm, LogOnSuccess } from "@/api"
 import { toastError, toastSuccess } from "@/components/layout/AppToaster.vue"
-import { useStore } from "@/store"
+import { Mutations, useStore } from "@/store"
 
 import ContinentList from "@/components/ContinentList.vue"
 import LoadData from "@/components/LoadData.vue"
@@ -99,6 +98,7 @@ const v$ = useVuelidate(rules, listing, { $lazy: true })
 
 /** Retrieve the listing being edited (or set up the form for a new listing) */
 const retrieveData = async (errors : string[]) => {
+  if (isNew.value) store.commit(Mutations.SetTitle, "Add a Job Listing")
   const listResult = isNew.value ? newListing : await api.listings.retreive(id, user)
   if (typeof listResult === "string") {
     errors.push(listResult)

src/JobsJobsJobs/App/src/views/listing/ListingExpire.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Expire Job Listing")
   load-data(:load="retrieveListing")
     h3.pb-3 Expire Job Listing ({{listing.title}})
     p: em.

src/JobsJobsJobs/App/src/views/listing/ListingView.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(:title="title")
   load-data(:load="retrieveListing")
     h3
       | {{it.listing.title}}
@@ -24,7 +23,7 @@ import { formatNeededBy } from "./"
 import api, { Citizen, ListingForView, LogOnSuccess } from "@/api"
 import { citizenName } from "@/App.vue"
 import { toHtml } from "@/markdown"
-import { useStore } from "@/store"
+import { Mutations, useStore } from "@/store"
 import LoadData from "@/components/LoadData.vue"
 
 const store = useStore()
@@ -48,6 +47,7 @@ const retrieveListing = async (errors : string[]) => {
     errors.push("Job Listing not found")
   } else {
     it.value = listingResp
+    store.commit(Mutations.SetTitle, `${listingResp.listing.title} | Job Listing`)
     const citizenResp = await api.citizen.retrieve(listingResp.listing.citizenId, user)
     if (typeof citizenResp === "string") {
       errors.push(citizenResp)
@@ -59,9 +59,6 @@ const retrieveListing = async (errors : string[]) => {
   }
 }
 
-/** The page title (changes once the listing is loaded) */
-const title = computed(() => it.value ? `${it.value.listing.title} | Job Listing` : "Loading Job Listing...")
-
 /** The HTML details of the job listing */
 const details = computed(() => toHtml(it.value?.listing.text ?? ""))
 

src/JobsJobsJobs/App/src/views/listing/MyListings.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="My Job Listings")
   h3.pb-3 My Job Listings
   p: router-link.btn.btn-outline-primary(to="/listing/new/edit") Add a New Job Listing
   load-data(:load="getListings")

src/JobsJobsJobs/App/src/views/profile/ProfileSearch.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Search Profiles")
   h3.pb-3 Search Profiles
   p(v-if="!searched").
     Enter one or more criteria to filter results, or just click &ldquo;Search&rdquo; to list all profiles.
@@ -13,23 +12,25 @@ article
         thead: tr
           th(scope="col") Profile
           th(scope="col") Name
-          th.text-center(scope="col") Seeking?
+          th.text-center(scope="col" v-if="wideDisplay") Seeking?
           th.text-center(scope="col") Remote?
-          th.text-center(scope="col") Full-Time?
+          th.text-center(scope="col" v-if="wideDisplay") Full-Time?
-          th(scope="col") Last Updated
+          th(scope="col" v-if="wideDisplay") Last Updated
         tbody: tr(v-for="profile in results" :key="profile.citzenId")
           td: router-link(:to="`/profile/${profile.citizenId}/view`") View
           td(:class="{ 'fw-bold' : profile.seekingEmployment }") {{profile.displayName}}
-          td.text-center {{yesOrNo(profile.seekingEmployment)}}
+          td.text-center(v-if="wideDisplay") {{yesOrNo(profile.seekingEmployment)}}
           td.text-center {{yesOrNo(profile.remoteWork)}}
-          td.text-center {{yesOrNo(profile.fullTime)}}
+          td.text-center(v-if="wideDisplay") {{yesOrNo(profile.fullTime)}}
-          td: full-date(:date="profile.lastUpdatedOn")
+          td(v-if="wideDisplay"): full-date(:date="profile.lastUpdatedOn")
       p.pt-3(v-else-if="searched") No results found for the specified criteria
 </template>
 
 <script setup lang="ts">
-import { defineComponent, Ref, ref, watch } from "vue"
+import { Ref, ref, watch } from "vue"
 import { useRoute, useRouter } from "vue-router"
+import { useBreakpoints, breakpointsBootstrapV5 } from "@vueuse/core"
+
 import { yesOrNo } from "@/App.vue"
 import api, { LogOnSuccess, ProfileSearch, ProfileSearchResult } from "@/api"
 import { queryValue } from "@/router"
@@ -43,6 +44,7 @@ import ProfileSearchForm from "@/components/profile/SearchForm.vue"
 const store = useStore()
 const route = useRoute()
 const router = useRouter()
+const breakpoints = useBreakpoints(breakpointsBootstrapV5)
 
 /** Any errors encountered while retrieving data */
 const errors : Ref<string[]> = ref([])
@@ -70,6 +72,9 @@ const results : Ref<ProfileSearchResult[]> = ref([])
 /** Whether the search criteria should be collapsed */
 const isCollapsed = ref(searched.value && results.value.length > 0)
 
+/** Hide certain columns if the display is too narrow */
+const wideDisplay = breakpoints.greater("sm")
+
 /** Set up the page to match its requested state */
 const setUpPage = async () => {
   if (queryValue(route, "searched") === "true") {

src/JobsJobsJobs/App/src/views/profile/ProfileView.vue

@@ -34,7 +34,7 @@ import { mdiPencil } from "@mdi/js"
 import api, { LogOnSuccess, ProfileForView } from "@/api"
 import { citizenName } from "@/App.vue"
 import { toHtml } from "@/markdown"
-import { useStore } from "@/store"
+import { Mutations, useStore } from "@/store"
 import LoadData from "@/components/LoadData.vue"
 
 const store = useStore()
@@ -66,14 +66,10 @@ const retrieveProfile = async (errors : string[]) => {
     errors.push("Profile not found")
   } else {
     it.value = profileResp
+    store.commit(Mutations.SetTitle, `Employment profile for ${citizenName(profileResp.citizen)}`)
   }
 }
 
-/** The title of the page (changes once the profile is loaded) */
-const title = computed(() => it.value
-  ? `Employment profile for ${citizenName(it.value.citizen)}`
-  : "Loading Profile...")
-
 /** The HTML version of the citizen's professional biography */
 const bioHtml = computed(() => toHtml(it.value?.profile.biography ?? ""))
 

src/JobsJobsJobs/App/src/views/profile/Seeking.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="People Seeking Work")
   h3.pb-3 People Seeking Work
   p(v-if="!searched").
     Enter one or more criteria to filter results, or just click &ldquo;Search&rdquo; to list all profiles.

src/JobsJobsJobs/App/src/views/so-long/DeletionOptions.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Account Deletion Options")
   h3.pb-3 Account Deletion Options
   h4.pb-3 Option 1 &ndash; Delete Your Profile
   p.

src/JobsJobsJobs/App/src/views/so-long/DeletionSuccess.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Account Deletion Success")
   h3.pb-3 Account Deletion Success
   p.
     Your account has been successfully deleted. To revoke the permissions you have previously granted to this

src/JobsJobsJobs/App/src/views/success-story/StoryEdit.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(:title="title")
   h3.pb-3 {{title}}
   load-data(:load="retrieveStory")
     p(v-if="isNew").
@@ -26,7 +25,7 @@ import useVuelidate from "@vuelidate/core"
 
 import api, { LogOnSuccess, StoryForm } from "@/api"
 import { toastError, toastSuccess } from "@/components/layout/AppToaster.vue"
-import { useStore } from "@/store"
+import { Mutations, useStore } from "@/store"
 
 import LoadData from "@/components/LoadData.vue"
 import MarkdownEditor from "@/components/MarkdownEditor.vue"
@@ -45,9 +44,6 @@ const id = route.params.id as string
 /** Whether this is a new story */
 const isNew = computed(() => id === "new")
 
-/** The page title */
-const title = computed(() => isNew.value ? "Tell Your Success Story" : "Edit Success Story")
-
 /** The form for editing the story */
 const story = reactive(new StoryForm())
 
@@ -64,6 +60,7 @@ const v$ = useVuelidate(rules, story, { $lazy: true })
 const retrieveStory = async (errors : string[]) => {
   if (isNew.value) {
     story.id = "new"
+    store.commit(Mutations.SetTitle, "Tell Your Success Story")
   } else {
     const storyResult = await api.success.retrieve(id, user)
     if (typeof storyResult === "string") {

src/JobsJobsJobs/App/src/views/success-story/StoryList.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Success Stories")
   h3.pb-3 Success Stories
   load-data(:load="retrieveStories")
     table.table.table-sm.table-hover(v-if="stories?.length > 0")

src/JobsJobsJobs/App/src/views/success-story/StoryView.vue

@@ -1,6 +1,5 @@
 <template lang="pug">
 article
-  page-title(title="Success Story")
   load-data(:load="retrieveStory")
     h3
       | {{citizenName}}&rsquo;s Success Story

src/JobsJobsJobs/App/vue.config.js

@@ -2,5 +2,14 @@ module.exports = {
   transpileDependencies: [
     'vuetify'
   ],
-  outputDir: '../Api/wwwroot'
+  outputDir: '../Server/wwwroot',
+  configureWebpack: {
+    module: {
+      rules: [{
+        test: /\.mjs$/,
+        include: /node_modules/,
+        type: "javascript/auto"
+      }]
+    }
+  }
 }

src/JobsJobsJobs/Directory.Build.props

@@ -1,8 +1,9 @@
 <Project>
   <PropertyGroup>
-    <TargetFramework>net5.0</TargetFramework>
+    <TargetFramework>net6.0</TargetFramework>
     <Nullable>enable</Nullable>
-    <AssemblyVersion>1.0.1.0</AssemblyVersion>
+    <DebugType>embedded</DebugType>
-    <FileVersion>1.0.1.0</FileVersion>
+    <AssemblyVersion>2.2.2.0</AssemblyVersion>
+    <FileVersion>2.2.2.0</FileVersion>
   </PropertyGroup>
 </Project>

src/JobsJobsJobs/Domain/JobsJobsJobs.Domain.fsproj

@@ -1,7 +1,6 @@
 <Project Sdk="Microsoft.NET.Sdk">
 
   <PropertyGroup>
-    <TargetFramework>net5.0</TargetFramework>
     <GenerateDocumentationFile>true</GenerateDocumentationFile>
     <WarnOn>3390;$(WarnOn)</WarnOn>
   </PropertyGroup>
@@ -13,9 +12,10 @@
   </ItemGroup>
 
   <ItemGroup>
-    <PackageReference Include="Markdig" Version="0.25.0" />
+    <PackageReference Include="Markdig" Version="0.30.2" />
-    <PackageReference Include="Microsoft.Extensions.Options" Version="5.0.0" />
+    <PackageReference Include="Microsoft.Extensions.Options" Version="6.0.0" />
-    <PackageReference Include="NodaTime" Version="3.0.5" />
+    <PackageReference Include="NodaTime" Version="3.1.0" />
+    <PackageReference Update="FSharp.Core" Version="6.0.5" />
   </ItemGroup>
 
 </Project>

src/JobsJobsJobs/Domain/Modules.fs

@@ -7,16 +7,12 @@ open System
 open Types
 
 /// Format a GUID as a Short GUID
-let private toShortGuid guid =
+let private toShortGuid (guid : Guid) =
-  let convert (g : Guid) =
+    Convert.ToBase64String(guid.ToByteArray ()).Replace('/', '_').Replace('+', '-')[0..21]
-    Convert.ToBase64String (g.ToByteArray ())
-    |> String.map (fun x -> match x with '/' -> '_' | '+' -> '-' | _ -> x)
-  (convert guid).Substring (0, 22)
 
 /// Turn a Short GUID back into a GUID
-let private fromShortGuid x =
+let private fromShortGuid (it : string) =
-  let unBase64 = x |> String.map (fun x -> match x with '_' -> '/' | '-' -> '+' | _ -> x)
+    (Convert.FromBase64String >> Guid) $"{it.Replace('_', '/').Replace('-', '+')}=="
-  (Convert.FromBase64String >> Guid) $"{unBase64}=="
 
 
 /// Support functions for citizen IDs
@@ -24,7 +20,7 @@ module CitizenId =
     /// Create a new citizen ID
     let create () = (Guid.NewGuid >> CitizenId) ()
     /// A string representation of a citizen ID
-  let toString = function (CitizenId it) -> toShortGuid it
+    let toString = function CitizenId it -> toShortGuid it
     /// Parse a string into a citizen ID
     let ofString = fromShortGuid >> CitizenId
 
@@ -43,7 +39,7 @@ module ContinentId =
     /// Create a new continent ID
     let create () = (Guid.NewGuid >> ContinentId) ()
     /// A string representation of a continent ID
-  let toString = function (ContinentId it) -> toShortGuid it
+    let toString = function ContinentId it -> toShortGuid it
     /// Parse a string into a continent ID
     let ofString = fromShortGuid >> ContinentId
 
@@ -53,7 +49,7 @@ module ListingId =
     /// Create a new job listing ID
     let create () = (Guid.NewGuid >> ListingId) ()
     /// A string representation of a listing ID
-  let toString = function (ListingId it) -> toShortGuid it
+    let toString = function ListingId it -> toShortGuid it
     /// Parse a string into a listing ID
     let ofString = fromShortGuid >> ListingId
 
@@ -63,7 +59,7 @@ module MarkdownString =
     /// The Markdown conversion pipeline (enables all advanced features)
     let private pipeline = MarkdownPipelineBuilder().UseAdvancedExtensions().Build ()
     /// Convert this Markdown string to HTML
-  let toHtml = function (Text text) -> Markdown.ToHtml (text, pipeline)
+    let toHtml = function Text text -> Markdown.ToHtml (text, pipeline)
 
 
 /// Support functions for Profiles
@@ -88,7 +84,7 @@ module SkillId =
     /// Create a new skill ID
     let create () = (Guid.NewGuid >> SkillId) ()
     /// A string representation of a skill ID
-  let toString = function (SkillId it) -> toShortGuid it
+    let toString = function SkillId it -> toShortGuid it
     /// Parse a string into a skill ID
     let ofString = fromShortGuid >> SkillId
 
@@ -98,6 +94,6 @@ module SuccessId =
     /// Create a new success report ID
     let create () = (Guid.NewGuid >> SuccessId) ()
     /// A string representation of a success report ID
-  let toString = function (SuccessId it) -> toShortGuid it
+    let toString = function SuccessId it -> toShortGuid it
     /// Parse a string into a success report ID
     let ofString = fromShortGuid >> SuccessId

src/JobsJobsJobs/Domain/SharedTypes.fs

@@ -8,8 +8,8 @@ open NodaTime
 // fsharplint:disable FieldNames
 
 /// The data required to add or edit a job listing
-type ListingForm = {
+type ListingForm =
-  /// The ID of the listing
+    {   /// The ID of the listing
         id          : string
         /// The listing title
         title       : string
@@ -27,8 +27,8 @@ type ListingForm = {
 
 
 /// The data needed to display a listing
-type ListingForView = {
+type ListingForView =
-  /// The listing itself
+    {   /// The listing itself
         listing   : Listing
         /// The continent for that listing
         continent : Continent
@@ -36,8 +36,8 @@ type ListingForView = {
 
 
 /// The form submitted to expire a listing
-type ListingExpireForm = {
+type ListingExpireForm =
-  /// Whether the job was filled from here
+    {   /// Whether the job was filled from here
         fromHere     : bool
         /// The success story written by the user
         successStory : string option
@@ -46,8 +46,8 @@ type ListingExpireForm = {
 
 /// The various ways job listings can be searched
 [<CLIMutable>]
-type ListingSearch = {
+type ListingSearch =
-  /// Retrieve job listings for this continent
+    {   /// Retrieve job listings for this continent
         continentId : string option
         /// Text for a search within a region
         region      : string option
@@ -59,8 +59,8 @@ type ListingSearch = {
 
 
 /// A successful logon
-type LogOnSuccess = {
+type LogOnSuccess =
-  /// The JSON Web Token (JWT) to use for API access
+    {   /// The JSON Web Token (JWT) to use for API access
         jwt       : string
         /// The ID of the logged-in citizen (as a string)
         citizenId : string
@@ -70,8 +70,8 @@ type LogOnSuccess = {
 
 
 /// A count
-type Count = {
+type Count =
-  // The count being returned
+    {   // The count being returned
         count : int64
     }
 
@@ -88,11 +88,15 @@ type MastodonInstance () =
     member val ClientId  = ""   with get, set
     /// The cryptographic secret (provided by the Mastodon server)
     member val Secret    = ""   with get, set
+    /// Whether the instance is currently enabled
+    member val IsEnabled = true with get, set
+    /// If an instance is disabled, the reason for it being disabled
+    member val Reason    = ""   with get, set
 
 
 /// The authorization options for Jobs, Jobs, Jobs
 type AuthOptions () =
-  /// The host for the return URL for Mastodoon verification
+    /// The host for the return URL for Mastodon verification
     member val ReturnHost   = "" with get, set
     /// The secret with which the server signs the JWTs for auth once we've verified with Mastodon
     member val ServerSecret = "" with get, set
@@ -103,8 +107,8 @@ type AuthOptions () =
 
 
 /// The Mastodon instance data provided via the Jobs, Jobs, Jobs API
-type Instance = {
+type Instance =
-  /// The name of the instance
+    {   /// The name of the instance
         name      : string
         /// The URL for this instance
         url       : string
@@ -112,12 +116,16 @@ type Instance = {
         abbr      : string
         /// The client ID (assigned by the Mastodon server)
         clientId  : string
+        /// Whether this instance is currently enabled
+        isEnabled : bool
+        /// If not enabled, the reason the instance is disabled
+        reason    : string
     }
 
 
 /// The fields required for a skill
-type SkillForm = {
+type SkillForm =
-  /// The ID of this skill
+    {   /// The ID of this skill
         id          : string
         /// The description of the skill
         description : string
@@ -127,8 +135,8 @@ type SkillForm = {
 
 /// The data required to update a profile
 [<CLIMutable; NoComparison; NoEquality>]
-type ProfileForm = {
+type ProfileForm =
-  /// Whether the citizen to whom this profile belongs is actively seeking employment
+    {   /// Whether the citizen to whom this profile belongs is actively seeking employment
         isSeekingEmployment : bool
         /// Whether this profile should appear in the public search
         isPublic            : bool
@@ -174,8 +182,8 @@ module ProfileForm =
 
 /// The various ways profiles can be searched
 [<CLIMutable>]
-type ProfileSearch = {
+type ProfileSearch =
-  /// Retrieve citizens from this continent
+    {   /// Retrieve citizens from this continent
         continentId   : string option
         /// Text for a search within a citizen's skills
         skill         : string option
@@ -187,8 +195,8 @@ type ProfileSearch = {
 
 
 /// A user matching the profile search
-type ProfileSearchResult = {
+type ProfileSearchResult =
-  /// The ID of the citizen
+    {   /// The ID of the citizen
         citizenId         : CitizenId
         /// The citizen's display name
         displayName       : string
@@ -204,8 +212,8 @@ type ProfileSearchResult = {
 
 
 /// The data required to show a viewable profile
-type ProfileForView = {
+type ProfileForView =
-  /// The profile itself
+    {   /// The profile itself
         profile : Profile
         /// The citizen to whom the profile belongs
         citizen : Citizen
@@ -216,8 +224,8 @@ type ProfileForView = {
 
 /// The parameters for a public job search
 [<CLIMutable>]
-type PublicSearch = {
+type PublicSearch =
-  /// Retrieve citizens from this continent
+    {   /// Retrieve citizens from this continent
         continentId : string option
         /// Retrieve citizens from this region
         region : string option
@@ -227,20 +235,20 @@ type PublicSearch = {
         remoteWork : string
     }
 
-/// Support functions for pblic searches
+/// Support functions for public searches
 module PublicSearch =
     /// Is the search empty?
-  let isEmptySearch (srch : PublicSearch) =
+    let isEmptySearch (search : PublicSearch) =
-    [ srch.continentId
+        [ search.continentId
-      srch.skill
+          search.skill
-      match srch.remoteWork with "" -> Some srch.remoteWork | _ -> None
+          match search.remoteWork with "" -> Some search.remoteWork | _ -> None
         ]
         |> List.exists Option.isSome
 
 
 /// A public profile search result
-type PublicSearchResult = {
+type PublicSearchResult =
-  /// The name of the continent on which the citizen resides
+    {   /// The name of the continent on which the citizen resides
         continent  : string
         /// The region in which the citizen resides
         region     : string
@@ -252,8 +260,8 @@ type PublicSearchResult = {
 
 
 /// The data required to provide a success story
-type StoryForm = {
+type StoryForm =
-  /// The ID of this story
+    {   /// The ID of this story
         id       : string
         /// Whether the employment was obtained from Jobs, Jobs, Jobs
         fromHere : bool
@@ -263,8 +271,8 @@ type StoryForm = {
 
 
 /// An entry in the list of success stories
-type StoryEntry = {
+type StoryEntry =
-  /// The ID of this success story
+    {   /// The ID of this success story
         id          : SuccessId
         /// The ID of the citizen who recorded this story
         citizenId   : CitizenId

src/JobsJobsJobs/Domain/Types.fs

@@ -11,8 +11,8 @@ type CitizenId = CitizenId of Guid
 
 /// A user of Jobs, Jobs, Jobs
 [<CLIMutable; NoComparison; NoEquality>]
-type Citizen = {
+type Citizen =
-  /// The ID of the user
+    {   /// The ID of the user
         id           : CitizenId
         /// The Mastodon instance abbreviation from which this citizen is authorized
         instance     : string
@@ -36,8 +36,8 @@ type ContinentId = ContinentId of Guid
 
 /// A continent
 [<CLIMutable; NoComparison; NoEquality>]
-type Continent = {
+type Continent =
-  /// The ID of the continent
+    {   /// The ID of the continent
         id   : ContinentId
         /// The name of the continent
         name : string
@@ -53,8 +53,8 @@ type ListingId = ListingId of Guid
 
 /// A job listing
 [<CLIMutable; NoComparison; NoEquality>]
-type Listing = {
+type Listing =
-  /// The ID of the job listing
+    {   /// The ID of the job listing
         id            : ListingId
         /// The ID of the citizen who posted the job listing
         citizenId     : CitizenId
@@ -85,8 +85,8 @@ type Listing = {
 type SkillId = SkillId of Guid
 
 /// A skill the job seeker possesses
-type Skill = {
+type Skill =
-  /// The ID of the skill
+    {   /// The ID of the skill
         id          : SkillId
         /// A description of the skill
         description : string
@@ -97,8 +97,8 @@ type Skill = {
 
 /// A job seeker profile
 [<CLIMutable; NoComparison; NoEquality>]
-type Profile = {
+type Profile =
-  /// The ID of the citizen to whom this profile belongs
+    {   /// The ID of the citizen to whom this profile belongs
         id                : CitizenId
         /// Whether this citizen is actively seeking employment
         seekingEmployment : bool
@@ -127,8 +127,8 @@ type SuccessId = SuccessId of Guid
 
 /// A record of success finding employment
 [<CLIMutable; NoComparison; NoEquality>]
-type Success = {
+type Success =
-  /// The ID of the success report
+    {   /// The ID of the success report
         id         : SuccessId
         /// The ID of the citizen who wrote this success report
         citizenId  : CitizenId

src/JobsJobsJobs/Server/App.fs

@@ -0,0 +1,81 @@
+/// The main API application for Jobs, Jobs, Jobs
+module JobsJobsJobs.Api.App
+
+open Microsoft.AspNetCore.Builder
+open Microsoft.AspNetCore.Hosting
+open Microsoft.Extensions.DependencyInjection
+open Microsoft.Extensions.Hosting
+open Giraffe
+open Giraffe.EndpointRouting
+
+
+/// Configure the ASP.NET Core pipeline to use Giraffe
+let configureApp (app : IApplicationBuilder) =
+    app.UseCors(fun p -> p.AllowAnyOrigin().AllowAnyHeader() |> ignore)
+        .UseStaticFiles()
+        .UseRouting()
+        .UseAuthentication()
+        .UseAuthorization()
+        .UseGiraffeErrorHandler(Handlers.Error.unexpectedError)
+        .UseEndpoints(fun e ->
+            e.MapGiraffeEndpoints Handlers.allEndpoints
+            e.MapFallbackToFile "index.html" |> ignore)
+    |> ignore
+
+open Newtonsoft.Json
+open NodaTime
+open Microsoft.AspNetCore.Authentication.JwtBearer
+open Microsoft.Extensions.Configuration
+open Microsoft.Extensions.Logging
+open Microsoft.IdentityModel.Tokens
+open System.Text
+open JobsJobsJobs.Domain.SharedTypes
+
+/// Configure dependency injection
+let configureServices (svc : IServiceCollection) =
+    svc.AddGiraffe ()                             |> ignore
+    svc.AddSingleton<IClock> SystemClock.Instance |> ignore
+    svc.AddLogging ()                             |> ignore
+    svc.AddCors ()                                |> ignore
+    
+    let jsonCfg = JsonSerializerSettings ()
+    Data.Converters.all () |> List.iter jsonCfg.Converters.Add
+    svc.AddSingleton<Json.ISerializer> (NewtonsoftJson.Serializer jsonCfg) |> ignore
+
+    let svcs = svc.BuildServiceProvider ()
+    let cfg  = svcs.GetRequiredService<IConfiguration> ()
+    
+    svc.AddAuthentication(fun o ->
+        o.DefaultAuthenticateScheme <- JwtBearerDefaults.AuthenticationScheme
+        o.DefaultChallengeScheme    <- JwtBearerDefaults.AuthenticationScheme
+        o.DefaultScheme             <- JwtBearerDefaults.AuthenticationScheme)
+        .AddJwtBearer(fun o ->
+            o.RequireHttpsMetadata      <- false
+            o.TokenValidationParameters <- TokenValidationParameters (
+                ValidateIssuer   = true,
+                ValidateAudience = true,
+                ValidAudience    = "https://noagendacareers.com",
+                ValidIssuer      = "https://noagendacareers.com",
+                IssuerSigningKey = SymmetricSecurityKey (
+                    Encoding.UTF8.GetBytes (cfg.GetSection "Auth").["ServerSecret"])))
+    |> ignore
+    svc.AddAuthorization () |> ignore
+    svc.Configure<AuthOptions> (cfg.GetSection "Auth") |> ignore
+    
+    let dbCfg = cfg.GetSection "Rethink"
+    let log   = svcs.GetRequiredService<ILoggerFactory>().CreateLogger "JobsJobsJobs.Api.Data.Startup"
+    let conn  = Data.Startup.createConnection dbCfg log
+    svc.AddSingleton conn |> ignore
+    Data.Startup.establishEnvironment dbCfg log conn |> Async.AwaitTask |> Async.RunSynchronously
+
+[<EntryPoint>]
+let main _ =
+    Host.CreateDefaultBuilder()
+        .ConfigureWebHostDefaults(fun webHostBuilder ->
+            webHostBuilder
+                .Configure(configureApp)
+                .ConfigureServices(configureServices)
+            |> ignore)
+        .Build()
+        .Run ()
+    0

src/JobsJobsJobs/Server/Auth.fs

@@ -0,0 +1,107 @@
+/// Authorization / authentication functions
+module JobsJobsJobs.Api.Auth
+
+open System.Text.Json.Serialization
+
+/// The variables we need from the account information we get from Mastodon
+[<NoComparison; NoEquality; AllowNullLiteral>]
+type MastodonAccount () =
+    /// The user name (what we store as mastodonUser)
+    [<JsonPropertyName "username">]
+    member val Username = "" with get, set
+    /// The account name; will generally be the same as username for local accounts, which is all we can verify
+    [<JsonPropertyName "acct">]
+    member val AccountName = "" with get, set
+    /// The user's display name as it currently shows on Mastodon
+    [<JsonPropertyName "display_name">]
+    member val DisplayName = "" with get, set
+    /// The user's profile URL
+    [<JsonPropertyName "url">]
+    member val Url = "" with get, set
+
+
+open Microsoft.Extensions.Logging
+open System
+open System.Net.Http
+open System.Net.Http.Headers
+open System.Net.Http.Json
+open System.Text.Json
+open JobsJobsJobs.Domain.SharedTypes
+
+/// HTTP client to use to communication with Mastodon
+let private http =
+    let h = new HttpClient ()
+    h.Timeout <- TimeSpan.FromSeconds 30.
+    h
+
+/// Verify the authorization code with Mastodon and get the user's profile
+let verifyWithMastodon (authCode : string) (inst : MastodonInstance) rtnHost (log : ILogger) = task {
+
+    // Function to create a URL for the given instance
+    let apiUrl = sprintf "%s/api/v1/%s" inst.Url
+
+    // Use authorization code to get an access token from Mastodon
+    use! codeResult =
+        http.PostAsJsonAsync ($"{inst.Url}/oauth/token",
+            {|  client_id     = inst.ClientId
+                client_secret = inst.Secret
+                redirect_uri  = $"{rtnHost}/citizen/{inst.Abbr}/authorized"
+                grant_type    = "authorization_code"
+                code          = authCode
+                scope         = "read"
+            |})
+    match codeResult.IsSuccessStatusCode with
+    | true ->
+        let! responseBytes = codeResult.Content.ReadAsByteArrayAsync ()
+        use  tokenResponse = JsonSerializer.Deserialize<JsonDocument> (ReadOnlySpan<byte> responseBytes)
+        match tokenResponse with
+        | null -> return Error "Could not parse authorization code result"
+        | _ ->
+            // Use access token to get profile from NAS
+            use req = new HttpRequestMessage (HttpMethod.Get, apiUrl "accounts/verify_credentials")
+            req.Headers.Authorization <- AuthenticationHeaderValue
+                ("Bearer", tokenResponse.RootElement.GetProperty("access_token").GetString ())
+            use! profileResult = http.SendAsync req
+          
+            match profileResult.IsSuccessStatusCode with
+            | true ->
+                let! profileBytes = profileResult.Content.ReadAsByteArrayAsync ()
+                match JsonSerializer.Deserialize<MastodonAccount>(ReadOnlySpan<byte> profileBytes) with
+                | null -> return Error "Could not parse profile result"
+                | profile -> return Ok profile
+            | false -> return Error $"Could not get profile ({profileResult.StatusCode:D}: {profileResult.ReasonPhrase})"
+    | false ->
+        let! err = codeResult.Content.ReadAsStringAsync ()
+        log.LogError $"Could not get token result from Mastodon:\n  {err}"
+        return Error $"Could not get token ({codeResult.StatusCode:D}: {codeResult.ReasonPhrase})"
+  }
+
+
+open JobsJobsJobs.Domain
+open JobsJobsJobs.Domain.Types
+open Microsoft.IdentityModel.Tokens
+open System.IdentityModel.Tokens.Jwt
+open System.Security.Claims
+open System.Text
+
+/// Create a JSON Web Token for this citizen to use for further requests to this API
+let createJwt (citizen : Citizen) (cfg : AuthOptions) =
+
+    let tokenHandler = JwtSecurityTokenHandler ()
+    let token =
+        tokenHandler.CreateToken (
+            SecurityTokenDescriptor (
+                Subject = ClaimsIdentity [|
+                    Claim (ClaimTypes.NameIdentifier, CitizenId.toString citizen.id)
+                    Claim (ClaimTypes.Name, Citizen.name citizen)
+                    |],
+                Expires  = DateTime.UtcNow.AddHours 2.,
+                Issuer   = "https://noagendacareers.com",
+                Audience = "https://noagendacareers.com",
+                SigningCredentials = SigningCredentials (
+                    SymmetricSecurityKey (
+                        Encoding.UTF8.GetBytes cfg.ServerSecret), SecurityAlgorithms.HmacSha256Signature)
+            )
+        )
+    tokenHandler.WriteToken token
+

src/JobsJobsJobs/Server/Data.fs

@@ -0,0 +1,471 @@
+/// Data access functions for Jobs, Jobs, Jobs
+module JobsJobsJobs.Api.Data
+
+open JobsJobsJobs.Domain.Types
+
+/// JSON converters used with RethinkDB persistence
+module Converters =
+  
+    open JobsJobsJobs.Domain
+    open Microsoft.FSharpLu.Json
+    open Newtonsoft.Json
+    open System
+
+    /// JSON converter for citizen IDs
+    type CitizenIdJsonConverter() =
+        inherit JsonConverter<CitizenId>()
+        override _.WriteJson(writer : JsonWriter, value : CitizenId, _ : JsonSerializer) =
+            writer.WriteValue (CitizenId.toString value)
+        override _.ReadJson(reader: JsonReader, _ : Type, _ : CitizenId, _ : bool, _ : JsonSerializer) =
+            (string >> CitizenId.ofString) reader.Value
+    
+    /// JSON converter for continent IDs
+    type ContinentIdJsonConverter() =
+        inherit JsonConverter<ContinentId>()
+        override _.WriteJson(writer : JsonWriter, value : ContinentId, _ : JsonSerializer) =
+            writer.WriteValue (ContinentId.toString value)
+        override _.ReadJson(reader: JsonReader, _ : Type, _ : ContinentId, _ : bool, _ : JsonSerializer) =
+            (string >> ContinentId.ofString) reader.Value
+
+    /// JSON converter for Markdown strings
+    type MarkdownStringJsonConverter() =
+        inherit JsonConverter<MarkdownString>()
+        override _.WriteJson(writer : JsonWriter, value : MarkdownString, _ : JsonSerializer) =
+            let (Text text) = value
+            writer.WriteValue text
+        override _.ReadJson(reader: JsonReader, _ : Type, _ : MarkdownString, _ : bool, _ : JsonSerializer) =
+            (string >> Text) reader.Value
+
+    /// JSON converter for listing IDs
+    type ListingIdJsonConverter() =
+        inherit JsonConverter<ListingId>()
+        override _.WriteJson(writer : JsonWriter, value : ListingId, _ : JsonSerializer) =
+            writer.WriteValue (ListingId.toString value)
+        override _.ReadJson(reader: JsonReader, _ : Type, _ : ListingId, _ : bool, _ : JsonSerializer) =
+            (string >> ListingId.ofString) reader.Value
+
+    /// JSON converter for skill IDs
+    type SkillIdJsonConverter() =
+        inherit JsonConverter<SkillId>()
+        override _.WriteJson(writer : JsonWriter, value : SkillId, _ : JsonSerializer) =
+            writer.WriteValue (SkillId.toString value)
+        override _.ReadJson(reader: JsonReader, _ : Type, _ : SkillId, _ : bool, _ : JsonSerializer) =
+            (string >> SkillId.ofString) reader.Value
+    
+    /// JSON converter for success report IDs
+    type SuccessIdJsonConverter() =
+        inherit JsonConverter<SuccessId>()
+        override _.WriteJson(writer : JsonWriter, value : SuccessId, _ : JsonSerializer) =
+            writer.WriteValue (SuccessId.toString value)
+        override _.ReadJson(reader: JsonReader, _ : Type, _ : SuccessId, _ : bool, _ : JsonSerializer) =
+            (string >> SuccessId.ofString) reader.Value
+    
+    /// All JSON converters needed for the application
+    let all () : JsonConverter list =
+        [ CitizenIdJsonConverter      ()
+          ContinentIdJsonConverter    ()
+          MarkdownStringJsonConverter ()
+          ListingIdJsonConverter      ()
+          SkillIdJsonConverter        ()
+          SuccessIdJsonConverter      ()
+          CompactUnionJsonConverter   ()
+        ]
+
+
+/// Table names
+[<RequireQualifiedAccess>]
+module Table =
+    /// The user (citizen of Gitmo Nation) table
+    let Citizen = "citizen"
+    /// The continent table
+    let Continent = "continent"
+    /// The job listing table
+    let Listing = "listing"
+    /// The citizen employment profile table
+    let Profile = "profile"
+    /// The success story table
+    let Success = "success"
+    /// All tables
+    let all () = [ Citizen; Continent; Listing; Profile; Success ]
+
+
+open RethinkDb.Driver.FSharp.Functions
+open RethinkDb.Driver.Net
+
+/// Reconnection functions (if the RethinkDB driver has a network error, it will not reconnect on its own)
+[<AutoOpen>]
+module private Reconnect =
+  
+    /// Retrieve a result using the F# driver's default retry policy
+    let result<'T> conn expr = runResult<'T> expr |> withRetryDefault |> withConn conn
+    
+    /// Retrieve an optional result using the F# driver's default retry policy
+    let resultOption<'T> conn expr = runResult<'T> expr |> withRetryDefault |> asOption |> withConn conn
+    
+    /// Write a query using the F# driver's default retry policy, ignoring the result
+    let write conn expr = runWrite expr |> withRetryDefault |> ignoreResult |> withConn conn
+    
+
+open RethinkDb.Driver.Ast
+
+/// Shorthand for the RethinkDB R variable (how every command starts)
+let private r = RethinkDb.Driver.RethinkDB.R
+
+/// Functions run at startup
+[<RequireQualifiedAccess>]
+module Startup =
+  
+    open Microsoft.Extensions.Configuration
+    open Microsoft.Extensions.Logging
+    open NodaTime
+    open NodaTime.Serialization.JsonNet
+    open RethinkDb.Driver.FSharp
+    
+    /// Create a RethinkDB connection
+    let createConnection (cfg : IConfigurationSection) (log : ILogger) =
+        // Add all required JSON converters
+        Converter.Serializer.ConfigureForNodaTime DateTimeZoneProviders.Tzdb |> ignore
+        Converters.all ()
+        |> List.iter Converter.Serializer.Converters.Add
+        // Connect to the database
+        let config = DataConfig.FromConfiguration cfg
+        log.LogInformation $"Connecting to rethinkdb://{config.Hostname}:{config.Port}/{config.Database}"
+        config.CreateConnection ()
+
+    /// Ensure the data, tables, and indexes that are required exist
+    let establishEnvironment (cfg : IConfigurationSection) (log : ILogger) conn = task {
+        // Ensure the database exists
+        match cfg["database"] |> Option.ofObj with
+        | Some database ->
+            let! dbs = dbList () |> result<string list> conn
+            match dbs |> List.contains database with
+            | true -> ()
+            | false ->
+                log.LogInformation $"Creating database {database}..."
+                do! dbCreate database |> write conn
+                ()
+        | None -> ()
+        // Ensure the tables exist
+        let! tables = tableListFromDefault () |> result<string list> conn
+        for table in Table.all () do
+            if not (List.contains table tables) then
+                log.LogInformation $"Creating {table} table..."
+                do! tableCreateInDefault table |> write conn
+        // Ensure the indexes exist
+        let ensureIndexes table indexes = task {
+            let! tblIndexes = fromTable table |> indexList |> result<string list> conn
+            for index in indexes do
+                if not (List.contains index tblIndexes) then
+                    log.LogInformation $"Creating \"{index}\" index on {table}"
+                    do! fromTable table |> indexCreate index |> write conn
+        }
+        do! ensureIndexes Table.Listing [ "citizenId"; "continentId"; "isExpired" ]
+        do! ensureIndexes Table.Profile [ "continentId" ]
+        do! ensureIndexes Table.Success [ "citizenId" ]
+        // The instance/user is a compound index
+        let! userIdx = fromTable Table.Citizen |> indexList |> result<string list> conn
+        if not (List.contains "instanceUser" userIdx) then
+            do! fromTable Table.Citizen
+                |> indexCreateFunc "instanceUser" (fun row -> r.Array (row.G "instance", row.G "mastodonUser"))
+                |> write conn
+    }
+
+
+open JobsJobsJobs.Domain
+open JobsJobsJobs.Domain.SharedTypes
+
+/// Sanitize user input, and create a "contains" pattern for use with RethinkDB queries
+let regexContains = System.Text.RegularExpressions.Regex.Escape >> sprintf "(?i)%s"
+
+/// Profile data access functions
+[<RequireQualifiedAccess>]
+module Profile =
+
+    /// Count the current profiles
+    let count conn =
+        fromTable Table.Profile
+        |> count
+        |> result<int64> conn
+
+    /// Find a profile by citizen ID
+    let findById (citizenId : CitizenId) conn =
+        fromTable Table.Profile
+        |> get citizenId
+        |> resultOption<Profile> conn
+  
+    /// Insert or update a profile
+    let save (profile : Profile) conn =
+        fromTable Table.Profile
+        |> get profile.id
+        |> replace profile
+        |> write conn
+  
+    /// Delete a citizen's profile
+    let delete (citizenId : CitizenId) conn =
+        fromTable Table.Profile
+        |> get citizenId
+        |> delete
+        |> write conn
+  
+    /// Search profiles (logged-on users)
+    let search (search : ProfileSearch) conn =
+        (seq<ReqlExpr -> ReqlExpr> {
+            match search.continentId with
+            | Some cId -> yield (fun q -> q.Filter (r.HashMap (nameof search.continentId, ContinentId.ofString cId)))
+            | None -> ()
+            match search.remoteWork with
+            | "" -> ()
+            | _ -> yield (fun q -> q.Filter (r.HashMap (nameof search.remoteWork, search.remoteWork = "yes")))
+            match search.skill with
+            | Some skl ->
+                yield (fun q -> q.Filter (ReqlFunction1(fun it ->
+                    it.G("skills").Contains (ReqlFunction1(fun s -> s.G("description").Match (regexContains skl))))))
+            | None -> ()
+            match search.bioExperience with
+            | Some text ->
+                let txt = regexContains text
+                yield (fun q -> q.Filter (ReqlFunction1(fun it ->
+                    it.G("biography").Match(txt).Or (it.G("experience").Match txt))))
+            | None -> ()
+        }
+        |> Seq.toList
+        |> List.fold
+            (fun q f -> f q)
+            (r.Table(Table.Profile)
+                .EqJoin("id", r.Table Table.Citizen)
+                .Without(r.HashMap ("right", "id"))
+                .Zip () :> ReqlExpr))
+        |> mergeFunc (fun it ->
+            r.HashMap("displayName",
+                r.Branch (it.G("realName"   ).Default_("").Ne "", it.G "realName",
+                          it.G("displayName").Default_("").Ne "", it.G "displayName",
+                                                                  it.G "mastodonUser"))
+                .With ("citizenId", it.G "id"))
+        |> pluck [ "citizenId"; "displayName"; "seekingEmployment"; "remoteWork"; "fullTime"; "lastUpdatedOn" ]
+        |> orderByFunc (fun it -> it.G("displayName").Downcase ())
+        |> result<ProfileSearchResult list> conn
+
+    // Search profiles (public)
+    let publicSearch (search : PublicSearch) conn =
+        (seq<ReqlExpr -> ReqlExpr> {
+            match search.continentId with
+            | Some cId -> yield (fun q -> q.Filter (r.HashMap (nameof search.continentId, ContinentId.ofString cId)))
+            | None -> ()
+            match search.region with
+            | Some reg ->
+                yield (fun q -> q.Filter (ReqlFunction1 (fun it -> upcast it.G("region").Match (regexContains reg))))
+            | None -> ()
+            match search.remoteWork with
+            | "" -> ()
+            | _ -> yield (fun q -> q.Filter (r.HashMap (nameof search.remoteWork, search.remoteWork = "yes")))
+            match search.skill with
+            | Some skl ->
+                yield (fun q -> q.Filter (ReqlFunction1 (fun it ->
+                    it.G("skills").Contains (ReqlFunction1(fun s -> s.G("description").Match (regexContains skl))))))
+            | None -> ()
+        }
+        |> Seq.toList
+        |> List.fold
+            (fun q f -> f q)
+            (r.Table(Table.Profile)
+                .EqJoin("continentId", r.Table Table.Continent)
+                .Without(r.HashMap ("right", "id"))
+                .Zip()
+                .Filter(r.HashMap ("isPublic", true))))
+        |> mergeFunc (fun it ->
+            r.HashMap("skills", 
+                it.G("skills").Map (ReqlFunction1 (fun skill ->
+                    r.Branch(skill.G("notes").Default_("").Eq "", skill.G "description",
+                             skill.G("description").Add(" (").Add(skill.G("notes")).Add ")"))))
+                .With("continent", it.G "name"))
+        |> pluck [ "continent"; "region"; "skills"; "remoteWork" ]
+        |> result<PublicSearchResult list> conn
+
+/// Citizen data access functions
+[<RequireQualifiedAccess>]
+module Citizen =
+  
+    /// Find a citizen by their ID
+    let findById (citizenId : CitizenId) conn =
+        fromTable Table.Citizen
+        |> get citizenId
+        |> resultOption<Citizen> conn
+
+    /// Find a citizen by their Mastodon username
+    let findByMastodonUser (instance : string) (mastodonUser : string) conn = task {
+        let! u =
+            fromTable Table.Citizen
+            |> getAllWithIndex [ r.Array (instance, mastodonUser) ] "instanceUser"
+            |> limit 1
+            |> result<Citizen list> conn
+        return List.tryHead u
+    }
+  
+    /// Add a citizen
+    let add (citizen : Citizen) conn =
+        fromTable Table.Citizen
+        |> insert citizen
+        |> write conn
+
+    /// Update the display name and last seen on date for a citizen
+    let logOnUpdate (citizen : Citizen) conn =
+        fromTable Table.Citizen
+        |> get citizen.id
+        |> update (r.HashMap( nameof citizen.displayName, citizen.displayName)
+                       .With (nameof citizen.lastSeenOn,  citizen.lastSeenOn))
+        |> write conn
+  
+    /// Delete a citizen
+    let delete citizenId conn = task {
+        do! Profile.delete citizenId conn
+        do! fromTable Table.Success
+            |> getAllWithIndex [ citizenId ] "citizenId"
+            |> delete
+            |> write conn
+        do! fromTable Table.Listing
+            |> getAllWithIndex [ citizenId ] "citizenId"
+            |> delete
+            |> write conn
+        do! fromTable Table.Citizen
+            |> get citizenId
+            |> delete
+            |> write conn
+    }
+    
+    /// Update a citizen's real name
+    let realNameUpdate (citizenId : CitizenId) (realName : string option) conn =
+        fromTable Table.Citizen
+        |> get citizenId
+        |> update (r.HashMap (nameof realName, realName))
+        |> write conn
+
+
+/// Continent data access functions
+[<RequireQualifiedAccess>]
+module Continent =
+
+    /// Get all continents
+    let all conn =
+        fromTable Table.Continent
+        |> result<Continent list> conn
+  
+    /// Get a continent by its ID
+    let findById (contId : ContinentId) conn =
+        fromTable Table.Continent
+        |> get contId
+        |> resultOption<Continent> conn
+
+
+/// Job listing data access functions
+[<RequireQualifiedAccess>]
+module Listing =  
+
+    open NodaTime
+
+    /// Find all job listings posted by the given citizen
+    let findByCitizen (citizenId : CitizenId) conn =
+        fromTable Table.Listing
+        |> getAllWithIndex [ citizenId ] (nameof citizenId)
+        |> eqJoin "continentId" (fromTable Table.Continent)
+        |> mapFunc (fun it -> r.HashMap("listing", it.G "left").With ("continent", it.G "right"))
+        |> result<ListingForView list> conn
+  
+    /// Find a listing by its ID
+    let findById (listingId : ListingId) conn =
+        fromTable Table.Listing
+        |> get listingId
+        |> resultOption<Listing> conn
+  
+    /// Find a listing by its ID for viewing (includes continent information)
+    let findByIdForView (listingId : ListingId) conn = task {
+        let! listing =
+            fromTable Table.Listing
+            |> filter (r.HashMap ("id", listingId))
+            |> eqJoin "continentId" (fromTable Table.Continent)
+            |> mapFunc (fun it -> r.HashMap("listing", it.G "left").With ("continent", it.G "right"))
+            |> result<ListingForView list> conn
+        return List.tryHead listing
+    }
+  
+    /// Add a listing
+    let add (listing : Listing) conn =
+        fromTable Table.Listing
+        |> insert listing
+        |> write conn
+  
+    /// Update a listing
+    let update (listing : Listing) conn =
+        fromTable Table.Listing
+        |> get listing.id
+        |> replace listing
+        |> write conn
+
+    /// Expire a listing
+    let expire (listingId : ListingId) (fromHere : bool) (now : Instant) conn =
+        (fromTable Table.Listing
+         |> get listingId)
+            .Update (r.HashMap("isExpired", true).With("wasFilledHere", fromHere).With ("updatedOn", now))
+        |> write conn
+
+    /// Search job listings
+    let search (search : ListingSearch) conn =
+        (seq<ReqlExpr -> ReqlExpr> {
+            match search.continentId with
+            | Some cId -> yield (fun q -> q.Filter (r.HashMap (nameof search.continentId, ContinentId.ofString cId)))
+            | None -> ()
+            match search.region with
+            | Some rgn ->
+                yield (fun q ->
+                    q.Filter (ReqlFunction1 (fun it -> it.G(nameof search.region).Match (regexContains rgn))))
+            | None -> ()
+            match search.remoteWork with
+            | "" -> ()
+            | _ -> yield (fun q -> q.Filter (r.HashMap (nameof search.remoteWork, search.remoteWork = "yes")))
+            match search.text with
+            | Some text ->
+                yield (fun q ->
+                    q.Filter (ReqlFunction1 (fun it -> it.G(nameof search.text).Match (regexContains text))))
+            | None -> ()
+        }
+        |> Seq.toList
+        |> List.fold
+            (fun q f -> f q)
+            (fromTable Table.Listing
+             |> getAllWithIndex [ false ] "isExpired" :> ReqlExpr))
+        |> eqJoin "continentId" (fromTable Table.Continent)
+        |> mapFunc (fun it -> r.HashMap("listing", it.G "left").With ("continent", it.G "right"))
+        |> result<ListingForView list> conn
+
+
+/// Success story data access functions
+[<RequireQualifiedAccess>]
+module Success =
+
+    /// Find a success report by its ID
+    let findById (successId : SuccessId) conn =
+        fromTable Table.Success
+        |> get successId
+        |> resultOption conn
+
+    /// Insert or update a success story
+    let save (success : Success) conn =
+        fromTable Table.Success
+        |> get success.id
+        |> replace success
+        |> write conn
+
+    // Retrieve all success stories  
+    let all conn =
+        (fromTable Table.Success
+         |> eqJoin "citizenId" (fromTable Table.Citizen))
+            .Without(r.HashMap ("right", "id"))
+        |> zip
+        |> mergeFunc (fun it ->
+            r.HashMap("citizenName",
+                r.Branch(it.G("realName"   ).Default_("").Ne "", it.G "realName",
+                         it.G("displayName").Default_("").Ne "", it.G "displayName",
+                                                                 it.G "mastodonUser"))
+                .With ("hasStory", it.G("story").Default_("").Gt ""))
+        |> pluck [ "id"; "citizenId"; "citizenName"; "recordedOn"; "fromHere"; "hasStory" ]
+        |> orderByDescending "recordedOn"
+        |> result<StoryEntry list> conn

src/JobsJobsJobs/Server/Handlers.fs

@@ -0,0 +1,512 @@
+/// Route handlers for Giraffe endpoints
+module JobsJobsJobs.Api.Handlers
+
+open Giraffe
+open JobsJobsJobs.Domain
+open JobsJobsJobs.Domain.SharedTypes
+open JobsJobsJobs.Domain.Types
+open Microsoft.AspNetCore.Http
+open Microsoft.Extensions.Logging
+
+/// Handler to return the files required for the Vue client app
+module Vue =
+
+    /// Handler that returns index.html (the Vue client app)
+    let app = htmlFile "wwwroot/index.html"
+
+
+/// Handlers for error conditions
+module Error =
+  
+    open System.Threading.Tasks
+
+    /// URL prefixes for the Vue app
+    let vueUrls =
+        [ "/how-it-works"; "/privacy-policy"; "/terms-of-service"; "/citizen"; "/help-wanted"; "/listing"; "/profile"
+          "/so-long"; "/success-story"
+        ]
+
+    /// Handler that will return a status code 404 and the text "Not Found"
+    let notFound : HttpHandler = fun next ctx -> task {
+        let fac  = ctx.GetService<ILoggerFactory> ()
+        let log  = fac.CreateLogger "Handler"
+        let path = string ctx.Request.Path
+        match [ "GET"; "HEAD" ] |> List.contains ctx.Request.Method with
+        | true when path = "/" || vueUrls |> List.exists path.StartsWith ->
+            log.LogInformation "Returning Vue app"
+            return! Vue.app next ctx
+        | _ ->
+            log.LogInformation "Returning 404"
+            return! RequestErrors.NOT_FOUND $"The URL {path} was not recognized as a valid URL" next ctx
+    }
+  
+    /// Handler that returns a 403 NOT AUTHORIZED response
+    let notAuthorized : HttpHandler =
+        setStatusCode 403 >=> fun _ _ -> Task.FromResult<HttpContext option> None
+
+    /// Handler to log 500s and return a message we can display in the application
+    let unexpectedError (ex: exn) (log : ILogger) =
+        log.LogError(ex, "An unexpected error occurred")
+        clearResponse >=> ServerErrors.INTERNAL_ERROR ex.Message
+  
+
+/// Helper functions
+[<AutoOpen>]
+module Helpers =
+
+    open NodaTime
+    open Microsoft.Extensions.Configuration
+    open Microsoft.Extensions.Options
+    open RethinkDb.Driver.Net
+    open System.Security.Claims
+
+    /// Get the NodaTime clock from the request context
+    let clock (ctx : HttpContext) = ctx.GetService<IClock> ()
+
+    /// Get the application configuration from the request context
+    let config (ctx : HttpContext) = ctx.GetService<IConfiguration> ()
+
+    /// Get the authorization configuration from the request context
+    let authConfig (ctx : HttpContext) = (ctx.GetService<IOptions<AuthOptions>> ()).Value
+
+    /// Get the logger factory from the request context
+    let logger (ctx : HttpContext) = ctx.GetService<ILoggerFactory> ()
+
+    /// Get the RethinkDB connection from the request context
+    let conn (ctx : HttpContext) = ctx.GetService<IConnection> ()
+
+    /// `None` if a `string option` is `None`, whitespace, or empty
+    let noneIfBlank (s : string option) =
+      s |> Option.map (fun x -> match x.Trim () with "" -> None | _ -> Some x) |> Option.flatten
+    
+    /// `None` if a `string` is null, empty, or whitespace; otherwise, `Some` and the trimmed string
+    let noneIfEmpty = Option.ofObj >> noneIfBlank
+    
+    /// Try to get the current user
+    let tryUser (ctx : HttpContext) =
+        ctx.User.FindFirst ClaimTypes.NameIdentifier
+        |> Option.ofObj
+        |> Option.map (fun x -> x.Value)
+
+    /// Require a user to be logged in
+    let authorize : HttpHandler =
+        fun next ctx -> match tryUser ctx with Some _ -> next ctx | None -> Error.notAuthorized next ctx
+
+    /// Get the ID of the currently logged in citizen
+    //  NOTE: if no one is logged in, this will raise an exception
+    let currentCitizenId = tryUser >> Option.get >> CitizenId.ofString
+
+    /// Return an empty OK response
+    let ok : HttpHandler = Successful.OK ""
+
+
+
+/// Handlers for /api/citizen routes
+[<RequireQualifiedAccess>]
+module Citizen =
+
+    // GET: /api/citizen/log-on/[code]
+    let logOn (abbr, authCode) : HttpHandler = fun next ctx -> task {
+        // Step 1 - Verify with Mastodon
+        let cfg = authConfig ctx
+        
+        match cfg.Instances |> Array.tryFind (fun it -> it.Abbr = abbr) with
+        | Some instance ->
+            let log = (logger ctx).CreateLogger (nameof JobsJobsJobs.Api.Auth)
+            
+            match! Auth.verifyWithMastodon authCode instance cfg.ReturnHost log with
+            | Ok account ->
+                // Step 2 - Find / establish Jobs, Jobs, Jobs account
+                let  now     = (clock ctx).GetCurrentInstant ()
+                let  dbConn  = conn ctx
+                let! citizen = task {
+                    match! Data.Citizen.findByMastodonUser instance.Abbr account.Username dbConn with
+                    | None ->
+                        let it : Citizen =
+                            { id           = CitizenId.create ()
+                              instance     = instance.Abbr
+                              mastodonUser = account.Username
+                              displayName  = noneIfEmpty account.DisplayName
+                              realName     = None
+                              profileUrl   = account.Url
+                              joinedOn     = now
+                              lastSeenOn   = now
+                            }
+                        do! Data.Citizen.add it dbConn
+                        return it
+                    | Some citizen ->
+                        let it = { citizen with displayName = noneIfEmpty account.DisplayName; lastSeenOn = now }
+                        do! Data.Citizen.logOnUpdate it dbConn
+                        return it
+                    }
+                
+                // Step 3 - Generate JWT
+                return!
+                    json
+                        { jwt       = Auth.createJwt citizen cfg
+                          citizenId = CitizenId.toString citizen.id
+                          name      = Citizen.name citizen
+                        } next ctx
+            | Error err -> return! RequestErrors.BAD_REQUEST err next ctx
+        | None -> return! Error.notFound next ctx
+    }
+    
+    // GET: /api/citizen/[id]
+    let get citizenId : HttpHandler = authorize >=> fun next ctx -> task {
+        match! Data.Citizen.findById (CitizenId citizenId) (conn ctx) with
+        | Some citizen -> return! json citizen next ctx
+        | None -> return! Error.notFound next ctx
+    }
+
+    // DELETE: /api/citizen
+    let delete : HttpHandler = authorize >=> fun next ctx -> task {
+        do! Data.Citizen.delete (currentCitizenId ctx) (conn ctx)
+        return! ok next ctx
+    }
+
+
+/// Handlers for /api/continent routes
+[<RequireQualifiedAccess>]
+module Continent =
+  
+    // GET: /api/continent/all
+    let all : HttpHandler = fun next ctx -> task {
+        let! continents = Data.Continent.all (conn ctx)
+        return! json continents next ctx
+    }
+
+
+/// Handlers for /api/instances routes
+[<RequireQualifiedAccess>]
+module Instances =
+
+    /// Convert a Mastodon instance to the one we use in the API
+    let private toInstance (inst : MastodonInstance) =
+        { name      = inst.Name
+          url       = inst.Url
+          abbr      = inst.Abbr
+          clientId  = inst.ClientId
+          isEnabled = inst.IsEnabled
+          reason    = inst.Reason
+        }
+
+    // GET: /api/instances
+    let all : HttpHandler = fun next ctx -> task {
+        return! json ((authConfig ctx).Instances |> Array.map toInstance) next ctx
+    }
+
+
+/// Handlers for /api/listing[s] routes
+[<RequireQualifiedAccess>]
+module Listing =
+
+    open NodaTime
+    open System
+
+    /// Parse the string we receive from JSON into a NodaTime local date
+    let private parseDate = DateTime.Parse >> LocalDate.FromDateTime
+
+    // GET: /api/listings/mine
+    let mine : HttpHandler = authorize >=> fun next ctx -> task {
+        let! listings = Data.Listing.findByCitizen (currentCitizenId ctx) (conn ctx)
+        return! json listings next ctx
+    }
+
+    // GET: /api/listing/[id]
+    let get listingId : HttpHandler = authorize >=> fun next ctx -> task {
+        match! Data.Listing.findById (ListingId listingId) (conn ctx) with
+        | Some listing -> return! json listing next ctx
+        | None -> return! Error.notFound next ctx
+    }
+  
+    // GET: /api/listing/view/[id]
+    let view listingId : HttpHandler = authorize >=> fun next ctx -> task {
+        match! Data.Listing.findByIdForView (ListingId listingId) (conn ctx) with
+        | Some listing -> return! json listing next ctx
+        | None -> return! Error.notFound next ctx
+    }
+
+    // POST: /listings
+    let add : HttpHandler = authorize >=> fun next ctx -> task {
+        let! form = ctx.BindJsonAsync<ListingForm> ()
+        let  now  = (clock ctx).GetCurrentInstant ()
+        do! Data.Listing.add
+                { id            = ListingId.create ()
+                  citizenId     = currentCitizenId ctx
+                  createdOn     = now
+                  title         = form.title
+                  continentId   = ContinentId.ofString form.continentId
+                  region        = form.region
+                  remoteWork    = form.remoteWork
+                  isExpired     = false
+                  updatedOn     = now
+                  text          = Text form.text
+                  neededBy      = (form.neededBy |> Option.map parseDate)
+                  wasFilledHere = None
+                  } (conn ctx)
+        return! ok next ctx
+    }
+
+    // PUT: /api/listing/[id]
+    let update listingId : HttpHandler = authorize >=> fun next ctx -> task {
+        let dbConn = conn ctx
+        match! Data.Listing.findById (ListingId listingId) dbConn with
+        | Some listing when listing.citizenId <> (currentCitizenId ctx) -> return! Error.notAuthorized next ctx
+        | Some listing ->
+            let! form = ctx.BindJsonAsync<ListingForm> ()
+            do! Data.Listing.update
+                    { listing with
+                        title       = form.title
+                        continentId = ContinentId.ofString form.continentId
+                        region      = form.region
+                        remoteWork  = form.remoteWork
+                        text        = Text form.text
+                        neededBy    = form.neededBy |> Option.map parseDate
+                        updatedOn   = (clock ctx).GetCurrentInstant ()
+                    } dbConn
+            return! ok next ctx
+        | None -> return! Error.notFound next ctx
+      }
+  
+    // PATCH: /api/listing/[id]
+    let expire listingId : HttpHandler = authorize >=> fun next ctx -> task {
+        let dbConn = conn ctx
+        let now    = clock(ctx).GetCurrentInstant ()
+        match! Data.Listing.findById (ListingId listingId) dbConn with
+        | Some listing when listing.citizenId <> (currentCitizenId ctx) -> return! Error.notAuthorized next ctx
+        | Some listing ->
+            let! form = ctx.BindJsonAsync<ListingExpireForm> ()
+            do! Data.Listing.expire listing.id form.fromHere now dbConn
+            match form.successStory with
+            | Some storyText ->
+                do! Data.Success.save
+                        { id         = SuccessId.create()
+                          citizenId  = currentCitizenId ctx
+                          recordedOn = now
+                          fromHere   = form.fromHere
+                          source     = "listing"
+                          story      = (Text >> Some) storyText
+                          } dbConn
+            | None -> ()
+            return! ok next ctx
+        | None -> return! Error.notFound next ctx
+    }
+
+    // GET: /api/listing/search
+    let search : HttpHandler = authorize >=> fun next ctx -> task {
+        let  search  = ctx.BindQueryString<ListingSearch> ()
+        let! results = Data.Listing.search search (conn ctx)
+        return! json results next ctx
+    }
+  
+
+/// Handlers for /api/profile routes
+[<RequireQualifiedAccess>]
+module Profile =
+
+    // GET: /api/profile
+    //      This returns the current citizen's profile, or a 204 if it is not found (a citizen not having a profile yet
+    //      is not an error). The "get" handler returns a 404 if a profile is not found.
+    let current : HttpHandler = authorize >=> fun next ctx -> task {
+        match! Data.Profile.findById (currentCitizenId ctx) (conn ctx) with
+        | Some profile -> return! json profile next ctx
+        | None -> return! Successful.NO_CONTENT next ctx
+    }
+  
+    // GET: /api/profile/get/[id]
+    let get citizenId : HttpHandler = authorize >=> fun next ctx -> task {
+        match! Data.Profile.findById (CitizenId citizenId) (conn ctx) with
+        | Some profile -> return! json profile next ctx
+        | None -> return! Error.notFound next ctx
+    }
+
+    // GET: /api/profile/view/[id]
+    let view citizenId : HttpHandler = authorize >=> fun next ctx -> task {
+        let citId  = CitizenId citizenId
+        let dbConn = conn ctx
+        match! Data.Profile.findById citId dbConn with
+        | Some profile ->
+            match! Data.Citizen.findById citId dbConn with
+            | Some citizen ->
+                match! Data.Continent.findById profile.continentId dbConn with
+                | Some continent ->
+                    return!
+                        json
+                            { profile   = profile
+                              citizen   = citizen
+                              continent = continent
+                            } next ctx
+                | None -> return! Error.notFound next ctx
+            | None -> return! Error.notFound next ctx
+        | None -> return! Error.notFound next ctx
+    }
+  
+    // GET: /api/profile/count
+    let count : HttpHandler = authorize >=> fun next ctx -> task {
+        let! theCount = Data.Profile.count (conn ctx)
+        return! json { count = theCount } next ctx
+    }
+  
+    // POST: /api/profile/save
+    let save : HttpHandler = authorize >=> fun next ctx -> task {
+        let  citizenId = currentCitizenId ctx
+        let  dbConn    = conn ctx
+        let! form      = ctx.BindJsonAsync<ProfileForm>()
+        let! profile   = task {
+            match! Data.Profile.findById citizenId dbConn with
+            | Some p -> return p
+            | None -> return { Profile.empty with id = citizenId }
+        }
+        do! Data.Profile.save
+                { profile with
+                    seekingEmployment = form.isSeekingEmployment
+                    isPublic          = form.isPublic
+                    continentId       = ContinentId.ofString form.continentId
+                    region            = form.region
+                    remoteWork        = form.remoteWork
+                    fullTime          = form.fullTime
+                    biography         = Text form.biography
+                    lastUpdatedOn     = (clock ctx).GetCurrentInstant ()
+                    experience        = noneIfBlank form.experience |> Option.map Text
+                    skills            = form.skills
+                                        |> List.map (fun s ->
+                                            { id          = match s.id.StartsWith "new" with
+                                                            | true -> SkillId.create ()
+                                                            | false -> SkillId.ofString s.id
+                                              description = s.description
+                                              notes       = noneIfBlank s.notes
+                                              })
+                } dbConn
+        do! Data.Citizen.realNameUpdate citizenId (noneIfBlank (Some form.realName)) dbConn
+        return! ok next ctx
+    }
+  
+    // PATCH: /api/profile/employment-found
+    let employmentFound : HttpHandler = authorize >=> fun next ctx -> task {
+        let dbConn = conn ctx
+        match! Data.Profile.findById (currentCitizenId ctx) dbConn with
+        | Some profile ->
+            do! Data.Profile.save { profile with seekingEmployment = false } dbConn
+            return! ok next ctx
+        | None -> return! Error.notFound next ctx
+    }
+  
+    // DELETE: /api/profile
+    let delete : HttpHandler = authorize >=> fun next ctx -> task {
+        do! Data.Profile.delete (currentCitizenId ctx) (conn ctx)
+        return! ok next ctx
+    }
+  
+    // GET: /api/profile/search
+    let search : HttpHandler = authorize >=> fun next ctx -> task {
+        let  search  = ctx.BindQueryString<ProfileSearch> ()
+        let! results = Data.Profile.search search (conn ctx)
+        return! json results next ctx
+    }
+  
+    // GET: /api/profile/public-search
+    let publicSearch : HttpHandler = fun next ctx -> task {
+        let  search  = ctx.BindQueryString<PublicSearch> ()
+        let! results = Data.Profile.publicSearch search (conn ctx)
+        return! json results next ctx
+    }
+
+
+/// Handlers for /api/success routes
+[<RequireQualifiedAccess>]
+module Success =
+
+    open System
+
+    // GET: /api/success/[id]
+    let get successId : HttpHandler = authorize >=> fun next ctx -> task {
+        match! Data.Success.findById (SuccessId successId) (conn ctx) with
+        | Some story -> return! json story next ctx
+        | None -> return! Error.notFound next ctx
+    }
+
+    // GET: /api/success/list
+    let all : HttpHandler = authorize >=> fun next ctx -> task {
+        let! stories = Data.Success.all (conn ctx)
+        return! json stories next ctx
+    }
+  
+    // POST: /api/success/save
+    let save : HttpHandler = authorize >=> fun next ctx -> task {
+        let  citizenId = currentCitizenId ctx
+        let  dbConn    = conn ctx
+        let  now       = (clock ctx).GetCurrentInstant ()
+        let! form      = ctx.BindJsonAsync<StoryForm> ()
+        let! success = task {
+            match form.id with
+            | "new" ->
+                return Some { id         = SuccessId.create ()
+                              citizenId  = citizenId
+                              recordedOn = now
+                              fromHere   = form.fromHere
+                              source     = "profile"
+                              story      = noneIfEmpty form.story |> Option.map Text
+                              }
+            | successId ->
+                match! Data.Success.findById (SuccessId.ofString successId) dbConn with
+                | Some story when story.citizenId = citizenId ->
+                    return Some { story with
+                                    fromHere = form.fromHere
+                                    story    = noneIfEmpty form.story |> Option.map Text
+                                }
+                | Some _ | None -> return None
+        }
+        match success with
+        | Some story ->
+            do! Data.Success.save story dbConn
+            return! ok next ctx
+        | None -> return! Error.notFound next ctx
+    }
+
+
+open Giraffe.EndpointRouting
+
+/// All available endpoints for the application
+let allEndpoints = [
+    subRoute "/api" [
+        subRoute "/citizen" [
+            GET_HEAD [
+                routef "/log-on/%s/%s" Citizen.logOn
+                routef "/%O"           Citizen.get
+            ]
+            DELETE [ route "" Citizen.delete ]
+        ]
+        GET_HEAD [ route "/continents" Continent.all ]
+        GET_HEAD [ route "/instances"  Instances.all ]
+        subRoute "/listing" [
+            GET_HEAD [
+                routef "/%O"      Listing.get
+                route  "/search"  Listing.search
+                routef "/%O/view" Listing.view
+                route  "s/mine"   Listing.mine
+            ]
+            PATCH [ routef "/%O" Listing.expire ]
+            POST [ route "s" Listing.add ]
+            PUT [ routef "/%O" Listing.update ]
+        ]
+        subRoute "/profile" [
+            GET_HEAD [
+                route  ""               Profile.current
+                route  "/count"         Profile.count
+                routef "/%O"            Profile.get
+                routef "/%O/view"       Profile.view
+                route  "/public-search" Profile.publicSearch
+                route  "/search"        Profile.search
+            ]
+            PATCH [ route "/employment-found" Profile.employmentFound ]
+            POST [ route "" Profile.save ]
+        ]
+        subRoute "/success" [
+            GET_HEAD [
+                routef "/%O" Success.get
+                route  "es"  Success.all
+            ]
+            POST [ route "" Success.save ]
+        ]
+    ]
+]

src/JobsJobsJobs/Server/JobsJobsJobs.Server.fsproj

@@ -2,7 +2,8 @@
 
   <PropertyGroup>
     <OutputType>Exe</OutputType>
-    <TargetFramework>net5.0</TargetFramework>
+    <PublishSingleFile>true</PublishSingleFile>
+    <SelfContained>false</SelfContained>
     <WarnOn>3390;$(WarnOn)</WarnOn>
   </PropertyGroup>
 
@@ -14,7 +15,7 @@
   </ItemGroup>
   
   <ItemGroup>
-    <ProjectReference Include="..\Domain\Domain.fsproj" />
+    <ProjectReference Include="..\Domain\JobsJobsJobs.Domain.fsproj" />
   </ItemGroup>
 
   <ItemGroup>
@@ -22,13 +23,14 @@
   </ItemGroup>
   
   <ItemGroup>
-    <PackageReference Include="Giraffe" Version="5.0.0" />
+    <PackageReference Include="Giraffe" Version="6.0.0" />
-    <PackageReference Include="Microsoft.AspNetCore.Authentication.JwtBearer" Version="5.0.8" />
+    <PackageReference Include="Microsoft.AspNetCore.Authentication.JwtBearer" Version="6.0.6" />
     <PackageReference Include="Microsoft.FSharpLu.Json" Version="0.11.7" />
     <PackageReference Include="NodaTime.Serialization.JsonNet" Version="3.0.0" />
-    <PackageReference Include="Polly" Version="7.2.2" />
     <PackageReference Include="RethinkDb.Driver" Version="2.3.150" />
-    <PackageReference Include="System.IdentityModel.Tokens.Jwt" Version="6.11.1" />
+    <PackageReference Include="RethinkDb.Driver.FSharp" Version="0.9.0-beta-05" />
+    <PackageReference Include="System.IdentityModel.Tokens.Jwt" Version="6.21.0" />
+    <PackageReference Update="FSharp.Core" Version="6.0.5" />
   </ItemGroup>
 
 </Project>

src/JobsJobsJobs/Server/appsettings.json

@@ -5,17 +5,23 @@
       "0": {
         "Name": "No Agenda Social",
         "Url": "https://noagendasocial.com",
-        "Abbr": "nas"
+        "Abbr": "nas",
+        "IsEnabled": true,
+        "Reason": ""
       },
       "1": {
         "Name": "ITM Slaves!",
         "Url": "https://itmslaves.com",
-        "Abbr": "itm"
+        "Abbr": "itm",
+        "IsEnabled": false,
+        "Reason": "This site has changed platforms, and its integration is not yet restored"
       },
       "2": {
         "Name": "Liberty Woof",
         "Url": "https://libertywoof.com",
-        "Abbr": "lw"
+        "Abbr": "lw",
+        "IsEnabled": false,
+        "Reason": "This site may have gone away; it is currently inaccessible"
       }
     }
   }