mac sizeup 的替代品，自动按需调节 app 位置 / Mac sizeup alternative

move_center

on run {input, parameters}
	
	tell application "Finder"
		set screenResolution to bounds of window of desktop
	end tell
	
	set screenWidth to item 3 of screenResolution
	set screenHeight to item 4 of screenResolution
	
	set theApp to (path to frontmost application as Unicode text)
	
	tell application "System Events" to tell (process 1 where it is frontmost)
		tell window 1 to set {size, position} to {{screenWidth * 0.6 as integer, screenHeight * 0.8 as integer}, {screenWidth * 0.2 as integer, screenHeight * 0.05 as integer}}
	end tell

end run

move_left

on run {input, parameters}
	
	tell application "Finder"
		set screenResolution to bounds of window of desktop
	end tell
	
	set screenWidth to item 3 of screenResolution
	set screenHeight to item 4 of screenResolution
	
	set theApp to (path to frontmost application as Unicode text)
	
	tell application "System Events" to tell (process 1 where it is frontmost)
		tell window 1 to set {size, position} to {{screenWidth * 0.5 as integer, screenHeight * 1 as integer}, {0, 0}}
	end tell

end run

move_right

on run {input, parameters}
	
	tell application "Finder"
		set screenResolution to bounds of window of desktop
	end tell
	
	set screenWidth to item 3 of screenResolution
	set screenHeight to item 4 of screenResolution
	
	set theApp to (path to frontmost application as Unicode text)
	
	tell application "System Events" to tell (process 1 where it is frontmost)
		tell window 1 to set {size, position} to {{screenWidth * 0.5 as integer, screenHeight * 1 as integer}, {screenWidth * 0.5 as integer, 0}}
	end tell
	
end run

https://developer.apple.com/library/archive/documentation/LanguagesUtilities/Conceptual/MacAutomationScriptingGuide/DisplayDialogsandAlerts.html#//apple_ref/doc/uid/TP40016239-CH15-SW1