emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Change pwd of scratch buffer after killing real buffer

Browse source
This commit is contained in:
Henrik Lissner 2016-03-03 15:04:54 -05:00
parent 9571acd3e9
commit f2dffab735
1 changed files with 15 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

25
core/defuns/defuns-buffers.el
View file

@ -92,16 +92,21 @@ Inspired from http://demonastery.org/2013/04/emacs-evil-narrow-region/"
"Kill buffer (but only bury scratch buffer), then switch to a real buffer. Only buries
the buffer if it is being displayed in another window."
(interactive)
(cond ((string-match-p "^\\*scratch\\*" (buffer-name))
(erase-buffer))
(t
(if (> (length (get-buffer-window-list (current-buffer) nil nil)) 1)
(bury-buffer)
(kill-this-buffer))))
(if (narf/popup-p (selected-window))
(narf/popup-close)
(unless (narf/real-buffer-p (current-buffer))
(narf/previous-real-buffer))))
(let (new-dir)
(cond ((string-match-p "^\\*scratch\\*" (buffer-name))
(erase-buffer))
(t
(setq new-dir (narf/project-root))
(if (> (length (get-buffer-window-list (current-buffer) nil nil)) 1)
(bury-buffer)
(kill-this-buffer))))
(if (narf/popup-p (selected-window))
(narf/popup-close)
(unless (narf/real-buffer-p (current-buffer))
(narf/previous-real-buffer)
(when (and (string-match-p "^\\*scratch\\*" (buffer-name)) new-dir)
(setq header-line-format new-dir)
(setq default-directory new-dir))))))
;;;###autoload
(defun narf/kill-unreal-buffers ()