Add quit-after-clearing-session command.

atlas-engineer · Oct 1, 2019 · 09a66d0 · 09a66d0
1 parent 43309f1
commit 09a66d0
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/source/base.lisp b/source/base.lisp
@@ -50,6 +50,15 @@ Set to '-' to read standard input instead.")
   (kill-interface *interface*)
   (kill-port (port *interface*)))
 
+(define-command quit-after-clearing-session ()
+  "Clear session then quit Next."
+  (setf
+   (session-store-function *interface*) nil
+   (session-restore-function *interface*) nil)
+  (uiop:delete-file-if-exists (session-path *interface*))
+  (kill-interface *interface*)
+  (kill-port (port *interface*)))
+
 (define-deprecated-command kill ()
   "Deprecated by `quit'."
   (quit))