diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2022-12-27 10:59:50 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2022-12-27 10:59:50 -0700 |
commit | b1803ad503967550e733a9c65773dacde65a7dc5 (patch) | |
tree | 1c3e801f1fee8ae18249ddf3e9d97f2daaf4a095 /.emacs.d/early-init.el | |
parent | deae758c243fb7e0c163b32fbddd3ed3038de132 (diff) | |
download | dotfiles-b1803ad503967550e733a9c65773dacde65a7dc5.tar.gz |
include emacs-version in frame-title-format
Diffstat (limited to '.emacs.d/early-init.el')
-rw-r--r-- | .emacs.d/early-init.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/.emacs.d/early-init.el b/.emacs.d/early-init.el index da04a9f3..39847ba7 100644 --- a/.emacs.d/early-init.el +++ b/.emacs.d/early-init.el @@ -104,11 +104,11 @@ depend on whether there are multiple frames right now." (setq after-make-frame-functions (delq #'spw/set-frame-title-format after-make-frame-functions)) (setq frame-title-format - (concat "%b - " - (if (file-in-directory-p - invocation-directory (expand-file-name "~/")) + (format "%%b - %s Emacs-%s@%s" + (if (file-in-directory-p invocation-directory + (expand-file-name "~/")) "in-tree" "installed") - " GNU Emacs at " system-name) + emacs-version system-name) icon-title-format frame-title-format))) ;; Must come after `spw/detect-tiling-wm'. (add-to-list 'after-make-frame-functions #'spw/set-frame-title-format t) |