|
|
@ -384,7 +384,7 @@ |
|
|
|
(progn (utils:set-alert "You are not logged in.") |
|
|
|
(progn (utils:set-alert "You are not logged in.") |
|
|
|
(redirect "/login"))))))) |
|
|
|
(redirect "/login"))))))) |
|
|
|
|
|
|
|
|
|
|
|
(defroute ("/pages" :method :GET) () |
|
|
|
(defroute ("/user/pages" :method :GET) () |
|
|
|
(hermetic:auth (:logged-in) |
|
|
|
(hermetic:auth (:logged-in) |
|
|
|
;; Authorised |
|
|
|
;; Authorised |
|
|
|
(let ((alert (utils:get-and-reset-alert))) |
|
|
|
(let ((alert (utils:get-and-reset-alert))) |
|
|
@ -399,6 +399,27 @@ |
|
|
|
(utils:set-alert "You are not logged in.") |
|
|
|
(utils:set-alert "You are not logged in.") |
|
|
|
(redirect "/login")))) |
|
|
|
(redirect "/login")))) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(defroute ("/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 |
|
|
|
|
|
|
|
: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) |
|
|
|
|
|
|
|
(render #P"page.html" |
|
|
|
|
|
|
|
(append (if (hermetic:logged-in-p) |
|
|
|
|
|
|
|
(auth:auth-user-data)) |
|
|
|
|
|
|
|
`(:alert ,alert |
|
|
|
|
|
|
|
:data ,(storage:open-text-file |
|
|
|
|
|
|
|
"" "pages" slug)))) |
|
|
|
|
|
|
|
(on-exception *web* 404)))) |
|
|
|
|
|
|
|
|
|
|
|
(defroute ("/edit/page/:slug" :method :GET) (&key slug) |
|
|
|
(defroute ("/edit/page/:slug" :method :GET) (&key slug) |
|
|
|
(hermetic:auth (:logged-in) |
|
|
|
(hermetic:auth (:logged-in) |
|
|
|
;; Authorised |
|
|
|
;; Authorised |
|
|
|