Rename file and clean up code

This commit is contained in:
oakes
2014-03-31 11:54:00 -04:00
parent 45ededf70c
commit 70e584991a
2 changed files with 3 additions and 5 deletions

View File

@@ -7,7 +7,7 @@
(:import [com.sun.javadoc ClassDoc ConstructorDoc Doc ExecutableMemberDoc
FieldDoc MethodDoc Parameter RootDoc]))
(def targets (-> "targets.edn" io/resource slurp edn/read-string))
(def classes (-> "classes.edn" io/resource slurp edn/read-string))
(defn camel->keyword
[s]
@@ -66,12 +66,10 @@
(defn parse-class
[^ClassDoc c]
(some->> (get targets (.typeName c))
(some->> (get classes (.typeName c))
(map #(vector (first %) (parse-class-entry c (second %))))
(into {})))
(def ^:const valid-syms #{'defn 'defmacro})
(defn match?
[doc-name sym-name]
(or (= doc-name sym-name)
@@ -81,7 +79,7 @@
[{:keys [type raw] :as group} doc-map]
(let [form (read-string raw)
n (second form)]
(when (and (contains? valid-syms (first form))
(when (and (contains? #{'defn 'defmacro} (first form))
(-> n meta :private not))
(assoc group
:name (str n)