集中モード（Don’t Disturb Mode）に設定する

macOS 12.x上で集中モード（Don’t Disturb Mode）に設定するAppleScriptです。

Shortcutsにその機能があるので、AppleScriptから呼ぶことになるでしょう。使っていると「日本語AppleScript」みたいな違和感の塊のようなショートカット.app。「おやすみモードをオフ時までオンにする」とか、無理に日本語にしないで英語にしてあったほうがまだ分かりやすいと思います。

この「集中モード」という機能についても、画面上で「おやすみモード」と表現されていたり「集中モード」と表現されていたり、いまひとつ機能を表す言葉のレベルに戸惑いを感じます。それとも、自分が何か根本的に勘違いしている箇所があるものでしょうか。

インストール＋実行ルーチンを呼ぶことで、このショートカット・ワークフローがMac上に存在していなければインストールし、呼び出しを行います。

▲実行前

▲実行後

AppleScript名：Don’t Disturb Shortcuts v2.scpt

—
–　　Created by: Takaaki Naganoya
–　　Created on: 2021/11/01
—
–　　Copyright © 2021 Piyomaru Software, All Rights Reserved
—

set aName to "PIYO_Don’t Disturb" –Shortcut名称
set aURL to "https://www.icloud.com/shortcuts/cf960093816e4c7fb8d23c10e8820790" –共有URL
set sRes to installAndRunShortcuts(aName, aURL) of me

–Install Shortcut and run it
on installAndRunShortcuts(aName, aURL)
　　tell application "Shortcuts Events"
　　　　set n1List to name of every shortcut
　　end tell
　　
　　if n1List does not contain aName then
　　　　display notification "Plese Install my Shortcuts workflow"
　　　　open location aURL
　　end if
　　
　　repeat 100 times
　　　　tell application "Shortcuts Events"
　　　　　　set n2List to name of every shortcut
　　　　end tell
　　　　
　　　　if n2List contains aName then
　　　　　　exit repeat
　　　　end if
　　　　
　　　　delay 0.5
　　end repeat
　　
　　if n2List does not contain aName then
　　　　display dialog "I can’t run my Shortcuts because you canceled installing"
　　　　return false
　　end if
　　
　　
　　tell application "Shortcuts Events"
　　　　run shortcut aName
　　　　return true
　　end tell
end installAndRunShortcuts