Commits

Walton Hoops  committed cfc5f23

define public interface

  • Participants
  • Parent commits e1801e8

Comments (0)

Files changed (2)

File cl-taglib.lisp

 (defcfun (tagfile-save "taglib_file_save") :boolean
   (file :pointer))
 
+;;; BUG: does not emit error if file can't be opened
 (defmacro with-tag-file ((var path) &body body)
   `(let ((,var (file-new ,path)))
      (unwind-protect (progn

File package.lisp

 ;;;; package.lisp
 
 (defpackage #:cl-taglib
-  (:use #:cl #:cffi))
-
+  (:use #:cl #:cffi)
+  (:nicknames #:taglib)
+  (:export #:file-new
+	   #:file-free
+	   #:with-tag-file
+	   #:file-audioproperties
+	   #:file-tag
+	   #:tag-artist
+	   #:tag-album
+	   #:tag-title
+	   #:tag-comment
+	   #:tag-genre
+	   #:tag-track
+	   #:tag-year
+	   #:audio-length
+	   #:audio-bitrate
+	   #:audio-samplerate
+	   #:audio-channels))