scratch: autoupdate default-directory in header-line
This commit is contained in:
parent
f212d0bb46
commit
9565bae1f9
|
@ -210,7 +210,7 @@ Examples:
|
|||
(let ((dir (or dir (narf/project-root))))
|
||||
(with-current-buffer (get-buffer-create "*scratch*")
|
||||
(setq default-directory dir)
|
||||
(setq header-line-format (concat " ∴ " dir)))))
|
||||
(setq header-line-format '(:eval (concat " ∴ " default-directory))))))
|
||||
|
||||
|
||||
;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;;
|
||||
|
|
Loading…
Reference in New Issue
Block a user