awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-07 12:47:30 -05:00
Code Issues Packages Projects Releases Wiki Activity

Refactor doom/popup-toggle

Browse Source
This commit is contained in:
Henrik Lissner
2017-02-20 00:10:34 -05:00
parent 409b604d5b
commit f6b96c6e79
1 changed files with 9 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
core/autoload/popups.el
View File

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