WIP on adding htmax option (#59)

src/MyWebLog.Data/Converters.fs

@@ -9,6 +9,14 @@ module Json =
 
     open Newtonsoft.Json
 
+    /// <summary>Converter for the <see cref="AutoHtmxType" /> type</summary>
+    type AutoHtmxTypeConverter() =
+        inherit JsonConverter<AutoHtmxType>()
+        override _.WriteJson(writer: JsonWriter, value: AutoHtmxType, _: JsonSerializer) =
+            writer.WriteValue(string value)
+        override _.ReadJson(reader: JsonReader, _: Type, _: AutoHtmxType, _: bool, _: JsonSerializer) =
+            (string >> AutoHtmxType.Parse) reader.Value
+
     /// <summary>Converter for the <see cref="CategoryId" /> type</summary>
     type CategoryIdConverter() =
         inherit JsonConverter<CategoryId>()
@@ -160,7 +168,8 @@ module Json =
     /// <summary>Configure a serializer to use these converters (and other settings)</summary>
     let configure (ser: JsonSerializer) =
         // Our converters
-        [ CategoryIdConverter() :> JsonConverter
+        [ AutoHtmxTypeConverter() :> JsonConverter
+          CategoryIdConverter()
           CommentIdConverter()
           CommentStatusConverter()
           CustomFeedIdConverter()

src/MyWebLog.Data/PostgresData.fs

@@ -228,6 +228,8 @@ type PostgresData(log: ILogger<PostgresData>, ser: JsonSerializer) =
     let migrateV2point2ToV3 () = backgroundTask {
         Utils.Migration.logStep log "v2.2 to v3" "Adding auto-OpenGraph flag to all web logs"
         do! Patch.byFields Table.WebLog Any [ Field.Exists (nameof WebLog.Empty.Id) ] {| AutoOpenGraph = true |}
+        do! Patch.byContains Table.WebLog {| AutoHtmx = true |} {| AutoHtmx = "Yes" |}
+        do! Patch.byContains Table.WebLog {| AutoHtmx = false |} {| AutoHtmx = "No" |}
         Utils.Migration.logStep log "v2.2 to v3" "Setting database version to v3"
         return! setDbVersion "v3"
     }

src/MyWebLog.Data/RethinkDbData.fs

@@ -264,6 +264,18 @@ type RethinkDbData(conn: Net.IConnection, config: DataConfig, log: ILogger<Rethi
             update [ nameof WebLog.Empty.AutoOpenGraph, true :> obj ]
             write; withRetryOnce; ignoreResult conn
         }
+        do! rethink {
+            withTable Table.WebLog
+            filter (nameof WebLog.Empty.AutoHtmx) true
+            update [ nameof WebLog.Empty.AutoHtmx, "Yes" ]
+            write; withRetryOnce; ignoreResult conn
+        }
+        do! rethink {
+            withTable Table.WebLog
+            filter (nameof WebLog.Empty.AutoHtmx) false
+            update [ nameof WebLog.Empty.AutoHtmx, "No" ]
+            write; withRetryOnce; ignoreResult conn
+        }
         Utils.Migration.logStep log "v2.2 to v3" "Setting database version to v3"
         do! setDbVersion "v3"
     }

src/MyWebLog.Data/SQLiteData.fs

@@ -456,6 +456,8 @@ type SQLiteData(conn: SqliteConnection, log: ILogger<SQLiteData>, ser: JsonSeria
     let migrateV2point2ToV3 () = backgroundTask {
         Utils.Migration.logStep log "v2.2 to v3" "Adding auto-OpenGraph flag to all web logs"
         do! Patch.byFields Table.WebLog Any [ Field.Exists (nameof WebLog.Empty.Id) ] {| AutoOpenGraph = true |}
+        do! Patch.byFields Table.WebLog Any [ Field.Equal (nameof WebLog.Empty.AutoHtmx) true ] {| AutoHtmx = "Yes" |}
+        do! Patch.byFields Table.WebLog Any [ Field.Equal (nameof WebLog.Empty.AutoHtmx) false ] {| AutoHtmx = "No" |}
         Utils.Migration.logStep log "v2.2 to v3" "Setting database version to v3"
         do! setDbVersion "v3"
     }