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

Add JS files

Browse Source
This commit is contained in:
oakes
2014-04-01 00:52:53 -04:00
parent 7b1e201cbd
commit 88886c7693
4 changed files with 27 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -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)]))