Add function to join paths

Raynes · Apr 10, 2012 · 6e643d4 · 6e643d4
1 parent 3214cd3
commit 6e643d4
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/src/fs/core.clj b/src/fs/core.clj
@@ -405,3 +405,8 @@ If 'trim-ext' is true, any extension is trimmed."
    (.. (.replaceAll (str path) "\\.clj" "")
        (replace \_ \-)
        (replace \/ \.))))
+
+(defn join
+  "Join one or more path components."
+  [& paths]
+  (.getPath (apply io/file paths)))
diff --git a/test/fs/core_test.clj b/test/fs/core_test.clj
@@ -293,3 +293,7 @@
   (absolute? "/foo/") => true
   (absolute? "foo/bar") => false
   (absolute? "foo/") => false)
+
+(fact
+  (join "foo" "bar" "baz") => "foo/bar/baz"
+  (join "foo") => "foo")