Minor slugs tweak.
This commit is contained in:
parent
f5cd00fba9
commit
ef315397a4
1 changed files with 1 additions and 1 deletions
|
@ -69,7 +69,7 @@
|
||||||
(or (char<= #\0 char #\9)
|
(or (char<= #\0 char #\9)
|
||||||
(char<= #\a char #\z)
|
(char<= #\a char #\z)
|
||||||
(char<= #\A char #\Z)
|
(char<= #\A char #\Z)
|
||||||
(member char '(#\_ #\-))))
|
(member char '(#\_ #\- #\.))))
|
||||||
|
|
||||||
(defun slugify (string)
|
(defun slugify (string)
|
||||||
"Return a version of STRING suitable for use as a URL."
|
"Return a version of STRING suitable for use as a URL."
|
||||||
|
|
Loading…
Add table
Reference in a new issue