    (set-status {:type :clear})
    (.clearGutter @editor "CodeMirror-lint-markers")
    (c/run code (fn [res]
+                 (save-code update-url)
                  (cond (:error res) (set-status {:type :errors})
                        (not (empty? (:warnings res))) (set-status {:type :warnings})
                        :default (set-status {:type :ok}))

      :no-code (set "alert-warning" "no form found under cursor")
      :clear (set "" ""))))

(defn compile
  ([] (compile (.getValue @editor)))
  ([code]

                           (set-status {:type :errors})
                           (set-errors [(:error selection)]))
      :default (set-status {:type :no-code}))))

(defn resize-iframe [message]
  (let [{:keys [width height]} message
