diff --git a/main.lisp b/main.lisp index f9b1a363d9130d87872125d0f94e0db720959da0..15a6202ee7172cffbcd77b83e8b7f2a5a60f533d 100644 --- a/main.lisp +++ b/main.lisp @@ -9,11 +9,12 @@ (defun content-lines (lines) (loop with found-header-p = nil for line in lines + when found-header-p + collect line into post-header-lines when (string= line "---") - do (setf found-header-p t - content-lines nil) + do (setf found-header-p t) collect line into content-lines - finally (return content-lines))) + finally (return (if found-header-p post-header-lines content-lines)))) (defun make-site (&optional output-dir) (let ((*output-dir* (or output-dir *output-dir*))