Add border

This doesn't work for some reason, maybe it's because I'm on Mac?

It might be my machine's fault because
lsp-ui's childframe doesn't have border when they clain to do, either.

Anyway, the internal-border-width parameter works fine,
and internal-border face looks good, too.
So I guess the code is ok.
This commit is contained in:
Yuan Fu 2018-12-10 21:02:24 -05:00
parent a5d2a7eccd
commit 9a6c21b644
No known key found for this signature in database
GPG Key ID: 1CF5ECABEC37A901

View File

@ -32,6 +32,10 @@
;;;; Userland
;;;;; Variable
(defface eglot-doc-border '((((background dark)) . (:background "white"))
(((background light)) . (:background "dark")))
"The border color used in childframe.")
(defvar eglot-doc-frame-parameters
'(
;; (left . -1)
@ -138,6 +142,7 @@ Checkout `lsp-ui-doc--make-frame', `lsp-ui-doc--move-frame'."
(main-frame (selected-frame)))
(set-window-dedicated-p window t)
(redirect-frame-focus frame (frame-parent frame))
(set-face-attribute 'internal-border frame :inherit 'eglot-doc-border)
;; set size
(let* ((size
(window-text-pixel-size