« [Visual Studio Code]HTMLコピー(自分用 BLOG投稿用) | トップページ | [Terminal]すべてのWindowにエスケープを送る »

再生中の曲をアーティスト名プレイリストに追加する


【スクリプトエディタで開く】|

#!/usr/bin/env osascript
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
#
# com.cocolog-nifty.quicktimer.icefloe
----+----1----+----2----+-----3----+----4----+----5----+----6----+----7
use AppleScript version "2.8"
use framework "Foundation"
use scripting additions

############################
### アーティスト名取得
############################
tell application "Music"
  set objNowTrack to current track
  set strArtist to (artist of objNowTrack) as text
end tell

############################
### プレイリストが無ければ作る
############################
tell application "Music"
  ###プレイリストの名前を取得
  set listPlayListName to name of every playlist as list
  ###判定用初期値
  set boolContain to false as boolean
  ###プレイリストの数だけ繰り返し
  repeat with itemPlayListName in listPlayListName
    set strPlayListName to itemPlayListName as text
    ###判定用のあたいがあればTRUEを入れる
    if strPlayListName contains strArtist then
      set boolContain to true as boolean
    end if
  end repeat
  ###FALSE=対象の名前のプレイリストは無いので作る
  if boolContain is false then
make new playlist with properties {name:strArtist, smart:false, disliked:false, genius:false, loved:true, visible:true, special kind:Music}
  end if
end tell

############################
### プレイリストに追加
############################
tell application "Music"
  duplicate objCurrentTrack to playlist strArtist
end tell



|

« [Visual Studio Code]HTMLコピー(自分用 BLOG投稿用) | トップページ | [Terminal]すべてのWindowにエスケープを送る »

AppleScript Music」カテゴリの記事