src/view/blog-root.lisp

(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)))