JPG compress XY%.applescript

-- Compress a JPEG image to a desired compression level
-- 
-- author: Fabrizio Musacchio (https://www.fabriziomusacchio.com)
-- date: Jan 20, 2022

tell application id "DNtp"
	try
		set this_selection to the selection
		if this_selection is {} then error "Please select some images."
		set dialogResult to display dialog "Please enter a JPEG compression level (in %)." buttons {"Cancel", "OK"} default button "OK" cancel button "Cancel" default answer ("70") with title "Choose JPEG compression"
		set theCompression to text returned of dialogResult
		
		
		repeat with this_item in this_selection
			if the type of this_item is equal to picture then
				try
					set this_image to the image of this_item
					with timeout of 30 seconds
						tell application "Image Events"
							launch
							set this_file to open file this_image
							set thePathShell to quoted form of this_image
							--do shell script "sips -s format jp2 -s formatOptions normal -s dpiHeight " & scalefactor & " -s dpiWidth " & scalefactor & " " & thePathShell
							do shell script "sips -s format jpeg -s formatOptions " & theCompression & " " & thePathShell
							-- formatOptions normal normal means "normal" compression (70%? 80%?). You can also set a number (w/o "%", e.g. 100 (=loss-less))
							close this_file
						end tell
					end timeout
					synchronize record this_item
				end try
			end if
			
			--set current_name to the name of this_item
			--set new_item_name to current_name -- & "_fullWidth_" & W & "_" & scalefactor & "_" & R
			--set the name of this_item to new_item_name
			
		end repeat
	on error error_message number error_number
		if the error_number is not -128 then display alert "DEVONthink Pro" message error_message as warning
	end try
end tell