ScriptDebugger 7で最前面のドキュメントから特殊な属性値を取得

AppleScriptの統合開発環境「Script Debugger 7」をAppleScriptからコントロールしたときに、編集中のAppleScript書類から特殊な属性値を取り出せることを確認しました。

＃　寝て起きたらShane Stanleyからコメントが送られてきていたので、追記しています（Thanks Shane!）

AppleScriptを編集するプログラム「スクリプトエディタ」「Script Debugger」自体もAppleScriptからのコントロールが可能になっています。対応度でいうとスクリプトエディタのほうが「できることが多い」状態（Attribute Runsを取得できるので、スクリプトの解析を行うにはスクリプトエディタの方が有利）ですが、Script Debuggerにもいろいろと独自に拡張した機能が見られます。

よくよく確認してみたところ「なんでこんなもんが取れるんだ？」という不思議なものがいくつかありました。

Copyright表記（copyright）

なぜ、このようなものが取得できるのか不思議ですが、調べてみたところ編集中のAppleScriptを解析して取り出しているのではなく、バンドル形式のAppleScript書類中のInfo.plistのエントリを取り出しているようです。

–> Shane Stanleyから「そのとおり」とコメント

使用Framework（used framework files）

これは、編集中のAppleScriptを文字列サーチして見つけているものと思われます。~~ファイルパスのリストで返ってきます。~~

–> ファイルパスではなく名称リストでした（訂正）また、文字列としてサーチしているのではなく（コメントにuse frameworkを書いておいても無視）実際に解釈して処理しているとのこと
use AppleScript version "2.4"
use framework "Foundation"
use framework "OSAKit"
use scripting additions

–本ScriptをScript Debuggerでオープンしておき、他のエディタ（Script Editor）でAppleScript書類のプロパティを取得すると、used frameworksを取得できる

–> used frameworks:{"Foundation", "OSAKit"}

★Click Here to Open This Script　

使用Script Libraries（used script library files）

ファイルパスのリストで返ってきます。同一ライブラリのうちどのバージョンのものが検知されるのか、といったところは確認しておきたいところです。

レガシーScript Libraries（legacy script libraries）

macOS 10.9で搭載されたAppleScript Librariesですが、10.9からどこまでがScript Debuggerが想定している「レガシー形式」（legacy script libraries）なのかが不明です。

　(a) macOS 10.9だけLegacy Libraries
　(b) macOS 10.9〜10.10がLegacy Libraries

の２つの可能性が存在しています。

–> Shane Stanleyのコメントによれば、本プロパティはScript Debugger 6までのみで有効な値であるとのこと。Script Debugger 7はmacOS 10.11以降でのみ動作するので、(b)の可能性が高そうです（憶測）。

OSAX（used scripting addition files）

これは、あまり真剣に調べていませんが、、、、正確にAppleScript中で使用しているOSAXをリストアップしているのかどうか、半信半疑なところです。

–> Shane Stanleyによれば、これはちゃんとAppleScriptを解釈して抽出しているとのこと

アプリケーション（used applications）

本当に検知できるのか半信半疑なところです。バンドルIDで指定したらどうなるのか、とか疑問がけっこうあります。

–> ShaneからBundle IDで評価しているとのコメントアリ。実際にさまざまな形式でアプリケーションを指定してみたら、取得できました。
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

tell application "Finder"
　　–アプリケーション名
end tell

tell application id "com.apple.Safari"
　　–Bundle ID
end tell

tell application "/Applications/Mac Down"
　　–Path
end tell

set aScriptStr to "tell application ＼"Terminal＼" to activate"
run script aScriptStr –String

—————–
–> used applications:{"Finder", "Mac Down", "Safari"}

★Click Here to Open This Script　

組み込みScript Libraries（embedded script libraries）

編集中のバンドル形式のAppleScript書類のバンドル中にAppleScript Librariesを入れている場合にこれを検出するようです。バンドル内を走査してバンドル内に入っているAppleScript Librariesのリストアップはできますが、バンドル内に入れてあるのにuse宣言していない場合にはどーなるのか、といった「穴」はいろいろと見つかりそうな気配がしています。

–> Shane Stanleyによれば、いったん利用中のScript Libraryの情報を取得して、バンドル中に存在するもののみを抽出しているとのこと。「利用していないが入っている」ライブラリは無視するとのこと。また、入れ子でライブラリ中に入っている状態のライブラリは検出しないとのこと。AppleScriptバンドル書類を「親」とすると、AppleScript Libraries in bundleを「子」、さらにその中に入っているAppleScript Librariesを「孫」としたときに、「子」の階層までが検出範囲であるとしています

AppleScript名：ScriptDebugger 7で最前面のドキュメントから特殊な属性値を取得

tell application "Script Debugger"
　　tell front document
　　　　–set reqImportFiles to required import items of front document
　　　　
　　　　set aCopyright to (copyright)
　　　　–> "Copyright © 2018 Piyomaru Software, All Rights Reserved"
　　　　
　　　　set frameworkList to (used framework files)
　　　　–> {file "Cherry:System:Library:Frameworks:Foundation.framework:"}
　　　　
　　　　set libList to (used script library files)
　　　　–> {file "Cherry:Users:me:Library:Script Libraries:asHTMLexportLib.scpt", file "Cherry:Users:me:Library:Script Libraries:BridgePlus.scptd:"}
　　　　
　　　　set legacyLibs to (legacy script libraries) –What?
　　　　–> {}
　　　　
　　　　set osaxList to (used scripting addition files)
　　　　–> {file "Cherry:System:Library:ScriptingAdditions:StandardAdditions.osax:"}
　　　　
　　　　set appList to (used applications)
　　　　–> {"Finder"}
　　　　
　　　　set embLib to (embedded script libraries)
　　　　–> {}
　　　　
　　　　properties
　　end tell
end tell

