slack-thread-full-screenshot.scpt

tell application "System Events"
	set UUID to do shell script "uuidgen"
	tell application "Finder"
		make new folder at desktop with properties {name:UUID}
	end tell
	set WORKDIR to "~/Desktop" & "/" & UUID & "/"
	
	tell application "Slack" to activate
	delay 0.5
	
	set i to 0
	repeat
		try
			do shell script ("screencapture -o " & WORKDIR & i & ".png")
			set i to i + 1
			
			display dialog "Continue taking screenshot?" buttons {"Cancel", "Continue"} default button "Continue"
			tell application "Slack" to activate
			key code 121
			delay 0.5
		on error
			exit repeat
		end try
	end repeat
	
	display notification "It will open the working folder " & WORKDIR & " soon." with title "Concatenating screenshots"
	
	do shell script ("cd " & WORKDIR & " && /usr/local/bin/convert -append *.png out.png")
	# this should be done with native applescript
	do shell script ("open " & WORKDIR)
end tell