Added text version of applescripts

This commit is contained in:
Rhet Turnbull
2020-01-09 21:54:24 -08:00
parent 0dac64409b
commit fcc0e1d083
2 changed files with 75 additions and 0 deletions

View File

@@ -0,0 +1,34 @@
-- Displays UUID and other info about selected photos
-- Useful for debugging with osxphotos
tell application "Photos"
activate
set theDelimiter to ";"
set theBackup to AppleScript's text item delimiters
-- Set the new delimiter
set AppleScript's text item delimiters to theDelimiter
set theResults to selection
repeat with theItem in theResults
set theKeywords to keywords of theItem
if theKeywords is not {} then
theKeywords = (theKeywords as text)
else
theKeywords = "none"
end if
set theStr to (((((id of theItem) as text) & ", " & (filename of theItem) as text) & ", " & theKeywords & ", " & (name of theItem) as text) & ", " & (description of theItem) as text) & "
"
display dialog theStr
end repeat
set AppleScript's text item delimiters to theBackup
end tell