add thumbnail features to delete and rename storage file routes.

src/web.lisp

@@ -853,21 +853,29 @@
 	       (t (storage:rename-content-file
 		   "" "media" (files::slug-of (nera:get-storage-file :slug slug))
 		   (utils:slugify new-file-name))
+		  ;; Rename the thumbnail if there is one (not all files are images).
+		  (when (storage:file-exists-p "" "media" (format nil "thumbnail-~a" slug))
+		    (storage:rename-content-file
+		     "" "media"
+		     (format nil "thumbnail-~a"
+			     (files::slug-of
+			      (nera:get-storage-file :slug slug)))
+		     (utils:slugify (format nil "thumbnail-~a" new-file-name))))
+		  
 		  (nera:rename-storage-file
 		   (files::name-of (nera:get-storage-file :slug slug))
-				   new-file-name)
-		   (utils:set-alert "File renamed.")
-		   (redirect "/storage/manage")))
-	       ;; Not Authorised
-	       (progn
-		 (utils:set-alert "You are not authorised to view this page.")
-		 (redirect "/login"))))))
+		   new-file-name)
+		  (utils:set-alert "File renamed.")
+		  (redirect "/storage/manage")))
+	 ;; Not Authorised
+	 (progn
+	   (utils:set-alert "You are not authorised to view this page.")
+	   (redirect "/login"))))))
 
 (defroute ("/storage/delete/:slug" :method :POST) (&key slug)
   (destructuring-bind
       (&key authenticity-token &allow-other-keys)
       (utils:request-params (lack.request:request-body-parameters ningle:*request*))
-    (step
     (cond ((not (string= authenticity-token (auth:csrf-token)))
 	   `(,+forbidden+ (:content-type "text/plain") ("Denied")))
 	  (t (hermetic:auth
@@ -882,6 +890,10 @@
 			  (null (nera:get-storage-file :slug slug)))
 		     (utils:set-alert "Unable to find entry in database. Deleted file from system.")
 		     (storage:remove-file "" "media" slug)
+		     (when (storage:file-exists-p
+			    "" "media" (format nil "thumbnail-~a" slug))
+		       (storage:remove-file
+			"" "media" (format nil "thumbnail-~a" slug)))
 		     (redirect "/storage/manage"))
 
 		    ((and (null (storage:file-exists-p "" "media" slug))
@@ -893,12 +905,16 @@
 		    (t (storage:remove-file
 			"" ; `USERNAME' blank because it's not used/needed.
 			"media" slug)
+		       (when (storage:file-exists-p
+			      "" "media" (format nil "thumbnail-~a" slug))
+			 (storage:remove-file
+			  "" "media" (format nil "thumbnail-~a" slug)))
 		       (nera:delete-storage-file :slug slug)
 		       (utils:set-alert "File deleted.")
 		       (redirect "/storage/manage")))
 	      ;; Not Authorised
 	      (progn (utils:set-alert "You are not authorised to delete page.")
-		     (redirect "/login"))))))))
+		     (redirect "/login")))))))
 
 ;;
 ;; Error pages