src/view/single-post.lisp

(defpackage murja.view.single-post
  (:use :cl :binding-arrows
   :easy-routes
   :murja.settings :cl-hash-util
   :murja.view.components.blogpost)
  (:import-from :murja.view.components.tabs :deftab)
  (:export :blog/post/id)
  (:import-from :murja.model.post :get-post))

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

(deftab blog/post/id (:url "blog/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")))))