Re: Previous APOD Page
Re: Previous APOD Page
- Subject: Re: Previous APOD Page
- From: Jon Pugh <email@hidden>
- Date: Mon, 27 Aug 2012 20:50:11 -0700
On Aug 27, 2012, at 6:06 PM, Christopher Stone wrote:
> Like many people I enjoy the APOD, and also like many people I often forget to visit it daily.
I don’t forget. Every morning, I run this script every morning via a DragThing button dock that appears in Safari. I could do it automatically, but I prefer to do it on demand.
Jon
-- Morning Reading --
property bestBounds : {1, 22, 1181, 1198} -- choose your size here
property dontResize : {"Downloads", "General", "Appearance", "Bookmarks", "Tabs", "AutoFill", "Security", "Advanced"}
set currentDate to current date
set currentDay to weekday of currentDate
set isWinter to month of currentDate is in {November, December, January, February, March, April}
tell application "Safari"
close windows
end tell
showURL("http://mac.alltop.com/")
if isWinter then
showURL("http://www.seanet.com/~jonpugh/SkiSummary.html")
end if
showURL("http://antwrp.gsfc.nasa.gov/apod/astropix.html")
if currentDay is Monday then
showURL("http://www.oglaf.com/“) -- VERY NSFW, but damned funny
end if
if currentDay is in {Monday, Wednesday, Saturday} then
showURL("http://www.giantitp.com/")
end if
if currentDay is in {Monday, Thursday} then
showURL("http://www.erfworld.com/")
end if
if currentDay is in {Tuesday, Thursday, Saturday} then
showURL("http://www.amazingagentjennifer.com/")
end if
showURL("http://www.doonesbury.com/")
showURL("http://www.gocomics.com/calvinandhobbes")
showURL("http://www.gocomics.com/getfuzzy")
showURL("http://www.gocomics.com/pearlsbeforeswine/")
showURL("http://www.gocomics.com/nonsequitur/")
showURL("http://dilbert.com/fast")
if currentDay is Sunday then
showURL("http://www.foxtrot.com/")
end if
if currentDay is Monday then
showURL("http://www.gocomics.com/tomthedancingbug/")
end if
if currentDay is in {Tuesday, Thursday} then
showURL("http://trenchescomic.com/")
end if
showURL("http://www.penny-arcade.com/comic/")
showURL("http://www.schlockmercenary.com/")
if currentDay ≠ Saturday and currentDay ≠ Sunday then
showURL("http://www.reallifecomics.com/")
showURL("http://wapsisquare.com/")
-- showURL("http://www.crazyapplerumors.com/")
-- showURL("http://www.macfixit.com/")
-- showURL("http://www.macintouch.com/")
end if
tell application "DragThing"
set minimised of dock "Safari" to true
end tell
on showURL(u)
tell application "Safari"
make new document at end of documents with properties {URL:u}
set bounds of window 1 to bestBounds
end tell
end showURL
_______________________________________________
Do not post admin requests to the list. They will be ignored.
AppleScript-Users mailing list (email@hidden)
Help/Unsubscribe/Update your Subscription:
Archives: http://lists.apple.com/archives/applescript-users
This email sent to email@hidden