awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

Fix ui/doom-quit for new quit-confirm system

Browse Source
This commit is contained in:
Henrik Lissner
2017-06-12 00:52:40 +02:00
parent 4984a548d1
commit 2d219c24eb
1 changed files with 8 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
modules/ui/doom-quit/config.el
View File

@ -26,13 +26,12 @@
"A list of quit messages, picked randomly by `+doom-quit'. Taken from
http://doom.wikia.com/wiki/Quit_messages and elsewhere.")
(defun +doom-quit (&rest _)
(if (doom-real-buffers-list)
(y-or-n-p
(format "%s Quit?"
(nth (random (length +doom-quit-messages))
+doom-quit-messages)))
t))
(setq confirm-kill-emacs #'+doom-quit)
(defun +doom|quit (&rest _)
(doom-quit-p
(format "%s Quit?"
(nth (random (length +doom-quit-messages))
+doom-quit-messages))))
;;
(remove-hook 'kill-emacs-query-functions #'doom-quit-p)
(add-hook 'kill-emacs-query-functions #'+doom|quit)