▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–> {1920, 1200}

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–> {”1920″, “1200″}

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–17インチMacBook Pro本体ディスプレイ（Main） ＋ 外付け24インチモニタ（1920 x 1080）（Sub）の場合
set aRes to retDisplayResolution() of me
–> {{1920, 1200}, {1920, 1080}}

–17インチMacBook Pro本体ディスプレイ（Sub） ＋ 外付け24インチモニタ（1920 x 1080）（Main）の場合
set aRes to retDisplayResolution() of me
–> {{1920, 1200}, {1920, 1080}}

–モニタ解像度を取得。複数モニタ接続時にはリストで列挙
on retDisplayResolution()
　　
　　set sRes to do shell script “/usr/sbin/system_profiler SPDisplaysDataType | grep Resolution”
　　
　　set sList to paragraphs of sRes
　　set resList to {}
　　
　　repeat with i in sList
　　　　set j to contents of i
　　　　set x1 to word 2 of j as number
　　　　set y1 to word 4 of j as number
　　　　set the end of resList to {x1, y1}
　　end repeat
　　
　　return resList
　　
end retDisplayResolution

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aFileName to “webOut” & (do shell script “date +%Y%m%d%H%M%S”)
renderURLtoPDF(aURL, aFileName) of me

on renderURLtoPDF(aURL, aFileName)
　　set s1Text to “cd ~/Desktop && “
　　set outPath to POSIX path of (path to desktop) & aFileName & “.pdf”
　　
　　set s2Text to “wkpdf –source “ & aURL & ” –paginate false –print-background –output “ & outPath
　　
　　set sAll to s1Text & s2Text
　　do shell script sAll
end renderURLtoPDF

(*
–指定URLの内容をレンダリングしてPDFに書き出す
on renderURLtoPDF(aURL, aFileName)
　　set dDir to POSIX path of (path to desktop from user domain)
　　set outFile to dDir & aFileName & “.pdf”
　　try
　　　　do shell script “cd /usr/local/bin && /usr/local/bin/coral -f PDF -o ” & quoted form of outFile & ” ” & aURL & ” &”
　　on error
　　　　return false
　　end try
　　–return outFile
end renderURLtoPDF
*)

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set dlFolder to path to desktop –ダウンロード先フォルダ（Desktop）
set dRes to downloadFile(aURL, dlFolder, 3600) of me
–POSIX pathが返ってくる。あとでのんびりaliasに変換

–通常ダウンロード
on downloadFile(aURL, outPath, tOut)
　　
　　set aFileName to getFNfromURL(aURL) of me
　　if aFileName = false then
　　　　return “”
　　end if
　　
　　set dlPathStr to POSIX path of outPath
　　set aPOSIXpath to dlPathStr & aFileName
　　
　　set dssText to “curl -s “ & aURL & ” -o “ & quoted form of aPOSIXpath
　　try
　　　　with timeout of tOut seconds
　　　　　　do shell script dssText
　　　　end timeout
　　on error
　　　　return false
　　end try
　　
　　return aPOSIXpath
　　
end downloadFile

on getFNfromURL(aURL)
　　if aURL ends with “/” then
　　　　–display dialog “与えられたURLの末尾がスラッシュで終了しているため、ファイルではありません。” buttons {”OK”} default button 1
　　　　return false
　　end if
　　set aLen to length of aURL
　　set aR to reverse of (characters of aURL)
　　set aNstr to aR as string
　　set aLoc to offset of “/” in aNstr
　　set aRes to text (aLen - aLoc + 2) thru -1 of aURL
　　return aRes
end getFNfromURL

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

Ver.0.12 (2011.10.27）
1.複数のバックアップイメージが見つかった場合に対応。
2.エラーが発生する範囲がバックアップファイルのリスト（ls）コマンド以外にもあったので、処理範囲を広げた。
Ver.0.1（2011.10.24) 初版。

