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,41 @@
-- Dumps UUID and other info about every photo in Photos.app to a tet file (see theFile below)
-- Use output of this script with check_uuid.py to help with debugging differences in Photos and osxphoto
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 theFile to (((path to desktop folder) as string) & "photoslib1.txt")
set theOpenedFile to open for access file theFile with write permission
set results to selection
repeat with _item in results
set _keywords to keywords of _item
if _keywords is not {} then
_keywords = (_keywords as text)
else
_keywords = "none"
end if
set _str to (((((id of _item) as text) & ", " & (filename of _item) as text) & ", " & _keywords & ", " & (name of _item) as text) & ", " & (description of _item) as text) & "
"
-- display dialog _str
write _str to theOpenedFile starting at eof
-- writeTextToFile(_str, theFile, false)
end repeat
-- Restore the original delimiter
set AppleScript's text item delimiters to theBackup
close access theOpenedFile
end tell

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