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