on run
　　
　　–Time Machineに使っている外付けHDDを取得
　　activate
　　
　　if TmHddName is “” then
　　　　
　　　　display dialog “Time Machineに使っている外付けHDDを接続して、名称を入力してください。” default answer “USB HD 1″ buttons {“やめます”, “入力しました”} default button 2
　　　　
　　　　set dlogReturned to result
　　　　
　　end if
　　
　　
　　if button returned of the dlogReturned is not “やめます” then
　　　　
　　　　–Computer Nameをsystem_profilerから取得
　　　　set ComputerName to do shell script “system_profiler SPSoftwareDataType | grep ‘Computer Name’ | cut -d ‘:’ -f2 | cut -d ‘ ‘ -f2″
　　　　
　　　　–Time Machineに使っている外付けHDD名をdlogReturnedから取得
　　　　set TmHddName to text returned of the dlogReturned
　　　　
　　　　–エラー処理
　　　　set errFlag to false
　　　　
　　　　try
　　　　　　
　　　　　　–Time Machineに使っているスパースバンドルイメージ名を取得
　　　　　　set TmImgName to do shell script “cd /Volumes/” & quoted form of TmHddName & “; ls | grep ’sparsebundle’”
　　　　　　
　　　　　　set CurrentASTID to AppleScript’s text item delimiters
　　　　　　
　　　　　　set AppleScript’s text item delimiters to return
　　　　　　
　　　　　　set TMImgNameList to every text item of TmImgName
　　　　　　
　　　　　　set AppleScript’s text item delimiters to CurrentASTID
　　　　　　
　　　　　　if length of TMImgNameList is not 1 then
　　　　　　　　
　　　　　　　　–set TmImgName to TmImgName
　　　　　　　　
　　　　　　　　–else
　　　　　　　　
　　　　　　　　choose from list TMImgNameList with prompt “複数のバックアップイメージがあります。一つを選択してください” OK button name “選択” cancel button name “やめる” without empty selection allowed
　　　　　　　　
　　　　　　　　set theResult to result
　　　　　　　　
　　　　　　　　if theResult is not false then
　　　　　　　　　　
　　　　　　　　　　set TmImgName to theResult
　　　　　　　　　　
　　　　　　　　else
　　　　　　　　　　
　　　　　　　　　　display dialog “バックアップイメージが選択されなかったので処理を中止します” buttons {“分かりました”} default button 1
　　　　　　　　　　
　　　　　　　　　　quit of me
　　　　　　　　　　
　　　　　　　　end if
　　　　　　　　
　　　　　　end if
　　　　　　
　　　　　　–Time Machineに使っているスパースバンドルイメージをマウントし、マウントされたイメージ名を取得
　　　　　　set TmImgAttachedName to do shell script “cd /Volumes/” & quoted form of TmHddName & “; hdiutil attach “ & TmImgName & ” | grep ‘Apple_HFS’ | cut -d ‘/’ -f5″
　　　　　　
　　　　　　–Time Machineに使っているスパースバンドルイメージのパス設定
　　　　　　set TMBackUpPath to “/Volumes/” & quoted form of TmImgAttachedName & “/Backups.backupdb/” & quoted form of ComputerName & “/Latest”
　　　　　　
　　　　　　
　　　　　　do shell script “ls “ & TMBackUpPath
　　　　　　
　　　　on error
　　　　　　
　　　　　　display dialog “指定されたHDDが見つからないか、HDD上にTime Machineのバックアップがありません。” buttons {“しまった！”} default button 1 giving up after 3
　　　　　　
　　　　　　set TmHddName to “”
　　　　　　
　　　　　　set errFlag to true
　　　　　　
　　　　end try
　　　　
　　　　if not errFlag then
　　　　　　
　　　　　　–最新バックアップ時刻の取得
　　　　　　set LatestBackUpTimeString to do shell script “ls -lT “ & TMBackUpPath & ” | cut -d ‘ ‘ -f9-13″
　　　　　　
　　　　　　set LatestBackUpTime to EJDate(LatestBackUpTimeString)
　　　　　　
　　　　　　
　　　　　　–バックアップインターバルの取得と次回のバックアップ時刻生成
　　　　　　set StartIntarval to ((do shell script “defaults read /System/Library/LaunchDaemons/com.apple.backupd-auto StartInterval”) as number)
　　　　　　
　　　　　　set NextBackUpTime to LatestBackUpTime + StartIntarval
　　　　　　
　　　　　　–結果の表示
　　　　　　activate
　　　　　　display dialog (“Time Machineのバックアップ状況は以下の通りです。” & return & return & “最新のバックアップ” & return & LatestBackUpTime as string) & return & return & “次回のバックアップ予定” & return & NextBackUpTime as string buttons {“分かりました”} default button 1
　　　　　　
　　　　　　–Time Machineに使っているスパースバンドルイメージを取り出す
　　　　　　do shell script “diskutil eject /Volumes/” & quoted form of TmImgAttachedName
　　　　　　
　　　　　　
　　　　end if
　　　　
　　end if
　　
end run

