iTunes で再生中のトラック情報を、 Tweetbot の新規ツイートにコピペする Applescript

お世話になってた #NowPlaying ウィジェットがAPI1.0で使えなくなったため、Applescript でごにょごにょしてみた。

Tweetbot が Applescript に対応していないため、 iTunes でトラック情報をクリップボードに収めてから、 Tweetbot をアクティブにしてショートカットを実行するという力技。アプリケーションとして保存して、 Alfred とかで呼び出せば OK。クリップボードの中身を書き換えるので、作業中に使う時は注意。

Tweetbot の部分を書き換えれば、他の Twitter クライアントでも行けるはず。（公式の Twitter.app はApplescript に対応してるので、クリップボードを使わなくていいかも）

if application "iTunes" is running and application "Tweetbot" is running then
	tell application "iTunes"
		if player state is playing or player state is paused then
			
			set nowPlayingTrack to current track
			set theAlbum to album of nowPlayingTrack
			set theAlbumArtist to album artist of nowPlayingTrack
			if theAlbumArtist is "" then
				set theAlbumArtist to artist of nowPlayingTrack
			end if
			set theSong to name of nowPlayingTrack
			set the clipboard to "♪" & theSong & " - " & theAlbumArtist & ": " & theAlbum & " #nowPlaying"
			
			tell application "Tweetbot"
				activate
			end tell
			
			tell application "System Events" to keystroke "n" using command down -- New Tweet
			tell application "System Events" to keystroke "v" using command down -- Paste
			tell application "System Events" to keystroke "a" using command down -- Select All
			
		end if
	end tell
end if