cl-taglib /

Diff from to


     (use-package :taglib)
+    ;;; Easy way:
+    (extract-tags "09 My Generation.mp3")
+    ;;; result
+    (:TRACK 9 :YEAR 1994 :GENRE "Rock" :COMMENT ""
+     :ALBUM "Thirty Years Of Maximum R&B" :ARTIST "The Who" :TITLE "My Generation")
+    ;;; Longer way:
     (with-tag-file (file "07 - 17.mp3")
       (let ((tag (file-tag file))
             (audio (file-audioproperties file)))
 (*tag-<property>* tag) Returns the given property.  All tag operations are setf-able.  Available accessors are (title album artist genre comment track year)
+(*extract-tags* pathname) Returns a plist of the tags in the given file.
 ### Reading audio information
 (*file-audioproperties* file) returns the audio properties for the given file