diff --git a/src/view.lisp b/src/view.lisp index d83ea2f..f38aec3 100644 --- a/src/view.lisp +++ b/src/view.lisp @@ -127,4 +127,3 @@ (< (local-time:timestamp-hour timestamp) 24)) (format nil "/images/icons/bed-time-cat.png")) (t (format nil "/images/icons/default-cat.png"))))) - diff --git a/src/web.lisp b/src/web.lisp index a093a10..13484a5 100644 --- a/src/web.lisp +++ b/src/web.lisp @@ -1354,11 +1354,11 @@ (utils:set-alert "Couldn't find archive entry in database. Deleted files only." "invalid-data") - ;; The thumbnail in not know about here because it was - ;; linked to the text file via the database. You will need - ;; to delete the thumbnail manually at this point but the - ;; system has already failed here anyway so the extra work - ;; was already needed. + ;; The system doesn't know about the thumbnail at this + ;; point because it was linked to the text file via the + ;; database. You will need to delete the thumbnail manually + ;; at this point but the system has already failed here + ;; anyway so the extra work was already needed. (storage:remove-file "" "archive" slug) (redirect "/user/archive")) (t (storage:remove-file "" "archive" slug) @@ -1377,12 +1377,11 @@ (redirect "/login"))))))) (defroute ("/search" :method :GET) () - (render #P"search.html" - (append (if (hermetic:logged-in-p) - (auth:auth-user-data)) - `(:alert ,(utils:get-and-reset-alert) - :nav-menu ,(nera:nav-menu-slugs) - :system-data ,(nera:system-data))))) + (render #P"search.html" (append (if (hermetic:logged-in-p) + (auth:auth-user-data)) + `(:alert ,(utils:get-and-reset-alert) + :nav-menu ,(nera:nav-menu-slugs) + :system-data ,(nera:system-data))))) ;; ;; Error pages