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

Add +popup/diagnose for debugging popup rules

Browse source
This commit is contained in:
Henrik Lissner 2018-12-06 17:51:40 -05:00
parent b41e38dcf4
commit 5c14fb42e0
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
modules/ui/popup/autoload/popup.el
View file

@ -390,6 +390,18 @@ the message buffer in a popup window."
(+popup/close window 'force)
(display-buffer-pop-up-window buffer nil)))
;;;###autoload
(defun +popup/diagnose ()
"Reveal what popup rule will be used for the current buffer."
(interactive)
(or (cl-loop with bname = (buffer-name)
for (pred . action) in display-buffer-alist
if (and (functionp pred) (funcall pred bname action))
return (cons pred action)
else if (and (stringp pred) (string-match-p pred bname))
return (cons pred action))
(message "No popup rule for this buffer")))
;;
;; Advice