From 3671178a35a995d67e3215b86ecd828f72d7a7cb Mon Sep 17 00:00:00 2001 From: Brit Butler Date: Sat, 6 Dec 2014 22:00:07 -0500 Subject: [PATCH] Minor indentation fixes. --- coleslaw.asd | 2 +- src/content.lisp | 12 ++++++------ 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/coleslaw.asd b/coleslaw.asd index 24d224d..2184379 100644 --- a/coleslaw.asd +++ b/coleslaw.asd @@ -14,7 +14,7 @@ :cl-fad :cl-ppcre :closer-mop - :cl-unicode) + :cl-unicode) :serial t :components ((:file "packages") (:file "util") diff --git a/src/content.lisp b/src/content.lisp index 87698c3..36865aa 100644 --- a/src/content.lisp +++ b/src/content.lisp @@ -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)