Browse Source

Slight tweak to READ-CONTENT's metadata parsing.

Brit Butler 11 years ago
parent
commit
16272cc6a6
1 changed files with 1 additions and 1 deletions
  1. 1 1
      src/content.lisp

+ 1 - 1
src/content.lisp

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