on EJDate(EDate)
　　
　　set TempDlim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to ” “
　　
　　set M to text item 1 of EDate
　　
　　–日付が一桁の場合と、そうでない場合の分岐処理
　　–一桁の場合、EDateで区切り文字であるスペースが一個増える。つまり、何もない文字が取得されるので、それで分岐を行う。
　　if text item 2 of EDate is “” then
　　　　
　　　　set D to text item 3 of EDate
　　　　set T to text item 4 of EDate
　　　　set Y to text item 5 of EDate
　　　　
　　else
　　　　
　　　　set D to text item 2 of EDate
　　　　set T to text item 3 of EDate
　　　　set Y to text item 4 of EDate
　　　　
　　end if
　　
　　
　　set AppleScript’s text item delimiters to TempDlim
　　
　　set EMList to {“Jan”, “Feb”, “Mar”, “Apr”, “May”, “Jun”, “Jul”, “Aug”, “Sep”, “Oct”, “Nov”, “Dec”}
　　
　　set JMNum to 1
　　
　　repeat with aEM in EMList
　　　　if aEM as text is M then exit repeat
　　　　set JMNum to JMNum + 1
　　end repeat
　　
　　return date (Y & “.” & JMNum & “.” & D & “.” & T)
　　
end EJDate

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

Ver 0.12 (2011.10.23）
1.Time Machineに使っている外付けHDD名をダイアログで入力可能にした。
2.HDD名はpropertyに保持し、毎回入力する必要はなくした。
3.バックアップをスパースバンドルディスクイメージにしたので、その対応処理。
Ver 0.11（2011.10.22）　
1.コンピュータ名を自動取得
2.日付取得部分の微調整（日付が1桁の場合の対応）
3.エラー処理実装
Ver.0.1（2011.10.21) 初版。とりあえず目的は果たしたレベル。

on run
　　
　　–Time Machineに使っている外付けHDDを取得
　　activate
　　
　　if TmHddName is “” then
　　　　
　　　　display dialog “Time Machineに使っている外付けHDDを接続して、名称を入力してください。” default answer “” buttons {“やめます”, “入力しました”} default button 2
　　　　
　　　　set dlogReturned to result
　　　　
　　end if
　　
　　
　　if button returned of the dlogReturned is not “やめます” then
　　　　
　　　　–Computer Nameをsystem_profilerから取得
　　　　set ComputerName to do shell script “system_profiler SPSoftwareDataType | grep ‘Computer Name’ | cut -d ‘:’ -f2 | cut -d ‘ ‘ -f2″
　　　　
　　　　–Time Machineに使っている外付けHDD名をdlogReturnedから取得
　　　　set TmHddName to text returned of the dlogReturned
　　　　
　　　　–Time Machineに使っている外付けHDDのパス設定
　　　　set TMBackUpPath to “/Volumes/” & quoted form of TmHddName & “/Backups.backupdb/” & quoted form of ComputerName & “/Latest”
　　　　
　　　　–エラー処理
　　　　set errFlag to false
　　　　
　　　　try
　　　　　　
　　　　　　do shell script “ls “ & TMBackUpPath
　　　　　　
　　　　　　
　　　　on error
　　　　　　
　　　　　　display dialog “指定されたHDDが見つからないか、HDD上にTime Machineのバックアップがありません。” buttons {“しまった！”} default button 1 giving up after 3
　　　　　　
　　　　　　set TmHddName to “”
　　　　　　
　　　　　　set errFlag to true
　　　　　　
　　　　end try
　　　　
　　　　if not errFlag then
　　　　　　
　　　　　　
　　　　　　–最新バックアップ時刻の取得
　　　　　　set LatestBackUpTimeString to do shell script “ls -lT “ & TMBackUpPath & ” | cut -d ‘ ‘ -f9-13″
　　　　　　
　　　　　　set LatestBackUpTime to EJDate(LatestBackUpTimeString)
　　　　　　
　　　　　　–バックアップインターバルの取得と次回のバックアップ時刻生成
　　　　　　set StartIntarval to ((do shell script “defaults read /System/Library/LaunchDaemons/com.apple.backupd-auto StartInterval”) as number)
　　　　　　
　　　　　　set NextBackUpTime to LatestBackUpTime + StartIntarval
　　　　　　
　　　　　　–結果の表示
　　　　　　activate
　　　　　　display dialog (“Time Machineのバックアップ状況は以下の通りです。” & return & return & “最新のバックアップ” & return & LatestBackUpTime as string) & return & return & “次回のバックアップ予定” & return & NextBackUpTime as string buttons {“分かりました”} default button 1
　　　　　　
　　　　end if
　　　　
　　end if
　　
end run

