   (spit (io/file dir file-name)
         (-> file-name io/resource slurp)))
 
+(defn index-frameset
+  []
+  (html [:frameset
+         [:frame {:src "sidebar.html"}
+          :frame {:name "content-frame"}]]))
+
 (defn create-site!
   [dir parsed-files]
   (.mkdir (io/file dir))

     (cons [:div {:class "ns"} ns]
           (for [{:keys [name]} groups]
             [:div {:class "name"}
              [:a {:href (str->filename ns name)}
               name]])))])

(defn java-param

  (doseq [[ns groups] parsed-files]
    (doseq [{:keys [name] :as group} groups]
      (spit (io/file dir (str->filename ns name))
            (create-site-file name (content group)))))
  (spit (io/file dir "sidebar.html")
        (sidebar parsed-files))
  (spit (io/file dir "index.html")
        (create-site-file "play-clj docs" (index-frameset)))
  (println "Created" (str dir "/")))

(defn create-embed!
