マウスカーソルを隠す→表示する

Posted on 4月 9 by Takaaki Naganoya

マウスカーソルを非表示、表示にするAppleScriptです。

マウスカーソルの変更はClassic Mac OSの時代にそういうOSAXを見かけた覚えがありますが、今日びCocoaの機能を用いて割と簡単に表示/非表示の切り替えができることに気づきました。

＃　カーソルのイメージを変更するのには失敗しました

長時間のバッチ（一括）処理中にユーザーに操作してほしくない場合には、デスクトップ機であればマウスを取り外しておく措置を講じたこともありますが、さらに念には念のためにこうしてマウスカーソルを非表示にしておくのもよいかもしれません。

MacBook Proなどのノートでバッチ処理を行いつつユーザーの操作により処理が妨げられることを防ぐためにカーソル非表示にするのも、（ユーザーが不安に感じなければ）案外いい手段でしょう。

AppleScript的には、意外と使い勝手がありそうです。

AppleScript名：マウスカーソルを隠す→表示する.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/04/09
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

set curCursor to current application’s NSCursor’s currentCursor()

current application’s NSCursor’s hide()

delay 5

current application’s NSCursor’s unhide()

★Click Here to Open This Script　

Finderの環境設定によって得られる書類ファイル名が変わるアプリケーション

Posted on 3月 17 by Takaaki Naganoya

Apple純正のKeynote、Numbers、Pagesの動作で注意を要する動作が見られました。

macOSの各種設定については、デフォルト設定状態をなるべく変更しないで使っています（変更するのはマウス移動速度とキーボードリピート速度ぐらい？）。

Finderの環境設定についても、初期設定値からたいして変更していません。

このFinderの環境設定の中に、「すべてのファイル名拡張子を表示」という項目があります。設定するかどうかは個人の趣味によるところですが、自分はオンにしていません。デフォルトではオフなので、デフォルト値のまま使うことが多いところです。

でもまさか、オンにしておくと挙動が変わるアプリケーションが出てくるとは思ってもみませんでした。そういうのはFinder上だけの挙動だと思ってしまうところです。

AppleScript経由で得られるiWorkアプリケーションのファイル名に変化が

ご覧のとおり、Finderの設定によってiWorkアプリケーションに対してname of documentを取得したときに得られる名前が違うということを確認できました。Finderの環境設定を変更するたびにiWorkアプリケーションはいったん終了させています（起動しっぱなしだとFinderの環境設定値の変更を認識しないようなので）。

tell application "Numbers"
　　set aName to name of front document
end tell

★Click Here to Open This Script　

▲Finder上の設定＝「すべてのファイル名拡張子を表示」をオフ　→　”name_test”

▲Finder上の設定＝「すべてのファイル名拡張子を表示」をオン　→　”name_test.numbers”

macOS 10.12.6、macOS 10.13.6、macOS 10.14.4Betaで挙動を確認しましたが、すべて同様の動作が確認されました。

これは、、、、、自分はよくない動作だと思いますが、まずはFinderの環境設定値「すべてのファイル名拡張子を表示」の設定内容をScriptの実行環境で統一してどちらかに設定しておく必要性を感じます。

Keyboard Viewerを表示する

Posted on 3月 10 by Takaaki Naganoya

入力メニューから呼び出すことのできる「キーボードビューア」（ソフトウェアキーボード）を表示するAppleScriptです。

macOSには、成り立ちのことなる２系統のソフトウェアキーボードが搭載されています。

文字入力補助用の「キーボードビューア」

１つが、本Scriptで対象にしている「キーボードビューア」。入力メニューから呼び出すタイプのソフトウェアキーボードです。昔のClassic Macintoshの時代には、ノート型のPowerBookが登場するまで（Macintosh Portableもあったものの、キーボードが取り外し可能でした）本体とキーボード、マウスが分離するタイプのコンピュータであったため、ソフトウェアキーボードの存在は必要なものでした。

キーボード未接続時の緊急用に「キー配列」というキーボードビューアの前進であるソフトウェアを使うことがありました。利用頻度ははとても低いものでした。マウスしかつなげていない時にキー入力するといった程度のものです。

昔、Classic MacOSの時代に、日本語手書きフォントでカタカナにマッピングしていたもの（R研究所の日本語手書きフォントなど）があったので、そうした変則的なフォントを入力するための補助UIとして使ったとかいう記憶はあります。

障害者補助用の「キーボード」スイッチ

もう１つが、アクセシビリティ系の機能で提供されている「キーボード」。システム環境設定＞アクセシビリティ＞スイッチコントロールで、「ホーム」のスイッチから、「キーボード」ボタンを選択すると表示されるソフトウェアキーボードです。

単なる文字入力だけではなく、キーボード自体が使えないユーザー向けにカーソル移動やマウスの左右クリック、ドラッグ＆ドロップ、スクロールや日本語かな漢字変換などの機能を提供しています。

「キーボード」スイッチは、表示位置を変更できるものの、サイズの変更は行えません。一方、キーボードビューアはリサイズが可能です。

昨今ソフトウェアキーボードの存在に注目が集まる

これらソフトウェアキーボード類は、タブレット型のPCでmacOSを動かしたり、Macの外部ディスプレイとしてiPadを用いる利用方法が紹介されるようになって、近年その存在が再注目されつつあります。

本AppleScriptはキーボードビューアを呼び出して表示します。呼び出しにBridgePlusを必要としており、macOS 10.14.x上で実行するためには、AppleScriptをバンドル形式のアプレットとして書き出し、アップレットのバンドル中にBrdgePlusを同梱する必要があります。

AppleScript名：Keyboard Viewerを表示する

— Created 2015-09-16 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use BridgePLus : script "BridgePlus" version "1.2" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

property targInputID : "com.apple.KeyboardViewer"

