 
 ;; xml <--> str
 
-(defn str-to-xml [s]
+(defn parse-xml [s]
   (clojure.xml/parse (ByteArrayInputStream. (.getBytes s "UTF-8"))))
 
-(defn xml-to-str [xml]
+(defn generate-xml [xml]
   (with-out-str (clojure.xml/emit xml)))
 
 ;; OMEXMLMetadata functions

(defn get-ome-xml-string [m]
  (.getOMEXML ome-xml-service m))
                    
(defn ome-to-xml [m]
  (-> m get-ome-xml-string str-to-xml))

;; read/write tiff files


(defn get-tiff-comment [filename]
  (.getComment (TiffParser. filename)))

(defn read-tiff-metadata [filename]
  (-> filename get-tiff-comment parse-xml))

(defn overwrite-comment [filename comment]
  (.overwriteComment
