doScript()

on doScript()

    tell application "Yojimbo"

        set theSelection to selection

    end tell

if (theSelection is missing value) then return

if ((count of theSelection) > 0) then

        my removeYojimboTags(theSelection, {"•", "••", "•••", "••••", "•••••"})

        my addYojimboTags(theSelection, {"•••••"})

    end if

end doScript

on addYojimboTags(theItems, theTags)

    tell application "Yojimbo"

        repeat with thisItem in theItems

            add tags theTags to thisItem

        end repeat

    end tell

end addYojimboTags

on removeYojimboTags(theItems, theTags)

    tell application "Yojimbo"

        repeat with thisItem in theItems

            remove tags theTags from thisItem

        end repeat

    end tell

end removeYojimboTags