diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-12 17:53:18 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-12 17:53:18 -0700 |
commit | 6f14105d5821ac8119c59492bf9c0cb9a6071f53 (patch) | |
tree | bcc8fea67e789eb99ed50d855e1cdb85c1b1bd58 | |
parent | c1eb12d023d2fe0ff2c996e4b06ded93de851f26 (diff) | |
download | dotfiles-6f14105d5821ac8119c59492bf9c0cb9a6071f53.tar.gz |
set frame-title-format when using multiple-frames
-rw-r--r-- | .emacs.d/init-spw.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index df659d7e..d58a9522 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -1421,6 +1421,14 @@ I use by default)." (or (not (memq (framep (selected-frame)) '(x))) (not (member (getenv "DESKTOP_SESSION") '("i3"))))) +;; if we're going to be using multiple frames, make `frame-title-format' not +;; depend on whether there are multiple frames right now +(add-function :after after-focus-change-function #'spw/set-frame-title-format) +(defun spw/set-frame-title-format () + (unless (spw/use-tabs-not-frames) + (remove-function after-focus-change-function #'spw/set-frame-title-format) + (setq frame-title-format "%b"))) + (defun spw/save-buffer-for-later () (interactive) (if (spw/use-tabs-not-frames) |