Mirrors/exwm2
2
0
Fork 0
mirror of https://github.com/emacs-exwm/exwm.git synced 2024-11-30 07:58:00 +01:00
Code Issues Projects Releases Packages Wiki Activity

; Add missing autoload cookies.

Browse source
This commit is contained in:
Chris Feng 2017-12-31 21:01:23 +08:00
parent dd0a62c405
commit 46c4036306
2 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
exwm-cm.el
View file

@ -146,6 +146,7 @@ The value is between 0 (fully transparent) to #xFFFFFFFF (opaque)."
(when reply (when reply
(slot-value reply 'value)))) (slot-value reply 'value))))
;;;###autoload
(defun exwm-cm-set-opacity (xwin opacity) (defun exwm-cm-set-opacity (xwin opacity)
"Set the opacity of X window XWIN to OPACITY. "Set the opacity of X window XWIN to OPACITY.
@ -1759,17 +1760,20 @@ Create implicit workspace frame container")))
(add-hook 'exwm-init-hook #'exwm-cm--init t) (add-hook 'exwm-init-hook #'exwm-cm--init t)
(add-hook 'exwm-exit-hook #'exwm-cm--exit t)) (add-hook 'exwm-exit-hook #'exwm-cm--exit t))
;;;###autoload
(defun exwm-cm-start () (defun exwm-cm-start ()
"Start EXWM compositing manager." "Start EXWM compositing manager."
(interactive) (interactive)
(unless exwm-cm--conn (unless exwm-cm--conn
(exwm-cm--init))) (exwm-cm--init)))
;;;###autoload
(defun exwm-cm-stop () (defun exwm-cm-stop ()
"Stop EXWM compositing manager." "Stop EXWM compositing manager."
(interactive) (interactive)
(exwm-cm--exit)) (exwm-cm--exit))
;;;###autoload
(defun exwm-cm-toggle () (defun exwm-cm-toggle ()
"Toggle the running state of EXWM compositing manager." "Toggle the running state of EXWM compositing manager."
(interactive) (interactive)

1
exwm-input.el
View file

@ -435,6 +435,7 @@ This value should always be overwritten.")
(user-error "[EXWM] Failed to grab key: %s" (user-error "[EXWM] Failed to grab key: %s"
(single-key-description k)))))))))) (single-key-description k))))))))))
;;;###autoload
(defun exwm-input-set-key (key command) (defun exwm-input-set-key (key command)
"Set a global key binding." "Set a global key binding."
(interactive "KSet key globally: \nCSet key %s to command: ") (interactive "KSet key globally: \nCSet key %s to command: ")