path-if-exists on cp level

src/cryogen_core/classpath_able_io/cp.clj

@@ -7,7 +7,24 @@
 ;   You must not remove this notice, or any other, from this software.
 
 (ns cryogen-core.classpath-able-io.cp
-  (:require [cryogen-core.classpath-able-io.type :as type])
+  (:require [clojure.java.io :as io]
+            [schema.core :as s]
+            [cryogen-core.classpath-able-io.this :as this]
+            [cryogen-core.classpath-able-io.fs :as fs]
+            [cryogen-core.classpath-able-io.jar :as jar])
   (:import [java.net URI]
            [java.nio.file Paths Files LinkOption]))
 
+(s/defn path-if-exists :- this/JavaPath
+  [& path-elements ;:- this/VirtualPath
+   ]
+  (try
+    (let [resource-uri
+          (.toURI (io/resource
+                   (apply this/virtual-path-from-elements path-elements)))]
+      (if (jar/is-from-classpath-jar? resource-uri)
+        (apply jar/path-if-exists path-elements)
+        (when (Files/exists (Paths/get resource-uri) fs/no-link-option)
+          (Paths/get resource-uri))))
+    (catch Exception e
+      nil)))

test/cryogen_core/classpath_able_io/cp_test.clj

@@ -13,3 +13,9 @@
             [cryogen-core.file-test-tools :as ftt]
             [cryogen-core.classpath-able-io.cp :as sut])
   (:import [java.net URI]))
+
+(deftest should-find-path-on-cp
+  (is
+   (sut/path-if-exists "dummy"))
+  (is
+   (sut/path-if-exists "dummy_only_in_cp_fs")))

test/cryogen_core/classpath_able_io_test.clj

@@ -19,10 +19,6 @@
 
 (def target "target/tmp")
 
-(deftest test-file-from-cp
-  (is
-   (sut/path-from-cp "dummy")))
-
 (deftest test-resource-from-cp-or-fs
   (is
    (some? (sut/resource-from-cp-or-fs