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

Generate series list page

Browse source
This commit is contained in:
Nathan McCarty 2025-02-09 05:51:52 -05:00
parent baf8d6556b
commit 109165b80e
4 changed files with 49 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lib/DB.rakumod
View file

@ -140,14 +140,16 @@ class PostDB {
$tags-dir.add("$tag.html").spurt:
$config.generate-tag-page(self, $tag);
}
# TODO: Generate the series pages
# Generate the series pages
my $series-dir = $out-dir.add('series/');
mkdir $series-dir unless $series-dir.e;
for %!series.kv -> $key, $value {
$series-dir.add("$key.html").spurt:
series-page($key, self);
}
# TODO: Generate the main series page
# Generate the main series page
$out-dir.add('series.html').spurt:
series-list-page self;
# Render the rss/atom feed
my $atom-path = $out-dir.add('atom.xml');
my $atom = posts-to-atom self;

39
lib/Render/Series.rakumod
View file

@ -103,3 +103,42 @@ sub series-page(Int:D $series-id, $db) is export {
show-html $html;
}
sub series-blurb(Int:D $id, Series:D $series, $db) {
my $link = "/series/$id.html";
div :class<series-list-blurb>, [
div :class<series-list-blurb-title>, [
a :href($link), span [
h2 $series.title;
];
p $series.desc;
];
series-info $series, $db;
]
}
sub series-list-page($db) is export {
my @series = $db.series.sort(*.value.latest-post: $db);
my @series-blurbs = ();
for @series -> $pair {
my $id = $pair.key;
my $series = $pair.value;
@series-blurbs.push:
series-blurb $id, $series, $db;
}
my $head = generate-head($db.meta);
my $body = body [
site-header $db.meta;
div :class<series-list>, [
h1 "All Series"
], @series-blurbs;
];
my $html = html :lang<en>, [
$head;
$body;
];
show-html $html;
}