Support for Open Graph on the homepage - again it's gross but consuming sites understand it

src/Foundation.hs

@@ -118,7 +118,9 @@ instance Yesod App where
         -- you to use normal widget features in default-layout.
 
         pc <- widgetToPageContent $(widgetFile "default-layout")
-        let hasPageTitle = not . B.null . pageTitle $ pc
+        let globalTitle = toHtml . siteTitle . appSettings $ master
+            hasPageTitle = not . B.null $ pageTitle pc
+            fullTitle = if hasPageTitle then mconcat [pageTitle pc, " ~ ", globalTitle] else globalTitle
         withUrlRenderer $(hamletFile "templates/default-layout-wrapper.hamlet")
 
     -- The page to be redirected to when authentication is required.

src/Handler/Home.hs

@@ -15,14 +15,9 @@ import Widget.Feed ( hFeed )
 getHomeR :: Handler Html
 getHomeR = do
     settings <- asks appSettings
-    userE@(Entity userId user) <- runDB . getBy404 . UniqueUser . siteUsername $ settings
+    user <- runDB . getBy404 . UniqueUser . siteUsername $ settings
     let title = siteTitle settings
-    entries <- runDB $ selectList [EntryAuthorId ==. userId] [Desc EntryPublished]
+    entries <- runDB $ selectList [EntryAuthorId ==. entityKey user] [Desc EntryPublished]
     defaultLayout $ do
         atomLink FeedR title
-        toWidgetHead
-            [hamlet|
-                <meta name="author" content=#{userFullName user}>
-                <link rel="author" href=@{HomeR}>
-            |]
         $(widgetFile "home")

src/Widget/Card.hs

@@ -25,6 +25,7 @@ profileUrl site = substitute $ T.unpack (siteName site) `compileMustache` siteTe
 
 hCard :: Entity User -> Widget
 hCard (Entity userId user) = do
+    let (firstName:lastName) = T.words $ userFullName user
     mcurrentRoute <- getCurrentRoute
     userProfiles <- handlerToWidget . runDB . E.select . E.from $ \(profile `E.InnerJoin` site) -> do
         E.on $ profile ^. ProfileSiteId E.==. site ^. SiteId
@@ -32,8 +33,21 @@ hCard (Entity userId user) = do
         E.orderBy [E.asc $ site ^. SiteName]
         return (site, profile)
     pgpKeys <- handlerToWidget . runDB $ map entityVal <$> selectList [PgpKeyUserId ==. userId] []
+    let maybeFb = find (\(Entity _ site, _) -> "Facebook" == siteName site) userProfiles
+
     toWidgetHead [hamlet|
+        <meta name="author" content=#{userFullName user}>
+        <link rel="author" href=@{HomeR}>
+        <meta property="og:type" content="profile">
+        <meta property="og:description" content=#{userNote user}>
+        <meta property="og:image" content=@{staticR ["img", userAvatar user]}>
+        <meta property="profile:first_name" content=#{firstName}>
+        <meta property="profile:last_name" content=#{T.unwords lastName}>
+        <meta property="profile:username" content=#{userUsername user}>
+        $maybe (_, Entity _ fb) <- maybeFb
+            <meta property="fb:profile_id" content=#{profileUsername fb}>
         $forall key <- pgpKeys
             <link rel="pgpkey" type="application/pgp-keys" href=@{routeFromPgp key}>
     |]
+
     $(widgetFile "mf2/h-card")

templates/default-layout-wrapper.hamlet

@@ -5,12 +5,11 @@ $doctype 5
     <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
     <meta name="generator" content="#{packageName package} #{packageVersion package}">
 
-    <title>
-      $if hasPageTitle
-        #{pageTitle pc} ~ #
-      #{siteTitle $ appSettings master}
+    <title>#{fullTitle}
+    <meta property="og:title" content=#{fullTitle}>
     $maybe route <- mcurrentRoute
       <link rel="canonical" href=@{route}>
+      <meta property="og:url" content=@{route}>
     <link rel="sitemap" href=@{SitemapR}>
 
     <link rel="stylesheet" href="https://maxcdn.bootstrapcdn.com/bootstrap/4.0.0-beta/css/bootstrap.min.css" integrity="sha384-/Y6pD6FV/Vv2HJnA6t+vslU6fwYXjCFtcEpHbNJ0lyAFsXTsjBbfaDjzALeQsN6M" crossorigin="anonymous">

templates/home.hamlet

@@ -1,2 +1,2 @@
-<div .author>^{hCard userE}
+<div .author>^{hCard user}
 ^{hFeed entries}