From 9a6c21b6441e8e3916cd33b6724a3e86f56fe498 Mon Sep 17 00:00:00 2001 From: Yuan Fu Date: Mon, 10 Dec 2018 21:02:24 -0500 Subject: [PATCH] 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. --- eglot-doc.el | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/eglot-doc.el b/eglot-doc.el index 8884e1e..5ad42f8 100644 --- a/eglot-doc.el +++ b/eglot-doc.el @@ -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