Commit ae248202 authored by Erik Huelsmann's avatar Erik Huelsmann

Fix header not being discarded from content

parent d70d88b8
...@@ -9,11 +9,12 @@ ...@@ -9,11 +9,12 @@
(defun content-lines (lines) (defun content-lines (lines)
(loop with found-header-p = nil (loop with found-header-p = nil
for line in lines for line in lines
when found-header-p
collect line into post-header-lines
when (string= line "---") when (string= line "---")
do (setf found-header-p t do (setf found-header-p t)
content-lines nil)
collect line into content-lines 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) (defun make-site (&optional output-dir)
(let ((*output-dir* (or output-dir *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