Mの備忘録 - Carnet de M -

on run argv
	
	set str to ""
	set ComposeChoices to {"加算", "比較明合成", "比較暗合成"}
	set SelectedCompose to choose from list ComposeChoices with prompt "合成方法を選択してください:" default items {"比較明合成"}
	
	repeat with arg in (item 1 of argv)
		set filePath to alias (arg as text)
		if filePath is not "" then
			set str to (str & " " & replaceText((convertPathToPOSIXString(filePath) as text), " ", " ")) & ""
			#スペースのescape問題は保留。
		end if
	end repeat
	if str is not "" then
		if SelectedCompose is {"加算"} then
			set str to (str & " -compose plus")
		end if
		if SelectedCompose is {"比較明合成"} then
			set str to (str & " -compose lighten")
		end if
		if SelectedCompose is {"比較暗合成"} then
			set str to (str & " -compose darken")
		end if
		
		set str to (str & " -background none -flatten output.jpg")
		return str
	end if
end run

#https://developer.apple.com/library/archive/documentation/LanguagesUtilities/Conceptual/MacAutomationScriptingGuide/ReferenceFilesandFolders.html
on convertPathToPOSIXString(thePath)
	tell application "System Events"
		try
			set thePath to path of disk item (thePath as string)
		on error
			set thePath to path of thePath
		end try
	end tell
	return POSIX path of thePath
end convertPathToPOSIXString

#http://tonbi.jp/AppleScript/Tips/String/FindReplace.html
on replaceText(theText, serchStr, replaceStr)
	set tmp to AppleScript's text item delimiters
	set AppleScript's text item delimiters to serchStr
	set theList to every text item of theText
	set AppleScript's text item delimiters to replaceStr
	set theText to theList as string
	set AppleScript's text item delimiters to tmp
	return theText
end replaceText

cd Desktop/

/opt/homebrew/bin/convert $@