marcuskammer/coleslaw
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(cli/clean.lisp): Import symbols from coleslaw

Browse source
This commit is contained in:
Javier Olaechea 2015-06-23 19:02:31 -05:00
parent d213ed3a5c
commit 22254ad458
1 changed files with 9 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/cli/clean.lisp
View file

@ -1,5 +1,11 @@
(defpackage #:coleslaw-cli/clean (defpackage #:coleslaw-cli/clean
(:use #:cl) (:use #:cl)
(:import-from #:coleslaw
#:*config*
#:deploy-dir
#:discover-config-path
#:load-config
#:staging-dir)
(:documentation "Deletes the generate static files.") (:documentation "Deletes the generate static files.")
(:export (:export
#:clean)) #:clean))
@ -8,9 +14,11 @@
(defun clean (&key blog-dir config) (defun clean (&key blog-dir config)
(let* ((current-dir (uiop/os:getcwd)) (let* ((current-dir (uiop/os:getcwd))
(blog-dir (or blog-dir current-dir)) (blog-dir (or blog-dir
current-dir))
(config-file (or config (config-file (or config
(discover-config-path current-dir)))) (discover-config-path current-dir))))
(load-config config-file blog-dir)
(dolist (dir (list (staging-dir *config*) (dolist (dir (list (staging-dir *config*)
(deploy-dir *config*))) (deploy-dir *config*)))
(uiop/filesystem:delete-directory-tree (pathname dir) (uiop/filesystem:delete-directory-tree (pathname dir)