From d86db3edd675d4c9fc00b4c3677507a9fd453c54 Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Fri, 22 Jul 2016 12:26:29 +0800 Subject: Add minibuffer toggle command * exwm-workspace.el (exwm-workspace-toggle-minibuffer): Add minibuffer toggle command. * exwm-core.el (exwm-mode-menu, exwm-mode-map): Substitute minibuffer attach/detach commands with minibuffer toggle command. * exwm-workspace.el (exwm-workspace-toggle-minibuffer): Insert various auto load cookies. --- exwm-workspace.el | 12 ++++++++++++ 1 file changed, 12 insertions(+) (limited to 'exwm-workspace.el') diff --git a/exwm-workspace.el b/exwm-workspace.el index b3c2390936c3..e58c55411416 100644 --- a/exwm-workspace.el +++ b/exwm-workspace.el @@ -500,6 +500,7 @@ The optional FORCE option is for internal use only." "Number of workspaces `exwm-workspace-switch-create' allowed to create each time.") +;;;###autoload (defun exwm-workspace-switch-create (frame-or-index) "Switch to workspace FRAME-OR-INDEX, creating it if it does not exist yet." (interactive) @@ -835,6 +836,7 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first." (assq (frame-parameter exwm-workspace--minibuffer 'exwm-container) exwm-workspace--id-struts-alist)) +;;;###autoload (defun exwm-workspace-attach-minibuffer () "Attach the minibuffer so that it always shows." (interactive) @@ -858,6 +860,7 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first." (exwm-workspace--set-fullscreen f)) (exwm-workspace--show-minibuffer)))) +;;;###autoload (defun exwm-workspace-detach-minibuffer () "Detach the minibuffer so that it automatically hides." (interactive) @@ -874,6 +877,15 @@ Please check `exwm-workspace--minibuffer-own-frame-p' first." (exwm-workspace--set-fullscreen f)) (exwm-workspace--hide-minibuffer)))) +;;;###autoload +(defun exwm-workspace-toggle-minibuffer () + "Attach the minibuffer if it's detached, or detach it if it's attached." + (interactive) + (when (exwm-workspace--minibuffer-own-frame-p) + (if (exwm-workspace--minibuffer-attached-p) + (exwm-workspace-detach-minibuffer) + (exwm-workspace-attach-minibuffer)))) + (defun exwm-workspace--update-minibuffer-height (&optional echo-area) "Update the minibuffer frame height." (let ((height -- cgit 1.4.1