Duplicate and Activate Weekly Review

activateWeeklyReview.applescript

tell application "OmniFocus"
	tell default document
		set p to first flattened project whose name is "Weekly Review"
		set theDate to do shell script "date +'%F'"
		set p2 to duplicate p to after p
		set name of p2 to name of p2 & " " & theDate
		set status of p2 to active
		if visible of front document window is true then
			set perspective name of document window 1 to "Weekly"
		else
			make new document window with properties {perspective name:"Weekly"} at end of document windows
			activate
		end if
	end tell
end tell

This is a beautiful thing. Thanks!