Merge pull request #75 from lukasepple/master

error handling in slugify
2014-12-10 12:15:57 -05:00 · 2014-12-10 12:15:57 -05:00 · 66928295e3
commit 66928295e3
parent deb2e556a4 1e1c64b245
1 changed files with 5 additions and 1 deletions
--- a/src/content.lisp
+++ b/src/content.lisp
@ -39,7 +39,11 @@

 (defun slugify (string)
  "Return a version of STRING suitable for use as a URL."
-  (remove-if-not #'slug-char-p (substitute-if #\- #'unicode-space-p string)))
+  (let ((slugified (remove-if-not #'slug-char-p 
+                                  (substitute-if #\- #'unicode-space-p string))))
+	(if (zerop (length slugified))
+            (error "Post title '~a' does not contain characters suitable for a slug!" string 
+            slugified)))

 ;; Content Types