|
|
@@ -32,14 +32,14 @@ If RAW is non-nil, write the content without wrapping it in the base template."
|
|
32
|
32
|
(static-dir (merge-pathnames "static" (repo *config*))))
|
|
33
|
33
|
(dolist (dir (list css-dir static-dir))
|
|
34
|
34
|
(when (probe-file dir)
|
|
35
|
|
- (run-program "cp" `("-R" ,(namestring dir) ".")))))
|
|
|
35
|
+ (shell-command (format nil "cp -R ~a ." dir)))))
|
|
36
|
36
|
(render-posts)
|
|
37
|
37
|
(render-indices)
|
|
38
|
38
|
(render-feed)))
|
|
39
|
39
|
|
|
40
|
40
|
(defun update-symlink (path target)
|
|
41
|
41
|
"Update the symlink at PATH to point to TARGET."
|
|
42
|
|
- (run-program "ln" (list "-sfn" (namestring target) (namestring path))))
|
|
|
42
|
+ (shell-command (format nil "ln -sfn ~a ~a" target path)))
|
|
43
|
43
|
|
|
44
|
44
|
(defgeneric deploy (staging)
|
|
45
|
45
|
(:documentation "Deploy the STAGING dir, updating the .prev and .curr symlinks.")
|
|
|
@@ -51,7 +51,7 @@ If RAW is non-nil, write the content without wrapping it in the base template."
|
|
51
|
51
|
(curr (deploy-path ".curr")))
|
|
52
|
52
|
(ensure-directories-exist new-build)
|
|
53
|
53
|
(with-current-directory coleslaw-conf:*basedir*
|
|
54
|
|
- (run-program "mv" (mapcar #'namestring (list staging new-build)))
|
|
|
54
|
+ (shell-command (format nil "mv ~a ~a" staging new-build))
|
|
55
|
55
|
(if (and (probe-file prev) (equal prev (truename prev)))
|
|
56
|
56
|
(delete-file prev)
|
|
57
|
57
|
(cl-fad:delete-directory-and-files (truename prev)))
|
Brit Butler