Tweak Emacs frames title

This is somewhat more informative for me.

1 files changed, 11 insertions, 0 deletions

diff --git a/.emacs b/.emacs
index 6a58986..486aa69 100644
--- a/.emacs
+++ b/.emacs
@@ -277,5 +277,16 @@
 ;; Font stuff (🤷 🤦)
 (set-fontset-font "fontset-default" nil (font-spec :name "Symbola") nil 'append)
 
+(defun my/project-name ()
+  (when-let* ((project (project-current))
+              (root (car (project-roots project))))
+    (when (not (file-equal-p root "~"))
+      (file-name-nondirectory (string-trim-right root "/")))))
+
+(setq frame-title-format
+      '(:eval
+        (let ((project (my/project-name)))
+          (concat (when project (format "[%s] " project)) "%b"))))
+
 ;; TODO: fringe fun: hideshowvis, git gutter…
 ;; TODO: decruftify mode-line (e.g. remove superflous parens)