★Click Here to Open This Script　

Please follow and like us:

NSObjectの各種メソッドのじっけん

Posted on 4月 20 by Takaaki Naganoya

Cocoaの各種オブジェクトのルートクラスであるNSObjectが持っているメソッドのうち有用そうなものをAppleScriptから呼び出す実験です。

各種クラス（NSStringとかNSArrayとか）のReferenceに掲載されていないのに使えるメソッドが存在していることに、Cocoaを使い始めたころ不思議に思っていたのですが、上位クラスが持っているメソッドであることに（後になって）気づきました。

AppleScript名：isEqualTo

— Created 2018-01-08 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aStr to current application’s NSString’s stringWithString:"ABC"
aStr’s isEqualTo:"ABC"
–> true

aStr’s isEqualTo:"abc"
–>　　false

★Click Here to Open This Script　

AppleScript名：isLike

— Created 2018-01-08 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

–https://stackoverflow.com/questions/35902973/what-does-nsstrings-islike-actually-do

set aStr to current application’s NSString’s stringWithString:"ABC"

set aRes1 to aStr’s isLike:"AB*"
–>　　true

set aRes2 to aStr’s isLike:"AB?"
–>　　true

set aRes3 to aStr’s isLike:"[Aa]BC"
–>　　true

set aRes4 to aStr’s isLike:"[Aa][Bb]C"
–>　　true

set aRes5 to aStr’s isLike:"[^A]BC"
–>　　true

set aRes6 to aStr’s isLike:"[^a]BC"
–> false

set bStr to current application’s NSString’s stringWithString:"A1download"
set aRes7 to bStr’s isLike:"[A-Z][0-9]" –こういう書き方は通らないらしい

★Click Here to Open This Script　

AppleScript名：doesContain

— Created 2018-01-07 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set anArray to current application’s NSArray’s arrayWithArray:{1, 2, 3}
anArray’s doesContain:1
–>　　true

anArray’s doesContain:9
–>　　false

–2D Arrayには通じないらしい
set bArray to current application’s NSArray’s arrayWithArray:{{1, 1}, {2, 2}, {3, 3}}
set cArray to current application’s NSArray’s arrayWithArray:{2, 2}
bArray’s doesContain:cArray
–>　　false

bArray’s doesContain:2
–>　　false

★Click Here to Open This Script　

AppleScript名：instancesRespondToSelector

— Created 2018-01-07 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

(current application’s NSObject’s |class|())’s instancesRespondToSelector:"init"
–> true

★Click Here to Open This Script　

AppleScript名：isSubclassOfClassのじっけん

— Created 2018-01-07 12:59:32 +0900 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aStr to current application’s NSString’s stringWithString:"ABC"
aStr’s superclass()’s isSubclassOfClass:(current application’s NSNumber)
–>　　false

aStr’s superclass()’s isSubclassOfClass:(current application’s NSString)
–>　　true

★Click Here to Open This Script　

AppleScript名：superclassを求める

— Created 2018-01-07 12:53:44 +0900 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aStr to current application’s NSString’s stringWithString:"ABC"
aStr’s superclass()
–>　　(Class) NSMutableString

aStr’s superclass()’s superclass()
–>　　(Class) NSString

aStr’s superclass()’s superclass()’s superclass()
–>　　(Class) NSObject

★Click Here to Open This Script　

（Shane Stanleyからツッコミがあって追加↓）

AppleScript名：scriptingIsEqualTo

use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aStr to current application’s NSString’s stringWithString:"ABC"
aStr’s scriptingIsEqualTo:"ABC" –only for NSString/NSMutableString
–> true

aStr’s scriptingIsEqualTo:"abc"
–> true

set bStr to current application’s NSString’s stringWithString:"あいうえお" –Japanese Hiragana
bStr’s scriptingIsEqualTo:"アイウエオ" –Japanese Katakana
–> false

bStr’s scriptingIsEqualTo:"ぁぃぅぇぉ" –Japanese Hiragana （Yo-On）
–> false

set bResAS to ("あいうえお" = "ぁぃぅぇぉ") –AppleScript system treat them as *Same* (NFKC Casefold)
–>　　true

★Click Here to Open This Script　

Please follow and like us:

Xcode上のAppleScriptObjCでpragma markを使う

Posted on 4月 12 by Takaaki Naganoya

Xcode上でGUIアプリケーションをAppleScriptObjCで記述できますが、Xcodeの「pragma mark」の機能をAppleScriptで利用する方法についてまとめておきます。

pragma markはXcode上のテキストエディタで現在編集中のソーステキスト内の移動を行いやすくするもので、基本的には「ただのコメント文」です。

Xcodeに編集中のソースの各プロパティやハンドラの一覧を表示するポップアップ・メニューが存在しており、これがソースの長さによっては膨大な量になるため、ポップアップ・メニューに「セパレータ」や「目印（数種類のアイコン指定可能）」をpragma markによって表示させます。長くなるメニューを見やすくする、という役割があります。

pragma markはプログラムの実行には何も影響しません。

Xcode上で編集中のソースコードに「pragma mark」形式のコメントがあると、Xcodeがそれを読み取って、ポップアップ・メニュー上に指定内容を表示します。

ただし、外部エディタ（ASObjC Explorer 4やScript Debugger）を併用しないと、途中からXcodeがまともにpragma markを表示しなくなることは日常茶飯事であることを明記しておきます。

