Browse Source

code clean-up in web.lisp (old comments, formatting and slugify).

stable
Craig Oates 2 years ago
parent
commit
d7bbb9ecf2
  1. 14
      src/web.lisp

14
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

Loading…
Cancel
Save