get confirmation when `raco pollen publish` wants to overwrite a directory

pollen/private/command.rkt

@@ -169,15 +169,26 @@ version                print the version" (current-server-port) (make-publish-di
     (error 'publish "aborted because target directory for publishing (~a) can't contain source directory (~a)" target-dir source-dir))
   (when (equal? target-dir (current-directory))
     (error 'publish "aborted because target directory for publishing (~a) can't be the same as current directory (~a)" target-dir (current-directory)))
-  (displayln (format "publishing to ~a ..." target-dir))
+  (display (format "publishing from ~a " source-dir))
-  (when (directory-exists? target-dir)
+  (displayln (format "to ~a ..." target-dir))
-    (delete-directory/files target-dir))
+  (define do-publish-operation?
-  (copy-directory/files source-dir target-dir)
+    (or (not (directory-exists? target-dir))
-  (parameterize ([current-project-root (current-directory)])
+        (begin
-    (define (delete-from-publish-dir? p)
+          (display (format "target directory ~a exists. Overwrite? [yes/no] " target-dir))
-      (and (omitted-path? p) (not (extra-path? p))))
+          (case (read)
-    (for-each delete-it (find-files delete-from-publish-dir? target-dir)))
+            [(y yes) #t]
-  (displayln "completed"))
+            [else #f]))))
+  (cond
+    [do-publish-operation?
+     (when (directory-exists? target-dir)
+       (delete-directory/files target-dir))
+     (copy-directory/files source-dir target-dir)
+     (parameterize ([current-project-root (current-directory)])
+       (define (delete-from-publish-dir? p)
+         (and (omitted-path? p) (not (extra-path? p))))
+       (for-each delete-it (find-files delete-from-publish-dir? target-dir)))
+     (displayln "publish completed")]
+    [else (displayln "publish aborted")]))
 
 (define (handle-unknown command)
   (if (regexp-match #rx"(shit|fuck)" command)

pollen/private/ts.rktd

@@ -1 +1 @@
-1469749293
+1469813715