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

Add index page and adjust CSS

Browse Source
This commit is contained in:
oakes
2014-04-01 16:58:24 -04:00
parent 8085e4eaa5
commit 3fde16714f
2 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
doclet/resources/main.css
View File

@@ -18,6 +18,10 @@ a {
margin-left: 10px; margin-left: 10px;
} }
.sidebar a {
text-decoration: none;
}
.ns { .ns {
font-size: 24px; font-size: 24px;
font-weight: bold; font-weight: bold;
@@ -29,7 +33,7 @@ a {
} }
.content { .content {
margin-left: 250; margin-left: 250px;
} }
.item { .item {

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

@@ -61,9 +61,9 @@
[:pre raw]]]]) [:pre raw]]]])
(defn create-file (defn create-file
[parsed-files content] [parsed-files name content]
(html [:head (html [:head
[:title "play-clj docs"] [: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
@@ -86,4 +86,6 @@
(doseq [{:keys [groups] :as pf} parsed-files] (doseq [{:keys [groups] :as pf} parsed-files]
(doseq [{:keys [name] :as group} groups] (doseq [{:keys [name] :as group} groups]
(spit (io/file dir (str->filename name)) (spit (io/file dir (str->filename name))
(create-file parsed-files (content group)))))) (create-file parsed-files name (content group)))))
(spit (io/file dir "index.html")
(create-file parsed-files "play-clj docs" nil)))