From a1d1042d4c54811472e33cbcb6a2db35be591aed Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Sun, 25 Sep 2022 22:40:12 +0100 Subject: [PATCH] update first-run code -- refactor site-wide snippet file. --- src/storage.lisp | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) 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.