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

Improve doom-buffer kill-buffer-query-functions; update doom-buffer when visible

Browse source
This commit is contained in:
Henrik Lissner 2016-06-08 14:37:28 -04:00
parent 83fe910469
commit 2ad73e974d
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
core/core-scratch.el
View file

@ -10,15 +10,22 @@
"The global and persistent scratch buffer for doom.")
(defvar doom-buffer-name "*doom*"
"The name of the doom scratch buffer.")
(defvar-local doom-buffer-edited nil
(defvar doom-buffer-edited nil
"If non-nil, the scratch buffer has been edited.")
(define-derived-mode doom-mode fundamental-mode "DOOM"
"Major mode for special DOOM buffers.")
;; Update the doom buffer if it's visible during a killing
(add-hook! 'kill-buffer-query-functions
(when (and (get-buffer-window-list doom-buffer nil t)
(not doom-buffer-edited))
(doom-mode-init t))
t)
;; Don't kill the scratch buffer
(add-hook! 'kill-buffer-query-functions
(not (string= doom-buffer-name (buffer-name))))
(not (eq doom-buffer (current-buffer))))
(after! uniquify
(push (regexp-quote doom-buffer-name) uniquify-ignore-buffers-re))