NetNewsWire/AppleScript/OmniFocus-AddToNNWReadingList.applescript

-- This script presumes that you are an OmniFocus user, 
-- and that you'd like to have a project in OmniFocus for a reading list of articles from NetNewsWire. 
-- Running this script creates a new task in an OmniFocus project called "NetNewsWire reading list"
-- with information about the current article.

-- Ideally, the name of the task will be the name of the article, but some articles don't have names
-- so if there is not name for the article, just use a default string "A NetNewsWireArticle without a title"
to getTitleOrSomething()
	tell application "NetNewsWire"
		set myTitle to the title of the current article
		if (myTitle is "") then
			set myTitle to "A NetNewsWireArticle without a title"
		end if
	end tell
end getTitleOrSomething


-- Here's where the script starts

-- first get the url and the title of the current article
tell application "NetNewsWire"
	set myUrl to the url of the current article
	set myTitle to my getTitleOrSomething()
end tell

tell application "OmniFocus"
	tell document 1
		
		-- Second, ensure that the front OmniFocus document has a project called  "NetNewsWire reading list"
		set names to name of every project
		if names does not contain "NetNewsWire reading list" then
			make new project with properties {name:"NetNewsWire reading list"}
		end if
		
		-- lastly, add a task in that project referring to the current article 
		-- the "Note" field of the task will contain the url for the article
		tell project "NetNewsWire reading list"
			make new task with properties {name:myTitle, note:myUrl}
		end tell
		
	end tell
end tell