an applescript for managing colors in open documents