Changing Desktop background to random iPhoto Event
I have a fairly robust script that resets the background to rotate every 30 seconds amongst jpgs in a random folder from a parent folder. It executes each morning to give me a new folder of images. I'd like to alter it to instead pull a random event from my iPhoto database. Anybody have any ideas on how to make that happen?
Here's the script I'm using for images in a folder:
global ResultList
set ResultList to {}
set picfile to some item of Check4Folders(alias "Macintosh HD:Users:vjdjr:Pictures:Mentor" as list)
tell application "Finder"
set TheFolderName to (picfile as alias) as text
end tell
tell application "System Events"
(*Rotating images from a random folder of images*)
tell current desktop
set picture rotation to 1 (*0=off, 1=interval, 2=login, 3=sleep*)
set random order to true
set pictures folder to file TheFolderName
set change interval to 30.0 -- seconds
end tell
end tell
on Check4Folders(flist)
-- This recursively adds every folder within the current folder to the Result list
tell application "Finder"
repeat with currentFolder in flist
set flist to folders of currentFolder
if (count of flist) > 0 then
set ResultList to ResultList & flist
my Check4Folders(flist)
end if
end repeat
end tell
return ResultList
end Check4Folders
Thanks,
Vince
Here's the script I'm using for images in a folder:
global ResultList
set ResultList to {}
set picfile to some item of Check4Folders(alias "Macintosh HD:Users:vjdjr:Pictures:Mentor" as list)
tell application "Finder"
set TheFolderName to (picfile as alias) as text
end tell
tell application "System Events"
(*Rotating images from a random folder of images*)
tell current desktop
set picture rotation to 1 (*0=off, 1=interval, 2=login, 3=sleep*)
set random order to true
set pictures folder to file TheFolderName
set change interval to 30.0 -- seconds
end tell
end tell
on Check4Folders(flist)
-- This recursively adds every folder within the current folder to the Result list
tell application "Finder"
repeat with currentFolder in flist
set flist to folders of currentFolder
if (count of flist) > 0 then
set ResultList to ResultList & flist
my Check4Folders(flist)
end if
end repeat
end tell
return ResultList
end Check4Folders
Thanks,
Vince
Mac Book Pro, Mac OS X (10.6.6)
