gistfile1.clj

;saved documents have data for :filesystem, :filepath, :unsaved-changes, :file-uid

(defn get-iframe [data]
  "Returns the iframe element for the given
   Workspace cursor"
  (let [id (:iframe-id data)]
    (.getElementById js/document id)))

(defn to-html [element]
  "Returns the HTML string of the element and it's contents, when given an iframe returns only content HTML.")



(defn save [data owner]
  (let [target (chan)
        iframe nil
        html (.inner text iframe)] 
    (dialogue {:callback target
               :title "save"
               :view :file-browser
               :role :save-as})
    (go (while true 
      (save-to-system (!< target) html)))))