     (merge {:date (ymd-to-date [y m d])
             :show (if (-> show empty?) "" (unogg show))
             :basename f
+            :length (-> full-file jio/file .length)
             :link (str link f)
             :full-file full-file}
            (read-header full-file))))

             (xml/element :copyright {}
                          "sharenjoy")
             (xml/element :webMaster {}
                          "info@spaz.org")
             (xml/element :language {}
                          "en")
             (xml/element :generator {}

                              full-title)
                 (xml/element :content:encoded {}
                              )
                 (xml/element :enclosure:url {:type "audio/ogg"
                                              :length length}
                              link)
                 (xml/element :itunes:duration {}
                              ;; TODO: XXX no, this must be th real duration. pull it out
