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

Give popups a small margin

Browse source 
To make up for lack of fringe.
This commit is contained in:
Henrik Lissner 2018-06-17 02:01:11 +02:00
parent 9b5a219373
commit c3988a8298
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
2 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
modules/ui/popup/autoload/popup.el
View file

@ -263,6 +263,14 @@ disabled."
(let ((f (if (bound-and-true-p +popup-buffer-mode) 0)))
(set-window-fringes nil f f fringes-outside-margins)))
;;;###autoload
(defun +popup|adjust-margins ()
"Creates padding for the popup window determined by `+popup-margin-width',
restoring it if `+popup-buffer-mode' is disabled."
(when +popup-margin-width
(let ((m (if (bound-and-true-p +popup-buffer-mode) +popup-margin-width)))
(set-window-margins nil m m))))
;;;###autoload
(defun +popup|set-modeline-on-enable ()
"Don't show modeline in popup windows without a `modeline' window-parameter.