src/view/blog-root.lisp

(defpackage murja.view.blog-root
  (:use :cl :binding-arrows
	:murja.view.components.blogpost
   :easy-routes :cl-hash-util)
  (:export :root)
  (:import-from :murja.view.components.tabs :deftab)
  (:import-from :murja.model.post :get-page)
  (:local-nicknames (:settings :murja.setting-definitions)))

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

(deftab root (:url "/"
	      :title "Home")
  (let* ((recent-post-count (settings:recent-post-count))
	 (loaded-page (get-page 1 recent-post-count)))
    (page loaded-page 1)))

(deftab page-tab (:url "/page/:id"
		  :subtab root
		  :captured-url-params (id))
  (let* ((id (parse-integer id))
	 (recent-post-count (settings:recent-post-count))
	 (loaded-page (get-page id recent-post-count)))
    (page loaded-page id)))