implement the /view/archive/:slug route and add archive-entry.html.

src/web.lisp

@@ -925,18 +925,17 @@
 		      :archive-entries ,(nera:get-all-archive-entries))))))
 
 (defroute ("/view/archive/:slug" :method :GET) (&key slug)
-    (format nil "Page not implemented"))
+  (let ((alert (utils:get-and-reset-alert)))
-  ;; (let ((alert (utils:get-and-reset-alert)))
+    (if (storage:file-exists-p "" "archive" slug)
-  ;;   (if (storage:file-exists-p "" "pages" slug)
+	(render #P"archive-entry.html"
-  ;; 	(render #P"archive.html"
+		(append (if (hermetic:logged-in-p)
-  ;; 		(append (if (hermetic:logged-in-p)
+			    (auth:auth-user-data))
-  ;; 			    (auth:auth-user-data))
+			`(:alert ,alert
-  ;; 			`(:alert ,alert
+			  :db-data ,(nera:get-archive-entry :slug slug)
-  ;; 			  :db-data ,(nera:get-page slug)
+			  :system-data ,(nera:system-data)
-  ;; 			  :system-data ,(nera:system-data)
+			  :data ,(storage:open-text-file
-  ;; 			  :data ,(storage:open-text-file
+				  "" "archive" slug))))
-  ;; 				  "" "pages" slug))))
+	(on-exception *web* 404))))
-;; 	(on-exception *web* 404))))
 
 (defroute ("/user/archive" :method :GET) ()
   (hermetic:auth (:logged-in)

templates/archive-entry.html

@@ -0,0 +1,7 @@
+{% extends "layouts/default.html" %}
+{% block title %}{{db-data.title}}{% endblock %}
+{% block content %}
+<main>
+  {{data | safe}}
+</main>
+{% endblock %}