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

Improve how options are displayed

Browse Source
This commit is contained in:
oakes
2014-04-01 15:12:37 -04:00
parent f8545515ee
commit f03cd07225
2 changed files with 29 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -39,12 +39,14 @@
(for [args arglists]
[:div {:class "c-head"} (pr-str args)])
[:div {:class "c-doc"} docstring]]
(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)]))
(when (> (count java) 0)
(list [:div {:class "c-head"} "Options"]
(for [[item-name {:keys [text items]}] java]
(list (when (> (count java) 1)
[:div {:class "j-text"} text])
[:div {:class "java"}
(map java-item items)]))))
[:div {:class "c-head"} "Source"]
[:div {:class "c-src"}
(when raw* [:pre raw*])
[:pre raw]]]))])