src/views/blog-post.lisp

(defpackage murja.views.blog-post
  (:use :cl :murja.views.components.root :murja.views.components.tab :murja.models.post)
  (:import-from :cl-hash-util :hash)
  (:import-from :murja.routes.root-routes :@check-if-initial)
  (:import-from :murja.routes.settings-routes :get-settings)
  (:import-from :murja.middleware.db :@transaction)
  (:import-from :murja.newui :@newui :c :with-state)
  (:import-from :easy-routes :defroute))

(in-package :murja.views.blog-post)

(defroute blog-root-view ("/blog/post/:id" :method :get
					   :decorators (@newui @transaction)) ()
  
  (let* ((current-post (get-post id)))
    (root-component
     (tabs "Home"
	   (hash
	    ("Home"
	     (if current-post 
		 (murja.views.components.post:post current-post :show-footer? t)
		 (c :div () "not found"))))))))