42 lines
1.5 KiB
AppleScript
42 lines
1.5 KiB
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
|