From 84f3ede73602e2f994681dd26cb119dcb8dd8e16 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Sun, 25 Sep 2022 22:42:02 +0100
Subject: [PATCH] refactor site-setting route to get snippets from
 /storage/snippets.

---
 src/web.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

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