Include comment text for each class

doclet/src/clojure/play_clj_doclet/core.clj

@@ -64,7 +64,8 @@
                      (when (not= (.typeName sc) "Object")
                        (parse-class-entry sc type))))
            (sort-by :name)
-           vec))
+           vec
+           (hash-map :text (.commentText c) :items)))
 
 (defn parse-class
   [^ClassDoc c]

doclet/src/clojure/play_clj_doclet/html.clj

@@ -39,9 +39,10 @@
          (for [args arglists]
            [:div {:class "c-head"} (pr-str args)])
          [:div {:class "c-doc"} docstring]]
-        (for [[item-name items] java]
+        (for [[item-name {:keys [text items]}] java]
           (list (when (not= name item-name)
                   [:div {:class "j-head"} item-name])
+                [:div {:class "j-text"} text]
                 [:div {:class "java"}
                  (map java-item items)]))
         [:div {:class "c-src"}