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

src/cli/clean.lisp

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