Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- Paths and stuff
- set ArtworkFromiTunes to ((path to home folder) as text) & ¬
- "Pictures:iTunes Artwork:From iTunes:albumArt.pict" as alias
- set iTunesArtwork to ((path to home folder) as text) & ¬
- "Pictures:iTunes Artwork:From iTunes:albumArt.pict"
- set DefaultArtwork to ((path to home folder) as text) & ¬
- "Pictures:iTunes Artwork:Default:albumArt.pict"
- set displayArtwork to ((path to home folder) as text) & ¬
- "Pictures:iTunes Artwork:albumArt.pict"
- -- Unix versions of the above path strings
- set unixITunesArtwork to the quoted form of POSIX path of iTunesArtwork
- set unixDefaultArtwork to the quoted form of POSIX path of DefaultArtwork
- set unixDisplayArtwork to the quoted form of POSIX path of displayArtwork
- set whichArt to "blank"
- tell application "System Events"
- if exists process "iTunes" then -- iTunes is running
- tell application "iTunes"
- if player state is playing then -- iTunes is playing
- set aLibrary to name of current playlist -- Name of Current Playlist
- set aTrack to current track
- set aTrackArtwork to null
- if (count of artwork of aTrack) ≥ 1 then -- there's an album cover
- "Running and playing and art"
- set aTrackArtwork to data of artwork 1 of aTrack
- set fileRef to ¬
- (open for access ArtworkFromiTunes with write permission)
- try
- set eof fileRef to 512
- write aTrackArtwork to fileRef starting at 513
- close access fileRef
- on error errorMsg
- try
- close access fileRef
- end try
- error errorMsg
- end try
- tell application "Finder" to ¬
- set creator type of ArtworkFromiTunes to "????"
- set whichArt to "iTunes"
- end if
- end if
- end tell
- end if
- end tell
- if whichArt is "iTunes" then
- do shell script "ditto -rsrc " & unixITunesArtwork & space & unixDisplayArtwork
- else
- do shell script "ditto -rsrc " & unixDefaultArtwork & space & unixDisplayArtwork
- end if
Add Comment
Please, Sign In to add comment