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

Improve sorting

Browse Source
This commit is contained in:
oakes
2014-03-31 12:11:44 -04:00
parent 70e584991a
commit f1e3458edc
2 changed files with 6 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -62,6 +62,7 @@
(concat (when-let [sc (.superclass c)] (concat (when-let [sc (.superclass c)]
(when (not= (.typeName sc) "Object") (when (not= (.typeName sc) "Object")
(parse-class-entry sc type)))) (parse-class-entry sc type))))
(sort-by :name)
vec)) vec))
(defn parse-class (defn parse-class
@@ -83,7 +84,10 @@
(-> n meta :private not)) (-> n meta :private not))
(assoc group (assoc group
:name (str n) :name (str n)
:java (filter #(match? (first %) (str n)) doc-map))))) :java (->> doc-map
(filter #(match? (first %) (str n)))
(sort-by first)
vec)))))
(defn process-groups (defn process-groups
[{:keys [groups] :as parsed-file} doc-map] [{:keys [groups] :as parsed-file} doc-map]

2
doclet/src/clojure/play_clj_doclet/html.clj
View File

@@ -28,7 +28,7 @@
[:div [:div
(when (not= (:name group) name) (when (not= (:name group) name)
[:h3 name]) [:h3 name])
(map item (sort-by first items))])])) (map item items)])]))
(defn create (defn create
[parsed-files] [parsed-files]