From 587a8cad1db06f2735054ad2dff0d6346093a7be Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Adri=C3=A1n=20Medra=C3=B1o=20Calvo?=
 <adrian@medranocalvo.com>
Date: Tue, 6 Mar 2018 00:00:00 +0000
Subject: [PATCH] Add interactive commands for starting and stopping EXWM

* exwm.el (exwm-reset): Remove autoload cookie.
(exwm-init, exwm-exit): Add autoload cookie and interactive
declaration.
---
 exwm-workspace.el | 2 +-
 exwm.el           | 9 ++++++---
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/exwm-workspace.el b/exwm-workspace.el
index a852eb8..0a1984b 100644
--- a/exwm-workspace.el
+++ b/exwm-workspace.el
@@ -1576,7 +1576,7 @@ applied to all subsequently created X frames."
                                  ;; (client . nil)
                                  (fullscreen . nil)
                                  (buffer-predicate . nil))))
-  ;; Restore the 'client' frame parameter (before `exwm--exit').
+  ;; Restore the 'client' frame parameter (before `exwm-exit').
   (when exwm-workspace--client
     (dolist (f exwm-workspace--list)
       (set-frame-parameter f 'client exwm-workspace--client))
diff --git a/exwm.el b/exwm.el
index 8c57a07..06b66c2 100644
--- a/exwm.el
+++ b/exwm.el
@@ -104,7 +104,6 @@
 
 (defvar exwm--server-process nil "Process of the subordinate Emacs server.")
 
-;;;###autoload
 (defun exwm-reset ()
   "Reset the state of the selected window (non-fullscreen, line-mode, etc)."
   (interactive)
@@ -690,8 +689,10 @@
                        :property p))
     (xcb:flush exwm--connection)))
 
+;;;###autoload
 (defun exwm-init (&optional frame)
   "Initialize EXWM."
+  (interactive)
   (if frame
       ;; The frame might not be selected if it's created by emacslicnet.
       (select-frame-set-input-focus frame)
@@ -735,8 +736,10 @@
         (exwm-manage--scan)
         (run-hooks 'exwm-init-hook)))))
 
-(defun exwm--exit ()
+;;;###autoload
+(defun exwm-exit ()
   "Exit EXWM."
+  (interactive)
   (run-hooks 'exwm-exit-hook)
   (setq confirm-kill-emacs nil)
   ;; Exit modules.
@@ -855,7 +858,7 @@
       (run-hooks 'kill-emacs-hook)
       (setq kill-emacs-hook nil))
     ;; Exit each module, destroying all resources created by this connection.
-    (exwm--exit)
+    (exwm-exit)
     ;; Set the return value.
     t))