        my-zone))
 
 
+(defn m:s->h:m:s
+  [ms]
+  (let [[_ m s] (re-matches #"(.*)m:(.*)" ms)
+          mm (Integer/parseInt m)
+          ss (Integer/parseInt s)]
+      (format "%02d:%02d:%02d" (int (/ mm 60)) (mod mm 60) ss)))
+
 (defn unogg
   "Strip the .suffix from a string.
    WARNING: Can not handle . in the name!"

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


  
  )
  (log/debug "getting duration for" full-path)
  (try
    (->> full-path
         ogginfo
         string/split-lines
         (filter #(.contains % "Playback length"))
         first
         (re-matches #"\tPlayback length:\s+(.+)\..*")
         last
         m:s->h:m:s)
    (catch Exception e
      (log/error e)
      "04:00:00")))
