marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

error handling in slugify

Browse source
This commit is contained in:
lukasepple 2014-12-09 20:55:57 +01:00
parent deb2e556a4
commit d7ffd1b7d7
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/content.lisp
View file

@ -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 (= 0 (length slugified))
(error "Post title '~a' does not contain characters suitable for a slug!" string)
slugified)))
;; Content Types