From bbb27a24cb4eae2a9fcc414f37312811bc49f441 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Sun, 13 Jul 2014 09:19:49 +0100
Subject: Emacs: Add project name to frame title

---
 tag-emacs/emacs.d/init.el | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index 4ddab848..772ccf61 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
-- 
cgit 1.4.1