Autoload doom-quit-p & revise its docstring
This commit is contained in:
parent
1cb31d7cb5
commit
6b7f97f4fc
2 changed files with 14 additions and 11 deletions
|
@ -124,3 +124,15 @@ to a new one."
|
|||
;;;###autoload
|
||||
(defun doom*recenter (&rest _)
|
||||
(recenter))
|
||||
|
||||
;;;###autoload
|
||||
(defun doom-quit-p (&optional prompt)
|
||||
"Prompt the user for confirmation when killing Emacs.
|
||||
|
||||
Returns t if it is safe to kill this session. Does not prompt if no real buffers
|
||||
are open."
|
||||
"Return t if this session should be killed silently."
|
||||
(if (ignore-errors (doom-real-buffer-list))
|
||||
(or (yes-or-no-p (format "››› %s" (or prompt "Quit Emacs?")))
|
||||
(ignore (message "Aborted")))
|
||||
t))
|
||||
|
|
|
@ -36,6 +36,7 @@ shorter major mode name in the mode-line. See `doom|set-mode-name'.")
|
|||
compilation-ask-about-save nil ; save all buffers on `compile'
|
||||
compilation-scroll-output 'first-error
|
||||
confirm-nonexistent-file-or-buffer t
|
||||
confirm-kill-emacs #'doom-quit-p ; custom confirmation when killing Emacs
|
||||
cursor-in-non-selected-windows nil ; hide cursors in other windows
|
||||
custom-theme-directory (expand-file-name "themes/" doom-private-dir)
|
||||
display-line-numbers-width 3
|
||||
|
@ -490,16 +491,6 @@ frame's window-system, the theme will be reloaded.")
|
|||
(add-hook 'doom-escape-hook #'doom|delete-posframe-on-escape)
|
||||
(add-hook 'doom-cleanup-hook #'posframe-delete-all))
|
||||
|
||||
;; Customized confirmation prompt for quitting Emacs
|
||||
(defun doom-quit-p (&optional prompt)
|
||||
"Return t if this session should be killed. Prompts the user for
|
||||
confirmation."
|
||||
(if (ignore-errors (doom-real-buffer-list))
|
||||
(or (yes-or-no-p (format "››› %s" (or prompt "Quit Emacs?")))
|
||||
(ignore (message "Aborted")))
|
||||
t))
|
||||
(setq confirm-kill-emacs #'doom-quit-p)
|
||||
|
||||
(defun doom|compilation-ansi-color-apply ()
|
||||
"Applies ansi codes to the compilation buffers. Meant for
|
||||
`compilation-filter-hook'."
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue