1 files changed, 12 insertions, 0 deletions

@@ -632,6 +632,18 @@ This function is internal.  Use `acdw/make-password-fetcher' instead."
   (interactive "p")
   (dotimes (or n 1)
     (insert "💩")))
+
+;;; Fat finger solutions
+(defun acdw/fat-finger-exit (&optional prefix)
+  "Delete a frame, or kill Emacs with confirmation.
+When called with PREFIX, just kill Emacs without confirmation."
+  (interactive "P")
+  (if (or prefix
+          (and (= 1 (length (frame-list)))
+               (yes-or-no-p "This is the last frame!  Wanna quit?")))
+      (kill-emacs)
+    (ignore-errors
+      (delete-frame))))
 
 (provide 'acdw)
 ;;; acdw.el ends here