From f8545515ee9ee1c9a8fc5e8a26fe8b9a1da758bd Mon Sep 17 00:00:00 2001 From: oakes Date: Tue, 1 Apr 2014 13:13:05 -0400 Subject: [PATCH] Include comment text for each class --- doclet/src/clojure/play_clj_doclet/core.clj | 3 ++- doclet/src/clojure/play_clj_doclet/html.clj | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/doclet/src/clojure/play_clj_doclet/core.clj b/doclet/src/clojure/play_clj_doclet/core.clj index 76ac0fe..02b4074 100644 --- a/doclet/src/clojure/play_clj_doclet/core.clj +++ b/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] diff --git a/doclet/src/clojure/play_clj_doclet/html.clj b/doclet/src/clojure/play_clj_doclet/html.clj index b2d71a8..d6f1b73 100644 --- a/doclet/src/clojure/play_clj_doclet/html.clj +++ b/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"}