load framework
set aList to (current application’s SMSForder’s allAvailableInputSourceIDs()) as list
if targInputID is in aList then
　　set x to current application’s SMSForder’s changeInputSourceTo:targInputID
　　if x = false then error "Can not change input source."
end if

★Click Here to Open This Script　

WiFiデバイスのパワーを操作

Posted on 3月 6 by Takaaki Naganoya

Macに内蔵/接続されている無線LAN（WiFi）デバイスのパワー（電源）をオン/オフ操作するAppleScriptです。

AppleScript名：WiFiデバイスのパワーを操作

— Created 2015-08-18 by Shane Stanley
— Modified 2019-03-06 by Takaaki Naganoya
use AppleScript version "2.4" –macOS 10.10 or later
use scripting additions
use framework "Foundation"
use framework "CoreWLAN"

property CWInterface : a reference to current application’s CWInterface

–Power On WiFi
set w1Res to powerControlEveryWiFiDevices(true) of me

delay 5

–Power Off WiFi
set w2Res to powerControlEveryWiFiDevices(false) of me

on powerControlEveryWiFiDevices(aFlag as boolean)
　　set allNames to CWInterface’s interfaceNames()’s allObjects() as list
　　if allNames = {} then return false
　　
　　set powerList to {}
　　repeat with i in allNames
　　　　set j to contents of i
　　　　set aInterface to (CWInterface’s interfaceWithName:j)
　　　　set wRes to (aInterface’s setPower:aFlag |error|:(missing value))
　　　　
　　　　–Get Power state and check it
　　　　set aPower to (aInterface’s powerOn()) as boolean
　　　　if aPower = (not aFlag) then
　　　　　　if aFlag = true then
　　　　　　　　set aStat to " on "
　　　　　　else
　　　　　　　　set aStat to " off "
　　　　　　end if
　　　　　　display notification "Error occured in power" & aStat & "an Wifi deviece ( " & j & " )…."
　　　　end if
　　　　set the end of powerList to aPower
　　end repeat
　　
　　return ({aFlag} is in powerList) –return whether some WiFi interface is on/off
end powerControlEveryWiFiDevices

★Click Here to Open This Script　

指定Localeおよび現在のユーザー環境のLocaleから短縮曜日名を取得

Posted on 2月 16 by Takaaki Naganoya

指定の任意のLocaleもしくはScript実行中のユーザー環境のLocaleを取得して、曜日の短縮名称を取得するAppleScriptです。

AppleScript名：指定Localeおよび現在のユーザー環境のLocaleから短縮曜日名を取得

— Created 2019-02-14 by Takaaki Naganoya
— 2019 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"

set aList to getLocalizedShortDaynames("en_US")
–>　　{"Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"}
set aList to getLocalizedShortDaynames("fr_FR")
–>　　{"dim.", "lun.", "mar.", "mer.", "jeu.", "ven.", "sam."}
set aList to getLocalizedShortDaynames("ja_JP")
–>　　{"日", "月", "火", "水", "木", "金", "土"}
set aList to getLocalizedShortDaynames("zh-Hans")
–>　　{"周日", "周一", "周二", "周三", "周四", "周五", "周六"}

–現在のユーザーのLocale情報を取得して短縮曜日名を取得
set curLoc to (current application’s NSLocale’s currentLocale’s objectForKey:(current application’s NSLocaleIdentifier)) as string
–> "ja_JP"
set bList to getLocalizedShortDaynames(curLoc) of me
–> {"日", "月", "火", "水", "木", "金", "土"}

–ローカライズされた曜日名称を返す（短縮名称）
on getLocalizedShortDaynames(aLoc)
　　set df to current application’s NSDateFormatter’s alloc()’s init()
　　df’s setLocale:(current application’s NSLocale’s localeWithLocaleIdentifier:aLoc)
　　set dayNames to df’s shortStandaloneWeekdaySymbols() as list
　　return dayNames
end getLocalizedShortDaynames

★Click Here to Open This Script　

spacesKitで現在のSpacesのIDを取得する

Posted on 2月 12 by Takaaki Naganoya

オープンソースのTaskRail-MacをもとにしたspacesKitフレームワークを利用して、現在のSpacesのIDを取得する実験的なAppleScriptです。

–> Download spacesKit.framework (To ~/Library/Frameworks/)

Spaces変更通知を正確に受信したい

Spacesの変更操作についてはNotificationを受信できます。でも、Spacesの切り替え表示から「元と同じSpace」を選んで、Spacesの切り替えが発生しなかったとしても同様にNotificationが発生します。「現在選択中のSpaces」の情報を取得できないのでNotificationを利用しただけでは実用性がいまひとつでした。

Spacesごとに別々のDesktop Pictureを指定していればDesktop Pictureのパスをもとに特定できなくはありませんが、すべてのSpacesで同じDesktop Pictureが設定されていると区別できません。

そこで、TaskRail-Macの機能を利用して現在有効なSpacesのIDを取得し、本当に別のSpacesに切り替えたことを検出できました。

ただ、そこまでやってもいろいろ試してみると意外な伏兵に遭遇。

アプリケーションのフルスクリーン動作画面というのはOS的には動的に生成する別のテンポラリSpacesを利用しているようです。アプリケーションをフルスクリーン表示にしたり、YouTubeのムービーを全画面表示させるとSpaces切り替えNotificationを受信したりで、この「フルスクリーン表示」状態を検出・除外する方法を知りたいところです。

TaskRail-Macの返してくるSpacesのID

Spaces関連では、Terminal上から、

defaults read com.apple.spaces

と操作することで詳細な情報を取得できますが、spacesKitフレームワーク（TaskRail-Mac）で得られるIDはこのdefaltsコマンドの結果とは異なっています。

