yogsototh/leiningen
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make :only work with namespaces too.

Browse source
This commit is contained in:
Anthony Grimes 2013-02-15 16:10:19 -08:00
parent e55d98a993
commit 139b87c599
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/leiningen/test.clj
View file

@ -107,7 +107,11 @@
(symbol))))
ns))
'(fn [m & vars]
(some #(= (str "#'" %) (-> m ::var str)) vars))])
(some #(let [var (str "#'" %)]
(if (some #{\/} var)
(= var (-> m ::var str))
(= % (ns-name (:ns m)))))
vars))])
(defn- convert-to-ns [possible-file]
(if (and (.endsWith possible-file ".clj") (.exists (io/file possible-file)))