🚀 go-pugleaf

Thanks to Brian for distributing his do-titles; I'd been wanting
something like it, but didn't have time to write it.  I did, however,
take the time to make a couple of quick hacks to Brian's code:

First, "func" wasn't recognized as a proper function by my epoch (is
that a local thing, Brian, or is my epoch screwed?); I replaced "(func ..."
with "'(lambda ..." and it works fine.

Second, I wanted "@ hostname" to appear in the window title.

Finally, I wanted the icon-name to change also.

These were fairly simple and all seem to work well; here's the hacked
version, for anyone who's interested:

(defun ep:do-titles (win)
  "Chnage screen title and icon name, WIN currently selected."
  ;; change screen title if new name, not minibuf
  (let ((scr (concat (buffer-name (window-buffer win)) " @ " (system-name))))
    (if (not (string-equal (title) scr))
	(if (string-match "Minibuf" scr)
	    nil
	  (icon-name scr)
	  (title scr)))))
      
(setq set-window-buffer-hook 
      '(lambda (win) (ep:do-titles win)))

(setq window-select-hook 
      '(lambda (win) (ep:do-titles win)))

Jim
--
   _     Jim Thompson           |  Western Geophysical
 _| ~-   thompson@wg2.waii.com  |  Exploration Products
 \,  _}  jimt@sugar.neosoft.com |  3600 Briarpark
   \(    (713) 964-6213         |  Houston, TX 77042