Merge pull request #68 from shlevy/traverse-no-require-exist

f-traverse-upwards: Don't require path to exist.

1 files changed, 9 insertions, 2 deletions

diff --git a/f.el b/f.el
index 5b9656a..012e614 100644
--- a/f.el
+++ b/f.el
@@ -288,6 +288,15 @@ If FORCE is t, a directory will be deleted recursively."
                 (copy-directory from new-to)))
           (copy-directory from to))))))
 
+(defun f-copy-contents (from to)
+  "Copy contents in directory FROM, to directory TO."
+  (unless (f-exists? to)
+    (error "Cannot copy contents to non existing directory %s" to))
+  (unless (f-dir? from)
+    (error "Cannot copy contents as %s is a file" from))
+  (--each (f-entries from)
+    (f-copy it to)))
+
 (defun f-touch (path)
   "Update PATH last modification date or create if it does not exist."
   (f--destructive path
@@ -566,8 +575,6 @@ returned."
     (setq path default-directory))
   (when (f-relative? path)
     (setq path (f-expand path)))
-  (unless (f-exists? path)
-    (error "File %s does not exist" path))
   (if (funcall fn path)
       path
     (unless (f-root? path)