Return client refresh from redir rule if htmx (#54)

src/MyWebLog/Program.fs

@@ -26,6 +26,8 @@ type WebLogMiddleware(next: RequestDelegate, log: ILogger<WebLogMiddleware>) =
     }
 
 
+open Giraffe.Htmx
+
 /// Middleware to check redirects for the current web log
 type RedirectRuleMiddleware(next: RequestDelegate, _log: ILogger<RedirectRuleMiddleware>) =
 
@@ -44,6 +46,8 @@ type RedirectRuleMiddleware(next: RequestDelegate, _log: ILogger<RedirectRuleMid
                 | WebLogCache.CachedRedirectRule.RegEx (regExFrom, patternTo) ->
                     if regExFrom.IsMatch path then Some (regExFrom.Replace(path, patternTo)) else None)
         match matched with
+        | Some url when url.StartsWith "http" && ctx.Request.IsHtmx ->
+            do! ctx.Response.WriteAsync $"""<script>window.location.href = "{url}"</script>"""
         | Some url -> ctx.Response.Redirect(url, permanent = true)
         | None -> return! next.Invoke ctx
     }