on run arg
tell application "System Events"
if (application processes whose name is "iTunes") is not {} then
tell application "iTunes"
if item 1 of arg is equal to "l" then
set lib to library playlist 1
set libName to name of library playlist 1
if lib is not "" then
set mysize to my printSize(size of lib)
set runtime to my printTime(time of lib)
return "[iTunes] Version: " & (version as string) & ¬
" Songs: " & (count tracks in lib) & ¬
" Size: " & mysize & ¬
" Duration: " & time of lib
end if
end if
if item 1 of arg is equal to "s" then
set art to artist of current track
set tit to name of current track
set alb to album of current track
set btr to bit rate of current track
set len to time of current track
if (player state) is not playing then
if (player state) is paused then
set state to " [" & (ASCII character 31) & "paused" & (ASCII character 31) & "]"
else
set state to " [" & (ASCII character 31) & "stopped" & (ASCII character 31) & "]"
end if
else
set state to ""
end if
return "[iTunes] " & art & " - " & tit & state & " (" & alb & "/" & btr & "kbps/" & len & "m)"
end if
end tell
end if
end tell
end run
to printSize(theSize)
if theSize < 1.0E+9 then
return (round (theSize) / (2 ^ 20) * 100 ¬
as string) / 100 & "MB"
else
return ((round (theSize) / (2 ^ 30) * 100) ¬
/ 100 as string) & "GB"
end if
end printSize
to printTime(theTime)
set AppleScript's text item delimiters to ":"
set timeList to theTime's words
set AppleScript's text item delimiters to {""}
return item 1 of timeList & "days " & ¬
item 2 of timeList & "hrs " & item 3 of timeList & ¬
"min " & item 4 of timeList & "sec"
end printTime