update first-run code -- refactor site-wide snippet file.

src/storage.lisp

@@ -29,19 +29,23 @@ This is used as part of the /run-set defroute in web.lisp file."
   (ensure-directory-exists "" "pages")
   (uiop:copy-file (make-path "" "default-assets" "about")
 		  (make-path "" "pages" "about"))
+  
   (uiop:copy-file (make-path "" "default-assets" "contact")
 		  (make-path "" "pages" "contact"))
+  
   (uiop:copy-file (make-path "" "default-assets" "home")
 		  (make-path "" "pages" "home"))
+  
   (uiop:copy-file (make-path "" "default-assets" "site-logo.png")
 		  (merge-pathnames "static/images/site-logo.png"
 				   ritherdon-archive.config:*application-root*))
   (uiop:copy-file (make-path "" "default-assets" "favicon.png")
 		  (merge-pathnames "static/images/favicon.png"
 				   ritherdon-archive.config:*application-root*))
-  (uiop:copy-file (make-path "" "default-assets" "site-wide-snippet.js")
-		  (merge-pathnames "static/js/site-wide-snippet.js"
-				   ritherdon-archive.config:*application-root*)))
+
+  (ensure-directory-exists "" "snippets")
+  (uiop:copy-file (make-path "" "default-assets" "site-wide-snippet.html")
+		  (make-path "" "snippets" "site-wide-snippet.html")))
 
 (defun directory-exists-p (username directory)
   "Checks to see if the specified diretory exists.