on EJDate(EDate)
　　
　　set TempDlim to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to ” “
　　
　　set M to text item 1 of EDate
　　
　　–日付が一桁の場合と、そうでない場合の分岐処理
　　–一桁の場合、EDateで区切り文字であるスペースが一個増える。つまり、何もない文字が取得されるので、それで分岐を行う。
　　if text item 2 of EDate is “” then
　　　　
　　　　set D to text item 3 of EDate
　　　　set T to text item 4 of EDate
　　　　set Y to text item 5 of EDate
　　　　
　　else
　　　　
　　　　set D to text item 2 of EDate
　　　　set T to text item 3 of EDate
　　　　set Y to text item 4 of EDate
　　　　
　　end if
　　
　　
　　set AppleScript’s text item delimiters to TempDlim
　　
　　set EMList to {“Jan”, “Feb”, “Mar”, “Apr”, “May”, “Jun”, “Jul”, “Aug”, “Sep”, “Oct”, “Nov”, “Dec”}
　　
　　set JMNum to 1
　　
　　repeat with aEM in EMList
　　　　if aEM as text is M then exit repeat
　　　　set JMNum to JMNum + 1
　　end repeat
　　
　　return date (Y & “.” & JMNum & “.” & D & “.” & T)
　　
end EJDate

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–指定PDFのページ数をかぞえる
on pdfCount(aPDF)
　　return ((do shell script ("ruby -e \"require ‘osx/cocoa’;include OSX;require_framework ‘Quartz’;print PDFDocument.alloc.initWithURL(NSURL.fileURLWithPath(" & (quoted form of POSIX path of aPDF) & ")).pageCount\"")) as number)
end pdfCount

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aPrintSetting to {copies:1, starting page:1, ending page:1, target printer:aPrinter}

–とりあえずSafariで印刷してみた。Safariである必要はない
tell application “Safari”
　　activate
　　tell document 1
　　　　try
　　　　　　print with properties aPrintSetting with print dialog –「with」を「without」にすると、ダイアログなしで印刷
　　　　on error
　　　　　　display dialog “プリント中になんかのエラーが発生しました。たぶん、キャンセルされたんでしょう“ buttons {“OK”} default button 1
　　　　end try
　　end tell
end tell

(*
プロパティ：

copies integer — プリントする書類の部数
collating boolean — プリントの丁合をとるかどうか
starting page integer — 書類からプリントする最初のページ
ending page integer — 書類からプリントする最後のページ
pages across integer — 物理的なページ上に横方向に並べる論理ページの数
pages down integer — 物理的なページ上に縦方向に並べる論理ページの数
requested print time date — デスクトッププリンタが書類をプリントするべき時間
error handling standard/summarized/detailed — エラーの処理方法
fax number text — 書類の送信先ファックス番号
target printer text — 出力先のプリントキューの名前

–用紙サイズを指定できないのはどういうことなのか？（汗）　用紙サイズ指定できなかったら意味ないやんけ！
*)

