(*
	2014-12-24		v0.1
	
	option
	x…音を鳴らさない
	C…カーソルもキャプチャ
	S…ウィンドウとポップアップメニューを当時にキャプチャ
	i…選択範囲キャプチャ（スペースでウィンドウ）
	t…保存フォーマット	[png・gif・jpg・jp2 (JPEG2000)・bmp・exr (OpenEXR)・pdf・psd (Photoshop形式)・pct (PICT)・sgi・tga・tif]

*)

on run
	set option to "-xCS -t " --フルスクリーン
	--	set option to "-xCSi -t "--選択範囲（ウィンドウ）
	
	set aExt to "psd" --tの保存フォーマット参照
	
	my screenshot(option, aExt)
	
end run


on screenshot(option, aExt)
	set {aDate, aTime} to my DateToString()
	set file_Name to aDate & "_" & aTime & "." & aExt
	
	try
		set save_cap to "~/Desktop/" & aDate & "/" & file_Name
		set shellcmd to "screencapture " & option & aExt & " " & save_cap
		--display dialog shellcmd
		do shell script shellcmd
		return
	on error
		set shellcmd to "mkdir " & "~/Desktop/" & aDate
		--display dialog shellcmd
		do shell script shellcmd
		delay 0.5
		my screenshot(option, aExt)
	end try
end screenshot

on DateToString()
	set aDate to do shell script "date +%m%d"
	set aTime to do shell script "date +%H%M%S"
	return {aDate, aTime}
end DateToString