Can I and How: create iphoto smart albums from keywords?
I know how to do it manually, but, as I have many keywords, I would like it done en masse.
iMac, Mac OS X (10.5.5)
Apple Event: May 7th at 7 am PT
iMac, Mac OS X (10.5.5)
*tell application "iPhoto"*
* set allTheKeywords to {}*
* repeat with thisPhoto in photos*
* repeat with thisKeyword in keywords of thisPhoto*
* if name of thisKeyword is not in allTheKeywords then*
* copy name of thisKeyword to the end of allTheKeywords*
* end if*
* end repeat*
* end repeat*
activate
* repeat with thisKeyword in allTheKeywords*
* if not (album thisKeyword exists) then*
* tell application "System Events" to tell process "iPhoto"*
* keystroke "n" using {option down, command down}* -- New Smart Album…
* keystroke thisKeyword* -- Smart Album name
* tell group 1 of sheet 1 of window 1*
* click pop up button 1*
* keystroke "Keyword" & return*
* click pop up button 1 of group 2*
* keystroke "is" & return*
* click pop up button 1 of group 1*
* keystroke thisKeyword & return*
* keystroke return* -- OK
* end tell*
* end tell*
* end if*
* end repeat*
*end tell*
Can I and How: create iphoto smart albums from keywords?