refactor site-setting route to get snippets from /storage/snippets.

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
+		     :site-wide-snippet ,(storage:open-text-file
-					  "static/js/site-wide-snippet.js")
+					  "" "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
+			 (storage:store-text
-			  "static/js/site-wide-snippet.js" code-snippet)
+			  "" "snippets" "site-wide-snippet.html" code-snippet)
 			 (utils:set-alert "Site-Wide snippet updated.")
 			 (redirect "/site-settings"))
 		       ;; Not Authorised