feature/popup: major refactor
+ Defer replacement of 'size attribute in ALIST until popup opening (makes :popup definitions a little faster). + Define/use +popup-define helper function (for internal use only!)
This commit is contained in:
parent
6e51dd249a
commit
db2e2b0642
2 changed files with 46 additions and 30 deletions
|
@ -94,6 +94,15 @@ and enables `+popup-buffer-mode'."
|
|||
(params (map-merge 'list
|
||||
+popup-default-parameters
|
||||
(cdr (assq 'window-parameters alist)))))
|
||||
;; translate side => window-(width|height)
|
||||
(when-let* ((size (cdr (assq 'size alist)))
|
||||
(side (or (cdr (assq 'side alist)) 'bottom)))
|
||||
(map-delete alist 'size)
|
||||
(map-put alist (if (memq side '(left right))
|
||||
'window-width
|
||||
'window-height)
|
||||
size))
|
||||
;;
|
||||
(map-put alist 'window-parameters params)
|
||||
(nreverse alist))))
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue