Sound.TagLib

High level interface to read and write ID3 tag fields (album, artist, comment, genre, title, track number, year) and get audio properties (length, bit rate, sample rate, channels)

Data Types

data AudioProperties

data Tag

type TagFile = ForeignPtr Void

TagFile operations

open :: String -> IO (Maybe TagFile)

Open a filename and possibly get a TagFile

save :: TagFile -> IO Integer

Save changes to a tag

Tag Operations

tag :: TagFile -> IO (Maybe Tag)

Get a Tag from a TagFile, if it has one

album :: Tag -> IO String

Get an album string from a Tag

artist :: Tag -> IO String

Get an artist string from a Tag

comment :: Tag -> IO String

Get the comment string from a Tag

genre :: Tag -> IO String

Get the comment string from a Tag

setAlbum :: Tag -> String -> IO ()

Set the album of a tag

setArtist :: Tag -> String -> IO ()

Set the artist of a tag

setComment :: Tag -> String -> IO ()

Set the comment of a tag

setGenre :: Tag -> String -> IO ()

Set the genre of a tag

setTitle :: Tag -> String -> IO ()

Set the title of a tag

setTrack :: Tag -> Integer -> IO ()

Set the track of a tag

setYear :: Tag -> Integer -> IO ()

Set the year of a tag

title :: Tag -> IO String

Get a title string from a Tag

track :: Tag -> IO Integer

Get the track number from a Tag. Empty values will be 0

year :: Tag -> IO Integer

Get the year from a Tag. Empty values will be 0

AudioProperties Operations

audioProperties :: TagFile -> IO (Maybe AudioProperties)

Get the AudioProperties from a TagFile

bitRate :: AudioProperties -> IO Integer

Get the bitRate from AudioProperties

channels :: AudioProperties -> IO Integer

Get the number of channels from AudioProperties

duration :: AudioProperties -> IO Integer

Get the duration (in seconds) from AudioProperties In TagLib, this is named length. This is renamed so that it doesn't conflict with the Prelude length

sampleRate :: AudioProperties -> IO Integer

Get the sampleRate from AudioProperties

Example

 module Main where 
 
 import qualified Sound.TagLib as TagLib
 import Data.Maybe
 import Control.Monad
 import System
 
 main = do
     args <- getArgs 
     mapM showFile args
 
 withMaybe :: (Maybe j) -> (j -> IO ()) -> IO () 
 withMaybe mebbe action = do
     case mebbe of 
         Just x -> do action x 
                      return ()
         Nothing -> return ()
 
 showFile filename = do
     t <- TagLib.open filename
     withMaybe t showTagFile
 
 showTagFile :: TagLib.TagFile -> IO ()
 showTagFile tagFile = do
     t <- TagLib.tag tagFile
     withMaybe t showTag
     p <- TagLib.audioProperties tagFile
     withMaybe p showAudioProperties 
 
 showTag :: TagLib.Tag -> IO ()
 showTag tag = do 
     artist <- TagLib.artist tag
     album <- TagLib.album tag
     title <- TagLib.title tag
     comment <- TagLib.comment tag
     year <- TagLib.year tag
     track <- TagLib.track tag
     print (artist, album, title, year, track)
 
 showAudioProperties :: TagLib.AudioProperties -> IO ()
 showAudioProperties props = do
     bitrate <- TagLib.bitRate props
     length <- TagLib.duration props
     samplerate <- TagLib.sampleRate props
     channels <- TagLib.channels props
     print (bitrate, length, channels, samplerate)