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

Slight tweak to READ-CONTENT's metadata parsing.

Browse source
This commit is contained in:
Brit Butler 2014-05-03 13:43:37 -04:00
parent 16d7656421
commit 16272cc6a6
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/content.lisp
View file

@ -49,7 +49,7 @@
(read-sequence seq stream) (read-sequence seq stream)
(remove #\Nul seq))) (remove #\Nul seq)))
(parse-field (str) (parse-field (str)
(nth-value 1 (cl-ppcre:scan-to-strings "[a-zA-Z]+: (.*)" str))) (nth-value 1 (cl-ppcre:scan-to-strings "[a-zA-Z]+:\\s+(.*)" str)))
(field-name (line) (field-name (line)
(make-keyword (string-upcase (subseq line 0 (position #\: line)))))) (make-keyword (string-upcase (subseq line 0 (position #\: line))))))
(with-open-file (in file :external-format '(:utf-8)) (with-open-file (in file :external-format '(:utf-8))