coleslaw-org/coleslaw

Error when content line break is CR-LF.

chuntaro opened this issue · 1 comments

Can you apply the following patch?

--- content.lisp.orig	2016-11-14 12:19:20.537514400 +0900
+++ content.lisp	2016-11-15 17:36:08.327274800 +0900
@@ -70,7 +70,7 @@
 (defun parse-metadata (stream)
   "Given a STREAM, parse metadata from it or signal an appropriate condition."
   (flet ((get-next-line (input)
-           (string-trim '(#\Space #\Newline #\Tab) (read-line input nil))))
+           (string-trim '(#\Space #\Return #\Newline #\Tab) (read-line input nil))))
     (unless (string= (get-next-line stream) (separator *config*))
       (error "The file, ~a, lacks the expected header: ~a" (file-namestring stream) (separator *config*)))
     (loop for line = (get-next-line stream)

Thank you!