Add HTML tag

This commit is contained in:
oakes
2014-04-01 17:09:54 -04:00
parent 72bc408bd7
commit 38c797b19c

View File

@@ -62,15 +62,16 @@
(defn create-file (defn create-file
[parsed-files name content] [parsed-files name content]
(html [:head (html [:html
[:title name] [:head
[:link {:rel "stylesheet" :href "highlight.css"}] [:title name]
[:link {:rel "stylesheet" :href "main.css"}]] [:link {:rel "stylesheet" :href "highlight.css"}]
[:body [:link {:rel "stylesheet" :href "main.css"}]]
(sidebar parsed-files) [:body
content (sidebar parsed-files)
[:script {:src "highlight.js"}] content
[:script {:src "main.js"}]])) [:script {:src "highlight.js"}]
[:script {:src "main.js"}]]]))
(defn copy-from-res (defn copy-from-res
[dir file-name] [dir file-name]