Sonny Software

Code: Select all

tell application "Bookends"
	set theIDs to «event ToySRUID» "Selection"
	repeat with theID in paragraphs of theIDs
		tell front library window
			try
				set myRefs to (publication items whose id is theID)
				set myItem to first item of myRefs
				set thePath to path of attachment items of myItem
				if thePath is not {} then
					set {theKey, thePath, theAuthor, theEditor, theTitle, theWords, theYear} to {citekey, path of attachment items, authors, editors, title, keywords, publication date string} of myItem
					if theAuthor = "" then set theAuthor to theEditor
					set theMonth to (do shell script "date '+:%m:%d %H:%M:%S'")
					set theDate to (theYear & theMonth)
					set otid to AppleScript's text item delimiters
					set AppleScript's text item delimiters to linefeed
					set thePath to text items of thePath
					repeat with i in thePath
						set thisPath to i as string
						tell application "Finder" to set theName to name of (POSIX file thisPath as alias)
						set AppleScript's text item delimiters to otid
						
						try
							do shell script "/usr/local/bin/exiftool -title=" & quoted form of theTitle & " -author=" & quoted form of theAuthor & "  -keywords=" & quoted form of theWords & " -CreateDate=" & quoted form of theDate & " -overwrite_original " & quoted form of thisPath
						end try
						
					end repeat
					
				end if
				
			on error errorMessage
				
			end try
			
		end tell
	end repeat
end tell

Code: Select all

tell application "Bookends"
	tell front library window
		set theIDs to get id of publication items of group item "Newcomer"
		repeat with theID in theIDs
			try
				set myRefs to (publication items whose id is theID)
				set myItem to first item of myRefs
				set {theKey, thePath, theAuthor, theEditor, theTitle, theWords, theYear} to {citekey, path of attachment items, authors, editors, title, keywords, publication date string} of myItem
				if theAuthor = "" then set theAuthor to theEditor
				set otid to AppleScript's text item delimiters
				set AppleScript's text item delimiters to linefeed
				set theMonth to (do shell script "date '+:%m:%d %H:%M:%S'")
				set theDate to (theYear & theMonth)
				set thePath to text items of thePath
				repeat with i in thePath
					set thisPath to i as string
					tell application "Finder" to set theName to name of (POSIX file thisPath as alias)
					set AppleScript's text item delimiters to otid
					
					try
						do shell script "/usr/local/bin/exiftool -title=" & quoted form of theTitle & " -author=" & quoted form of theAuthor & "  -keywords=" & quoted form of theWords & " -CreateDate=" & quoted form of theDate & " -overwrite_original " & quoted form of thisPath
					end try
					
				end repeat
				
			on error errorMessage
				
			end try
		end repeat
	end tell
end tell