Support relative URLs in OpenGraph properties (#52)

2025-08-01 22:16:19 -04:00
parent 8b190a6c23
commit cba1bbfa28
9 changed files with 172 additions and 140 deletions
@@ -207,7 +207,7 @@ let parser =
                |> app.WebLog.AbsoluteUrl
                |> function url -> writeOgProp ("og:url", url)
                match if app.IsPage then app.Page.OpenGraph else app.Posts.Posts[0].OpenGraph with
-                | Some props -> props.Properties |> Seq.iter writeOgProp
+                | Some props -> props.ToProperties app.WebLog.UrlToAbsolute |> Seq.iter writeOgProp
                | None -> ()

            writer.WriteLine $"""{s}<meta name=generator content="{app.Generator}">"""