tell application "iTunes"
set thisTrack to current track
set title to the name of thisTrack
set TIDs to AppleScript's text item delimiters
try
set AppleScript's text item delimiters to space
set itemList to (text items of title) as list
set AppleScript's text item delimiters to "_"
set title to (itemList as text)
set AppleScript's text item delimiters to TIDs
on error
-- make sure you reset TID's
set AppleScript's text item delimiters to TIDs
end try
set author to the artist of thisTrack
set TIDs to AppleScript's text item delimiters
try
set AppleScript's text item delimiters to space
set itemList to (text items of author) as list
set AppleScript's text item delimiters to "_"
set author to (itemList as text)
set AppleScript's text item delimiters to TIDs
on error
-- make sure you reset TID's
set AppleScript's text item delimiters to TIDs
end try
tell application "Safari"
tell window 1
set myURL to "http://lyrics.wikia.com/" & author & ":" & title
set current tab to (make new tab with properties {URL:myURL})
end tell
end tell
end tell
