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

No special characters in slugs

Browse source
This commit is contained in:
Nathan McCarty 2025-03-15 18:07:37 -04:00
parent a2a811aa4a
commit a5f9c659ff
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/DB/Post.rakumod
View file

@ -62,9 +62,9 @@ method updated(--> DateTime:D) {
#| Get the list of slugs for this post, including ones auto generated from #| Get the list of slugs for this post, including ones auto generated from
#| the title, as well as any additional slugs #| the title, as well as any additional slugs
method all-slugs(--> Array[Str:D]) { method all-slugs(--> Array[Str:D]) {
my $title-words = self.title.lc.trim.words; my @title-words = self.title.lc.trim.words.map(*.subst(/<-alnum>/, :g));
my $long-title-slug = $title-words.join('-'); my $long-title-slug = @title-words.join('-');
my $six-word-slug = self.title.lc.words.head(6).join('-'); my $six-word-slug = @title-words.head(6).join('-');
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);