coleslaw/src/posts.lisp

(in-package :coleslaw)

(defparameter *posts* (make-hash-table :test #'equal))

(defclass post ()
  ((slug :initform nil :initarg :slug :accessor post-slug)
   (title :initform nil :initarg :title :accessor post-title)
   (tags :initform nil :initarg :tags :accessor post-tags)
   (date :initform nil :initarg :date :accessor post-date)
   (format :initform nil :initarg :format :accessor post-format)
   (content :initform nil :initarg :content :accessor post-content)
   (aliases :initform nil :initarg :aliases :accessor post-aliases)))

(defun render-posts ()
  (do-files (file (repo *config*) "post")
    (with-open-file (in file)
      (let ((post (read-post in)))
        (setf (gethash (post-slug post) *posts*) post))))
  (maphash #'write-post *posts*))

(defun read-post (stream)
  "Make a POST instance based on the data from STREAM."
  (make-instance 'post
                 :slug (make-slug post))
  )

(defun write-post (slug post)
  "Write out the HTML for POST in SLUG.html."
  (render-page (format nil "~a.html" slug)
               (funcall (theme-fn "POST")
                        (list :title (post-title post)
                              :tags (post-tags post)
                              :date (post-date post)
                              :content (post-content post)
                              :prev nil
                              :next nil))))