First commit.

lisp/ux/prompts.el

@@ -0,0 +1,30 @@
+;;; prompts.el --- Configure Emacs prompting -*- lexical-binding: t; -*-
+;;; Commentary:
+;;; Code:
+
+(defun user--prompts-config ()
+  "Initialize Emacs prompting."
+  (validate-setq
+   ;; Always follow links to version controlled files.
+   vc-follow-symlinks t
+   ;; Always ask before killing Emacs.
+   confirm-kill-emacs 'y-or-n-p)
+
+  ;; Use shorter y/n prompts instead of yes/no.
+  (fset 'yes-or-no-p 'y-or-n-p)
+
+  (when (display-graphic-p)
+    (validate-setq
+     ;; Don't use graphical dialog boxes when prompting.
+     use-dialog-box nil))
+
+  (defadvice save-buffers-kill-emacs (around no-query-kill-emacs activate)
+    "Prevent \"Active processes exist\" query when you quit Emacs."
+    (with-feature 'cl-lib
+      (cl-flet ((process-list ())) ad-do-it))))
+
+(user--prompts-config)
+
+
+(provide 'ux/prompts)
+;;; prompts.el ends here