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

ui/popup: use old alist use-case for set-popup-rule!

Browse source 
This paradigm has been long since abandoned.
This commit is contained in:
Henrik Lissner 2019-10-21 06:12:57 -04:00
parent b3a0fb9fc7
commit 74cad2632b
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 21 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

19
modules/ui/popup/autoload/settings.el
View file

@ -15,20 +15,9 @@
;;;###autoload ;;;###autoload
(defun +popup--make (predicate plist) (defun +popup--make (predicate plist)
(cond ((and plist (not (keywordp (car plist)))) (if (plist-get plist :ignore)
;; FIXME deprecated popup rule support (list predicate nil)
(message "Warning: the old usage of `set-popup-rule!' is deprecated; update the rule for '%s'" (let* ((plist (append plist +popup-defaults))
predicate)
(cl-destructuring-bind (condition &optional alist parameters)
(list predicate (car plist) (cadr plist))
(if (eq alist :ignore)
(list condition nil)
`(,condition (+popup-buffer)
,@alist
(window-parameters ,@parameters)))))
((plist-get plist :ignore)
(list predicate nil))
((let* ((plist (append plist +popup-defaults))
(alist (alist
`((actions . ,(plist-get plist :actions)) `((actions . ,(plist-get plist :actions))
(side . ,(plist-get plist :side)) (side . ,(plist-get plist :side))
@ -46,7 +35,7 @@
,@(plist-get plist :parameters)))) ,@(plist-get plist :parameters))))
`(,predicate (+popup-buffer) `(,predicate (+popup-buffer)
,@alist ,@alist
(window-parameters ,@params)))))) (window-parameters ,@params)))))
;;;###autodef ;;;###autodef
(defun set-popup-rule! (predicate &rest plist) (defun set-popup-rule! (predicate &rest plist)