WIP on htmx 4; user messages now work (#60)

src/MyWebLog/Views/User.fs

@@ -13,7 +13,7 @@ let edit (model: EditUserModel) app =
     div [ _class "col-12" ] [
         h5 [ _class "my-3" ] [ txt app.PageTitle ]
         form [ _hxPost (relUrl app "admin/settings/user/save"); _method "post"; _class "container"
-               _hxTarget "#user_panel"; _hxSwap $"{HxSwap.OuterHtml} show:window:top" ] [
+               _hxTarget "#user_panel"; _hxSwap $"{HxSwap.OuterHtml} show:top showTarget:window" ] [
             antiCsrf app
             input [ _type "hidden"; _name "Id"; _value model.Id ]
             div [ _class "row" ] [
@@ -97,7 +97,7 @@ let edit (model: EditUserModel) app =
 let logOn (model: LogOnModel) (app: AppViewContext) = [
     h2 [ _class "my-3" ] [ rawText "Log On to "; encodedText app.WebLog.Name ]
     article [ _class "py-3" ] [
-        form [ _action (relUrl app "user/log-on"); _method "post"; _class "container"; _hxPushUrl "true" ] [
+        form [ _action (relUrl app "user/log-on"); _method "post"; _hxBoost; _class "container" ] [
             antiCsrf app
             if Option.isSome model.ReturnTo then input [ _type "hidden"; _name "ReturnTo"; _value model.ReturnTo.Value ]
             div [ _class "row" ] [