Add a utility function to find the relative path

sridatta · Apr 16, 2012 · ae4b994 · ae4b994
1 parent 4596f0f
commit ae4b994
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/dieter/path.clj b/src/dieter/path.clj
@@ -84,3 +84,9 @@ static file middleware can be rooted at cache-root"
 (defmethod cache-busting-path :production [settings path]
   (or (get @cached-paths path)
       (add-md5 path (str (java.util.Date.)))))
+
+(defn relative-path [root file]
+  (let [absroot (fs/abspath root)
+        absfile (fs/abspath file)
+        root-length (count absroot)]
+    (.substring absfile (inc root-length))))