marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Slugify tags. Fixes issue #25.

Browse source
This commit is contained in:
Brit Butler 2013-04-18 15:18:14 -04:00
parent ad2a05fa3a
commit f6e78dd47c
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/content.lisp
View file

@ -31,7 +31,8 @@
(field-name (line)
(make-keyword (string-upcase (subseq line 0 (position #\: line)))))
(read-delimited (str &optional (delimiter ", "))
(mapcar #'string-downcase (cl-ppcre:split delimiter str))))
(mapcar (compose #'slugify #'string-downcase)
(cl-ppcre:split delimiter str))))
(with-open-file (in file)
(unless (string= (read-line in) ";;;;;")
(error "The provided file lacks the expected header."))