Start work on HTML generation

2014-03-30 21:15:31 -04:00
parent 26e87e10e9
commit 1891ca3463
4 changed files with 34 additions and 13 deletions
--- a/doclet/src/clojure/play_clj_doclet/html.clj
+++ b/doclet/src/clojure/play_clj_doclet/html.clj
@@ -0,0 +1,18 @@
+(ns play-clj-doclet.html
+  (:require [hiccup.core :refer :all]))
+
+(defn create-item
+  [[name text params]]
+  [:div
+   [:h3 (str name)]
+   [:i text]])
+
+(defn create-section
+  [[clj-name items]]
+  [:div
+   [:h2 {} clj-name]
+   (map create-item items)])
+
+(defn create-html
+  [doc-map]
+  (html (map create-section doc-map)))