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

Style fixes and missing closing paren

Browse source
This commit is contained in:
Javier Olaechea 2014-12-10 12:16:31 -05:00
parent 66928295e3
commit 144cb03294
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/content.lisp
View file

@ -24,8 +24,8 @@
(defun slug-char-p (char &key (allowed-chars (list #\- #\~)))
"Determine if CHAR is a valid slug (i.e. URL) character."
; use the first char of the general unicode category as kind of
; hyper general category
;; use the first char of the general unicode category as kind of
;; hyper general category
(let ((cat (char (cl-unicode:general-category char) 0))
(allowed-cats (list #\L #\N))) ; allowed Unicode categories in URLs
(cond
@ -39,11 +39,11 @@
(defun slugify (string)
"Return a version of STRING suitable for use as a URL."
(let ((slugified (remove-if-not #'slug-char-p
(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)))
(error "Post title '~a' does not contain characters suitable for a slug!" string )
slugified)))
;; Content Types