–> Download pragma_mark_test Xcode Project

→ PRAGMA MARKのコメント行の先頭にTABを入れないとまともに表示される模様。

Please follow and like us:

Evernoteで選択中のnoteを指定のNotebookにコピー

Posted on 4月 3 by Takaaki Naganoya

Evernoteで選択中のnoteをいったん書き出して、指定のNotebookにインポートするAppleScriptです。

選択中のnoteを指定のNotebookにコピーします（添付画像なども含めてすべて）。元の選択中のnoteを削除すれば、「移動」したのと同じことになります。

EvernoteのAppleScript用語辞書には、importコマンドの説明に、

　　Import notes from an xml file.

とあります。このXML fileというのがENEXファイルだというのがこのimportコマンドの説明に書かれていないので、

　　「ENEXファイルで書き出して、ENEXファイルで読み込む」

という操作ができることが読み解けません。辞書の説明の書き方がよくない、としかいいようがありません。

AppleScript名：Evernoteで選択中のnoteをいったん書き出して、書き出したファイルで新規noteを作成する

— Created 2018-04-03 by Takaaki Naganoya
— 2018 Piyomaru Software
set exPath to ((path to desktop folder) as string) & (do shell script "uuidgen") & ".ENEX"

tell application "Evernote"
　　set aSel to selection
　　if aSel = {} then return
　　
　　–デスクトップに選択中のノートを書き出す
　　export aSel to file exPath format ENEX
　　
　　–指定のノートブックに書き出したノートをインポートする
　　set aNote to (import file exPath to notebook "hiyoko")
　　
end tell

do shell script "rm -f " & quoted form of POSIX path of exPath

★Click Here to Open This Script　

Please follow and like us:

Safariで検索を実行

Posted on 4月 2 by Takaaki Naganoya

Safariで指定の検索エンジンで検索を実行するAppleScriptです。

URL欄にキーワードを入れて検索を行うと、文字入力の途中で待たされることがあるため、別途ダイアログで入力して検索できたほうが便利です。

Script Menuに入れて呼び出して使っています。

AppleScript名：Safariで検索を実行

tell application "Safari"
　　set aText to text returned of (display dialog "検索キーワードを入力" default answer "")
　　
　　set dCount to count every document
　　if dCount > 0 then
　　　　search the web in front document for aText
　　else
　　　　search the web for aText
　　end if
end tell

★Click Here to Open This Script　

Please follow and like us:

SafariとiTunesがアップデート

Posted on 4月 2 by Takaaki Naganoya

macOS 10.13.4 Releaseに合わせて、macOS 10.12向けにもSafari v11.1とiTunes v12.7.4のアップデートがリリースされました。

大幅な整理と謎の見直しが行われたSafari v11.1

Safari v11.1では過去に例を見ないほどの用語辞書の変更が行われました。ただし、ほとんどが「整理」「清書」に類するものであり、機能的に変更があったということではありません。

これまで、Safariの用語辞書には「Text Suites」という「意味のない予約語」が記載されていました。

これがv11.1では削除されました。削除されても、もともと意味がなかったので問題はありません。

saveコマンドで指定するパスオブジェクトがaliasからfileに変更されていますが、これはもともとfileで指定するものなので、「用語辞書の間違いを直した」といえます。実体が存在しない（保存する前なので）パスのaliasは作れません。

ほかには、AppleScript用語内の細かい表記が修正されています。もともと、macOS 10.5でText, String, Unicode textは統一されているので、あえて用語辞書にUnicode Textと書いておく必要はなかったわけで、それがTextに書き換えられていたりします（説明文が変わっただけで動作に変更はありません）。

あと気になるのは「anything」の表記があることです。あまり多用されてこなかったこの予約語、AppleScriptObjC環境でも「list of string or string」などという表記にならないことを期待したいところです（ScriptDebuggerではこれが「any」などという単語に解釈されてしまうし）。

iTunesには変更なし

iTunes v12.7.4には変更がありません。

Please follow and like us:

Keynote, Pages, Numbersがアップデート

Posted on 3月 28 by Takaaki Naganoya

Keynote、Pages、Numbersがアップデートしました。

　Keynote：v7.3.1 –> v8.0.0
　Pages：v6.3.1 –> v 7.0.0
　Numbers：v4.3.1 –> v5.0.0

NumbersのCSV書き出し機能が強化・変更されたとのことなので、これまでNumbersで複数のシートを含む書類をCSV書き出ししたときの挙動とやや変わる可能性があります。

AppleScript用語辞書については、Pagesにのみ変更があります。これまで用語辞書には「ePub」と書かれていましたが、「EPUB」に変更されました。

また、PagesのEPUB書き出し設定（export options）で「fixed layout」という項目（boolean）が増えました。

Please follow and like us:

NSSharingService経由でメールを新規作成（作成するだけ、送信しない）

Posted on 3月 14 by Takaaki Naganoya

NSSharingServiceを利用してメールを新規作成するAppleScriptです。

仕様上、新規作成するだけで送信は行いません。普通にMail.appをコントロールすればメールの送信は行えるので、単にNSSharingServiceのテストです。

AppleScript名：NSSharingService経由でメールを新規作成（作成するだけ、送信しない）

— Created 2017-02-23 by Takaaki Naganoya
— 2017 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit"

