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-fad
:cl-ppcre :cl-ppcre
:closer-mop :closer-mop
:cl-unicode) :cl-unicode)
:serial t :serial t
:components ((:file "packages") :components ((:file "packages")
(:file "util") (:file "util")

12
src/content.lisp
View file

@ -27,14 +27,14 @@
; use the first char of the general unicode category as kind of ; use the first char of the general unicode category as kind of
; hyper general category ; hyper general category
(let ((cat (aref (cl-unicode:general-category char) 0)) (let ((cat (aref (cl-unicode:general-category char) 0))
(allowed-cats (list #\L #\N))) ; allowed Unicode categories in URLs (allowed-cats (list #\L #\N))) ; allowed Unicode categories in URLs
(cond (cond
((member cat allowed-cats) t) ((member cat allowed-cats) t)
((member char allowed-chars) t) ((member char allowed-chars) t)
(t nil)))) (t nil))))
(defun unicode-space-p (char) (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)) (char= (aref (cl-unicode:general-category char) 0) #\Z))
(defun slugify (string) (defun slugify (string)