🚀 go-pugleaf

It's pretty easy to extend existing code to use other screens.  Here
are examples of what I've done.  I just yanked the original code (e.g
for find-file-read-only) and added the accessory code to put up a new
screen.

(require 'epoch)

(defun find-alternate-file-other-screen (filename)
  "Find file FILENAME in a new screen and kill the previous buffer and screen."
  (interactive "FFind alternate file: ")
  (and (buffer-modified-p)
       (not buffer-read-only)
       (not (yes-or-no-p (format "Buffer %s is modified; kill anyway? "
				 (buffer-name))))
       (error "Aborted"))
  (let ((obuf (current-buffer))
	(ofile buffer-file-name)
	(oname (buffer-name))
	(oscr (current-screen)))
    (rename-buffer " **lose**")
    (setq buffer-file-name nil)
    (unwind-protect
	(progn
	  (unlock-buffer)
	  (find-file-other-screen filename))
      (cond ((eq obuf (current-buffer))
	     (setq buffer-file-name ofile)
	     (lock-buffer)
	     (rename-buffer oname))))
    (kill-buffer obuf)
    (delete-screen oscr)))

(defun find-file-other-screen-read-only (filename)
  "Edit file FILENAME in another screen but don't save without confirmation.
Like find-file-other-screen but marks buffer as read-only."
  (interactive "fFind file read-only: ")
  (find-file-other-screen filename)
  (setq buffer-read-only t))