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.
This commit is contained in:
parent
ce8af83ffb
commit
587a8cad1d
2 changed files with 7 additions and 4 deletions
|
@ -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))
|
||||
|
|
9
exwm.el
9
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))
|
||||
|
||||
|
|
Loading…
Reference in a new issue