joe-pindell

set thePath to (path to desktop as Unicode text) & "ThingsToDo.txt"
set thingsToDoFile to (open for access file thePath with write permission)
set eof of thingsToDoFile to 0
set cr to ASCII character 10

tell application "Things"
	
	-- Export to-dos from Inbox
	write "Inbox:" & return to thingsToDoFile as «class utf8»
	repeat with td in to dos of list "Inbox"

joe-pindell

tell application "TaskPaper"
	set selected_entries to get selected entries
	set theDate to (do shell script "date +'%Y-%m-%d'")
	
	-- Iterate over selection to determine if we are adding or removing done tag
	set add_done to false
	repeat with each in selected_entries
		tell each
			if not (exists tag named "done") then
				set add_done to true