Add JS files

doclet/resources/init.js

@@ -0,0 +1,3 @@
+$(document).ready(function() {
+  $('pre').each(function(i, e) {hljs.highlightBlock(e)});
+});

doclet/src/clojure/play_clj_doclet/html.clj

@@ -1,5 +1,6 @@
 (ns play-clj-doclet.html
-  (:require [clojure.string :as string]
+  (:require [clojure.java.io :as io]
+            [clojure.string :as string]
             [hiccup.core :refer :all]))
 
 (defn sidebar
@@ -32,21 +33,29 @@
   [parsed-files]
   [:div {:class "content"}
    (for [{:keys [ns groups] :as pf} parsed-files]
-     (for [{:keys [name docstring arglists java] :as g} groups]
-       (list [:div {:class "clj"}
-              (for [args arglists]
-                [:div {:class "c-header"} (pr-str args)])
-              [:div {:class "c-doc"} docstring]]
-             [:div {:class "java"}
-              (for [[item-name items] java]
-                (cons (when (not= name item-name)
-                        [:div {:class "j-header"} item-name])
-                      (map java-item items)))])))])
+     (for [{:keys [name docstring arglists java raw raw*] :as g} groups]
+       [:div {:class "item"}
+        [:div {:class "clj"}
+         (for [args arglists]
+           [:div {:class "c-head"} (pr-str args)])
+         [:div {:class "c-doc"} docstring]]
+        (for [[item-name items] java]
+          (list (when (not= name item-name)
+                  [:div {:class "j-head"} item-name])
+                [:div {:class "java"}
+                 (map java-item items)]))
+        [:div {:class "c-src"}
+         (when raw* [:pre raw*])
+         [:pre raw]]]))])
 
 (defn create
   [parsed-files]
   (html [:head
-         [:link {:rel "stylesheet" :type "text/css" :href "style.css"}]]
+         [:link {:rel "stylesheet" :href "style.css"}]
+         [:link {:rel "stylesheet" :href "styles/default.css"}]
+         [:script (-> "highlight.pack.js" io/resource slurp)]
+         [:script (-> "zepto.min.js" io/resource slurp)]
+         [:script (-> "init.js" io/resource slurp)]]
         [:body
          (sidebar parsed-files)
          (content parsed-files)]))