diff --git a/modules/ui/doom-quit/config.el b/modules/ui/doom-quit/config.el new file mode 100644 index 000000000..3dcbe88f7 --- /dev/null +++ b/modules/ui/doom-quit/config.el @@ -0,0 +1,35 @@ +;;; fun/doom-quit/config.el +;; +;; A silly module that prompts you with messages when you try to quit, like DOOM +;; did. Some quotes are taken from Doom's quit-message list, others are random, +;; nerdy references that no decent human being has any business recognizing. + +(defvar +doom-quit-messages + '(;; from Doom 1 + "Please don't leave, there's more demons to toast!" + "Let's beat it -- This is turning into a bloodbath!" + "I wouldn't leave if I were you. DOS is much worse." + "Don't leave yet -- There's a demon around that corner!" + "Ya know, next time you come in here I'm gonna toast ya." + "Go ahead and leave. See if I care." + "Are you sure you want to quit this great editor?" + ;; Custom + "(setq nothing t everything 'permitted)" + "Emacs will remember that." + "Emacs, Emacs never changes." + "Hey! Hey, M-x listen!" + "I'm the man who's going to burn your house down! With lemons!" + "It's not like I'll miss you or anything, b-baka!" + "Okay, look. We've both said a lot of things you're going to regret..." + "Wake up, Mr. Stallman. Wake up and smell the ashes." + "You are *not* prepared!") + "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) +