Brit Butler пре 10 година
родитељ
комит
3671178a35
2 измењених фајлова са 7 додато и 7 уклоњено
  1. 1 1
      coleslaw.asd
  2. 6 6
      src/content.lisp

+ 1 - 1
coleslaw.asd

@@ -14,7 +14,7 @@
14 14
                :cl-fad
15 15
                :cl-ppcre
16 16
                :closer-mop
17
-			   :cl-unicode)
17
+               :cl-unicode)
18 18
   :serial t
19 19
   :components ((:file "packages")
20 20
                (:file "util")

+ 6 - 6
src/content.lisp

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