TaskRail-MacのObjective-Cのコードを読んでみると単にカウントを行なっているだけでIDに（OS内の設定値にもとづいた）根拠はないように見えます。

TaskRail-Macが返すIDは、defaults readで設定値を読み取った中に該当するものが見つかりませんでした。

▲spacesKitが返してくるID。左側のものが17207、右側デフォルトのものが311@macOS 10.14

また、複数ディスプレイを接続した環境でも、返ってくるIDは１つのみであり、メインディスプレイ以外でSpacesが変更されてもID値に変更はないため、メインディスプレイのSpacesのIDを返してくるものと考えてください。

ここで言う「メインディスプレイ」とは、MacBook系のノート型マシンの本体内蔵ディスプレイではなく、デスクトップが表示されるソフトウェア的なメインディスプレイを指します。

元になっているTaskRail-Mac自体がかなり実験的なプログラムであり、広範なハードウェアコンフィグレーション環境下でテストされたものでなく、「ディスプレイごとに個別のスペース」設定を行なっていない環境のみを考慮したものとうかがわれます。

これは、別にTaskRail-Macが悪いのではなく、AppleがSpaces関連のAPIを整備・公開していないためです。

macOS 10.14上で動かす場合には、アプレット書き出しを行なってアプレットのバンドル内にFrameworkを格納するか、~/Library/FrameworksにFrameworkをインストールしてScript Debugger上で実行、あるいはSIPを解除してスクリプトエディタ上で実行することが可能です。

AppleScript名：spacesKitで現在のSpacesのIDを取得する.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/02/09
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "spacesKit" –https://github.com/DamianSullivan/TaskRail-Mac
use scripting additions

set aSwitcher to current application’s TRDesktopSwitcher’s alloc()’s init()
set aRes to aSwitcher’s getCurrentSpaceId()

★Click Here to Open This Script　

AppleScript名：space notifier

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/01/25
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use framework "spacesKit" –https://github.com/DamianSullivan/TaskRail-Mac
use scripting additions

property aSwitcher : missing value
property currentSpace : 0

set aCenter to current application’s NSWorkspace’s sharedWorkspace()’s notificationCenter()

aCenter’s addObserver:me selector:"spacesChanged:" |name|:"NSWorkspaceActiveSpaceDidChangeNotification" object:(missing value)

set aSwitcher to current application’s TRDesktopSwitcher’s alloc()’s init()
set currentSpace to aSwitcher’s getCurrentSpaceId() as integer

on spacesChanged:aNotif
　　set aRes to aSwitcher’s getCurrentSpaceId() as integer
　　if aRes is not equal to currentSpace then
　　　　log aRes
　　　　display notification "Active Spaces changed to " & (aRes as string)
　　　　say "Active Spaces changed to " & (aRes as string) using "Tom"
　　　　set currentSpace to aRes
　　end if
end spacesChanged:

★Click Here to Open This Script　

スリープおよびスリープ解除Notificationを受信

Posted on 1月 27 by Takaaki Naganoya

Macがスリープ/スリープから復帰したノーティフィケーションを受信するAppleScriptです。

Cocoaの機能が利用できない時代にスリープ解除を検出するアプリケーション「Okaeri」をAppleScriptで作って動かしていましたが、あれはon idleハンドラで１秒ごとにタイマー割り込みを発生させ、前回割り込み発生時間を記録、前回割り込みと現在時刻の差分を計算し、１ないし数秒以上間隔が空いていたらスリープ解除が発生したとみなして、syslogにスリープ解除が記録されていないかをチェックするようにしていました。

なので、Cocoaの機能呼び出しやNotificationの受信を行えなくても、ある程度は同様の処理が行えるわけですが、使えれば使えたで便利ではあります。

AppleScript名：スリープおよびスリープ解除Notificationを受信.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/01/25
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

set aCenter to current application’s NSWorkspace’s sharedWorkspace()’s notificationCenter()

aCenter’s addObserver:me selector:"notifSleep:" |name|:"NSWorkspaceWillSleepNotification" object:(missing value)

aCenter’s addObserver:me selector:"notifWaked:" |name|:"NSWorkspaceDidWakeNotification" object:(missing value)

on notifSleep:aNotif
　　display notification "System will sleep"
　　say "System will sleep"
end notifSleep:

on notifWaked:aNotif
　　display notification "System did wake"
　　say "System did wake"
end notifWaked:

★Click Here to Open This Script　

ディスプレイのスリープ/復帰Notificationを受信

Posted on 1月 26 by Takaaki Naganoya

Macに接続・搭載しているディスプレイのスリープ/スリープ復帰が行われたノーティフィケーションを受信するAppleScriptです。

AppleScript名：ディスプレイがスリープした.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/01/25
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

set aCenter to current application’s NSWorkspace’s sharedWorkspace()’s notificationCenter()

aCenter’s addObserver:me selector:"notifDispSleeped:" |name|:"NSWorkspaceScreensDidSleepNotification" object:(missing value)

on notifDispSleeped:aNotif
　　say "Display sleeped"
end notifDispSleeped:

★Click Here to Open This Script　

AppleScript名：ディスプレイがスリープから復帰した.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/01/25
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

set aCenter to current application’s NSWorkspace’s sharedWorkspace()’s notificationCenter()

aCenter’s addObserver:me selector:"notifDispWaked:" |name|:"NSWorkspaceScreensDidWakeNotification" object:(missing value)

on notifDispWaked:aNotif
　　say "Display waked"
end notifDispWaked:

★Click Here to Open This Script　

ボリウムの名称変更Notificationを受信

Posted on 1月 26 by Takaaki Naganoya

Macに接続・搭載しているドライブのボリウム名変更が行われたノーティフィケーションを受信するAppleScriptです。

ドライブ名を変更してみると、なぜか通知が２回飛んでくるところが謎です。
→　システム再起動後に追試してみましたが、通知が飛んでくるのは１回だけでした。Scriptを複数回実行してしまったのが原因だと思われます。

