Find any unused Evernote tags and delete them

DeleteUnusedEvernoteTags.scpt

tell application "Evernote"
	try
		set theTags to every tag
		repeat with theTag in theTags
			set theNotes to {}
			set theName to "\"" & name of theTag & "\""
			set theNotes to (find notes "tag:" & theName)
			if theNotes is {} then
				delete tag (name of theTag)
			end if
		end repeat
	end try
end tell