Rearrange where the java entries are displayed

This commit is contained in:
oakes
2014-03-31 14:26:58 -04:00
parent baeaca0af6
commit fbadf6cb6d
2 changed files with 71 additions and 76 deletions

View File

@@ -71,11 +71,6 @@
(map #(vector (first %) (parse-class-entry c (second %))))
(into {})))
(defn match?
[doc-name sym-name]
(or (= doc-name sym-name)
(.startsWith doc-name (str sym-name " "))))
(defn process-group
[{:keys [type raw] :as group} doc-map]
(let [form (read-string raw)
@@ -85,7 +80,7 @@
(assoc group
:name (str n)
:java (->> doc-map
(filter #(match? (first %) (str n)))
(filter #(.startsWith (first %) (str n)))
(sort-by first)
vec)))))