MD to DT3

runAppleScript

on execute (draft)
	set theName to title of draft as text
	set theMD to (content of draft as text) & return
	tell application id "DNtp"
		try
			if not (exists think window 1) then error "No window opened."
			create record with {name:theName, type:markdown, content:theMD} in the current group
		on error error_message number error_number
			if the error_number is not -128 then display alert "DEVONthink" message error_message as warning
		end try
	end tell
end execute