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

Improve doclet behavior

Browse Source
This commit is contained in:
oakes
2014-04-20 21:57:31 -04:00
parent 62c287f53b
commit 5a75758a03
3 changed files with 14 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -4,8 +4,12 @@
[hiccup.core :refer :all]))
(defn str->filename
[s]
(-> s
[ns s]
(-> (or (let [dot-pos (.lastIndexOf ns ".")]
(when-not (= dot-pos -1)
(subs ns (+ 1 dot-pos))))
"core")
(str "." s)
(string/replace "?" "_q")
(string/replace "->" "_")
(string/replace ">" "_r")
@@ -20,7 +24,7 @@
[:div {:class "ns"} ns])
(for [{:keys [name]} groups]
[:div {:class "name"}
[:a {:href (str->filename name)}
[:a {:href (str->filename ns name)}
name]])))])
(defn java-param
@@ -80,13 +84,14 @@
(defn create
[dir parsed-files]
(.mkdir (io/file dir))
(copy-from-res dir "main.css")
(copy-from-res dir "main.js")
(copy-from-res dir "highlight.css")
(copy-from-res dir "highlight.js")
(doseq [{:keys [groups] :as pf} parsed-files]
(doseq [{:keys [ns groups] :as pf} parsed-files]
(doseq [{:keys [name] :as group} groups]
(spit (io/file dir (str->filename name))
(spit (io/file dir (str->filename ns name))
(create-file parsed-files name (content group)))))
(spit (io/file dir "index.html")
(create-file parsed-files "play-clj docs" nil)))