 
 (defn unogg
   "Strip the .suffix from a string.
-   Can not handle . in the name!"
+   WARNING: Can not handle . in the name!"
   [s]
   (-> s
       (st/split  #"\.")

  (let [n (.name f)
        v (.value f)]
    (and (= "TITLE" n)
         (or (= "Unknown" (s/trim v))
             (= "%Y-%m-%d" (s/trim v))
             (empty? v)))))



    "Takes array of CommentFields and translates to a proper Clojure vector"
    [hs]
    (for [^CommentField h hs]
      [(-> h .name st/lower-case keyword) (.value h)]))


(defn album-mover
