I would love to have a command to clear all tags

Continuing the discussion from What's missing in TaskPaper 3 Preview?:

I’ll look into adding this. But also know that you can current remove all of a single tag from the selection using Item > Tag With… that’s actually a toggle. If the tag that you choose already exists in the selection then it will be removed everywhere in the selection… otherwise it will be added everywhere. But that’s just for a single tag.

It would be great if this could be a native command. Or if I can use AppleScript, which is my current workaround with TaskPaper 2:

tell application "TaskPaper"
	tell front document
		tell selected entry
			delete every tag
		end tell
	end tell
end tell

One of the things I love about TP and FT is that you can just copy your entire document into TextWrangler and grep out the tags.