on run
	try
		set strText to (the clipboard) as text
	on error
		return
	end try
	
	MakeTask(strText)
end run


on MakeTask(strText)
	set lstLines to paragraphs of strText
	if lstLines ≠ {} then
		if (length of lstLines) > 1 then
			set {dlm, my text item delimiters} to {my text item delimiters, linefeed}
			set strNote to (items 2 thru -1 of lstLines) as text
			set my text item delimiters to dlm
		else
			set strNote to ""
		end if
		
		tell application id "OFOC"
			tell default document to make new inbox task with properties {name:item 1 of lstLines, note:strNote}
		end tell
	end if
end MakeTask