🚀 go-pugleaf

I'm using the following code to set my window and icon names in Epoch.
I set my window names to be the buffer name with "@ <hostname>" after
it. My icon names are just the buffer names. (I hate wide icons!)

GWM changes my window names for me just fine. They get out of sync
once in a while, but I think that that is a problem with Epoch not
calling the set-window-buffer-hook often enough.

Ok. So not I've got a window with ".profile.gwm @ phoenix" at the top.
"M-ESC (title)" returns the same string. "M-ESC (icon-name" returns
".profile.gwm", just like it should. But when I iconize the window, it
gets named "icon".

Anybody? Here is my Epoch code to set the window name.

(defun set-window-name (win)
  (let* ((buff (window-buffer win))
	 (name (or (and buff (buffer-name buff)) "# No-Name #") )
	 (scr (epoch::screen-of-window win)))
    (if (and buff (buffer-file-name buff))
	(progn (epoch::title (concat name " @ " (system-name)) scr)
	       (epoch::icon-name name scr)))))

(setq set-window-buffer-hook 'set-window-name)


Here is my GWM code dealing with the icons.

(customize simple-icon any Emacs               simple-icon.background (color-make "wheat"))
(customize simple-icon any MiniBuffer          simple-icon.background (color-make "wheat"))
(set-icon-window any        simple-icon)

--
Douglas Keenan Rand                Honeywell -- Air Transport Systems Division
Phone: +1 602 436 2814               US Snail: P.O. Box 21111 Phoenix AZ 85036
NSFnet: rand@hwcae.cfsat.honeywell.com   UUCP: uunet!asuvax!apciphx!hwcae!rand