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

Add guardrail against duplicate slugs

Browse source
This commit is contained in:
Nathan McCarty 2025-02-06 20:32:38 -05:00
parent 3f59c75523
commit b067f79e1c
2 changed files with 8 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/DB.rakumod
View file

@ -71,6 +71,12 @@ class PostDB {
#| Render the site to the provided output directory #| Render the site to the provided output directory
method render(IO::Path:D $out-dir, Config:D :$config = Config.new) { method render(IO::Path:D $out-dir, Config:D :$config = Config.new) {
## Consistency checks
# Check to make sure all the slugs are unique
my @all-the-slugs = %!posts.values.map(*.all-slugs).flat;
die "Duplicate slug detected"
unless @all-the-slugs.unique.elems == @all-the-slugs.elems;
## Rendering
my $posts = $out-dir.add('posts/'); my $posts = $out-dir.add('posts/');
my $by-id = $posts.add('by-id/'); my $by-id = $posts.add('by-id/');
my $by-slug = $posts.add('by-slug/'); my $by-slug = $posts.add('by-slug/');

3
lib/DB/Post.rakumod
View file

@ -63,7 +63,8 @@ method all-slugs(--> Array[Str:D]) {
my Str:D @slugs = @!slugs.clone; my Str:D @slugs = @!slugs.clone;
@slugs.push($long-title-slug); @slugs.push($long-title-slug);
@slugs.push($six-word-slug); @slugs.push($six-word-slug);
@slugs; @slugs.=unique;
@slugs
} }
#| Render this post to an html body #| Render this post to an html body