–プリントキューの名称一覧を取得
–10.7用に書き換え
on getPrintCues()
　　set P to paragraphs of (do shell script “lpstat -p”)
　　set pList to {}
　　
　　set osVer to (system attribute “sys2″) as number
　　
　　repeat with i in P
　　　　set j to contents of i
　　　　
　　　　if osVer = 7 then
　　　　　　–10.7
　　　　　　set aPName to trimStrings(j, “プリンタ“, ” は待機中です。“) of me
　　　　else if osVer = 6 then
　　　　　　–10.6
　　　　　　set aPName to trimStrings(j, “プリンター “, ” は待機中です。“) of me
　　　　else if osVer = 5 then
　　　　　　–10.5
　　　　　　set aPName to trimStrings(j, “プリンタ “, ” は待機中です。“) of me
　　　　else if osVer = 4 then
　　　　　　–10.4
　　　　　　set aPName to trimStrings(j, “printer “, ” is idle. enabled since “) of me
　　　　end if
　　　　
　　　　if aPName is not equal to “” then
　　　　　　set the end of pList to aPName
　　　　end if
　　end repeat
　　
　　return pList
end getPrintCues
–任意の文字列から指定開始子、指定終了子でトリミングした文字列を取り出す
on trimStrings(aString, fromStr, endStr)
　　set fromLen to length of fromStr
　　set eLen to length of endStr
　　
　　set sPos to offset of fromStr in aString
　　if sPos = 0 then return “”
　　set body1 to text (sPos + fromLen) thru -1 of aString
　　set ePos to offset of endStr in body1
　　if ePos = 0 then return “”
　　set body2 to text 1 thru (ePos - 1) of body1
　　
　　return body2
end trimStrings

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–SIGMAのRawファイルを解析してメーカー名＋機種名を取り出す
on getCameraNameFromSIGMArawfile(aFile)
　　set aPOSIX to POSIX path of aFile
　　
　　ignoring case
　　　　if aPOSIX does not end with “.X3F” then
　　　　　　return false
　　　　end if
　　end ignoring
　　
　　
　　–Raw画像ファイルを文字ダンプして先頭から40行取り出す
　　set sText to “/usr/bin/strings “ & quoted form of aPOSIX & ” | head -n 40″
　　set aRes to do shell script sText
　　
　　set aList to paragraphs of aRes
　　set aLen to length of aList
　　
　　–Exifっぽい部分をサーチ
　　set aMaker to “”
　　set aMakerModel to “”
　　
　　repeat with i from 1 to aLen
　　　　set j to contents of item i of aList
　　　　if j contains “Exif” then
　　　　　　set aMaker to contents of item (i + 1) of aList
　　　　　　set aMakerModel to contents of item (i + 2) of aList
　　　　　　exit repeat
　　　　end if
　　end repeat
　　
　　–含んでいなかった場合（T＿T）
　　if aMaker = “” then
　　　　return false
　　end if
　　
　　–結果表示
　　return aMakerModel
　　
end getCameraNameFromSIGMArawfile

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set bRes to retExifAttributeData(aFile, “formatOptions”) of me
–> “default”

–SIPSコマンドで指定のデジカメ画像のExif情報（プロパティ）を取得する
on retExifAttributeData(aFile, aParam)
　　
　　set aPOSIX to quoted form of POSIX path of aFile
　　
　　set aRes to do shell script “sips –getProperty “ & aParam & ” “ & aPOSIX
　　set aList to paragraphs of aRes
　　set anItem to contents of last item of aList
　　
　　set colonPos to (offset of “:” in anItem) + 2
　　set eRes to text colonPos thru -1 of anItem
　　
　　return eRes
　　
end retExifAttributeData

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

set aHour to 22 –時
set aMinute to 51 –分
set aSecond to 0 –秒

set myAccount to do shell script “whoami” –他に管理者アカウントを指定することも可。その場合にはmyPasswordには管理者のパスワードを指定
set myPassword to “” –パスワード

set pRes to setAwakeDate(aYear, aMonth, aDate, aHour, aMinute, aSecond, myAccount, myPassword) of me

–スリープからの復帰日時を設定する
on setAwakeDate(aYear, aMonth, aDate, aHour, aMinute, aSecond, myAccount, myPassword)
　　if myPassword = “” then
　　　　set myPassword to text returned of (display dialog “パスワードを入力してください” default answer “” with hidden answer)
　　end if
　　
　　–現在のユーザーに管理権限がない場合にはリターン
　　if getUsersPrivileges(myAccount) of me = false then return false
　　
　　
　　–数値の整形（日付）
　　set tYear to retZeroPaddingText(aYear, 2) of me
　　set tMonth to retZeroPaddingText(aMonth, 2) of me
　　set tDate to retZeroPaddingText(aDate, 2) of me
　　
　　–数値の整形（時刻）
　　set tHour to retZeroPaddingText(aHour, 2) of me
　　set tMinute to retZeroPaddingText(aMinute, 2) of me
　　set tSecond to retZeroPaddingText(aSecond, 2) of me
　　
　　set tDateStr to (ASCII character 34) & tMonth & “/” & tDate & “/” & tYear & ” “ & tHour & “:” & tMinute & “:” & tSecond & (ASCII character 34)
　　
　　try
　　　　set sRes to (do shell script “/usr/bin/pmset schedule wake “ & tDateStr user name myAccount password myPassword with administrator privileges)
　　on error erMes
　　　　return erMes –時間を過去に設定したか、あるいは数値の範囲指定エラー。パスワードの指定ミスの可能性もあり得る
　　end try
　　
　　return true
　　
end setAwakeDate

