Add more CSS classes to the markup

doclet/src/clojure/play_clj_doclet/html.clj

@@ -11,34 +11,36 @@
            (for [g groups]
              [:div {:class "name"} (:name g)])))])
 
-(defn param
+(defn java-param
   [[type-name param-name]]
-  (html [:span {}
+  (html [:span {:class "j-arg"}
-         [:span {:class "type-name"} "^" type-name]
+         [:span {:class "j-type"} "^" type-name]
          " "
          param-name]))
 
-(defn item
+(defn java-item
   [{:keys [name text type args]}]
-  [:div {:class "item"}
+  [:div {:class "j-item"}
-   [:span {:class "item-name"}
+   [:span {:class "j-name"}
     (str name)]
-   [:span {:class "item-args"}
+   [:span {:class "j-args"}
-    (string/join ", " (map param args))]
+    (string/join ", " (map java-param args))]
    (when text
-     [:div {:class "item-doc"} text])])
+     [:div {:class "j-doc"} text])])
 
 (defn content
   [parsed-files]
   [:div {:class "content"}
    (for [{:keys [ns groups] :as pf} parsed-files]
      (for [{:keys [name docstring java] :as g} groups]
-       (concat [[:div {:class "header"} name]
+       (list [:div {:class "clj"}
-                [:div {:class "doc"} docstring]]
+              [:div {:class "c-header"} name]
-               (for [[item-name items] java]
+              [:div {:class "c-doc"} docstring]]
-                 (cons (when (not= name item-name)
+             [:div {:class "java"}
-                         [:div {:class "sub-header"} item-name])
+              (for [[item-name items] java]
-                       (map item items))))))])
+                (cons (when (not= name item-name)
+                        [:div {:class "j-header"} item-name])
+                      (map java-item items)))])))])
 
 (defn create
   [parsed-files]