🚀 go-pugleaf

I am trying to write an elisp package for epoch that would change the icon
of the current screen based upon what mode is active in that screen. 

Heres why:
As I use epoch I end up with alot of screens open - many of them iconized.
It would be much easier to find the screen I want if for instance dired
windows have a file cabinet as the icon, and so on. 

Here are the problems:
If I change the icon in the mode-hook then I have to change every mode-hook
that I want to have a non-default icon in.  Also, if I execute a
switch-to-buffer which changes the screens mode, it does not re-execute the
mode-hook.  

I dont want to mess with the after or before-change hooks as this would
probably slow down epoch needlessly. 

So how can I write this in such a way as to keep my icons consistent with
the screens? 

Please help!
--
  +-----------------------------+-------------------------------------------+
  | Frank Caico                 |                  fcaic@wbst845e.xerox.com |
  +-----------------------------+-------------------------------------------+
  | Xerox KBS Competency Ctr.   |                                           |
  | Bldg. 845-20C               |    "I am pink, therefore I am Spam."      |
  | Webster, NY  14580          |                                           |
  +-----------------------------+-------------------------------------------+