Refactor doom/popup-toggle

This commit is contained in:
Henrik Lissner 2017-02-20 00:10:34 -05:00
parent 409b604d5b
commit f6b96c6e79

View file

@ -50,17 +50,16 @@ possible rules."
(setq doom-popup-history '()))
;;;###autoload
(defun doom/popup-restore-or-switch ()
(defun doom/popup-toggle ()
"Toggle popups."
(interactive)
(let (popups)
(cond ((doom-popup-p)
(unless (doom-visible-windows)
(user-error "No non-popups available"))
(other-window 1))
((setq popups (doom-popup-windows))
(select-window (car popups)))
(t
(doom/popup-restore)))))
(when (doom-popup-p)
(if doom-popup-other-window
(select-window doom-popup-other-window)
(other-window 1)))
(if (doom-popup-windows)
(doom/popup-close-all)
(doom/popup-restore)))
;;;###autoload
(defun doom/popup-close (&optional window)