serializeされたlistのrecordからKeynoteで新規ドキュメントを作成してグラフを作成

AppleScript名：serializeされたlistのrecordからKeynoteで新規ドキュメントを作成してグラフを作成

— Created 2016-10-31 by Takaaki Naganoya
— 2016 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set selData to retSerializedData() of me
set aList to (deserializeToPlistString(selData) of me) as list
set aLen to length of aList
if aLen > 10 then
　　set bList to items 1 thru 10 of aList
else
　　copy aList to bList
end if

makeKeynoteGraph(bList, "自分のiTunesライブラリ中のジャンル内訳") of me

on makeKeynoteGraph(bList, aTitle)
　　set labelList to {}
　　set dataList to {}
　　
　　repeat with i from 1 to (length of bList)
　　　　set the end of labelList to contents of theName of (item i of bList)
　　　　set the end of dataList to contents of numberOfTimes of (item i of bList)
　　end repeat
　　
　　set targWidth to 500
　　set targHeight to 500
　　
　　tell application "Keynote"
　　　　activate
　　　　set thisDocument to make new document with properties {height:764, width:1024, document theme:theme "ホワイト"}
　　　　
　　　　tell thisDocument
　　　　　　
　　　　　　set aHeight to height
　　　　　　set aWidth to width
　　　　　　
　　　　　　tell slide 1
　　　　　　　　set base slide to master slide "タイトル（上）" of thisDocument
　　　　　　　　set object text of default title item to aTitle
　　　　　　　　
　　　　　　　　tell default title item
　　　　　　　　　　set height to 80
　　　　　　　　end tell
　　　　　　　　
　　　　　　　　(add chart row names {"ROW A"} column names labelList data {dataList} type pie_2d group by chart column)
　　　　　　　　
　　　　　　　　tell chart 1
　　　　　　　　　　
　　　　　　　　　　set width to targWidth
　　　　　　　　　　set height to targHeight
　　　　　　　　　　
　　　　　　　　　　set position to {(aWidth / 2) – (targWidth / 2), (aHeight / 2) – (targHeight / 2) + 20}
　　　　　　　　　　
　　　　　　　　end tell
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　end tell
end makeKeynoteGraph

on retSerializedData()
　　return "<?xml version=＼"1.0＼" encoding=＼"UTF-8＼"?>
<!DOCTYPE plist PUBLIC ＼"-//Apple//DTD PLIST 1.0//EN＼" ＼"http://www.apple.com/DTDs/PropertyList-1.0.dtd＼">
<plist version=＼"1.0＼">
<array>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1721</integer>
　　　　<key>theName</key>
　　　　<string>サウンドトラック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>942</integer>
　　　　<key>theName</key>
　　　　<string>ロック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>539</integer>
　　　　<key>theName</key>
　　　　<string>クラシック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>492</integer>
　　　　<key>theName</key>
　　　　<string>ポップ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>352</integer>
　　　　<key>theName</key>
　　　　<string>J-Pop</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>330</integer>
　　　　<key>theName</key>
　　　　<string>アニメ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>279</integer>
　　　　<key>theName</key>
　　　　<string>Pop</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>218</integer>
　　　　<key>theName</key>
　　　　<string>World</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>188</integer>
　　　　<key>theName</key>
　　　　<string>Soundtrack</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>187</integer>
　　　　<key>theName</key>
　　　　<string>ジャズ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>166</integer>
　　　　<key>theName</key>
　　　　<string>エレクトロニック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>165</integer>
　　　　<key>theName</key>
　　　　<string>Classical</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>148</integer>
　　　　<key>theName</key>
　　　　<string>Rock</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>125</integer>
　　　　<key>theName</key>
　　　　<string>R&B</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>104</integer>
　　　　<key>theName</key>
　　　　<string>ニューエイジ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>81</integer>
　　　　<key>theName</key>
　　　　<string>Unclassifiable</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>57</integer>
　　　　<key>theName</key>
　　　　<string>Children’s</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>47</integer>
　　　　<key>theName</key>
　　　　<string>歌謡曲</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>38</integer>
　　　　<key>theName</key>
　　　　<string>Holiday</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>34</integer>
　　　　<key>theName</key>
　　　　<string>オルタナティブ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>32</integer>
　　　　<key>theName</key>
　　　　<string>Data</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>31</integer>
　　　　<key>theName</key>
　　　　<string>イージーリスニング</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>28</integer>
　　　　<key>theName</key>
　　　　<string>ヴォーカル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>28</integer>
　　　　<key>theName</key>
　　　　<string>ワールド</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>19</integer>
　　　　<key>theName</key>
　　　　<string>soundtrack</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>15</integer>
　　　　<key>theName</key>
　　　　<string>ディズニー</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>15</integer>
　　　　<key>theName</key>
　　　　<string>シンガーソングライター</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>15</integer>
　　　　<key>theName</key>
　　　　<string>ブルース</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>14</integer>
　　　　<key>theName</key>
　　　　<string>Easy Listening</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>14</integer>
　　　　<key>theName</key>
　　　　<string>ラテン</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>14</integer>
　　　　<key>theName</key>
　　　　<string>Electronica/Dance</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>13</integer>
　　　　<key>theName</key>
　　　　<string>Anime</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>10</integer>
　　　　<key>theName</key>
　　　　<string>フォーク</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>9</integer>
　　　　<key>theName</key>
　　　　<string>J-POP</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>9</integer>
　　　　<key>theName</key>
　　　　<string>New Age</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>5</integer>
　　　　<key>theName</key>
　　　　<string>ダンス</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>5</integer>
　　　　<key>theName</key>
　　　　<string>ホリデー</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>4</integer>
　　　　<key>theName</key>
　　　　<string>カントリー</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>4</integer>
　　　　<key>theName</key>
　　　　<string>演歌</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>3</integer>
　　　　<key>theName</key>
　　　　<string>Latin</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>3</integer>
　　　　<key>theName</key>
　　　　<string>ヒップホップ／ラップ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>Vocal</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>R&B/ソウル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>R&B／ソウル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>2</integer>
　　　　<key>theName</key>
　　　　<string>#NIPPONSEI @ IRC.MIRCX.COM</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>148</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Electronic</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Folk</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>NHK FM(東京)</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>その他</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>チルドレン・ミュージック</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Seattle Pacific University – Latin</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Kayokyoku</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>ヒップホップ/ ラップ</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>Dance</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>インストゥルメンタル</string>
　　</dict>
　　<dict>
　　　　<key>numberOfTimes</key>
　　　　<integer>1</integer>
　　　　<key>theName</key>
　　　　<string>146</string>
　　</dict>
</array>
</plist>
"
　　
end retSerializedData

–list or record –> XML-format plist string
on serializeToPlistString(aList as {list, record})
　　set pListData to current application’s NSPropertyListSerialization’s dataWithPropertyList:aList |format|:(current application’s NSPropertyListXMLFormat_v1_0) options:0 |error|:(missing value)
　　set bStr to (current application’s NSString’s alloc()’s initWithData:pListData encoding:(current application’s NSUTF8StringEncoding)) as string
　　return bStr
end serializeToPlistString

–XML-format plist string–> list or record
on deserializeToPlistString(aStr as string)
　　set deStr to current application’s NSString’s stringWithString:aStr
　　set theData to deStr’s dataUsingEncoding:(current application’s NSUTF8StringEncoding)
　　set aList to current application’s NSPropertyListSerialization’s propertyListWithData:theData options:(current application’s NSPropertyListMutableContainersAndLeaves) |format|:(missing value) |error|:(missing value)
　　return aList
end deserializeToPlistString