diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-12-31 15:24:44 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-12-31 15:42:01 -0700 |
commit | e4dfe304153ffb626fd154ceec49219d0b53ff29 (patch) | |
tree | b49e30abc31f6bec3806538bfb93c870a587db44 | |
parent | e20bca43b9505bb05593e61fa9397f154afb6da1 (diff) | |
download | dotfiles-e4dfe304153ffb626fd154ceec49219d0b53ff29.tar.gz |
indicate Emacs build in frame-title-format
-rw-r--r-- | .emacs.d/init.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 91d09c5a..44039e30 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -1968,7 +1968,12 @@ Used in my `message-mode' yasnippets." (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"))) + (setq frame-title-format + (concat "%b - " + (if (file-in-directory-p + invocation-directory (expand-file-name "~")) + "in-tree" "installed") + " GNU Emacs at " system-name)))) (defun spw/save-buffer-for-later () (interactive) |