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

Minor indentation fixes.

Browse source
This commit is contained in:
Brit Butler 2014-12-06 22:00:07 -05:00
parent b272c7880b
commit 3671178a35
2 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
coleslaw.asd
View file

@ -14,7 +14,7 @@
:cl-fad
:cl-ppcre
:closer-mop
:cl-unicode)
:cl-unicode)
:serial t
:components ((:file "packages")
(:file "util")

12
src/content.lisp
View file

@ -27,14 +27,14 @@
; use the first char of the general unicode category as kind of
; hyper general category
(let ((cat (aref (cl-unicode:general-category char) 0))
(allowed-cats (list #\L #\N))) ; allowed Unicode categories in URLs
(cond
((member cat allowed-cats) t)
((member char allowed-chars) t)
(t nil))))
(allowed-cats (list #\L #\N))) ; allowed Unicode categories in URLs
(cond
((member cat allowed-cats) t)
((member char allowed-chars) t)
(t nil))))
(defun unicode-space-p (char)
"Determine if CHAR is a kind of whitespace by unicode category means"
"Determine if CHAR is a kind of whitespace by unicode category means."
(char= (aref (cl-unicode:general-category char) 0) #\Z))
(defun slugify (string)