src/view/single-post.lisp

(in-package :murja.view.single-post)

(deftab blog/post/id (:url "/post/:id"
		      :subtab t
		      :captured-url-params (id))
  (let ((post (get-post id :allow-hidden? nil)))
    (if post 
	(blogpost post)
	(progn
	  (setf (hunchentoot:return-code*) 404)
	  (:div "not found")))))