Implement htmax as auto-htmx selection (#59)

- Move program support items to MyWebLog namespace - Fix parameter ordering in some tests
2026-07-05 21:28:58 -04:00
parent 9d2277ab32
commit fcd02ecbec
12 changed files with 213 additions and 153 deletions
@@ -516,12 +516,17 @@ module WebLog =
                |> List.sortBy _.Title.ToLower()
                |> List.append [ { Page.Empty with Id = PageId "posts"; Title = "- First Page of Posts -" } ]
            let! themes   = data.Theme.All()
+            let  htmxOpts =
+                [ string NoAutoHtmx, "None"
+                  string AutoHtmx, "htmx Library"
+                  string AutoHtmax, "htmax Bundle" ]
            let  uploads  = [ Database; Disk ]
            return!
                Views.WebLog.webLogSettings
                    (SettingsModel.FromWebLog ctx.WebLog)
                    themes
                    pages
+                    htmxOpts
                    uploads
                    (EditRssModel.FromRssOptions ctx.WebLog.Rss)
                |> adminPage "Web Log Settings" next ctx