      (cons [:div {:class "ns"} ns]
            (for [{:keys [name]} groups]
              [:div {:class "name"}
-              [:a {:href (str->filename ns name)}
+              [:a {:href (str->filename ns name) :target "content-frame"}
                name]])))])
 
 (defn java-param

  (spit (io/file dir file-name)
        (-> file-name io/resource slurp)))

(defn create-site!
  [dir parsed-files]
  (.mkdir (io/file dir))

     [:pre raw]]]])

(defn create-site-file
  [name content]
  (html [:html
         [:head
          [:title name]
          [:link {:rel "stylesheet" :href "highlight.css"}]
          [:link {:rel "stylesheet" :href "main.css"}]]
         [:body
          content
          [:script {:src "highlight.js"}]
          [:script {:src "main.js"}]]]))
