summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorAlan Pearce2014-07-13 09:19:49 +0100
committerAlan Pearce2014-07-13 09:20:25 +0100
commitbbb27a24cb4eae2a9fcc414f37312811bc49f441 (patch)
tree83693d3b75a379eae871d529fcba3adf7f5339cd
parent0f82040e9ab719eed92b178113200c1694550be0 (diff)
downloaddotfiles-bbb27a24cb4eae2a9fcc414f37312811bc49f441.tar.lz
dotfiles-bbb27a24cb4eae2a9fcc414f37312811bc49f441.tar.zst
dotfiles-bbb27a24cb4eae2a9fcc414f37312811bc49f441.zip
Emacs: Add project name to frame title
-rw-r--r--tag-emacs/emacs.d/init.el10
1 files changed, 7 insertions, 3 deletions
diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index 4ddab84..772ccf6 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -1122,11 +1122,15 @@
 ;;;; Windows & Frames
 
 (setq frame-title-format
-      '(""
-        (:eval (capitalize invocation-name)) ": "
+      '((:eval (capitalize invocation-name)) ": "
+        (:eval (if (projectile-project-p)
+                   (concat (projectile-project-name) " ")
+                 ))
+        "("
         (:eval (if (buffer-file-name)
                    (abbreviate-file-name (buffer-file-name))
-                 "%b"))))
+                 "%b"))
+        ")"))
 
 (setq scroll-conservatively 100 ; Keep the cursor position when scrolling
       scroll-margin 1