Implement htmax as auto-htmx selection (#59)

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

src/MyWebLog/Views/WebLog.fs

@@ -701,8 +701,8 @@ let uploadNew app = [
 
 /// Web log settings page
 let webLogSettings
-        (model: SettingsModel) (themes: Theme list) (pages: Page list) (uploads: UploadDestination list)
-        (rss: EditRssModel) (app: AppViewContext) = [
+        (model: SettingsModel) (themes: Theme list) (pages: Page list) (htmxOpts: (string * string) list)
+        (uploads: UploadDestination list) (rss: EditRssModel) (app: AppViewContext) = [
     let feedDetail (feed: CustomFeed) =
         let source =
             match feed.Source with
@@ -786,7 +786,8 @@ let webLogSettings
                             textField [ _required ] (nameof model.TimeZone) "Time Zone" model.TimeZone []
                         ]
                         div [ _class "col-12 col-md-4 col-xl-2" ] [
-                            checkboxSwitch [] (nameof model.AutoHtmx) "Auto-Load htmx" model.AutoHtmx []
+                            selectField [ _required ] (nameof model.AutoHtmx) "Auto-Load htmx" model.AutoHtmx htmxOpts
+                                        fst snd []
                             span [ _class "form-text fst-italic" ] [
                                 a [ _href "https://htmx.org"; _target "_blank"; _relNoOpener ] [ raw "What is this?" ]
                             ]