From 80eafe71cb7ab53e7bcc177780258f91d32f1774 Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Sat, 28 Jan 2017 02:01:18 -0500 Subject: [PATCH] Add :fun doom-quit --- modules/fun/doom-quit/config.el | 35 +++++++++++++++++++++++++++++++++ 1 file changed, 35 insertions(+) create mode 100644 modules/fun/doom-quit/config.el diff --git a/modules/fun/doom-quit/config.el b/modules/fun/doom-quit/config.el new file mode 100644 index 000000000..5e8d47771 --- /dev/null +++ b/modules/fun/doom-quit/config.el @@ -0,0 +1,35 @@ +;;; config.el + +;; A silly little thing that prompts you with messages when you try to quit. +;; Some quotes are taken from Doom's quit messages, others are random +;; references. + +(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) (setq permitted 'everything)" + "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) +