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

Migrated html generation to use frames

Browse Source
This commit is contained in:
Corey
2015-01-23 14:42:32 -05:00
parent f82e3620b2
commit bf38f37224
1 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -20,7 +20,7 @@
(cons [:div {:class "ns"} ns] (cons [:div {:class "ns"} ns]
(for [{:keys [name]} groups] (for [{:keys [name]} groups]
[:div {:class "name"} [:div {:class "name"}
[:a {:href (str->filename ns name)} [:a {:href (str->filename ns name) :target "content-frame"}
name]])))]) name]])))])
(defn java-param (defn java-param
@@ -61,14 +61,13 @@
[:pre raw]]]]) [:pre raw]]]])
(defn create-site-file (defn create-site-file
[name sidebar content] [name content]
(html [:html (html [:html
[:head [:head
[:title name] [:title name]
[:link {:rel "stylesheet" :href "highlight.css"}] [:link {:rel "stylesheet" :href "highlight.css"}]
[:link {:rel "stylesheet" :href "main.css"}]] [:link {:rel "stylesheet" :href "main.css"}]]
[:body [:body
sidebar
content content
[:script {:src "highlight.js"}] [:script {:src "highlight.js"}]
[:script {:src "main.js"}]]])) [:script {:src "main.js"}]]]))
@@ -82,6 +81,12 @@
(spit (io/file dir file-name) (spit (io/file dir file-name)
(-> file-name io/resource slurp))) (-> file-name io/resource slurp)))
(defn index-frameset
[]
(html [:frameset
[:frame {:src "sidebar.html"}
:frame {:name "content-frame"}]]))
(defn create-site! (defn create-site!
[dir parsed-files] [dir parsed-files]
(.mkdir (io/file dir)) (.mkdir (io/file dir))
@@ -92,9 +97,11 @@
(doseq [[ns groups] parsed-files] (doseq [[ns groups] parsed-files]
(doseq [{:keys [name] :as group} groups] (doseq [{:keys [name] :as group} groups]
(spit (io/file dir (str->filename ns name)) (spit (io/file dir (str->filename ns name))
(create-site-file name (sidebar parsed-files) (content group))))) (create-site-file name (content group)))))
(spit (io/file dir "sidebar.html")
(sidebar parsed-files))
(spit (io/file dir "index.html") (spit (io/file dir "index.html")
(create-site-file "play-clj docs" (sidebar parsed-files) nil)) (create-site-file "play-clj docs" (index-frameset)))
(println "Created" (str dir "/"))) (println "Created" (str dir "/")))
(defn create-embed! (defn create-embed!