From 76f0506de75531c1692916585d707c7ab0fd111b Mon Sep 17 00:00:00 2001
From: "Daniel J. Summers" <daniel@bitbadger.solutions>
Date: Tue, 14 Jul 2026 19:55:55 -0400
Subject: [PATCH] WIP on htmx 4; change target from window to body (#60)

---
 src/MyWebLog/Views/Admin.fs  | 6 +++---
 src/MyWebLog/Views/User.fs   | 4 ++--
 src/MyWebLog/Views/WebLog.fs | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/MyWebLog/Views/Admin.fs b/src/MyWebLog/Views/Admin.fs
index 87ef2f0..121f25a 100644
--- a/src/MyWebLog/Views/Admin.fs
+++ b/src/MyWebLog/Views/Admin.fs
@@ -67,7 +67,7 @@ let dashboard (themes: Theme list) app = [
                             ]
                             let webLogUrl = $"{cacheBaseUrl}web-log/"
                             form [ _method "post"; _class "container g-0"; hxInherited (_hxTarget "body")
-                                   hxInherited (_hxSwap $"{HxSwap.InnerHtml} show:top showTarget:window") ] [
+                                   hxInherited (_hxSwap $"{HxSwap.InnerHtml} show:top showTarget:body") ] [
                                 antiCsrf app
                                 button [ _type "submit"; _class "btn btn-sm btn-primary mb-2"
                                          _hxPost $"{webLogUrl}all/refresh" ] [
@@ -88,7 +88,7 @@ let dashboard (themes: Theme list) app = [
                                 raw "refreshing a theme with no cached templates will still refresh its asset cache"
                             ]
                             form [ _method "post"; _class "container g-0"
-                                   hxInherited (_hxSwap $"{HxSwap.InnerHtml} show:top showTarget:window") ] [
+                                   hxInherited (_hxSwap $"{HxSwap.InnerHtml} show:top showTarget:body") ] [
                                 antiCsrf app
                                 button [ _type "submit"; _class "btn btn-sm btn-primary mb-2"
                                          _hxPost $"{themeCacheUrl}all/refresh" ] [
@@ -126,7 +126,7 @@ let themeList (model: DisplayTheme list) app =
         ]
         div [ _class "row mwl-table-detail"; _id "theme_new" ] []
         form [ _method "post"; _id "themeList"; _class "container g-0"; _hxTarget "#theme_panel"
-               _hxSwap $"{HxSwap.OuterHtml} show:top showTarget:window" ] [
+               _hxSwap $"{HxSwap.OuterHtml} show:top showTarget:body" ] [
             antiCsrf app
             for theme in model do
                 let url = relUrl app $"admin/theme/{theme.Id}"
diff --git a/src/MyWebLog/Views/User.fs b/src/MyWebLog/Views/User.fs
index fd8df5c..908b147 100644
--- a/src/MyWebLog/Views/User.fs
+++ b/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:top showTarget:window" ] [
+               _hxTarget "#user_panel"; _hxSwap $"{HxSwap.OuterHtml} show:top showTarget:body" ] [
             antiCsrf app
             input [ _type "hidden"; _name "Id"; _value model.Id ]
             div [ _class "row" ] [
@@ -188,7 +188,7 @@ let userList (model: WebLogUser list) app =
             ]
             List.map userDetail model
             |> div [ _class "container g-0"; hxInherited (_hxTarget "#user_panel")
-                     hxInherited (_hxSwap $"{HxSwap.OuterHtml} show:top showTarget:window") ]
+                     hxInherited (_hxSwap $"{HxSwap.OuterHtml} show:top showTarget:body") ]
         ]
     ]
     |> List.singleton
diff --git a/src/MyWebLog/Views/WebLog.fs b/src/MyWebLog/Views/WebLog.fs
index 249763e..68cd840 100644
--- a/src/MyWebLog/Views/WebLog.fs
+++ b/src/MyWebLog/Views/WebLog.fs
@@ -523,7 +523,7 @@ let redirectList (model: RedirectRule list) app = [
 let tagMapEdit (model: EditTagMapModel) app = [
     h5 [ _class "my-3" ] [ txt app.PageTitle ]
     form [ _hxPost (relUrl app "admin/settings/tag-mapping/save"); _method "post"; _hxBoost; _class "container"
-           _hxTarget "#tagList"; _hxSwap $"{HxSwap.OuterHtml} show:top showTarget:window" ] [
+           _hxTarget "#tagList"; _hxSwap $"{HxSwap.OuterHtml} show:top showTarget:top" ] [
         antiCsrf app
         input [ _type "hidden"; _name "Id"; _value model.Id ]
         div [ _class "row mb-3" ] [