Improve sorting

doclet/src/clojure/play_clj_doclet/core.clj

@@ -62,6 +62,7 @@
            (concat (when-let [sc (.superclass c)]
                      (when (not= (.typeName sc) "Object")
                        (parse-class-entry sc type))))
+           (sort-by :name)
            vec))
 
 (defn parse-class
@@ -83,7 +84,10 @@
                (-> n meta :private not))
       (assoc group
              :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
   [{:keys [groups] :as parsed-file} doc-map]

doclet/src/clojure/play_clj_doclet/html.clj

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