From d7bbb9ecf29b5033608e1b0d4a443ac17f4b3be9 Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Mon, 3 Oct 2022 06:14:54 +0100 Subject: [PATCH] code clean-up in web.lisp (old comments, formatting and slugify). --- src/web.lisp | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) diff --git a/src/web.lisp b/src/web.lisp index a1c03e6..0b4cd39 100644 --- a/src/web.lisp +++ b/src/web.lisp @@ -687,7 +687,7 @@ (redirect "/user/pages")) (t (storage:rename-content-file - "" ; `USERNAME' blank because it's not used/needed. + "" "pages" slug (utils:slugify new-title)) (nera:update-page id new-title (utils:slugify new-title)) (utils:set-alert "File name changed.") @@ -710,9 +710,9 @@ (utils:set-alert "Cannot find page in database.") (redirect "/user/pages")) - (t (nera:update-nav-menu + (t (nera:update-single-nav-menu-item slug (if (null show-in-nav) +false+ +true+)) - (utils:set-alert "Updated name changed.") + (utils:set-alert "Update nav. menu settings.") (redirect (format nil "/edit/page/~a" slug)))) ;; Not Authorised (progn (utils:set-alert "You are not logged in.") @@ -968,7 +968,8 @@ (render "/user/create-archive.html" (append (auth:auth-user-data) - `(:alert "Entry with that title already exists. Unable to create entry." + `(:alert + "Entry with that title already exists. Unable to create entry." :title ,title :keywords ,keywords :data ,page-content)))) @@ -978,7 +979,8 @@ (render "/user/create-archive.html" (append (auth:auth-user-data) - `(:alert "File uploaded is not an image. Entry not created." + `(:alert + "File uploaded is not an image. Entry not created." :title ,title :keywords ,keywords :data ,page-content)))) @@ -1001,7 +1003,7 @@ (utils:format-filename (cadr thumbnail-file)) thumbnail-file) (utils:create-thumbnail ; Overwrites the original here. - "archive" (utils:slugify (cadr thumbnail-file)) t) + "archive" (utils:format-filename (cadr thumbnail-file)) t) (utils:set-alert "Archive entry created. Great Success!") (redirect "/dashboard"))) ;; Not Authorised