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

Include comment text for each class

Browse Source
This commit is contained in:
oakes
2014-04-01 13:13:05 -04:00
parent 1540623029
commit f8545515ee
2 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

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

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

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