Things integrate with concentrate

concentrate.scpt

-- pomodoro

tell application "Things"
	show quick entry panel
end tell

tell application "Things"
	tell list "Today"
		set toDoToComplete to first to do
		set status of toDoToComplete to completed
		set tag names of toDoToComplete to "⌘,✔"
	end tell
	
	tell list "Next"
		set aToDo to to do named "One Pomodoro"
		delete aToDo
	end tell
	move toDoToComplete to list "Next"
end tell
----------
--surfing

tell application "Things"
	tell list "Today"
		set newToDo to make new to do with properties {name:"Surfing"}
	end tell
end tell

tell application "Things"
	tell list "Today"
		set toDoToComplete to to do named "Surfing"
		set status of toDoToComplete to completed
		set tag names of toDoToComplete to "⌘,✘,00"
	end tell
	set project of toDoToComplete to project "Daily Pomodoro"
	move toDoToComplete to list "Next"
end tell