From 09504ef9fea6def957b6a2cec3fba907b56eba9b Mon Sep 17 00:00:00 2001
From: Jeetaditya Chatterjee <jeetelongname@gmail.com>
Date: Thu, 17 Aug 2023 11:52:30 +0100
Subject: [PATCH] feat: ask before quickloading a session

---
 lisp/lib/sessions.el | 17 +++++++++++------
 1 file changed, 11 insertions(+), 6 deletions(-)

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 ()