diff --git a/lib/DB/Post.rakumod b/lib/DB/Post.rakumod index be80a59..42132f6 100644 --- a/lib/DB/Post.rakumod +++ b/lib/DB/Post.rakumod @@ -57,9 +57,12 @@ method updated(--> DateTime: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.trim.subst: /\h+/, '-', :g; + my $title-words = self.title.lc.trim.words; + my $long-title-slug = $title-words.join('-'); + my $six-word-slug = self.title.lc.words.head(6).join('-'); my Str:D @slugs = @!slugs.clone; @slugs.push($long-title-slug); + @slugs.push($six-word-slug); @slugs; }