diff options
| author | Alan Pearce | 2014-07-13 09:19:49 +0100 |
|---|---|---|
| committer | Alan Pearce | 2014-07-13 09:20:25 +0100 |
| commit | bbb27a24cb4eae2a9fcc414f37312811bc49f441 (patch) | |
| tree | 83693d3b75a379eae871d529fcba3adf7f5339cd | |
| parent | 0f82040e9ab719eed92b178113200c1694550be0 (diff) | |
| download | dotfiles-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.el | 10 |
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 |