PicList/public/mac.applescript

<EFBFBD><EFBFBD>-- From https://github.com/mushanshitiancai/vscode-paste-image
property fileTypes : {{<EFBFBD>class PNGf<EFBFBD>, ".png"}}

on run argv
	if argv is {} then
		return ""
	end if
	
	if ((clipboard info) as string) contains "<00>class furl<00>" then
		return POSIX path of (the clipboard as <EFBFBD>class furl<EFBFBD>)
	else
		set imagePath to (item 1 of argv)
		set theType to getType()
		
		if theType is not missing value then
			try
				set myFile to (open for access imagePath with write permission)
				set eof myFile to 0
				write (the clipboard as (first item of theType)) to myFile
				close access myFile
				return (POSIX path of imagePath)
			on error
				try
					close access myFile
				end try
				return ""
			end try
		else
			return "no image"
		end if
	end if
end run

on getType()
	repeat with aType in fileTypes
		repeat with theInfo in (clipboard info)
			if (first item of theInfo) is equal to (first item of aType) then return aType
		end repeat
	end repeat
	return missing value
end getType