Przeglądaj źródła

Slight tweak to READ-CONTENT's metadata parsing.

Brit Butler 11 lat temu
rodzic
commit
16272cc6a6
1 zmienionych plików z 1 dodań i 1 usunięć
  1. 1 1
      src/content.lisp

+ 1 - 1
src/content.lisp

@@ -49,7 +49,7 @@
49 49
              (read-sequence seq stream)
50 50
              (remove #\Nul seq)))
51 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 53
          (field-name (line)
54 54
            (make-keyword (string-upcase (subseq line 0 (position #\: line))))))
55 55
     (with-open-file (in file :external-format '(:utf-8))