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

Show namespaces

Browse Source
This commit is contained in:
oakes
2014-03-31 12:28:13 -04:00
parent f1e3458edc
commit 1cc40a3b32
2 changed files with 16 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
doclet/resources/classes.edn
View File

@@ -16,7 +16,7 @@
"attribute! :blending" :static-methods} "attribute! :blending" :static-methods}
"Body" {"body!" :methods} "Body" {"body!" :methods}
"BodyDef" {"body-def" :fields} "BodyDef" {"body-def" :fields}
"Bresenham2" {"bresenham2!" :methods} "Bresenham2" {"bresenham-2!" :methods}
"BSpline" {"b-spline!" :methods} "BSpline" {"b-spline!" :methods}
"Button.ButtonStyle" {"style :button" :constructors} "Button.ButtonStyle" {"style :button" :constructors}
"CatmullRomSpline" {"catmull-rom-spline!" :methods} "CatmullRomSpline" {"catmull-rom-spline!" :methods}

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

@@ -16,19 +16,23 @@
[:b (str name)] [:b (str name)]
" " " "
(string/join ", " (map param args))] (string/join ", " (map param args))]
(when text [:i text])]) (when text
[:i text])])
(defn create-from-file (defn create-from-file
[parsed-file] [{:keys [ns groups] :as parsed-file}]
(for [group (:groups parsed-file)] [:div
[:div (when (and ns (> (count groups) 0))
[:h1 {} (:name group)] [:h1 ns])
(:docstring group) (for [group groups]
(for [[name items] (:java group)] [:div
[:div [:h2 {} (:name group)]
(when (not= (:name group) name) (:docstring group)
[:h3 name]) (for [[name items] (:java group)]
(map item items)])])) [:div
(when (not= (:name group) name)
[:h3 name])
(map item items)])])])
(defn create (defn create
[parsed-files] [parsed-files]