diff --git a/src/storage.lisp b/src/storage.lisp index 23e6e44..8d661ba 100644 --- a/src/storage.lisp +++ b/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.