Merge pull request #3078 from metacpan/haarg/opengraph

haarg · web-flow · commit 7f87e3be08a2 · 2024-05-18T05:17:39.000+02:00
provide opengraph metadata in addition to twitter card data
diff --git a/lib/MetaCPAN/Web/View/Xslate.pm b/lib/MetaCPAN/Web/View/Xslate.pm
@@ -54,6 +54,7 @@ has '+expose_methods' => (
     default =>
         sub
     { [ qw(
+        abs_url
         page_url
     ) ] },
 );
@@ -65,6 +66,13 @@ sub page_url {
     $uri->as_string;
 }
 
+sub abs_url {
+    my ( $self, $c, $url, $base ) = @_;
+    $base ||= $c->request->uri;
+    my $uri = URI->new_abs( $url, $base );
+    $uri->as_string;
+}
+
 around render => sub {
     my ( $orig, $self, $c, $template, $args ) = @_;
 
diff --git a/root/author.tx b/root/author.tx
@@ -4,7 +4,7 @@
 %%      rss       => $rss       || '/author/' ~ $author.pauseid ~ '/activity.rss',
 %%      rss_title => $rss_title || 'Recent CPAN Activity of ' ~ $author.pauseid ~ ' - MetaCPAN',
 %%  }
-%%  override meta_card -> { include inc::twitter::author }
+%%  override opengraph -> { include inc::opengraph::author }
 %%  override left_nav_content -> {
     <li>
       [% include inc::author_pic %]
diff --git a/root/base.tx b/root/base.tx
@@ -29,7 +29,7 @@
           gtag('js', new Date());
           gtag('config', 'G-E82Q2V8LVD');
         </script>
-        %%  block meta_card -> {}
+        %%  block opengraph -> { }
     </head>
     <body>
         <nav class="navbar navbar-default" role="navigation">
diff --git a/root/base/release.tx b/root/base/release.tx
@@ -5,7 +5,7 @@
 %%    canonical => $canonical || '/dist/' ~ $release.distribution,
 %%    meta_description => $meta_description || $release.abstract,
 %%  }
-%%  override meta_card -> { include inc::twitter::release }
+%%  override opengraph -> { include inc::opengraph::release }
 %%  override breadcrumbs -> {
 <div class="breadcrumbs">
   <span>
diff --git a/root/home.tx b/root/home.tx
@@ -6,6 +6,9 @@
 %%  override search_bar -> { }
 %%  override header_nav_menu -> { }
 %%  after content_classes -> { ' home' }
+%%  override opengraph -> {
+%%    include inc::opengraph;
+%%  }
 %%  override content -> {
 <script type="application/ld+json">
 [
diff --git a/root/inc/opengraph.tx b/root/inc/opengraph.tx
@@ -0,0 +1,12 @@
+%%  block opengraph -> {
+<meta property="og:site_name"   content="MetaCPAN" />
+<meta name="twitter:site"       content="@metacpan" />
+<meta property="og:type"        content="article" />
+<meta name="twitter:card"       content="summary" />
+<meta property="og:url"         content="[% $abs_url( $canonical || $page_url(), "https://metacpan.org/" ) %]" />
+<meta property="og:title"       content="[% $opengraph_title || $release.name %]" />
+%%  if $opengraph_description {
+<meta property="og:description" content="[% $opengraph_description %]" />
+%%  }
+<meta property="og:image"       content="[% $abs_url( $opengraph_image || "/static/images/dots.png", "https://metacpan.org/") %]" />
+%%  }
diff --git a/root/inc/opengraph/author.tx b/root/inc/opengraph/author.tx
@@ -0,0 +1,12 @@
+%%  cascade inc::opengraph {
+%%    opengraph_title       => $author.display_name,
+%%    opengraph_description => "CPAN Author - " ~ $author.display_name,
+%%    opengraph_image       => gravatar_image($author, 400),
+%%  }
+%%  after  opengraph -> {
+%%  for $author.profile -> $profile {
+    %%  if $profile.name == "twitter" {
+        <meta name="twitter:creator" content="@[% $profile.id %]" />
+    %%  }
+%%  }
+%%  }
diff --git a/root/inc/opengraph/module.tx b/root/inc/opengraph/module.tx
@@ -0,0 +1,4 @@
+%%  cascade inc::opengraph {
+%%    opengraph_title       => $file.documentation,
+%%    opengraph_description => $file.abstract,
+%%  }
diff --git a/root/inc/opengraph/release.tx b/root/inc/opengraph/release.tx
@@ -0,0 +1,4 @@
+%%  cascade inc::opengraph {
+%%    opengraph_title       => $release.name,
+%%    opengraph_description => $release.abstract,
+%%  }
diff --git a/root/inc/twitter/author.tx b/root/inc/twitter/author.tx
diff --git a/root/inc/twitter/module.tx b/root/inc/twitter/module.tx
diff --git a/root/inc/twitter/release.tx b/root/inc/twitter/release.tx
diff --git a/root/pod.tx b/root/pod.tx
@@ -4,7 +4,7 @@
 %%      ($file.documentation || $file.module.0.name ) ~
 %%      ($file.abstract ? ' - ' ~ $file.abstract : ''),
 %%  }
-%%  override meta_card -> { include inc::twitter::module }
+%%  override opengraph -> { include inc::opengraph::module }
 %%  override left_nav_lead -> {
 %%  my $release_base = $permalinks || $release.status != 'latest'
 %%    ? '/release/' ~ $release.author ~ '/' ~ $release.name
diff --git a/root/static/images/dots.png b/root/static/images/dots.png