–指定ユーザーの権限を得る（管理者か、それ以外か） 10.4および10.5以降両用
–管理者だとtrueが、それ以外だとfalseが返る
on getUsersPrivileges(aUser)
　　set aVer to system attribute “sys2″ –OSメジャーバージョンを取得する（例：Mac OS X 10.6.4→6）
　　
　　set current_user to aUser
　　
　　if aVer > 4 then
　　　　–Mac OS X 10.5以降の処理
　　　　set adR to (do shell script “/usr/bin/dsmemberutil checkmembership -U “ & current_user & ” -G admin users”)
　　　　
　　　　if adR = “user is a member of the group” then
　　　　　　return true
　　　　else
　　　　　　return false
　　　　end if
　　　　
　　else
　　　　–Mac OS X 10.4までの処理
　　　　set admin_users to (do shell script “/usr/bin/niutil -readprop . /groups/admin users”)
　　　　tell (a reference to AppleScript’s text item delimiters)
　　　　　　set {old_atid, contents} to {contents, ” “}
　　　　　　set {admin_users, contents} to {text items of admin_users, old_atid}
　　　　end tell
　　　　
　　　　if current_user is in admin_users then
　　　　　　return true
　　　　else
　　　　　　return false
　　　　end if
　　end if
　　
end getUsersPrivileges

–数値にゼロパディングしたテキストを返す
on retZeroPaddingText(aNum, aLen)
　　set tText to (“0000000000″ & aNum as text)
　　set tCount to length of tText
　　set resText to text (tCount - aLen + 1) thru tCount of tText
　　return resText
end retZeroPaddingText

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

on open fileList
　　
　　tell application “Finder”
　　　　set sortedList to sort fileList by creation date –オリジナルはmodification dateだったが……趣味の問題？
　　end tell
　　
　　set sortedList to sortedList’s reverse
　　
　　set oldPath to writeASSourceToTempFolder((sortedList’s item 1) as alias)
　　set newPath to writeASSourceToTempFolder((sortedList’s item 2) as alias)
　　
　　do shell script “/usr/bin/opendiff “ & oldPath’s POSIX path’s quoted form & ” “ & newPath’s POSIX path’s quoted form & ” > /dev/null 2>&1 &”
　　
　　–指定プロセスでDialogが出て処理が停まっている場合には、強制的にダイアログをクローズして処理続行させる
　　clickFrontDialog(“FileMerge”) of me
　　
end open

–AppleScriptのソースを取得してファイルに書き出し
on writeASSourceToTempFolder(macPath)
　　set aName to (info for macPath size 0)’s name
　　set tmpPath to ((path to temporary items from system domain) as text) & aName & “__” & (do shell script “/usr/bin/uuidgen”) & “.txt”
　　
　　set scptText to do shell script “/usr/bin/osadecompile “ & macPath’s POSIX path’s quoted form
　　
　　set accessFile to open for access file tmpPath with write permission
　　set eof of accessFile to 0
　　write scptText to accessFile starting at eof as text
　　close access accessFile
　　
　　return tmpPath
end writeASSourceToTempFolder

–表示されるダイアログを乗り越えるためのルーチン（「キャンセル」もしくは「Cancel」ではない方のボタンを押す）
on clickFrontDialog(aProcName)
　　–余計なプロセスを起動せずにactivate
　　activateAproc(aProcName) of me
　　
　　–ダイアログ検出
　　tell application “System Events”
　　　　tell process aProcName
　　　　　　if (count every window) ≥ 1 then
　　　　　　　　if subrole of window 1 = “AXDialog” then
　　　　　　　　　　tell window 1
　　　　　　　　　　　　set bCount to count every button
　　　　　　　　　　　　
　　　　　　　　　　　　–「キャンセル」もしくは「Cancel」ではない方のボタンを取得
　　　　　　　　　　　　repeat with i in {“キャンセル”, “Cancel”} –キャンセルに該当するキーワードのリストを各国語分だけ用意しておく？？？
　　　　　　　　　　　　　　set bList to (every button whose title is not equal to (contents of i))
　　　　　　　　　　　　　　if length of bList is not equal to bCount then
　　　　　　　　　　　　　　　　set aButton to first item of bList
　　　　　　　　　　　　　　　　tell aButton
　　　　　　　　　　　　　　　　　　click
　　　　　　　　　　　　　　　　　　exit repeat
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　end repeat
　　　　　　　　　　end tell
　　　　　　　　end if
　　　　　　end if
　　　　end tell
　　end tell
end clickFrontDialog