AppleScript名：ボリウムの名称変更_notification.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/01/25
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

–ドライブ名の変更時にnotify（なぜか２回通知される？）
set aCenter to current application’s NSWorkspace’s sharedWorkspace()’s notificationCenter()

aCenter’s addObserver:me selector:"driveNameChanged:" |name|:"NSWorkspaceDidRenameVolumeNotification" object:(missing value)

on driveNameChanged:aNotif
　　say "Drive name changed"
end driveNameChanged:

★Click Here to Open This Script　

Spaces変更Notificationを受信

Posted on 1月 26 by Takaaki Naganoya

Spacesのスペース変更が行われた（異なるスペースに変更しなくてもOK）ノーティフィケーションを受信するAppleScriptです。

ちなみに、AppleScriptによる処理を行う分にはSpacesは百害あって一利もないので、複数Spaceを登録「しないで」使うことが推奨されます。

AppleScript名：Spaces変更_notification.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/01/25
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

set aCenter to current application’s NSWorkspace’s sharedWorkspace()’s notificationCenter()

aCenter’s addObserver:me selector:"spacesChanged:" |name|:"NSWorkspaceActiveSpaceDidChangeNotification" object:(missing value)

on spacesChanged:aNotif
　　say "Active Spaces changed"
end spacesChanged:

★Click Here to Open This Script　

コンピュータのシャットダウン/再起動イベントを受信

Posted on 1月 25 by Takaaki Naganoya

実行中のMacのシャットダウン/再起動イベントを受信するAppleScrptです。

Classic Mac OS時代のシステム終了項目のような処理をAppleScriptで行いたい場合に、本Scriptのような処理を常駐型アプレット形式で書き出しておいて、起動させたままにしておけば、システム終了/再起動のイベントを受信してハンドラを実行します。

スクリプトエディタ上で実行しても、イベントを受信します、一応、ねんのため。

→　Download this script archive

AppleScript名：シャットダウン_notification.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2019/01/25
—
–　　Copyright © 2019 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use framework "AppKit"
use scripting additions

set aCenter to current application’s NSWorkspace’s sharedWorkspace()’s notificationCenter()
aCenter’s addObserver:me selector:"computerWillShutDownNotification:" |name|:"NSWorkspaceWillPowerOffNotification" object:(missing value)

on computerWillShutDownNotification:aNotif
　　say "Computer Will shutdown or restart now"
end computerWillShutDownNotification:

★Click Here to Open This Script　

CPU Family Nameを取得する

Posted on 12月 3, 2018 by Takaaki Naganoya

実行中のMacのMachine ID（MacBookPro10,1など）からIntel CPUのFamily Name（Ivy Bridgeなど）を取得するAppleScriptです。

Macの各モデルの搭載CPUについては、MacTrackerを参照しました。

MacTrackerのデータをコピー＆ペーストでNumbers上に製品データを作成し（手動）、

ユニーク化（重複データの除去）処理を行なって（ASで処理）、プログラム上に展開しました（手動）。

実用性とか意味については、とくに考えていません。Machine IDとCPU Family Nameのデータについてはplistに記述してプログラム外部に追い出して独自でメンテナンスできるようにしたほうがよいと思われます。

AppleScript名：CPU Family Nameを取得する.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2018/12/03
—
–　　Copyright © 2018 Piyomaru Software, All Rights Reserved
—
use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

set macID to do shell script "sysctl -n hw.model" –get machine ID
–set macID to "MacBookPro99,1"–Error case

set myName to getIntelCoreProcessorFamilyName(macID) of me
—> "Ivy Bridge"

