gitback/doomemacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

scratch: autoupdate default-directory in header-line

Browse Source
This commit is contained in:
Henrik Lissner 2016-04-13 16:14:45 -04:00
parent f212d0bb46
commit 9565bae1f9
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/core-defuns.el
View File

@ -210,7 +210,7 @@ Examples:
(let ((dir (or dir (narf/project-root)))) (let ((dir (or dir (narf/project-root))))
(with-current-buffer (get-buffer-create "*scratch*") (with-current-buffer (get-buffer-create "*scratch*")
(setq default-directory dir) (setq default-directory dir)
(setq header-line-format (concat " ∴ " dir))))) (setq header-line-format '(:eval (concat " ∴ " default-directory))))))
;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;; ;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;;