MacOSの透明度を下げるAppleScript

El Capitanを使っているとたまに「透明度を下げる」のチェックが外れることがある。

初期設定ファイルをチェックした状態でロックしているので起動時には必ず不透明になっているのだが、起動後に設定がメモリーにロードされているのだろう。
そうなってしまった場合はシステム環境設定を開いてアクセシビリティで再度設定すれば不透明になるのだが、人間は怠けるために頑張る生き物だ。AppleScriptで自動的に設定しなおすスクリプトを作った。

動作は単純でシステム環境設定のアクセシビリティを開いて（表示が完了するまで）1秒待機、[透明度を下げる]のチェックが外れていた場合（”Reduce transparency” = 0）はチェックする。その後システム環境設定を終了するだけだ。
これをアプリケーションとして保存しておいて、Alfredからキーボードで起動している。

tell application "System Preferences" activate reveal anchor "Seeing_Display" of pane id "com.apple.preference.universalaccess" end tell delay 1 tell application "System Events" to tell application process "System Preferences" tell window "Accessibility" if (value of checkbox 5) = 0 then click checkbox 5 end if end tell end tell delay 1 tell application "System Preferences" quit end tell
前に書いたスクリプトが動作しない場合があるので修正。