c7254e7bdc
+ enable lexical-scope everywhere (lexical-binding = t): ~5-10% faster startup; ~5-20% general boost + reduce consing, function calls & garbage collection by preferring cl-loop & dolist over lambda closures (for mapc[ar], add-hook, and various cl-lib filter/map/reduce functions) -- where possible + prefer functions with dedicated opcodes, like assq (see byte-defop's in bytecomp.el for more) + prefer pcase & cond (faster) over cl-case + general refactor for code readability + ensure naming & style conventions are adhered to + appease byte-compiler by marking unused variables with underscore + defer minor mode activation to after-init, emacs-startup or window-setup hooks; a customization opportunity for users + ensures custom functionality won't interfere with startup.
38 lines
1.5 KiB
EmacsLisp
38 lines
1.5 KiB
EmacsLisp
;;; ui/doom-quit/config.el -*- lexical-binding: t; -*-
|
|
|
|
;; 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)
|
|
|