Implement htmax as auto-htmx selection (#59)

- Move program support items to MyWebLog namespace
- Fix parameter ordering in some tests

src/MyWebLog.Tests/Data/WebLogDataTests.fs

@@ -30,7 +30,7 @@ let ``Add succeeds`` (data: IData) = task {
                     IsTagEnabled      = false
                     Copyright         = Some "go for it"
                     CustomFeeds       = [] }
-              AutoHtmx      = true
+              AutoHtmx      = AutoHtmax
               Uploads       = Disk
               RedirectRules = [ { From = "/here"; To = "/there"; IsRegex = false } ]
               AutoOpenGraph = false }
@@ -46,7 +46,7 @@ let ``Add succeeds`` (data: IData) = task {
     Expect.equal it.ThemeId (ThemeId "default") "Theme ID is incorrect"
     Expect.equal it.UrlBase "https://example.com/new" "URL base is incorrect"
     Expect.equal it.TimeZone "America/Los_Angeles" "Time zone is incorrect"
-    Expect.isTrue it.AutoHtmx "Auto htmx flag is incorrect"
+    Expect.equal it.AutoHtmx AutoHtmax "Auto htmx type is incorrect"
     Expect.equal it.Uploads Disk "Upload destination is incorrect"
     Expect.equal it.RedirectRules [ { From = "/here"; To = "/there"; IsRegex = false } ] "Redirect rules are incorrect"
     Expect.isFalse it.AutoOpenGraph "Auto OpenGraph flag is incorrect"
@@ -91,7 +91,7 @@ let ``FindById succeeds when a web log is found`` (data: IData) = task {
     Expect.equal it.ThemeId (ThemeId "default") "Theme ID is incorrect"
     Expect.equal it.UrlBase "http://localhost:8081" "URL base is incorrect"
     Expect.equal it.TimeZone "America/Denver" "Time zone is incorrect"
-    Expect.isTrue it.AutoHtmx "Auto htmx flag is incorrect"
+    Expect.equal it.AutoHtmx AutoHtmx "Auto htmx type is incorrect"
     Expect.equal it.Uploads Database "Upload destination is incorrect"
     Expect.isEmpty it.RedirectRules "Redirect rules are incorrect"
     let rss = it.Rss
@@ -165,10 +165,10 @@ let ``UpdateRssOptions succeeds when the web log does not exist`` (data: IData)
 let ``UpdateSettings succeeds when the web log exists`` (data: IData) = task {
     let! webLog = data.WebLog.FindById rootId
     Expect.isSome webLog "The root web log should have been returned"
-    do! data.WebLog.UpdateSettings { webLog.Value with AutoHtmx = false; Subtitle = None }
+    do! data.WebLog.UpdateSettings { webLog.Value with AutoHtmx = NoAutoHtmx; Subtitle = None }
     let! updated = data.WebLog.FindById rootId
     Expect.isSome updated "The updated web log should have been returned"
-    Expect.isFalse updated.Value.AutoHtmx "Auto htmx flag not updated correctly"
+    Expect.equal updated.Value.AutoHtmx NoAutoHtmx "Auto htmx type not updated correctly"
     Expect.isNone updated.Value.Subtitle "Subtitle not updated correctly"
 }