diff --git a/src/web.lisp b/src/web.lisp index 51212bf..1ad5cf1 100644 --- a/src/web.lisp +++ b/src/web.lisp @@ -189,8 +189,8 @@ `(:alert ,(utils:get-and-reset-alert) :pages ,(nera:get-all-pages) :system-data ,(nera:system-data) - :site-wide-snippet ,(storage:open-text-file-with-raw-path - "static/js/site-wide-snippet.js") + :site-wide-snippet ,(storage:open-text-file + "" "snippets" "site-wide-snippet.html") ;; Should this be replaced by `SYSTEM-DATA'? :settings ,(nera:get-site-settings)))) ;; Not Authorised @@ -288,8 +288,8 @@ (hermetic:auth (:administrator) ;; Authorised (progn - (storage:store-text-with-raw-path - "static/js/site-wide-snippet.js" code-snippet) + (storage:store-text + "" "snippets" "site-wide-snippet.html" code-snippet) (utils:set-alert "Site-Wide snippet updated.") (redirect "/site-settings")) ;; Not Authorised