I’m a fan of the new Sonoma Desktop Widgets. However, I also make a living making screencasts and having all those widgets on screen can sometimes be a pain. There is a setting you can toggle under the Desktop & Dock settings:
The problem with this, of course, is that it’s a pain in the neck to get there. Who wants to do all that mousing and clicking? I wanted to automate this button so I can run a script that sets me up for screencasting and, among other things, turns off Desktop Widgets. So here’s a script that does just that. This was built with help from the AppleScript Sensei himself, Sal Soghoian. Below is a link to the zipped script file, as well as the script in plain text. I run it as part of a Keyboard Maestro macro that I’ve tied to a keyboard trigger. Enjoy.
tell application "System Settings"
activate
reveal anchor "Widgets" of pane id "com.apple.Desktop-Settings.extension"
repeat
set currentPane to get current pane
if currentPane is pane id "com.apple.Desktop-Settings.extension" then
exit repeat
else
delay 1
end if
end repeat
end tell
delay 1
tell application "System Events"
tell process "System Settings"
set targetControl to checkbox "Show Widgets" of group 6 of scroll area 1 of group 1 of group 2 of splitter group 1 of group 1 of window 1
click targetControl
end tell
end tell
tell application "System Settings" to quit