Moved util scripts to utils

This commit is contained in:
Rhet Turnbull
2020-03-14 07:11:19 -07:00
parent 6f413c64d7
commit 7da02991cf
5 changed files with 0 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