File tree 3 files changed +10
-10
lines changed
3 files changed +10
-10
lines changed Original file line number Diff line number Diff line change 9
9
^:inline-dep [org.clojure/tools.analyzer.jvm " 0.7.2" ]
10
10
^:inline-dep [org.clojure/tools.namespace " 0.3.1" :exclusions [org.clojure/tools.reader]]
11
11
^:inline-dep [org.clojure/tools.reader " 1.3.2" ]
12
- ^:inline-dep [cider/orchard " 0.4.0 " ]
12
+ ^:inline-dep [cider/orchard " 0.5.4 " ]
13
13
^:inline-dep [cljfmt " 0.6.4" ]
14
14
^:inline-dep [clj-commons/fs " 1.5.0" ]
15
15
^:inline-dep [rewrite-clj " 0.6.1" ]
Original file line number Diff line number Diff line change 3
3
[clojure.string :as str]
4
4
[clojure.tools.namespace.parse :as parse]
5
5
[clojure.tools.reader.reader-types :as readers]
6
- [orchard.classpath]
6
+ [orchard.java.classpath :as cp]
7
+ [orchard.misc :as misc]
7
8
[me.raynes.fs :as fs]
8
9
[refactor-nrepl.util :refer [normalize-to-unix-path]]
9
10
[refactor-nrepl.s-expressions :as sexp]
46
47
directory and paths matching :ignore-paths specified in config.
47
48
Follows the semantics of orchard classpath."
48
49
[]
49
- (->> (orchard.classpath/classpath-directories )
50
- (remove #(-> % str normalize-to-unix-path (.endsWith " target/srcdeps" )))))
50
+ (->> (cp/classpath )
51
+ (remove misc/archive?)
52
+ (keep #(let [f (io/file %)]
53
+ (when (.isDirectory ^File f) f)))
54
+ (remove (comp ignore-dir-on-classpath? str))))
51
55
52
56
(defn project-root
53
57
" Return the project root directory.
95
99
are pruned by this function."
96
100
[pred dir]
97
101
(->> dir
98
- io/file
99
102
file-seq
100
103
(filter (every-pred fs/exists?
101
104
(complement fs/hidden?)
Original file line number Diff line number Diff line change 3
3
; ;;; Distributed under the Eclipse Public License, the same as Clojure.
4
4
(ns refactor-nrepl.ns.slam.hound.search
5
5
" Search the classpath for vars and classes."
6
- (:require [orchard.classpath]
6
+ (:require [orchard.java. classpath :as cp ]
7
7
[clojure.java.io :refer [file]]
8
8
[clojure.string :as string])
9
9
(:import
108
108
(StringTokenizer. path-str File/pathSeparator)))
109
109
110
110
(defn all-classpath-entries []
111
- (into (keep #(System/getProperty %) [" sun.boot.class.path"
112
- " java.ext.dirs"
113
- " java.class.path" ])
114
- (map #(.getName %) (orchard.classpath/classpath-jarfiles ))))
111
+ (mapcat cp/classpath-seq (cp/classpath )))
115
112
116
113
(defn- get-available-classes []
117
114
(into ()
You can’t perform that action at this time.
0 commit comments