From 36c541555849f5c8d60824c929847e5ba6841a78 Mon Sep 17 00:00:00 2001
From: Alan Pearce
Date: Thu, 11 Jun 2015 17:37:41 +0200
Subject: Emacs: Update frame-title-format

---
 tag-emacs/emacs.d/init.el | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'tag-emacs')

diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index f097b270..7d16a8cc 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -1541,13 +1541,13 @@ symbol, not word, as I need this for programming the most."
 ;;;; Windows & Frames
 
 (setq frame-title-format
-      '((:eval (capitalize invocation-name)) ": "
-        (:eval (if (and (fboundp #'project-project-p)
+      '((:eval (if (and (fboundp #'projectile-project-p)
                         (projectile-project-p))
-                   (projectile-project-name)
-                 (if (buffer-file-name)
-                     (abbreviate-file-name (buffer-file-name))
-                   "%b")))))
+                   (projectile-project-name)))
+        ": "
+        (:eval (if (buffer-file-name)
+                   (buffer-name)
+                 "%b"))))
 
 (setq scroll-conservatively 100 ; Keep the cursor position when scrolling
       scroll-margin 1
-- 
cgit 1.4.1