NowPlayingOnSpotify.applescript

on split(str, delim)
	
	local orgDelim, rtn
	
	set orgDelim to AppleScript's text item delimiters
	set AppleScript's text item delimiters to {delim}
	set rtn to every text item of str
	set AppleScript's text item delimiters to orgDelim
	return rtn
	
end split

tell application "Spotify"
	set ct to current track
	set myartist to artist of ct
	set myalbum to album of ct
	set myname to name of ct
	set myid to id of ct
	set mylist to my split(myid, ":")
	set myid to item 3 of mylist
	set info to "\"" & myname & " / " & myartist & " from " & myalbum & "\" https://open.spotify.com/intl-ja/track/" & myid
end tell

tell application "Safari"
	open location "https://twitter.com/intent/tweet?text=" & info
end tell