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