diff of 7985355a420ed2fa067ccb9c1895a91f8448ca37

7985355a420ed2fa067ccb9c1895a91f8448ca37
diff --git a/resources/css/murja.css b/resources/css/murja.css
index 38b37f0..5f0c3ad 100644
--- a/resources/css/murja.css
+++ b/resources/css/murja.css
@@ -505,6 +505,11 @@ input:required {
     margin-right: 20px;
 }
 
+.page-nav {
+    display: flex;
+    justify-content: space-between;
+}
+
 @media only screen and (max-device-width:480px)
 {
     body {
diff --git a/src/view/blog-root.lisp b/src/view/blog-root.lisp
index 6d44ff9..45c7cc0 100644
--- a/src/view/blog-root.lisp
+++ b/src/view/blog-root.lisp
@@ -13,4 +13,12 @@
 	      :title "Home")
   (let* ((recent-post-count (gethash "recent-post-count" murja.settings:*settings*))
 	 (loaded-page (get-page 1 recent-post-count)))
-    (page loaded-page)))
+    (page loaded-page 1)))
+
+(deftab page-tab (:url "/blog/page/:id"
+		  :subtab root
+		  :captured-url-params (id))
+  (let* ((id (parse-integer id))
+	 (recent-post-count (gethash "recent-post-count" murja.settings:*settings*))
+	 (loaded-page (get-page id recent-post-count)))
+    (page loaded-page id)))
diff --git a/src/view/components/blogpost.lisp b/src/view/components/blogpost.lisp
index db79e57..d2eff3f 100644
--- a/src/view/components/blogpost.lisp
+++ b/src/view/components/blogpost.lisp
@@ -44,7 +44,7 @@
 	  (map 'list #'tag tags))
 	 (:div)))))) ;; next and previous post ?????????
 
-(defun page (page)
+(defun page (page id)
   (with-html
     (:ul.page-post-list
      (map 'list
@@ -55,6 +55,10 @@
 	  (remove-if (lambda (post)
 		       (or (post-hidden? post)
 			   (post-unlisted? post)))
-		     page)))))
-	  
+		     page)))
+
+    (:nav.page-nav (if (> id 1)
+	      (:a :href (format nil "/blog/page/~d" (1- id)) "Newer posts")
+	      (:span ""))
+	  (:a :href (format nil "/blog/page/~d" (1+ id)) "Older posts"))))