awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-11 13:07:28 -05:00
Code Issues Packages Projects Releases Wiki Activity

Improve narf|update-scratch-buffer-cwd

Browse Source
This commit is contained in:
Henrik Lissner
2016-04-12 15:39:10 -04:00
parent 83c0909920
commit 8fa7dc7802
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
core/core-defuns.el
View File

@@ -205,11 +205,12 @@ Examples:
(defun narf|enable-hard-wrap () (defun narf|enable-hard-wrap ()
(turn-on-auto-fill)) (turn-on-auto-fill))
(defun narf|update-scratch-buffer-cwd () ; see core-editor.el (defun narf|update-scratch-buffer-cwd (&optional dir) ; see core-editor.el
"Make sure scratch buffer is always 'in a project.'" "Make sure scratch buffer is always 'in a project.'"
(let ((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*")
(cd dir)))) (setq default-directory dir)
(setq header-line-format (concat " ∴ " dir)))))
;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;; ;;;; Global Defuns ;;;;;;;;;;;;;;;;;;;;;