(*
$Id: CreateGTDEntry.scpt,v 1.1 2006/07/12 04:31:35 jmates Exp $

The author disclaims all copyrights and releases this script into the
public domain.

AppleScript to create new row and populate cells in Kinkless GTD
document.
*)

tell application "OmniOutliner Professional"
  tell document "Kinkless GTD.oo3"
    --activate
    
    -- TODO read these somehow from input!
    set theTopic to "test"
    set theContext to "Home"
    set theProject to "!Single Tasks"
    set theStartDate to "today"
    set theDueDate to "today"
    --set thePriority to "TODO"
    
    set theInbox to id of first row whose topic is "Inbox" and level is 1
    set NewRowID to id of (make new row at end of rows of row id theInbox with properties {topic:theTopic})
    select row id NewRowID
    set value of (cell "Context" of row id NewRowID) to theContext
    set value of (cell "Project" of row id NewRowID) to theProject
    set value of (cell "Start Date" of row id NewRowID) to theStartDate
    set value of (cell "Due Date" of row id NewRowID) to theDueDate
    --set value of (cell "!" of row id NewRowID) to thePriority
  end tell
end tell