Anime and Manga management

I'm searching for an easy way to organize your Anime and Manga collection. Something like this

./anime "The Melanch*" +
The Melancholy of Suzumiya Haruhi Episode 110 -> Episode 111

If it doesn't exist yet, code it for me, you are prog after all.


(defun keep-anime (anime &key (episode 1) (format "avi") (print-func nil))
  (lambda ()
    (if print-func
      (funcall print-func anime episode format)
      (format nil "~A-~D.~A" anime episode format))))