emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

feature/popup: add +popup|cleanup-rules hook

Browse source
This commit is contained in:
Henrik Lissner 2018-01-07 05:44:58 -05:00
parent a76de01f4f
commit d2a4408877
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
modules/feature/popup/autoload.el
View file

@ -155,6 +155,7 @@ with ARGS to get its return value."
(cond (+popup-mode (cond (+popup-mode
(add-hook 'doom-unreal-buffer-functions #'+popup-p) (add-hook 'doom-unreal-buffer-functions #'+popup-p)
(add-hook 'doom-escape-hook #'+popup|close-on-escape t) (add-hook 'doom-escape-hook #'+popup|close-on-escape t)
(add-hook 'doom-cleanup-hook #'+popup|cleanup-rules)
(setq +popup--old-display-buffer-alist display-buffer-alist (setq +popup--old-display-buffer-alist display-buffer-alist
display-buffer-alist +popup--display-buffer-alist) display-buffer-alist +popup--display-buffer-alist)
(dolist (prop +popup-window-parameters) (dolist (prop +popup-window-parameters)
@ -162,7 +163,9 @@ with ARGS to get its return value."
(t (t
(remove-hook 'doom-unreal-buffer-functions #'+popup-p) (remove-hook 'doom-unreal-buffer-functions #'+popup-p)
(remove-hook 'doom-escape-hook #'+popup|close-on-escape) (remove-hook 'doom-escape-hook #'+popup|close-on-escape)
(remove-hook 'doom-cleanup-hook #'+popup|cleanup-rules)
(setq display-buffer-alist +popup--old-display-buffer-alist) (setq display-buffer-alist +popup--old-display-buffer-alist)
(+popup|cleanup-rules)
(dolist (prop +popup-window-parameters) (dolist (prop +popup-window-parameters)
(map-delete prop window-persistent-parameters))))) (map-delete prop window-persistent-parameters)))))
@ -224,6 +227,16 @@ disabled."
#'+popup/close #'+popup/close
#'+popup/close-all))) #'+popup/close-all)))
;;;###autoload
(defun +popup|cleanup-rules ()
"Cleans up any duplicate popup rules."
(interactive)
(cl-delete-duplicates
+popup--display-buffer-alist
:key #'car :test #'equal :from-end t)
(when +popup-mode
(setq display-buffer-alist +popup--display-buffer-alist)))
;; ;;
;; Commands ;; Commands