thatonelutenist/website
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Open graph tag generation for posts

Browse source
This commit is contained in:
Nathan McCarty 2025-02-12 03:38:55 -05:00
parent 585b2be5ab
commit 2862f45d77
5 changed files with 40 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/Config.rakumod
View file

@ -13,7 +13,18 @@ unit class Config;
method generate-post(Int:D $id, Post:D $post, $db) {
my $meta = $db.meta;
my $content = $post.render-html;
my $head = generate-head($meta, $post.title, $post.description);
my $head =
head [
generate-head($meta, $post.title, $post.description);
meta :property<og:title>, :content($post.title);
meta :property<og:url>, :content(post-link-abs $db.meta, $id, $post);
meta :property<og:site_name>, :content($db.meta.title);
meta :property<og:type>, :content<article>;
meta :property<article:published_time>, :content($post.posted-at);
$post.tags.map(-> $tag {
meta :property<article:tag>, :content($tag)
});
];
my $body =
body [
site-header $meta;
@ -45,7 +56,7 @@ method generate-index($db) {
generate-blurb $pair.key, $db
});
my $head = generate-head($db.meta);
my $head = head [generate-head($db.meta);];
my $body = body [
site-header $db.meta;
div :class<post-blurbs>, [
@ -70,7 +81,7 @@ method generate-archive($db) {
generate-blurb $pair.key, $db
});
my $head = generate-head($db.meta);
my $head = head [generate-head($db.meta);];
my $body = body [
site-header $db.meta;
div :class<post-blurbs>, [
@ -128,7 +139,7 @@ method generate-tag-blurb($db, $tag, $limit?) {
}
method generate-tags-page($db, @tags) {
my $head = generate-head($db.meta);
my $head = head [generate-head($db.meta);];
my $body = body [
site-header $db.meta;
div :class<tags>, [
@ -146,7 +157,7 @@ method generate-tags-page($db, @tags) {
}
method generate-tag-page($db, $tag) {
my $head = generate-head($db.meta);
my $head = head [generate-head($db.meta);];
my $body = body [
site-header $db.meta;
self.generate-tag-blurb($db, $tag, 4);