(defpackage murja.view.blog-root
(:use :cl :binding-arrows
:murja.view.components.blogpost
:easy-routes
:murja.settings :cl-hash-util)
(:export :root)
(:import-from :murja.view.components.tabs :deftab)
(:import-from :murja.model.post :get-page))
(in-package :murja.view.blog-root)
(deftab root (:url "/"
:title "Home")
(let* ((recent-post-count (gethash "recent-post-count" murja.settings:*settings*))
(loaded-page (get-page 1 recent-post-count)))
(page loaded-page)))