marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

READ-POST fixes.

Browse source
This commit is contained in:
Brit Butler 2012-08-20 23:57:57 -04:00
parent e9b6ac1c0f
commit f5cd00fba9
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/posts.lisp
View file

@ -13,10 +13,14 @@
(defun render-posts () (defun render-posts ()
"Iterate through the files in the repo to render+write the posts out to disk." "Iterate through the files in the repo to render+write the posts out to disk."
(clrhash *posts*)
(do-files (file (repo *config*) "post") (do-files (file (repo *config*) "post")
(with-open-file (in file) (with-open-file (in file)
(let ((post (read-post in))) (let ((post (read-post in)))
(setf (gethash (post-slug post) *posts*) post)))) (if (gethash (post-slug post) *posts*)
(error "There is already an existing post with the slug ~a."
(post-slug post))
(setf (gethash (post-slug post) *posts*) post)))))
(maphash #'write-post *posts*)) (maphash #'write-post *posts*))
(defgeneric render-content (text format) (defgeneric render-content (text format)
@ -38,8 +42,6 @@
(check-header) (check-header)
(let ((args (loop for field in '("title" "tags" "date" "format") (let ((args (loop for field in '("title" "tags" "date" "format")
for line = (read-line in nil) for line = (read-line in nil)
when (not (search field line :test #'string=))
do (error "The provided file lacks the field ~a." field)
appending (list (make-keyword field) appending (list (make-keyword field)
(aref (parse-field (read-line in)) 0))))) (aref (parse-field (read-line in)) 0)))))
(check-header) (check-header)