From a8e3b30668c1440efd202669c976cec82fcdff3c Mon Sep 17 00:00:00 2001
From: Nathan McCarty <thatonelutenist@stranger.systems>
Date: Wed, 22 Jan 2025 21:17:38 -0500
Subject: [PATCH] Fix slugs logic

---
 blog                | 1 +
 lib/DB/Post.rakumod | 6 ++++--
 2 files changed, 5 insertions(+), 2 deletions(-)

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