on activateAproc(aName)
　　tell application “System Events”
　　　　set aList to every process whose name is aName and visible of it is true
　　　　
　　　　if length of aList ≥ 1 then
　　　　　　set aProc to first item of aList
　　　　　　tell aProc
　　　　　　　　set frontmost to true
　　　　　　end tell
　　　　　　
　　　　else
　　　　　　tell application aName to activate
　　　　end if
　　　　
　　end tell
end activateAproc

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

–AppleScriptのソースを取得してファイルに書き出し
on writeASSourceToTempFolder(macPath)
　　set aName to (info for macPath size 0)’s name
　　set tmpPath to ((path to temporary items from user domain) as text) & aName & “__” & (do shell script “/usr/bin/uuidgen”) & “.txt”
　　
　　set scptText to do shell script “/usr/bin/osadecompile “ & macPath’s POSIX path’s quoted form
　　
　　set accessFile to open for access file tmpPath with write permission
　　set eof of accessFile to 0
　　write scptText to accessFile starting at eof as text
　　close access accessFile
　　
　　return tmpPath
end writeASSourceToTempFolder

–表示されるダイアログを乗り越えるためのルーチン（「キャンセル」もしくは「Cancel」ではない方のボタンを押す）
on clickFrontDialog(aProcName)
　　–余計なプロセスを起動せずにactivate
　　activateAproc(aProcName) of me
　　–tell application aProcName to activate
　　–tell application “FileMerge” to activate
　　
　　–ダイアログ検出
　　tell application “System Events”
　　　　tell process aProcName
　　　　　　if (count every window) ≥ 1 then
　　　　　　　　if subrole of window 1 = “AXDialog” then
　　　　　　　　　　tell window 1
　　　　　　　　　　　　set bCount to count every button
　　　　　　　　　　　　
　　　　　　　　　　　　–「キャンセル」もしくは「Cancel」ではない方のボタンを取得
　　　　　　　　　　　　repeat with i in {“キャンセル”, “Cancel”} –キャンセルに該当するキーワードのリストを各国語分だけ用意しておく？？？
　　　　　　　　　　　　　　set bList to (every button whose title is not equal to (contents of i))
　　　　　　　　　　　　　　if length of bList is not equal to bCount then
　　　　　　　　　　　　　　　　set aButton to first item of bList
　　　　　　　　　　　　　　　　tell aButton
　　　　　　　　　　　　　　　　　　click
　　　　　　　　　　　　　　　　　　exit repeat
　　　　　　　　　　　　　　　　end tell
　　　　　　　　　　　　　　end if
　　　　　　　　　　　　end repeat
　　　　　　　　　　end tell
　　　　　　　　end if
　　　　　　end if
　　　　end tell
　　end tell
end clickFrontDialog

on activateAproc(aName)
　　tell application “System Events”
　　　　set aList to every process whose name is aName and visible of it is true
　　　　if length of aList ≥ 1 then
　　　　　　set aProc to first item of aList
　　　　　　tell aProc
　　　　　　　　set frontmost to true
　　　　　　end tell
　　　　end if
　　end tell
end activateAproc

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に

　　本来はここで、TextWranglerやFileMerge（opendiff）などが実行環境に存在するかどうかチェックすべき
　　実行するOSのバージョンもチェックしておいたほうがよい
　　
　　*)
end run

