AppleScript: Frontmost Window to 720p

Frontmost Window to 720p.scpt

(* 

System: Frontmost Window to 720p
By Christopher Allen (@ChristopherA)

This applescript will attempt to resize the frontmost window of the frontmost app
to 720p (16:9) less menu bar height to ease video recording. It is particularly designed
for applications that don't otherwise support Applescript events.

Requires Script Menu: turn on inside the "Script Editor" app (in ~/Applications/Utilities/),
"Settings…", "General" tab, and turn on "Script Menu: Show Script menu in menu bar"

Script Menu also will require Assistive Accessiblity permissions "System Settings",
search for "allow assistive", and add both `Script Editor` (in ~/Applications/Utilities)
and `Script Menu` in `/System/Applications/Utilities/Script Editor.app`

Save this in ~/Library/Scripts/Frontmost\ Window\ to\ 720p.scpt 

The first time you use this script you'll need to give the Script Menu accessiblity permissions.

This script is :copyright:2023 by Christopher Allen, and is licensed under the
[spdx:BSD-2-Clause Plus Patent License](https://spdx.org/licenses/BSD-2-Clause-Patent.html)

*)


tell application "System Events"
	set activeApps to name of application processes whose frontmost is true
	set activeApp to item 1 of activeApps
end tell

tell application activeApp
	activate
	reopen
end tell

tell application "System Events"
	tell process activeApp
		set the position of front window to {0, 38}
		set the size of front window to {1280, 720 - 38}
	end tell
end tell