 
 
 (defn process-config
+  "Read and deserialize the config"
   [config-path]
   (->> config-path
        slurp

             (= "%Y-%m-%d" (s/trim v))
             (empty? v)))))

;; XXX this function ought to be taken out and shot
(defn title-fixer
  [^String date]
  (reify CommentUpdater
    (updateComments [this comments]
      (boolean
       (let [fields (.fields comments)
             unknowns (doall (filter bad-title fields))]
         (log/debug "fixing titles" fields)
         (when (not (empty? unknowns))
           (log/debug "got unknowns" unknowns)



;; TODO: protocol maybe?
;; unused, but might be needed later
#_(defn header->vec
    "Takes array of CommentFields and translates to a proper Clojure vector"
    [hs]
    (for [^CommentField h hs]
      [(-> h .name s/lower-case keyword) (.value h)]))


(defn album-mover
  "Returns a CommentUpdater for use with JVorbisComment,
   for updating comments in place,
   which moves any ALBUM tags to ARTIST, removing any
   ARTIST tags which might have been there.
   Necessary because liquidsoap is broken and won't save
   anything but artist in filename, and we've cleaned the artist
   to make it a legal unix filename, so the real show name with
   unescaped characters is stashed in ALBUM instead, and must be
   recovered here."
  []
  (reify CommentUpdater
    (updateComments [this comments]