on open fileList
　　–２つのファイルがドロップされているかを判定。フォルダとかバンドルがドロップされる可能性は否定できないものの、ノーチェック
　　–スクリプトバンドルがきたら、AppleScriptエディタ経由で内容を取得する？？？
　　if length of fileList is not equal to 2 then
　　　　display dialog “かならず１組（２つ）のファイルをドロップしてください。” buttons {“OK”} default button 1 with icon 1
　　　　return
　　end if
　　
　　–ファイル作成日でソート（古いものから新しいものへ）
　　set aliasRes to sortAliasByCreationDate(fileList) of me
　　
　　set {file1Path, file2Path} to aliasRes
　　
　　–UTF8 with BOMに変換
　　set file1PosixPath to decompileASandSaveAsUTF8withBOM(file1Path) of me
　　set file2PosixPath to decompileASandSaveAsUTF8withBOM(file2Path) of me
　　
　　do shell script “/usr/bin/opendiff “ & quoted form of file1PosixPath & ” “ & quoted form of file2PosixPath & “&”
　　
end open

–指定のAppleScriptをosadecompileでUTF-8のテキストに変換して、さらにUTF-8(BOMつき）にTextWranglerで変換して、パスを返す
on decompileASandSaveAsUTF8withBOM(aFile)
　　set aTmp to ((path to temporary items from system domain) as string) & (do shell script “/usr/bin/uuidgen”) & “.txt”
　　set aTmpFile to POSIX path of aTmp
　　
　　do shell script “/usr/bin/osadecompile “ & quoted form of POSIX path of aFile & ” > “ & quoted form of aTmpFile
　　
　　
　　–TextWranglerを起動して不可視に
　　tell application “TextWrangler” to launch
　　
　　tell application “System Events”
　　　　tell process “TextWrangler”
　　　　　　set visible to false
　　　　end tell
　　end tell
　　
　　
　　–TextWranglerでUTF8のファイルをUTF8(With BOM）に変換する
　　tell application “TextWrangler”
　　　　set aDoc to open file aTmp reading as UTF8 file
　　　　set distEncoding to encoding of aDoc
　　　　
　　　　–BOMなしのUTF8だったらBOMつきUTF8に変更する
　　　　–”Unicode (UTF-8)”
　　　　–”Unicode (UTF-8, with BOM)”
　　　　if distEncoding = “Unicode (UTF-8)” then
　　　　　　set encoding of aDoc to “Unicode (UTF-8, with BOM)”
　　　　end if
　　　　
　　　　save aDoc add to recent list boolean false –最近使ったファイルの一覧に登録しない
　　　　close aDoc without saving
　　　　
　　end tell
　　
　　return aTmpFile
　　
end decompileASandSaveAsUTF8withBOM

–ファイル作成日でソート（古いものから新しいものへ）
on sortAliasByCreationDate(aliasList)
　　
　　tell application “Finder”
　　　　set aList to {}
　　　　
　　　　repeat with i in aliasList
　　　　　　set j to contents of i
　　　　　　set the end of aList to {j, creation date of j}
　　　　end repeat
　　　　
　　　　set cList to shellSortListAscending(aList, 2) of me –で作成日時でソート
　　　　
　　　　
　　　　set aliasList to {}
　　　　set fnCount to 1
　　　　repeat with i in cList
　　　　　　set j to contents of (item 1 of i)
　　　　　　
　　　　　　set the end of aliasList to j
　　　　end repeat
　　end tell
　　
　　return aliasList
　　
end sortAliasByCreationDate

–シェルソートで入れ子のリストを昇順ソート
on shellSortListAscending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) > (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListAscending

–シェルソートで入れ子のリストを降順ソート
on shellSortListDecending(a, keyItem)
　　set n to length of a
　　set cols to {1391376, 463792, 198768, 86961, 33936, 13776, 4592, 1968, 861, 336, 112, 48, 21, 7, 3, 1}
　　repeat with h in cols
　　　　if (h ≤ (n - 1)) then
　　　　　　repeat with i from h to (n - 1)
　　　　　　　　set v to item (i + 1) of a
　　　　　　　　set j to i
　　　　　　　　repeat while (j ≥ h) and ((contents of item keyItem of item (j - h + 1) of a) < (item keyItem of v))
　　　　　　　　　　set (item (j + 1) of a) to (item (j - h + 1) of a)
　　　　　　　　　　set j to j - h
　　　　　　　　end repeat
　　　　　　　　set item (j + 1) of a to v
　　　　　　end repeat
　　　　end if
　　end repeat
　　return a
end shellSortListDecending

▼新規書類に　▼カーソル位置に　▼ドキュメント末尾に