🚀 go-pugleaf

for finding files, other screen, I use

(defun make-file-window (name)
  "Prompts for a file or directory name and opens a screen on that file.
  The name may be non-existent."
  (interactive "FInsert file name: ")
  (let ((win (epoch::get-buffer-window (find-file-noselect name))))
    (if win
	(select-screen (epoch::screen-of-window win))
	  ;; else 
	(select-screen 
	   (create-screen 
	    "*scratch*"
	    (list (cons 'title (file-name-nondirectory name))
	          (cons 'background "DarkGreen")
		  (cons 'cursor-color "yellow")
		  (cons 'cursor-foreground "yellow")
		  (cons 'cursor-background "black")
		  (cons 'foreground "PaleGreen")
		  (cons 'icon-name (file-name-nondirectory name))
		  (cons 'initial-state nil)
		  (cons 'geometry "80x26")))))
    (find-file name)
    (sit-for 0)
    (warp-mouse 40 10 (current-screen))
    (epoch::mapraised-screen (current-screen))
    ))

the advantage being, if a file is already in a buffer somewhere,
another window is not opened.
the key line regarding bruces question is
    (epoch::mapraised-screen (current-screen))
to raise the window.
Now that I notice it, the properties are really sort of a hack left
over from playing with different screen colors... I think I can take
those out now...

  -- Doug
--
 | Doug Hahn, CRL, Tektronix, PO Box 500/MS 50-662, Beaverton, OR 97077
 | (503) 627-6419    ...!tektronix!crl.labs!hahn  hahn@crl.labs.tek.com
--