From 2e1ae69f61449f74f816176d92bd790fbd9dc358 Mon Sep 17 00:00:00 2001
From: Spencer Williams <spnw@plexwave.org>
Date: Thu, 17 Apr 2025 15:02:20 -0400
Subject: Fix improper handling of titles with single quotes

---
 lisp/seam.el | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'lisp/seam.el')

diff --git a/lisp/seam.el b/lisp/seam.el
index 72f12e2..4cc21e7 100644
--- a/lisp/seam.el
+++ b/lisp/seam.el
@@ -72,7 +72,10 @@ naming.  Must be a function taking two arguments: TITLE and TYPE."
   (mapcar #'car seam-export-alist))
 
 (defun seam-slugify (title)
-  (downcase (string-join (string-split title "\\W+" t) "-")))
+  (setq title (string-replace "'" "" title))
+  (setq title (string-split title "\\W+" t))
+  (setq title (string-join title "-"))
+  (downcase title))
 
 (defun seam-lookup-slug (slug)
   (cl-dolist (type seam-note-types)
-- 
cgit v1.2.3