キーボード入力モードを確認するAppleScript

選択されてる入力モードが英語のときにだけ実行してほしい処理があれば、こういうスクリプトでテストできる。

例えば Typinator でブラケット [] の auto-pairing を普通に設定すると、日本語モードでカギ括弧を打ってるときにまで自動補完してきて困る。そういうときに入力モードの判定スクリプトを挟むと、英語モードのときだけ自動補完してくれるように設定可能。

property true_if_input : "U.S." -- input mode name to test for

tell application "System Events"
	tell process "SystemUIServer"
		set current_input to value of first menu bar item of menu bar 1 whose description is "text input"
	end tell
end tell

if current_input is true_if_input then
	return true
else
	return false
end if

※ GUIスクリプティングなので、システム環境設定 ＞ ユニバーサルアクセス ＞ 補助装置にアクセスできるようにする がオンになっている必要がある