set shareItems to {"てすとだよおおおん
２行目
３行目", "よろしくー１
よろしくー2", "Footer？"}
set aService to current application’s NSSharingService’s sharingServiceNamed:(current application’s NSSharingServiceNameComposeEmail)
aService’s setDelegate:me
aService’s setRecipients:{"nobody@piyocast.com"}
aService’s setSubject:"試験送信"
aService’s performWithItems:shareItems

★Click Here to Open This Script　

Please follow and like us:

ASOCでハンドラの間接呼び出し v3b

Posted on 3月 7 by Takaaki Naganoya

パラメータ付きのハンドラの存在確認を行い、間接的に呼び出しを行うAppleScriptです。

ハンドラの間接呼び出しについては、最近研究を重ねておりました。過去の事例をまとめ、ノウハウの方向性を分析。

過去の事例はPure AppleScriptについてのものであり、今日Cocoaの機能を呼び出すAppleScriptObjCの環境で使えないものを紹介しても仕方がありません。もはや、Cocoaの機能呼び出しとAppleScriptは不可分のレベルです。

そんなわけで、AppleScriptObjC環境でのハンドラの間接呼び出しについて試行錯誤と検討を重ね、ハンドラの存在確認とパラメータつきハンドラの間接呼び出しができるようになってきました。

AppleScript名：ASOCでハンドラの間接呼び出し v3b

–By @badcharanさん
use framework "Foundation"
use scripting additions

set nameOfTargetHandler to "aHandler:"
set aParamObj to {1, 2, 3}

set existsHandler to (me’s respondsToSelector:nameOfTargetHandler) as boolean
if existsHandler = true then
　　set aRes to (my performSelector:nameOfTargetHandler withObject:aParamObj) as list of string or string
else
　　error "The Handler ＼"" & nameOfTargetHandler & "＼" is not present in this Script."
end if

return aRes

on x()
　　return "hello"
end x

on aHandler:(aParam as list of string or string)
　　return length of aParam
end aHandler:

★Click Here to Open This Script　

Please follow and like us:

Script Debugger 7が登場。試用期間が切れても機能制限つきLiteモードで動作

Posted on 3月 5 by Takaaki Naganoya

Late Night SoftwareからScript Debuggerの最新バージョン、Script Debugger 7がリリースされました。macOS 10.11以降のOSが対象です。価格は99ドルで、ボリュームディスカウントも用意されています。

Script DebuggerはClassic Mac OSの時代からサードパーティのAppleScript統合開発環境として続いてきたソフトウェアです。AppleScriptのプログラムの開発、実行およびデバッグのための強力な機能を提供します。

v6：AppleScriptObjCに対応
v5：エディタ部分をフル書き換え

▲Script Debugger 7

▲Script Debugger 3 + Classic Mac OS 8.6（SheepShaver）

AppleScript統合開発環境の決定版

「デバッガ」の名のとおり、AppleScriptに対して変数内容のリアルタイムモニタリング、ブレークポイントの設定、ステップ実行などの機能を提供します。

さらに、対象アプリケーションの各オブジェクトの属性値情報をリアルタイムでモニタリングする機能を提供しており、初見のGUIアプリケーションであっても、Script Debuggerのこの機能を用いれば、とくに迷うことなく目的の属性値情報にたどり着くことが可能です。

初心者にこそ使ってほしいソフトウェア

こうした機能は、（上級者はもちろんのこと）初心者にこそ有用なもので、自分もたまたまAppleScript入門時にScript Debuggerに出会い（バージョン2か3の頃に）、たいへんに助けられました。FileMaker Proのデータベースからカテゴリごとにデータを抽出してHTMLコンテンツを生成するAppleScriptを、AppleScriptを使い始めて１週間ぐらいで作れるようになったのは、（海外のMailing Listで教えてもらいつつ）Script Debuggerがあったからです。

名前が仰々しいので「むずかしいソフトウェア」と思われがちで、それがScript入門者にとってもメーカーにとってもたいへんに不幸なことだと思っていました。初心者が使うと便利でわかりやすいのに、初心者が「むずかしそう」と敬遠してしまうのは、残念なことです。

一般的なレベルの「AppleScript入門者」にScript Debuggerの機能を２〜３週間で理解しろといっても無理なようなので、もう少し「何か」があれば入門者もより理解が深まり、Script Debuggerの恩恵を授かることができるのに、と思っておりました。

３週間の試用期間を過ぎてもLiteモードで機能制限版として使用可能

そこに、今回のScript Debugger 7で「Liteモード」が用意されました。使用期限が切れても、機能制限版のScript Debuggerとして動作するモードです。このLiteモードの状態でもApple純正のスクリプトエディタよりも高機能です（AppleScript書類の書式にアクセスできない以外は）。

ちなみに、Xcode上でGUIベースのアプリケーションをAppleScriptで組もうとしたときに、Script Debuggerなどのまともな外部AppleScriptエディタは必須のものです。

Please follow and like us:

Finderの最前面のWindowで表示中のフォルダをTerminalでオープン

Posted on 2月 27 by Takaaki Naganoya

Finderの最前面のWindowで表示中のフォルダをTerminalでオープンするAppleScriptです。

AppleScript名：Finderの最前面のWindowで表示中のフォルダをTerminalでオープン

tell application "Finder"
　　set wCount to count every window
　　if wCount = 0 then return
　　
　　tell front window
　　　　set aTarg to target as alias
　　end tell
end tell

set targPOSIX to quoted form of (POSIX path of aTarg)
set aCom to "cd " & targPOSIX

tell application "Terminal"
　　set tCount to count (every window whose visible is true)
　　if tCount = 0 then
　　　　do script aCom
　　else
　　　　do script aCom in front window
　　end if
end tell

★Click Here to Open This Script　

Please follow and like us:

Mail.appで送信元を明示的に指定しつつメール送信

Posted on 2月 26 by Takaaki Naganoya

Mail.appで送信元の氏名および送信先の氏名を明示的に指定しつつメール送信を行うAppleScriptです。

Mail.appの操作Scriptはやればやるだけ課題が見えてくるので、ほどほどのところで止めています。メールアカウントについて、１つしかアカウントを登録していなければデフォルトのメールアカウントでを前提にメール送信すればいいはずですが、複数のアカウントを登録しているケースが多いので、アカウントを指定する処理を書いてみました。

メールの大量連続送信については、1990年代からずっとAppleScriptで行なっていますが、途中で知り合いが盛大にやらかした（短時間で大量のメール送信を行なってさまざまなプロバイダのメールサーバーをコケさせかけた）影響もあって、日本国内のネットワークでは単位時間内に所定の本数を超えるメール送信を行うと、プロバイダからすぐにメール送信のリレーを止められ、その後しばらくメール送信を行えなくなるのが「お約束」となっています。

＃　だいたい、１秒に１通以上（１分に60通以上）送信すると疑われます。

かくして、メールの大量一括送信をScriptで行う場合には、ある程度「待ち時間」を入れつつ送信するか、REST API経由でSendGridのサービスを呼び出してメーラー以外でメール送信を行うあたりが落とし所になっています。

AppleScript名：Mail.appで送信元を明示的に指定しつつメール送信

–本来、メールアカウントのnameがわかっていれば、わざわざリストから選択する必要はない
tell application "Mail"
　　set aList to name of every account
　　set aaSel to choose from list aList
　　if aaSel = {} or aaSel = false then return
　　set aSel to first item of aaSel
end tell

log aSel

set mRes to makeAMailWithSpecifiedAccount("メールのタイトルだよ100", "テストメールの本文だよ100", "送信者の名前だよ", "送付先氏名", "nobody@piyocast.com", aSel) of me

on makeAMailWithSpecifiedAccount(theSubject, theBody, myName, yourName, yourAddress, myAccountName)
　　tell application "Mail"
　　　　–Account check
　　　　set anAccount to account myAccountName
　　　　set aProp to enabled of anAccount
　　　　if aProp is not equal to true then return false –アカウントが有効でなかった場合はエラーに
　　　　
　　　　set eList to (email addresses of anAccount)
　　　　if eList = {} then return false –アカウントにメールアドレスの登録がなかった場合はエラーに（ねんのため）
　　　　set myEmail to first item of eList
　　　　
　　　　–Make Sender
　　　　set theSender to myName & "<" & myEmail & ">"
　　　　
　　　　–Make Message & Send
　　　　set newMessage to make new outgoing message with properties {sender:theSender, subject:theSubject, content:theBody & return & return, visible:false}
　　　　tell newMessage
　　　　　　set visible to false
　　　　　　make new to recipient at end of to recipients with properties {name:yourName, address:yourAddress} –受取人の指定
　　　　　　send –メール送信
　　　　end tell
　　end tell
　　
　　return true
end makeAMailWithSpecifiedAccount

★Click Here to Open This Script　

Please follow and like us:

Keynoteでタイトルがマスターに入っていなかった場合に修正 v2

Posted on 2月 23 by Takaaki Naganoya

Keynoteのタイトルがマスターに入っていなかった場合に、スライドの一番左上に存在するテキストアイテムをタイトルに入れ直すAppleScriptです。

Keynoteで急いでスライドを作ってはみたものの、あわててタイトルをマスタースライドのタイトルオブジェクトに入れていなかった場合に、（見た目は変わらないものの）あとで修正しておく必要があるケースがあります（Keynoteのデータを再利用するような場合とか）。

そこで、現在表示中のスライド中で一番左上に存在するテキストアイテムで、フォントサイズ20ポイント以上、文字色が黒 {0, 0, 0} のものをタイトルとみなして、文字を取得。あらためてマスタースライドのタイトルオブジェクトに文字を入れ直します。

このままだと、色データが{0,0,1}になったぐらいで検出できなくなってしまいますが、Color Domain処理を組み合わせることで「だいたい黒」「黒っぽい色」といった判定が行えるため、組み合わせて使うと効果的でしょう。

▲Before

▲After

AppleScript名：Keynoteでタイトルがマスターに入っていなかった場合に矯正 v2

use AppleScript version "2.4"
use framework "Foundation"
use scripting additions
use bPlus : script "BridgePlus"

property minTitleFontSize : 20
property targBaseSlide : "タイトル（上）"

tell application "Keynote"
　　tell front document
　　　　set newMaster to master slide targBaseSlide
　　　　
　　　　tell current slide
　　　　　　set curBaseName to name of base slide
　　　　　　
　　　　　　–現在のスライド上のすべてのテキストアイテムの座標{x ,y}を取得して最小（一番上）のものを推測
　　　　　　set pList to position of every text item
　　　　　　set p2List to sort2DListAscending(pList) of me
　　　　　　set mostUpPos to contents of first item of p2List
　　　　　　
　　　　　　–一番上に存在するテキストアイテムから情報を抽出
　　　　　　set tTextItem to first item of (every text item whose position is mostUpPos)
　　　　　　tell tTextItem
　　　　　　　　set tObjText to (object text)
　　　　　　　　set aTitle to tObjText as string
　　　　　　　　set aProp to size of (object text)
　　　　　　　　set aColor to color of (object text)
　　　　　　end tell
　　　　　　
　　　　　　–スライドの一番上に存在するテキストアイテムのフォントサイズが想定以上で、色が黒の場合には
　　　　　　–マスタースライドのデフォルトタイトルに、一番上に存在していたテキストアイテムの本文を突っ込む
　　　　　　if (aProp ≥ minTitleFontSize) and (aColor = {0, 0, 0}) then
　　　　　　　　–色判定でColor Domain処理を行えば、「黒っぽい色」や「赤っぽい色」を対象にできる
　　　　　　　　
　　　　　　　　if curBaseName is not equal to targBaseSlide then
　　　　　　　　　　set base slide to newMaster
　　　　　　　　end if
　　　　　　　　
　　　　　　　　delete tTextItem
　　　　　　　　set object text of default title item to aTitle
　　　　　　end if
　　　　end tell
　　end tell
end tell

–2D Listのソート
on sort2DListAscending(aList)
　　load framework
　　set sortIndexes to {0, 1} –Key Item id: begin from 0
　　set sortOrders to {true, true} –Ascending, Ascending
　　set sortTypes to {"compare:", "compare:"}
　　set bList to (current application’s SMSForder’s subarraysIn:(aList) sortedByIndexes:sortIndexes ascending:sortOrders sortTypes:sortTypes |error|:(missing value))
　　return bList as list of string or string
end sort2DListAscending

★Click Here to Open This Script　

Please follow and like us:

Finder Windowを円運動 v4

Posted on 2月 23 by Takaaki Naganoya

Finderのウィンドウ６つ（可変）を画面上で別々に楕円運動させるAppleScriptです。

三角関数の計算にShane StanleyのBridge Plus AppleScript Librariesを利用しています。

–> Demo Movie

AppleScript名：Finder Windowを円運動 v4

— Created 2014-11-17 by Takaaki Naganoya
— Modified 2018-02-23 by Takaaki Naganoya
— 2014-2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "AppKit" — for NSScreen
use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

property aNum : 300
property aOffset : 0
property maxWin : 6
property winList : {}
property randList : {}
property winSize : 300

–Initialize
load framework
set winList to {}
set randList to {}

repeat maxWin times
　　tell application "Finder"
　　　　activate
　　　　set aWin to make new Finder window
　　　　
　　　　tell aWin
　　　　　　set toolbar visible to false
　　　　　　set sidebar width to 0
　　　　　　set statusbar visible to false
　　　　　　set position to {100, 100}
　　　　　　set bounds to {100, 100, 100 + winSize, 100 + winSize}
　　　　end tell
　　　　
　　　　set the end of winList to aWin
　　　　set the end of randList to {random number from 0 to 400, random number from 0 to 400, random number from 1 to 360}
　　　　
　　end tell
end repeat

–Main
repeat with i from 1 to 360 by 6
　　
　　repeat with ii from 1 to maxWin
　　　　
　　　　set aWinObj to contents of item ii of winList
　　　　set {aRandX, aRandY, aRandDegree} to item ii of randList
　　　　
　　　　set aDeg to i + aRandDegree
　　　　
　　　　set aSinNum to (current application’s SMSForder’s sinValueOf:aDeg) as real
　　　　set aCosNum to (current application’s SMSForder’s cosValueOf:aDeg) as real
　　　　
　　　　set x to ((aNum * aSinNum) + aNum) * 2 + aOffset
　　　　set y to (aNum * aCosNum) + aNum + aOffset
　　　　
　　　　ignoring application responses
　　　　　　tell application "Finder"
　　　　　　　　tell aWinObj
　　　　　　　　　　set position to {(x as integer) + aRandX, (y as integer) + aRandY}
　　　　　　　　end tell
　　　　　　end tell
　　　　end ignoring
　　　　
　　end repeat
　　
end repeat

–Sweep
tell application "Finder"
　　repeat with i in winList
　　　　tell i
　　　　　　close
　　　　end tell
　　end repeat
end tell

★Click Here to Open This Script　

Please follow and like us:

Finder Windowを円運動 v1b

Posted on 2月 23 by Takaaki Naganoya

Finderのウィンドウ１つを画面上で楕円運動させるAppleScriptです。

三角関数の計算にShane StanleyのBridge Plus AppleScript Librariesを利用しています。

以前に掲載したバージョン（v1）から、BridgePlusを使うように変更しました。

–> Demo Movie

自分が最初に見たAppleScriptが、「AppleScript道入門」に掲載されていたテキストエディタのウィンドウを画面の淵に沿わせて直線移動で１周させるものでした（それを見て「たいしたことはない」と思ってしまいましたが）。

いまでは、楕円軌道に沿ったウィンドウ移動もこのぐらいのスピードでできている、ということを実感できました。

AppleScript名：Finder Windowを円運動 v1b

use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html
use framework "AppKit" — for NSScreen

property aNum : 300
property aOffset : 0

load framework

set {newX, newY} to (current application’s NSScreen’s mainScreen()’s frame()’s |size|()) as list

tell application "Finder"
　　set aWin to make new Finder window
end tell

repeat with i from 1 to 360 by 6
　　
　　set |asin| to (current application’s SMSForder’s sinValueOf:i) as real
　　set |acos| to (current application’s SMSForder’s cosValueOf:i) as real
　　
　　set x to ((aNum * |asin|) + aNum) * 2.0 + aOffset
　　set y to (aNum * |acos|) + aNum + aOffset
　　
　　tell application "Finder"
　　　　tell aWin
　　　　　　set position to {x as integer, y as integer}
　　　　end tell
　　end tell
　　
end repeat

tell application "Finder"
　　tell aWin
　　　　close
　　end tell
end tell

★Click Here to Open This Script　

Please follow and like us:

テーマを選択してKeynoteの新規ドキュメントを作成

Posted on 2月 23 by Takaaki Naganoya

AppleScript名：テーマを選択してKeynoteの新規ドキュメントを作成

tell application "Keynote"
　　set tList to name of every theme
　　set themeName to first item of (choose from list tList)
　　set newDoc to make new document with properties {document theme:theme themeName}
　　
end tell

★Click Here to Open This Script　

Please follow and like us:

Keynote 6.6でドキュメントを新規作成して指定可能なマスタースライド一覧を取得

Posted on 2月 23 by Takaaki Naganoya

AppleScript名：Keynote 6.6でドキュメントを新規作成して指定可能なマスタースライド一覧を取得

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

tell application "Keynote"
　　–Keynoteの用語辞書のサンプルどおりに書いても動かない！！（オブジェクト名がローカライズされているので、テーマ名が言語環境依存）
　　set aDoc to (make new document with properties {document theme:theme "ホワイト", width:1920, height:1080})
　　
　　tell aDoc
　　　　set masList to name of every master slide
　　　　–> {"タイトル & サブタイトル", "画像（横長）", "タイトル（中央）", "画像（縦長）", "タイトル（上）", "タイトル & 箇条書き", "タイトル、箇条書き、画像", "箇条書き", "画像（3 点）", "引用", "写真", "空白"}
　　end tell
end tell

★Click Here to Open This Script　

Please follow and like us:

Keynoteで現在表示中のスライド上にある表のカラム幅を自動調整

Posted on 2月 23 by Takaaki Naganoya

▲Before

▲After

AppleScript名：Keynoteで現在表示中のスライド上にある表のカラム幅を自動調整 v2

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

tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　
　　　　　　set tCount to count every table
　　　　　　if tCount = 0 then return
　　　　　　
　　　　　　tell table 1
　　　　　　　　
　　　　　　　　set cCount to count every column
　　　　　　　　set cWidth to width of every column
　　　　　　　　set aWidth to width –table width
　　　　　　　　
　　　　　　　　set aveWidth to (aWidth – (first item of cWidth)) / (cCount – 1)
　　　　　　　　
　　　　　　　　tell columns 2 thru cCount
　　　　　　　　　　set width to aveWidth
　　　　　　　　end tell
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　end tell
end tell

★Click Here to Open This Script　

Please follow and like us:

Keynoteで2D円グラフを作成

Posted on 2月 23 by Takaaki Naganoya

AppleScript名：Keynoteで2D円グラフを作成

–set aRec to {kanjiNum:24960, kanjiRating:28.0, hiraganaNum:56080, hiraganaRating:62.9, katakanaNum:1063, katakanaRating:1.2, otherNum:7136, otherRating:8.0} –文学（坊ちゃん）
–set aRec to {kanjiNum:563289, kanjiRating:22.0, hiraganaNum:1311933, hiraganaRating:51.2, katakanaNum:210161, katakanaRating:8.2, otherNum:478690, otherRating:18.7, totalCount:2564073}–異世界はスマートフォンとともに
set aRec to {kanjiNum:364870, kanjiRating:26.7, hiraganaNum:682261, hiraganaRating:50.0, katakanaNum:89109, katakanaRating:6.6, otherNum:230374, otherRating:16.9, totalCount:1366614} –Knight’s and Magic

set cCount to (kanjiNum of aRec)
set hCount to (hiraganaNum of aRec)
set kCount to (katakanaNum of aRec)
set oCount to (otherNum of aRec)

tell application "Keynote"
　　set aDoc to (make new document with properties {document theme:theme "ホワイト", width:1024, height:768}) –Normal Slide
　　–set aDoc to (make new document with properties {document theme:theme "ホワイト", width:1920, height:1080})–Wide Slide
　　
　　tell front document
　　　　
　　　　set aSlide to make new slide at after (first slide) with properties {base slide:master slide "タイトル(上)"}
　　　　tell aSlide
　　　　　　set object text of default title item to "文字種別使用比率"
　　　　　　–add chart row names {"文字種別"} column names {"漢字", "ひらがな", "カタカナ", "その他"} data {{cCount, hCount, kCount, oCount}} type pie_2d –group by chart row
　　　　　　add chart row names {"文字種別"} column names {"Kanji", "Hiragana", "Katakana", "Other"} data {{cCount, hCount, kCount, oCount}} type pie_2d –group by chart row
　　　　　　
　　　　end tell
　　　　
　　end tell
　　
end tell

★Click Here to Open This Script　

Please follow and like us:

【基礎】アプリケーションの操作は、用語辞書に書いてあるとおり記述しないと動かない

Posted on 2月 19 by Takaaki Naganoya

「コンピュータは、あなたが思ったとおりには動かないが、操作したとおりに動く」

名言だと思います。同様に、

「プログラムは、あなたが思った/願ったようには動かないが、書いたとおりに動く」

と言い換えることが可能です。さらに、

「AppleScriptは、あなたが願ったようには動かないが、書いたとおりに動く」

とも言い換えられます。とくに、アプリケーションの操作については「AppleScript用語辞書」に書いてあるとおりに書くのが鉄則です。それ以外の書き方をして「動いてしまった」としても、その方が不思議なわけで。

自分でも、海外のScripter連中でもそうだと思うのですが、Scriptを書いている最中は、AppleScript用語辞書を数枚ひらきっぱなしです。AppleScriptObjCのプログラムを書いているときには、AppleのReferenceサイトも表示させっぱなしです。さらに難問になってくるとUS AppleのAppleScript Users MLとか、www.macscripter.netとかを検索しまくることになり複数モニタが欠かせません（３枚使っているといったらShane Stanleyに「ずいぶん枚数多いな！」と驚かれましたが、、、）。

ひと昔前（Classic Mac OSの時代）、AppleScript用語辞書はわざわざ人間（開発者）が書くもので、さらに実際のアプリケーション側の機能とリンクしていない「ただの書き方見本」だったので、「用語辞書には書いていないけれど使える」とかいう「隠し命令」なんてものもありました（初代のEntourageとか）。単なる書きもれ、ケアレスミスでしたが、マニアさんの間では「隠し命令」の存在がちょっと「通」な話題になっていたりしました。

いまのAppleScript用語辞書はXMLファイル（sdefファイル）で、この用語辞書がイコールAppleEventの解釈用の辞書であって、「書き方見本」ではありません。そのため「隠し命令」が存在する余地というのはありません。逆にいえば、用語辞書のとおりに動かなかったら完全なバグなわけです（実装が「不完全」「残念」なために期待したとおりに動かないというKeynote/Numbers/Pagesは例外として）。

たまたま、魔が差してTwitter上で議論になったのですが・・・アプリケーションにファイルをオープンさせる場合には、AppleScript用語辞書をScript Editorでオープンして、コマンドなりオブジェクトなりの使い方を調べることになります。このあたり、Objective-CでCocoaのAPIの使い方をAppleのサイトで調べながら書くのと同じです。AppleScript用語辞書は、アプリケーションバンドル内にあってScript Editorからオープンできます。

で、この「AppleScript用語辞書を見る」ことをしない方がけっこう多いようで・・・逆にこれを見ないでよくプログラムが書けるもんだと感心してしまうんですが、用語辞書を見ないとハマりやすいんですね。

前述のように、アプリケーションの操作は「決められたとおりに書かないと正しく動かない」ものであり、さらにその先に「ファイルをオープンもしないで中を調べたりはできないよ」といったアプリケーションの挙動（経験則に基づく）の話になるわけなんですけれども、まずは用語辞書を見ないと分かりません。

アプリケーションで書類をオープンする際には、ごく一部の残念な例外（Adobeのアプリ）をのぞいては、パス情報をaliasにしてopenコマンドに渡す必要があります。

ここで、POSIX pathやらfileやらを渡してもオープンはしないわけです。

AppleScript用語辞書には「openコマンドにはaliasを渡してね」と書いてあるので、

alias以外を渡すのはアウトです（aliasのlistはOK）。それ以外の形式のパス情報を渡して、たまたま間違って動いていたとしても、たまたまです。それ以上でも、それ以下でもありません。

最近は、AppleScript用語辞書にHTMLコンテンツを入れることができるようになり、一部のアプリケーションでは用語辞書内にサンプルScriptを掲載しだして、「サンプルをそのままコピペで動く」いい時代になってきたはずなんですが、これまた残念なことに「Apple社内の連中が書くScriptが絶望的に読みにくい」ために（theとかresultとか使いまくる＆１行を長く記述して初心者にわかりにくい）、サンプルを読むと逆に理解しづらくなるという事態が（ーー；；

もういっそのこと、アプリケーションバンドル内に、典型的な利用法を記述したAppleScript Librariesを内蔵してしまって、Scriptから呼び出せるようにすべきではないかとも考える次第です。

余談：

途中から（OS X 10.8あたり？）挙動が変わってしまって困っていた、Mail.appのmove命令。前は複数のmessageをlistに入れて一気にmoveできていたのが、１つのmessageしかmoveできないように変わり、処理速度を稼げなくなっていました（複数一度にmoveできたほうが速い）。

いましらべたら、

複数のmessageを示すobject(s)の表記がありますね。でも、「Move an object to new location」とも書いてあり・・・微妙な。

Please follow and like us:

AppleScript Hole

Useful & Practical AppleScript & AppleScriptObjC archive

カテゴリー: 未分類

ScriptDebugger 7で最前面のドキュメントから特殊な属性値を取得

Copyright表記（copyright）

使用Framework（used framework files）

使用Script Libraries（used script library files）

レガシーScript Libraries（legacy script libraries）

OSAX（used scripting addition files）

アプリケーション（used applications）

組み込みScript Libraries（embedded script libraries）

NSObjectの各種メソッドのじっけん

Xcode上のAppleScriptObjCでpragma markを使う

Evernoteで選択中のnoteを指定のNotebookにコピー

Safariで検索を実行

SafariとiTunesがアップデート

大幅な整理と謎の見直しが行われたSafari v11.1

iTunesには変更なし

Keynote, Pages, Numbersがアップデート

NSSharingService経由でメールを新規作成（作成するだけ、送信しない）

ASOCでハンドラの間接呼び出し v3b

Script Debugger 7が登場。試用期間が切れても機能制限つきLiteモードで動作

AppleScript統合開発環境の決定版

初心者にこそ使ってほしいソフトウェア

３週間の試用期間を過ぎてもLiteモードで機能制限版として使用可能

Finderの最前面のWindowで表示中のフォルダをTerminalでオープン

Mail.appで送信元を明示的に指定しつつメール送信

Keynoteでタイトルがマスターに入っていなかった場合に修正 v2

Finder Windowを円運動 v4

Finder Windowを円運動 v1b

テーマを選択してKeynoteの新規ドキュメントを作成

Keynote 6.6でドキュメントを新規作成して指定可能なマスタースライド一覧を取得

Keynoteで現在表示中のスライド上にある表のカラム幅を自動調整

Keynoteで2D円グラフを作成

【基礎】アプリケーションの操作は、用語辞書に書いてあるとおり記述しないと動かない

Enjoy this blog? Please spread the word :)