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

Refactor doom-popup-size (cond -> pcase)

Browse source
This commit is contained in:
Henrik Lissner 2017-07-11 01:08:30 +02:00
parent d6133adef0
commit 9c7e431de7
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 3 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
core/autoload/popups.el
View file

@ -169,11 +169,9 @@ only close popups that have an :autoclose property in their rule (see
;;;###autoload
(defun doom-popup-size (&optional window)
"Return the size of a popup WINDOW."
(let ((side (doom-popup-side window)))
(cond ((memq side '(left right))
(window-width window))
((memq side '(above below))
(window-height window)))))
(pcase (doom-popup-side window)
((or 'left 'right) (window-width window))
((or 'above 'below) (window-height window))))
(defun doom--popup-data (window)
(when-let (buffer (window-buffer window))