root/trunk/plagger/bin/import_to_iphoto.scpt

Revision 1924 (checked in by franck, 13 years ago)

r2174@franck-mbp: franck | 2007-02-27 21:16:14 +0100
add default tags to an entry
r2175@franck-mbp: franck | 2007-02-27 21:17:25 +0100
publish-iphoto deps
r2176@franck-mbp: franck | 2007-02-27 21:18:43 +0100
add images from enclosures to iPhoto
r2177@franck-mbp: franck | 2007-02-27 21:52:16 +0100
AddTags? (test & correction in .pm)
r2178@franck-mbp: franck | 2007-02-27 21:54:49 +0100

import to iphoto if there is no Mac
Glue

Line 
1 on run argv
2        
3         tell application "System Events"
4                 if not (exists process "iPhoto") then
5                         tell application "iPhoto"
6                                 launch
7                                 set visible of front window to true
8                         end tell
9                 end if
10         end tell
11
12         tell application "iPhoto"
13                 activate
14                 set photoPath to (item 1 of argv)
15                 set albumRSS to (item 2 of argv)
16                 if (album albumRSS exists) is not true then
17                         new album name albumRSS
18                 end if
19                 import from (photoPath) to album albumRSS
20         end tell
21        
22 end run
Note: See TracBrowser for help on using the browser.