Skip to content

Instantly share code, notes, and snippets.

@paraseba
Created July 5, 2011 23:02
Show Gist options
  • Save paraseba/1066159 to your computer and use it in GitHub Desktop.
Save paraseba/1066159 to your computer and use it in GitHub Desktop.
(defn checkout-deps-paths [project]
(apply concat (for [dep (.listFiles (file (:root project) "checkouts"))
;; Note that this resets the leiningen.core/project var!
:let [proj (read-dependency-project dep)]
:when proj]
(for [d (:checkout-deps-shares project [:source-path :compile-path :resources-path])]
(ensure-absolute (d proj) dep))))))
:checkout-deps-shares [:source-path :resources-path :test-path
~(fn [p] (str (:root p) "/lib/dev/*"))]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment