src/view/blog-root.lisp

(defpackage murja.view.blog-root
  (:use :cl :binding-arrows
	:murja.view.components.blogpost
	:murja.view.common :easy-routes
	:murja.model.settings :cl-hash-util)
  (:import-from :murja.model.post :get-page))

(in-package :murja.view.blog-root)


(defroute root ("/" :method :get
		    :decorators (murja.middleware.db:@transaction)) ()
  (with-keys ("recent-post-count" "blog-title") (get-settings)
    (let ((page (get-page 1 recent-post-count)))
      
      (with-page (format nil "~s - Page ~d" blog-title 1)
	(page page)))))