Add support for body background color
This commit is contained in:
parent
9a6c21b644
commit
75a2f7d06e
@ -8,3 +8,5 @@ Get the file, add to load path, and
|
|||||||
Show the documentation of the symbol at point: =eglot-doc-help-at-point=
|
Show the documentation of the symbol at point: =eglot-doc-help-at-point=
|
||||||
|
|
||||||
Show documentation upon hover: =eglot-doc-hover-mode=. Note that you need to enable ElDoc mode for this to work.
|
Show documentation upon hover: =eglot-doc-hover-mode=. Note that you need to enable ElDoc mode for this to work.
|
||||||
|
|
||||||
|
Adjust =:background= of =eglot-doc-border= face for border color. Adjust =:background= of =eglot-doc-body= face for background color of childframe.
|
||||||
|
@ -36,6 +36,9 @@
|
|||||||
(((background light)) . (:background "dark")))
|
(((background light)) . (:background "dark")))
|
||||||
"The border color used in childframe.")
|
"The border color used in childframe.")
|
||||||
|
|
||||||
|
(defface eglot-doc-body '((t . (:background nil)))
|
||||||
|
"Body face used in eglot doc childframe. Only :background is used.")
|
||||||
|
|
||||||
(defvar eglot-doc-frame-parameters
|
(defvar eglot-doc-frame-parameters
|
||||||
'(
|
'(
|
||||||
;; (left . -1)
|
;; (left . -1)
|
||||||
@ -143,6 +146,7 @@ Checkout `lsp-ui-doc--make-frame', `lsp-ui-doc--move-frame'."
|
|||||||
(set-window-dedicated-p window t)
|
(set-window-dedicated-p window t)
|
||||||
(redirect-frame-focus frame (frame-parent frame))
|
(redirect-frame-focus frame (frame-parent frame))
|
||||||
(set-face-attribute 'internal-border frame :inherit 'eglot-doc-border)
|
(set-face-attribute 'internal-border frame :inherit 'eglot-doc-border)
|
||||||
|
(set-face-attribute 'default frame :background (face-attribute 'eglot-doc-body :background main-frame))
|
||||||
;; set size
|
;; set size
|
||||||
(let* ((size
|
(let* ((size
|
||||||
(window-text-pixel-size
|
(window-text-pixel-size
|
||||||
|
Loading…
Reference in New Issue
Block a user