on getIntelCoreProcessorFamilyName(macID)
　　–Machine ID & CPU Core Model Names (uniquefied)
　　set macList to {{"iMac4,1", "Yonah"}, {"iMac4,2", "Yonah"}, {"iMac5,2", "Merom"}, {"iMac5,1", "Merom"}, {"iMac6,1", "Merom"}, {"iMac7,1", "Merom"}, {"iMac8,1", "Penryn"}, {"iMac9,1", "Penryn"}, {"iMac10,1", "Wolfdale"}, {"iMac11,1", "Wolfdale, Lynnfield"}, {"iMac11,2", "Clarkdale"}, {"iMac11,3", "Clarkdale, Lynnfield"}, {"iMac12,1", "Sandy Bridge"}, {"iMac12,2", "Sandy Bridge"}, {"iMac13,1", "Ivy Bridge"}, {"iMac13,2", "Ivy Bridge"}, {"iMac14,1", "Haswell"}, {"iMac14,3", "Haswell"}, {"iMac14,2", "Haswell"}, {"iMac14,4", "Haswell"}, {"iMac15,1", "Haswell"}, {"iMac16,1", "Broadwell"}, {"iMac16,2", "Broadwell"}, {"iMac17,1", "Skylake"}, {"iMac18,1", "Kaby Lake"}, {"iMac18,2", "Kaby Lake"}, {"iMac18,3", "Kaby Lake"}, {"iMacPro1,1", "Skylake"}, {"Macmini1,1", "Yonah"}, {"Macmini2,1", "Merom"}, {"Macmini3,1", "Penryn"}, {"Macmini4,1", "Penryn"}, {"Macmini5,1", "Sandy Bridge"}, {"Macmini5,2", "Sandy Bridge"}, {"Macmini5,3", "Sandy Bridge"}, {"Macmini6,1", "Ivy Bridge"}, {"Macmini6,2", "Ivy Bridge"}, {"Macmini7,1", "Haswell"}, {"Macmini8,1", "Coffe Lake"}, {"MacPro1,1", "Woodcrest"}, {"MacPro2,1", "Clovertown"}, {"MacPro3,1", "Harpertown"}, {"MacPro4,1", "Bloomfield, Gainestown"}, {"MacPro5,1", "Bloomfield, Gulftown, Westmere"}, {"MacPro5,1", "Bloomfield, Westmere, Gulftown"}, {"MacPro6,1", "Ivy Bridge"}, {"MacBook1,1", "Yonah"}, {"MacBook2,1", "Merom"}, {"MacBook3,1", "Merom"}, {"MacBook4,1", "Penryn"}, {"MacBook5,1", "Penryn"}, {"MacBook5,2", "Penryn"}, {"MacBook6,1", "Penryn"}, {"MacBook7,1", "Penryn"}, {"MacBook8,1", "Broadwell"}, {"MacBook9,1", "Skylake"}, {"MacBook10,1", "Kaby Lake"}, {"MacBookAir1,1", "Merom"}, {"MacBookAir2,1", "Penryn"}, {"MacBookAir3,1", "Penryn"}, {"MacBookAir3,2", "Penryn"}, {"MacBookAir4,1", "Sandy Bridge"}, {"MacBookAir4,2", "Sandy Bridge"}, {"MacBookAir5,1", "Ivy Bridge"}, {"MacBookAir5,2", "Ivy Bridge"}, {"MacBookAir6,1", "Haswell"}, {"MacBookAir6,2", "Haswell"}, {"MacBookAir7,1", "Broadwell"}, {"MacBookAir7,2", "Broadwell"}, {"MacBookAir8,1", "Amber Lake Y"}, {"MacBookPro1,1", "Yonah"}, {"MacBookPro1,2", "Yonah"}, {"MacBookPro2,2", "Merom"}, {"MacBookPro2,1", "Merom"}, {"MacBookPro3,1", "Merom"}, {"MacBookPro4,1", "Penryn"}, {"MacBookPro5,1", "Penryn"}, {"MacBookPro5,2", "Penryn"}, {"MacBookPro5,5", "Penryn"}, {"MacBookPro5,4", "Penryn"}, {"MacBookPro5,3", "Penryn"}, {"MacBookPro7,1", "Penryn"}, {"MacBookPro6,2", "Arrandale"}, {"MacBookPro6,1", "Arrandale"}, {"MacBookPro8,1", "Sandy Bridge"}, {"MacBookPro8,2", "Sandy Bridge"}, {"MacBookPro8,3", "Sandy Bridge"}, {"MacBookPro9,2", "Ivy Bridge"}, {"MacBookPro9,1", "Ivy Bridge"}, {"MacBookPro10,1", "Ivy Bridge"}, {"MacBookPro10,2", "Ivy Bridge"}, {"MacBookPro11,1", "Haswell"}, {"MacBookPro11,2", "Haswell"}, {"MacBookPro11,3", "Haswell"}, {"MacBookPro12,1", "Broadwell"}, {"MacBookPro11,4", "Haswell"}, {"MacBookPro11,5", "Haswell"}, {"MacBookPro13,1", "Skylake"}, {"MacBookPro13,2", "Skylake"}, {"MacBookPro13,3", "Skylake"}, {"MacBookPro14,1", "Kaby Lake"}, {"MacBookPro14,2", "Kaby Lake"}, {"MacBookPro14,3", "Kaby Lake"}, {"MacBookPro15,2", "Coffee Lake"}, {"MacBookPro15,1", "Coffee Lake"}}
　　
　　–2D List内の検索
　　set gList to searchInListByIndexItem(macList, 1, macID) of me
　　if gList = missing value or gList = {} then
　　　　error "Error:" & macID & "is newer Machine than I expected in Dec 2018 or Older PowerPC Mac , may be"
　　end if
　　
　　set g2List to FlattenList(gList) of me –複数の結果が得られた場合に備える
　　return contents of second item of g2List
end getIntelCoreProcessorFamilyName

–2Dリストから、指定インデックスアイテムで、指定データが該当する最初のものを返す
on searchInListByIndexItem(aList as list, itemNum as integer, hitData as string)
　　set setKey to current application’s NSMutableSet’s setWithArray:aList
　　
　　if itemNum < 1 then return {}
　　set aPredicateStr to ("SELF[" & (itemNum – 1) as string) & "] == ’" & hitData & "’"
　　
　　set aPredicate to current application’s NSPredicate’s predicateWithFormat:aPredicateStr
　　set aRes to (setKey’s filteredSetUsingPredicate:aPredicate)
　　set bRes to aRes’s allObjects()
　　
　　set cRes to bRes as list of string or string –as anything
　　return cRes
end searchInListByIndexItem

–By Paul Berkowitz
–2009年1月27日 2:24:08:JST
–Re: Flattening Nested Lists
on FlattenList(aList)
　　set oldDelims to AppleScript’s text item delimiters
　　set AppleScript’s text item delimiters to {"????"}
　　set aString to aList as text
　　set aList to text items of aString
　　set AppleScript’s text item delimiters to oldDelims
　　return aList
end FlattenList

★Click Here to Open This Script　

第８世代Intel Core搭載Mac新モデルでもHaswellと返すsystem info

Posted on 11月 30, 2018 by Takaaki Naganoya

システムまわりの情報を返すAppleScriptの「system info」コマンドが、先日発売された第８世代Intel Coreプロセッサ「Coffe Lake」搭載のMac miniでも「Intel x86-64h Haswell」と返してくることが判明しました。

–> Wikipedia “List of Macintosh models grouped by CPU type”

