From d31c4ab38a2ca0fdc94b5d9c29f889b148d3c94c Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Mon, 19 Sep 2022 19:27:38 +0100 Subject: [PATCH] remove old defroutes. --- src/web.lisp | 22 ---------------------- 1 file changed, 22 deletions(-) diff --git a/src/web.lisp b/src/web.lisp index 08642a1..0f9c9d2 100644 --- a/src/web.lisp +++ b/src/web.lisp @@ -602,28 +602,6 @@ :system-data ,(nera:system-data) :pages ,(nera:get-all-pages)))))) -(defroute ("/view/pages" :method :GET) () - (let ((alert (utils:get-and-reset-alert))) - (render #P"pages.html" - (append (if (hermetic:logged-in-p) - (auth:auth-user-data)) - `(:alert ,alert - :system-data ,(nera:system-data) - :pages ,(storage:get-file-names - (storage:get-files-in-directory - "" "pages"))))))) - -(defroute ("/view/archive" :method :GET) () - (let ((alert (utils:get-and-reset-alert))) - (render #P"pages.html" - (append (if (hermetic:logged-in-p) - (auth:auth-user-data)) - `(:alert ,alert - :system-data ,(nera:system-data) - :pages ,(storage:get-file-names - (storage:get-files-in-directory - "" "pages"))))))) - (defroute ("/view/page/:slug" :method :GET) (&key slug) (let ((alert (utils:get-and-reset-alert))) (if (storage:file-exists-p "" "pages" slug)