diff options
Diffstat (limited to 'src/clojure/contrib/javadoc.clj')
| -rwxr-xr-x | src/clojure/contrib/javadoc.clj | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/src/clojure/contrib/javadoc.clj b/src/clojure/contrib/javadoc.clj index 22a9a771..31575cb2 100755 --- a/src/clojure/contrib/javadoc.clj +++ b/src/clojure/contrib/javadoc.clj @@ -55,13 +55,14 @@ (defn find-javadoc-url "Searches for a URL for the given class name. Tries *local-javadocs* first, then *remote-javadocs*. Returns a string." - [classname] + {:tag String} + [#^String classname] (let [file-path (.replace classname \. File/separatorChar) url-path (.replace classname \. \/)] - (if-let [file (first - (filter #(.exists %) - (map #(File. % (str file-path ".html")) - @*local-javadocs*)))] + (if-let [file #^File (first + (filter #(.exists #^File %) + (map #(File. (str %) (str file-path ".html")) + @*local-javadocs*)))] (-> file .toURI str) ;; If no local file, try remote URLs: (some (fn [[prefix url]] @@ -73,9 +74,9 @@ "Opens a browser window displaying the javadoc for the argument. Tries *local-javadocs* first, then *remote-javadocs*." [class-or-object] - (let [c (if (instance? Class class-or-object) - class-or-object - (class class-or-object))] + (let [#^Class c (if (instance? Class class-or-object) + class-or-object + (class class-or-object))] (if-let [url (find-javadoc-url (.getName c))] (browse-url url) (println "Could not find Javadoc for" c)))) |