about summary refs log tree commit diff
diff options
context:
space:
mode:
authorAdrián Medraño Calvo <adrian@medranocalvo.com>2018-03-06T00·00+0000
committerAdrián Medraño Calvo <adrian@medranocalvo.com>2018-03-06T00·00+0000
commit587a8cad1db06f2735054ad2dff0d6346093a7be (patch)
tree765f416826f39051367386a7142eaff22ce0fb8b
parentce8af83ffb1ff56f31956b9343a035e2137bc08b (diff)
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.
-rw-r--r--exwm-workspace.el2
-rw-r--r--exwm.el9
2 files changed, 7 insertions, 4 deletions
diff --git a/exwm-workspace.el b/exwm-workspace.el
index a852eb8b7db3..0a1984bdf8f5 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 8c57a07df2e4..06b66c2fdbb4 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))