              [:div.modal-body
 ;              [:pre.prettyprint.lang-clj ~(with-out-str (pprint/pprint (second &form)))]
               [:pre.prettyprint.lang-clj ~(extract-s-expr *file* (inc (or (:line (meta &form)) 0)))]
-              ;           [:iframe {:src source-url# :style "width: 100%; height: 100%l"}]
+              [:script "prettyPrint();"]
               ]]]
-           ~@wrapped])))))
-
-
-(defmacro link-to-source [& rest]
-  `(h/html
-     [:div
-      (let [id# (java.util.UUID/randomUUID)
-            fname# ~*file*
-            line# ~(:line (meta &form))
-            source-url# (str GITHUB-URL ~*file* GITHUB-LINE-PREFIX ~(:line (meta &form)))]
-       [:div
-        [:div {:style "float: right; font-size: 9px;"}
-          [:a {:href (str "#" id#) :data-toggle "modal"} "show source"]]
-        [:div.modal.hide.fade {:role "dialog" :id id# :style "width: 90%; left: 5%; margin: auto auto auto auto; top: 20px;"}
-          [:div.modal-header [:button.close {:type "button" :data-dismiss "modal"} "×"]
-           [:a
-            {:style "float: right; font-size: 9px; margin-right: 6px;"
-             :target "_blank" :href source-url#}
-            "Source on GitHub (opens new window/tab)"]
-           [:h4 (str fname# ":" line#)]
-           ]
-          [:div.modal-body
-           [:pre.prettyprint.lang-clj ~(with-out-str (pprint/pprint &form))]
-;           [:iframe {:src source-url# :style "width: 100%; height: 100%l"}]
-           ]]])]
-     ~@rest))+           ~@wrapped])))))
        pos (first (keep-indexed #(when (coll? %2) %1) body))]
    [(subvec body 0 pos) (subvec body pos)]))

(defn find-matching-paren-pos [str]   ;TODO - try to skip side effects
  (let [cnt (atom 0)
        currpos (atom 0)
        pos (atom nil)]

    @pos))

(defn extract-s-expr [fname start-line]
  (with-open [rdr (clojure.java.io/reader (or (.getResource (.getContextClassLoader (Thread/currentThread))  fname) fname))]
    (let [rest-lines (nthnext (line-seq rdr) (dec start-line))
          rest-body (apply str (interpose (System/lineSeparator) rest-lines))
          matching-paren-pos (find-matching-paren-pos rest-body)]
