Macをグレイスケール表示する

DTP Transit 別館

2021年6月19日 18:14

「スマートフォンへの依存を防ぐにはグレースケール設定が効果的？」という話題がありました。

写真編集などは論外ですが、テキスト中心の作業のとき、カラーにしておく必要はありません。

システム環境設定の［アクセシビリティ］内の［グレイスケールを使用］にて設定できるのですが、サクっとON/OFFできないと困ります。

AppleScriptで解決する

同じようなことを考えている人がいるのか、各OSごとAppleScriptのコードが見つかります。

macOSの言語を英語にしていればいいのですが、日本語では動かない…　と困っていたのですが、解決できました。

# for osx mojave
tell application "System Preferences"
   activate
   set the current pane to pane id "com.apple.preference.universalaccess"
   delay 1 # needs time to open universal access
   tell application "System Events" to tell process "System Preferences" to tell window "Accessibility"
       tell scroll area 1 to tell table 1 to tell row 6 #open display preferences
           select
       end tell
       tell group 1
           click checkbox "Use grayscale"
       end tell
   end tell
end tell
tell application "System Preferences" to quit

というソースコードを次のように書き換えます。

# for osx mojave
tell application "System Preferences"
   activate
   set the current pane to pane id "com.apple.preference.universalaccess"
   delay 1 # needs time to open universal access
   tell application "System Events" to tell process "System Preferences" to tell window "アクセシビリティ"
       tell scroll area 1 to tell table 1 to tell row 6 #open display preferences
           select
       end tell
       tell group 1
           click checkbox "グレイスケールを使用"
       end tell
   end tell
end tell
tell application "System Preferences" to quit

つまり、システム環境設定を開いたあとは、画面上の文言をそのまま指定すればよい、ということみたいです。

Keyboard Maestroでマクロにする

Keyboard Maestroでマクロにしてhot keyを設定すればトグルします。

ダウンロード
Keyboard Maestroのマクロ

効果があるのか？

グレイスケールにすることで集中力が高まり、目にも少しやさしいかもしれません。サクっとON/OFFできるようになったので、実際、どんなものか検証してみたいと思います。

備考

macOSでは「グレー」でなく「グレイ」。

macOS Monterey（12）への対応

macOS Monterey（12）で大きくインターフェイスが変わりました。

動かなくて困っていたのですが、axpensiveさんの記事にて糸口を得られました。

言語がUSのため修正が必要で、次のようにしたところ、動きました。

# System PreferencesのAccessibilityを開きます。
tell application "System Preferences"
launch
reveal anchor "Seeing_ColorFilters" of pane "アクセシビリティ"
end tell

tell application "System Events"
tell application process "System Preferences"
delay 1
tell window "アクセシビリティ"
# 設定画面が出るまで待ちます。
repeat until exists checkbox "カラーフィルタを有効にする" of tab group 1 of group 1
delay 0.01
end repeat
# グレースケールをon/offします。
click first checkbox of tab group 1 of group 1
end tell
end tell
end tell

# windowを閉じます。
tell application "System Preferences" to if it is running then quit