notid/play-clj
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Rename file and clean up code

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

0
doclet/resources/targets.edn → doclet/resources/classes.edn
View File

8
doclet/src/clojure/play_clj_doclet/core.clj
View File

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