System wide TaskPaper Clipper

Clipper.scpt

(*

Run as Automator Service and add keyboard shortcut in "Keyboard" preference pane.

*)

on run {input, parameters}
	tell application "TaskPaper"
		tell front document
			tell project named "Inbox"
				make new entry with properties {name:"- " & input}
			end tell
		end tell
	end tell
end run