Flag things that I need to do today and unflag things that I don't in Omnifocus

autoflag.scpt

on run
	tell application "OmniFocus"
		set todayDate to current date
		set todayDate's hours to 0
		set todayDate's minutes to 0
		set todayDate's seconds to 0

		set tomorrowDate to todayDate + 1 * days

		tell default document
			set flaggedTasks to (flattened tasks where ((defer date < tomorrowDate or due date < tomorrowDate) and completed is not true))
			repeat with t in flaggedTasks
				set t's flagged to true
			end repeat
			set unflaggedTasks to (flattened tasks where (flagged is true and defer date >= tomorrowDate))
			repeat with t in unflaggedTasks
				set t's flagged to false
			end repeat
		end tell
	end tell
end run