From c60ce1efdfe103ca02d46016d10bbd4bc1f3c85b Mon Sep 17 00:00:00 2001
From: Nathan McCarty <thatonelutenist@stranger.systems>
Date: Thu, 6 Feb 2025 20:22:40 -0500
Subject: [PATCH] Add short slugs

---
 lib/DB/Post.rakumod | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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;
 }