MacBook Pro Retina 2012だと「CPU type of (system info）」を実行すると、「Intel 80486」と返してきますが、Mac mini 2014だと「Intel x86-64h Haswell」と返します（macOS 10.12.6上で実行）。

先日発売された第８世代Intel Core搭載のMac mini 2018を店頭でさわってみたところ、同機搭載のmacOS 10.14上で、「Intel x86-64h Haswell」と結果を返してきました。

▲PowerBook G4/667（PowerPC G4）@Mac OS X 10.4.11で実行したところ。「PowerPC 7450」と返ってくる

正確なCPU Brand nameを取得するには、こちらの「CPUのBrand Nameとバス速度を表示」AppleScriptを使ってください（CPU Type、Coreの世代を表すコード名ではないのですが、「3720QM」などとBrand Nameを取得できれば、そこから「Ivy Bridge」といった名称テーブルで付け合わせることは十分に可能です）。

CPUアーキテクチャの変わり目の時代に、実行マシンがPowerPC/Intelのどちらかを判定するような用途に使ったこの情報。マシンが想定よりも速すぎる/遅すぎる場合への対策を行うためにこのsystem infoの情報を読んで判定していました。

CPUアーキテクチャが（Intelに）変わってAppleScriptの処理を書き換える必要が出たのは、ファイル処理です。連番ファイルを順次破損チェックして、破損していたら削除して、前の番号のファイルをそのままコピーしてリネームする処理を行なっていたのですが、Intel CPUで実行したら、キャッシュの効きすぎなのか高速なためなのか、破損ファイルが２つ続くとファイルのコピーが間に合わずにエラーになりました。

その際には、処理方式を見直して２パスで（破損画像チェック＆削除フェーズ　→　欠損画像の補完フェーズ）処理を行うように変更して対処。また、前のファイル番号の画像を単純にコピーするのではなく、空白ブロックを一括で埋める方式に変更して、複数連番画像が欠損しているケースに対応しました。

あとは、データをhexdumpしたときに、byte orderを考慮しつつデータを取り出すような処理を行なったときに、PowerPC/IntelのCPUの違いを検出しました。AppleScript的には、Intel x32とIntel x64の違いについてはほぼ意識する必要はありません。

また、CPUアーキテクチャが変わる可能性があるので、地味にCPUアーキテクチャの確認はおさえておきたいノウハウです。

システム環境設定＞プライバシーの「オートメーション」項目の表示

Posted on 11月 19, 2018 by Takaaki Naganoya

macOS 10.14, Mojaveでにわかに重要になってきた「システム環境設定」＞セキュリティとプライバシー＞プライバシー＞オートメーション　項目の表示を行うAppleScriptです。

もともと、システム環境設定には指定のPreferences Paneを表示する機能が用意されているのですが、最近このシステム環境設定上の項目の移設や統廃合がメジャーバージョンアップごとに行われており、そうした変更にAppleScript系の機能の変更が間に合っていません。

tell application "System Preferences"
　　tell pane "com.apple.preference.security"
　　　　get name of every anchor
　　end tell
end tell
–> {"Privacy_Reminders", "Privacy_SystemServices", "Privacy_Calendars", "Firewall", "Privacy_Assistive", "Privacy_LinkedIn", "Privacy_LocationServices", "Privacy_Contacts", "General", "Privacy_Diagnostics", "Advanced", "Privacy_Accessibility", "Privacy_Camera", "FDE", "Privacy", "Privacy_AllFiles", "Privacy_Microphone"}

★Click Here to Open This Script　

▲「セキュリティ」項目以下の各anchor。赤く塗った項目はAppleScript用語辞書に用語が用意されていないもの

とくに、この重要な「オートメーション」項目を示す予約語がAppleScript用語辞書に登録されておらず、「フルディスクアクセス」の予約語が用意されているあたり、チェックもれで抜けたものと思われます。

きちんと予約語が存在する項目については、

tell application "System Preferences"
　　activate
　　reveal anchor "Privacy_LocationServices" of pane "com.apple.preference.security"
end tell

★Click Here to Open This Script　

のようにして表示できるのですが、前述のとおり「オートメーション」項目の予約語が用意されていません。

そこで、別途URL Event経由で表示させる方法を見つけたのでまとめておきました。

非同期のURL Eventなので、「オートメーション」項目が表示し終わったかどうかといった確認は一切ありません。普通にApple Event経由で実行できるのであれば、表示し終わったという実行結果の確認まで行えるのですが、、、、

AppleScript名：システム環境設定でオートメーションのタブを表示させる

open location "x-apple.systempreferences:com.apple.preference.security?Privacy_Automation"

★Click Here to Open This Script　

MIKMIDIでデバイス一覧を取得 v2

Posted on 11月 4, 2018 by Takaaki Naganoya

オープンソースのフレームワーク「MIKMIDI」を用いてMIDIデバイス情報を取得するAppleScriptです。

Objective-Cのプログラムもいろいろ読んできましたが、その中でもこれは難易度が高く、高尚であるために読んでもさっぱりわかりません。

–> Download MIKMIDI.framework(To ~/Library/Frameworks/)

AppleScript名：MIKMIDIでデバイス一覧を取得 v2

— Created 2015-11-13 by Takaaki Naganoya
— 2015 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "MIKMIDI" –https://github.com/mixedinkey-opensource/MIKMIDI

property midiDeviceManager : missing value

set midiDeviceManager to current application’s MIKMIDIDeviceManager’s sharedDeviceManager()’s availableDevices()
set aRes to midiDeviceManager’s mutableCopy()

set endpointsInDevs to current application’s NSMutableSet’s |set|()
repeat with i in (midiDeviceManager as list)
　　set aSrcList to (current application’s NSSet’s setWithArray:(i’s entities()’s valueForKeyPath:"sources"))
　　set aDstList to (current application’s NSSet’s setWithArray:(i’s entities()’s valueForKeyPath:"destinations"))
　　(endpointsInDevs’s unionSet:aSrcList)
　　(endpointsInDevs’s unionSet:aDstList)
end repeat

endpointsInDevs’s |description|()
–>　　(NSSet) {{(MIKMIDISourceEndpoint) <MIKMIDISourceEndpoint: 0x7f8a61d47950> 新しい外部装置}, {(MIKMIDISourceEndpoint) <MIKMIDISourceEndpoint: 0x7f8a63a65610> IAC Driver GarageBand}, {(MIKMIDIDestinationEndpoint) <MIKMIDIDestinationEndpoint: 0x7f8a61bbc130> IAC Driver GarageBand}, {(MIKMIDIDestinationEndpoint) <MIKMIDIDestinationEndpoint: 0x7f8a5ecadcf0> 新しい外部装置}}

–midiDeviceManager’s virtualSources() –Real MIDI I/Fがつながっていないとエラーになる
–set devicelessSources to current application’s NSMutableSet’s setWithWrray:(midiDeviceManager’s virtualSources())

★Click Here to Open This Script　

光学ドライブのオープン（イジェクト）

Posted on 10月 29, 2018 by Takaaki Naganoya

光学ドライブのオープン（メディアのイジェクト）を行うAppleScriptです。

すっかり、Macのラインナップから光学ドライブ標準搭載モデルがなくなって、外付けの光学ドライブばかりというか、そもそも光学ドライブを持っていないというユーザーが増えてきたので、光学メディアでのデータ配布そのものが無意味になりつつある昨今。

光学ドライブもトレイ式（トレイ開閉が電動）のものがほぼ絶滅状態（Pioneerのみ製造？）。スリムタイプのスロットイン方式か、薄型トレイ（イジェクトしたまま戻らない）方式のみなので、光学メディアのイジェクトについて分かればよいでしょう。

drutilコマンドのほか、macOS 10.13まではDVDプレイヤーがScriptableだったので、DVDプレイヤーに対してejectコマンドを送る方法もありました（10.14でScripting機能が廃止に……アプリケーション自体を作り直したもよう）。

macOS 10.12/13：DVDプレイヤー（32bit）　ファイルサイズ：6.4MB　バージョン：5.8

macOS 10.14：DVDプレイヤー（64bit）　ファイルサイズ：2.1MB　バージョン： 6.0
注：macOS 10.14のDVDプレイヤーは/System/Library/CoreServices/Applications/にある。アプリケーションから補助ツールに格下げになった。

これまでDVDプレイヤーが担ってきた用途については、フリーの「Free Mac Media Player」で置き換えるのがよいと思われます。

AppleScript名：光学ドライブのトレイオープン（内蔵ドライブのみ）

do shell script "/usr/bin/drutil eject internal"

★Click Here to Open This Script　

AppleScript名：光学ドライブのトレイオープン（外付けドライブのみ）

do shell script "/usr/bin/drutil eject external"

★Click Here to Open This Script　

スリープ復帰日時を設定する v2

Posted on 10月 29, 2018 by Takaaki Naganoya

指定の日時（年月日時分秒）にスリープ復帰日時を設定するAppleScriptです。

過去に掲載した記事の再掲載分ですが、以前に掲載したリストにバグが見つかったので修正しておきました。サブルーチン内でパラメータの変数と同じ名前の変数に代入してしまい、計算結果がおかしくなるという超恥ずかしいバグでした。

AppleScript名：スリープ復帰日時を設定する v2

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

set aYear to 2018 –年
set aMonth to 10 –月
set aDate to 30 –日

set aHour to 7 –時
set aMinute to 1 –分
set aSecond to 2 –秒

set myAccount to do shell script "whoami" –他に管理者アカウントを指定することも可。その場合にはmyPasswordには管理者のパスワードを指定
set myPassword to "" –パスワード（カラのままでOK。必要に応じてAS側からダイアログ入力を求める）

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 tmpDate to getDateInternational(aYear, aMonth, aDate, aHour, aMinute, aSecond, "JST")
　　if ((current date) > tmpDate) 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 ("00000000" & aNum as text)
　　set tCount to length of tText
　　set resText to text (tCount – aLen + 1) thru -1 of tText
　　return resText
end retZeroPaddingText

–Make a GMT Date Object with parameters from a given time zone.
on getDateInternational(aYear, aMonth, aDay, anHour, aMinute, aSecond, timeZoneAbbreviation)
　　set theNSCalendar to current application’s NSCalendar’s currentCalendar()
　　theNSCalendar’s setTimeZone:(current application’s NSTimeZone’s timeZoneWithAbbreviation:(timeZoneAbbreviation))
　　set theDate to theNSCalendar’s dateWithEra:1 |year|:aYear |month|:aMonth |day|:aDay hour:anHour minute:aMinute |second|:aSecond nanosecond:0
　　return theDate as date
end getDateInternational

★Click Here to Open This Script　

現在地点の緯度経度情報を取得する v2

Posted on 10月 29, 2018 by Takaaki Naganoya

WiFiの情報を元に現在地点の緯度経度情報を取得するAppleScriptです。

実行前にWiFiがオンになっている必要があるので、WiFiの状態を確認して、WiFiがオフだったらオンにする処理が必要になります。

AppleScript名：現在地点の緯度経度情報を取得する v2

— Created 2015-03-04 by Takaaki Naganoya, Shane Stanley
— Modified 2015-12-06 by Takaaki Naganoya
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use framework "CoreLocation"

property locationManager : missing value
property curLatitude : 0
property curLongitude : 0

–Get Current Geo Location
set {aLat, aLong} to getCurrentGeoLocation() of me

on getCurrentGeoLocation()
　　set locationManager to current application’s CLLocationManager’s alloc()’s init()
　　
　　set locE to locationManager’s locationServicesEnabled()
　　if (locE as boolean) = true then
　　　　locationManager’s setDelegate:me
　　　　locationManager’s setDesiredAccuracy:(current application’s kCLLocationAccuracyNearestTenMeters)
　　　　locationManager’s setDistanceFilter:500
　　　　locationManager’s startUpdatingLocation()
　　else
　　　　return false –error in init
　　end if
　　
　　set hitF to false
　　repeat 3000 times
　　　　if {curLatitude, curLongitude} is not equal to {0, 0} then
　　　　　　set hitF to true
　　　　　　exit repeat
　　　　end if
　　　　delay ("0.0001" as real)
　　end repeat
　　
　　if hitF = false then return {false, false}
　　return {curLatitude, curLongitude}
end getCurrentGeoLocation

on locationManager:manager didUpdateLocations:locations
　　set location to (locations’s lastObject())
　　set eventDate to (location’s timestamp())
　　set howRecent to (eventDate’s timeIntervalSinceNow())
　　set howRecent to howRecent as real
　　set howRecent to absNum(howRecent)
　　
　　if howRecent < 15.0 then
　　　　set alt to location’s altitude –>(NSNumber) 46.356517791748
　　　　set aSpeed to location’s speed –>(NSNumber) -1.0
　　　　set aCourse to location’s course –North:0, East:90, South:180, West:270
　　　　–>　　(NSNumber) -1.0
　　　　set theDescription to location’s |description|()
　　　　–> (NSString) "<+35.xxxxx,+139.xxxxxx> +/- 65.00m (speed -1.00 mps / course -1.00) @ 2015/03/04 8時56分41秒日本標準時"
　　　　set anNSScanner to current application’s NSScanner’s scannerWithString:theDescription
　　　　anNSScanner’s setCharactersToBeSkipped:(current application’s NSCharacterSet’s characterSetWithCharactersInString:"<,")
　　　　set {theResult, aLat} to anNSScanner’s scanDouble:(reference)
　　　　set {theResult, aLng} to anNSScanner’s scanDouble:(reference)
　　　　copy {aLat, aLng} to {my curLatitude, my curLongitude}
　　else
　　　　locationManager’s stopUpdatingLocation()
　　end if
　　
end locationManager:didUpdateLocations:

on locationManager:anCLLocationManager didFailWithError:anNSError
　　display dialog (anNSError’s localizedDescription() as text)
end locationManager:didFailWithError:

on absNum(aNum)
　　if aNum > 0 then
　　　　return aNum
　　else
　　　　return (aNum * -1)
　　end if
end absNum

★Click Here to Open This Script　

日本語入力のライブ変換のオン、オフ v2

Posted on 10月 28, 2018 by Takaaki Naganoya

日本語入力Input Methodの「ライブ変換」のOn/Offの状態を変更するAppleScriptのmacOS 10.13/10.14対応版です。

大した箇所ではなく、NSDictionaryの作成が通らなかったのできっちり書きました。こういう些細な表記がOSバージョンごとに変わってくるのがCocoa Scriptingの要注意点でしょうか。

AppleScript名：ライブ変換のオン、オフ v2

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2018/10/28
—
–　　Copyright © 2018 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

makeLiveHenkanEnabled(true) of me –Enable
makeLiveHenkanEnabled(false) of me –Disable

–日本語入力の「ライブ変換」をオン/オフする。Sandbox環境では動作しない
on makeLiveHenkanEnabled(aFlag as boolean)
　　set fNumFlag to aFlag as integer
　　
　　set aRec to current application’s NSDictionary’s dictionaryWithObjects:{fNumFlag} forKeys:{"JIMPrefLiveConversionKey"}
　　
　　current application’s NSDistributedNotificationCenter’s defaultCenter()’s postNotificationName:"com.apple.inputmethod.JIM.PreferencesDidChangeNotification" object:"com.apple.JIMSession" userInfo:aRec options:0
　　
　　current application’s NSDistributedNotificationCenter’s defaultCenter()’s postNotificationName:"com.apple.inputmethod.JIM.PreferencesDidChangeNotification" object:"com.apple.JIMPreferences" userInfo:aRec options:0
end makeLiveHenkanEnabled

★Click Here to Open This Script　

日本語入力のライブ変換のオン、オフ

Posted on 10月 28, 2018 by Takaaki Naganoya

日本語入力Input Methodの「ライブ変換」のOn/Offの状態を変更するAppleScriptです。

Sandbox環境下では動作しないとのこと。Xcode上で作成したMac App Store向けのGUIアプリケーション環境（Sandbox環境下）だと機能しない可能性が高いとのこと。

テストしてみたところ、macOS 10.13/10.14で動作しなかったため、あとで少々書き換えてみました（v2）。

AppleScript名：ライブ変換のオン、オフ.scptd

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2018/10/28
—
–　　Copyright © 2018 Piyomaru Software, All Rights Reserved
—

use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

makeLiveHenkanEnabled(true) of me –Enable
makeLiveHenkanEnabled(false) of me –Disable

–日本語入力の「ライブ変換」をオン/オフする。Sandbox環境では動作しない
on makeLiveHenkanEnabled(aFlag as boolean)
　　set fNumFlag to aFlag as integer
　　
　　set aRec to current application’s NSDictionary’s dictionaryWithObjectsAndKeys_((fNumFlag), "JIMPrefLiveConversionKey")
　　current application’s NSDistributedNotificationCenter’s defaultCenter()’s postNotificationName:"com.apple.inputmethod.JIM.PreferencesDidChangeNotification" object:"com.apple.JIMSession" userInfo:aRec options:0
　　
　　set bRec to current application’s NSDictionary’s dictionaryWithObjectsAndKeys_((fNumFlag), "JIMPrefLiveConversionKey")
　　current application’s NSDistributedNotificationCenter’s defaultCenter()’s postNotificationName:"com.apple.inputmethod.JIM.PreferencesDidChangeNotification" object:"com.apple.JIMPreferences" userInfo:bRec options:0
end makeLiveHenkanEnabled

★Click Here to Open This Script　