|
@@ -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)
|