          m:s->h:m:s)
     (catch Exception e
       (log/error e)
-      "04:00:00")))
+      "04:00:00"))))
+
 
 (defn read-header
   [f]

         (urepl/massive-spew "/tmp/foo.edn")))


    
    )

(defn process-dir
  [link dirpath]
  (for [f (file/file-names dirpath  #".*?\.ogg")]
    ;; TODO: if the file is already in the db, don't process it.
    (process-file link dirpath f)))

(defn get-files
