(cl-defmacro fwoar/binding (setter target &body bindings)
(declare (indent 2))
(let ((target-sym (gensym)))
`(let ((,target-sym ,target))
,(cons 'progn
(mapcar (lambda (binding)
`(,setter ,target-sym ',(car binding) ,@(cdr binding)))
bindings)))))
(defun make-info-window ()
(setq mode-line-format nil)
(centaur-tabs-local-mode 1)
(set-window-dedicated-p (selected-window) t)
(when-let (w (window-in-direction 'above))
(set-window-parameter w 'no-delete-other-windows t))
(fwoar/binding set-window-parameter (selected-window)
(no-other-window t)
(no-delete-other-windows t))
())