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

This commit is contained in:
Henrik Lissner 2017-07-11 01:06:26 +02:00
parent 65696cebf6
commit d6133adef0
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395

View file

@ -152,10 +152,9 @@ only close popups that have an :autoclose property in their rule (see
doom-popup-rules) doom-popup-rules)
(window-parameter window 'popup)) (window-parameter window 'popup))
prop) prop)
(cond ((eq prop :size) (pcase prop
shackle-default-size) (:size shackle-default-size)
((eq prop :align) (:align shackle-default-alignment))))
shackle-default-alignment))))
;;;###autoload ;;;###autoload
(defun doom-popup-side (&optional window) (defun doom-popup-side (&optional window)