Commit ae248202 authored by Erik Huelsmann's avatar Erik Huelsmann

Fix header not being discarded from content

parent d70d88b8
......@@ -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*))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment