diff --git a/blog b/blog index 0862290..e3ebd30 100755 --- a/blog +++ b/blog @@ -91,4 +91,5 @@ multi MAIN( ); write-db $db-file, $db; say 'Post inserted with id ', $id; + say 'Post has slugs: ', $db.posts{$id}.all-slugs; } diff --git a/lib/DB/Post.rakumod b/lib/DB/Post.rakumod index afead15..068affc 100644 --- a/lib/DB/Post.rakumod +++ b/lib/DB/Post.rakumod @@ -45,6 +45,8 @@ method title(--> Str:D) {...} #| Get the list of slugs for this post, including ones auto generated from #| the title, as well as any additional slugs method all-slugs(--> Array[Str:D]) { - my $long-title-slug = self.title.lc.subst: /\h*/, '-'; - return [$long-title-slug, @!slugs].flat.Array; + my $long-title-slug = self.title.lc.trim.subst: /\h+/, '-', :g; + my Str:D @slugs = @!slugs.clone; + @slugs.push($long-title-slug); + @slugs; }