diff --git a/lisp/lib/sessions.el b/lisp/lib/sessions.el index 2619e7917..571749f93 100644 --- a/lisp/lib/sessions.el +++ b/lisp/lib/sessions.el @@ -67,12 +67,17 @@ ;;; Commands ;;;###autoload -(defun doom/quickload-session () - "TODO" - (interactive) - (message "Restoring session...") - (doom-load-session) - (message "Session restored. Welcome back.")) +(defun doom/quickload-session (force) + "Load the last session saved. +If the FORCE \\[universal-argument] is provided +then no confirmation is asked." + (interactive "P") + (if (or force + (yes-or-no-p "This will wipe your current session, do you want to continue? ")) + (progn (message "Restoring session...") + (doom-load-session) + (message "Session restored. Welcome back.")) + (message "Session not restored."))) ;;;###autoload (defun doom/quicksave-session ()