🚀 go-pugleaf

I did something similar to this, but I still have to manually tell it when
to sync up the screen title to the buffer.  I haven't yet had time to think
about changing it to always keep in sync - if you come up with a clean way
of doing this, please post it!

I bound the "sync up" to a key as follows:

(when running-epoch
    (defun title-to-buffer-name ()
      "Change the title of the current epoch screen to the current buffer name"
      (interactive)
      (title (buffer-name))
      (icon-name (buffer-name))
    )
    (global-set-key "\C-Za" 'title-to-buffer-name)
)

BTW, I *really* dislike the use of "definteractive" with global-set-key in
the epoch elisp files.  I like the fact that it's so succinct, but
functions defined this way are almost "invisible" - they don't have names,
and they don't have doc text.  Someone who doesn't read the elisp files and
searches for a function via apropos will never realize that the function is
bound to a key already.

------------
Bob Doolittle
Thinking Machines Corporation
rad@think.com