awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-22 16:21:04 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove dash/f dependencies; use cl-lib & subr-x more

Browse Source
This commit is contained in:
Henrik Lissner
2017-02-19 18:02:40 -05:00
parent 704099a7b9
commit 2d5d826177
11 changed files with 83 additions and 123 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
core/autoload/popups.el
View File

@@ -31,7 +31,7 @@ possible rules."
;;;###autoload
(defun doom-popup-windows ()
"Get a list of open poups."
(-filter 'doom-popup-p (window-list)))
(cl-remove-if-not 'doom-popup-p (window-list)))
;;;###autoload
(defun doom/popup-restore ()
@@ -76,8 +76,9 @@ possible rules."
"Closes all open popups. If DONT-KILL is non-nil, don't kill their buffers."
(interactive)
(let* ((orig-win (selected-window))
(popups (--filter (and (doom-popup-p it) (not (eq it orig-win)))
(window-list))))
(popups (cl-remove-if-not (lambda (win) (and (doom-popup-p win)
(not (eq win orig-win))))
(window-list))))
(when popups
(setq doom-popup-history (mapcar 'doom--popup-data (doom-popup-windows)))
(let (doom-popup-remember-history)