Add some padding between childframe and main frame

This commit is contained in:
Yuan Fu 2018-12-11 00:20:34 -05:00
parent 75a2f7d06e
commit 00f3b665bb
No known key found for this signature in database
GPG Key ID: 1CF5ECABEC37A901

View File

@ -159,13 +159,13 @@ Checkout `lsp-ui-doc--make-frame', `lsp-ui-doc--move-frame'."
(frame-resize-pixelwise t)) (frame-resize-pixelwise t))
(set-frame-size frame width height t) (set-frame-size frame width height t)
;; move position ;; move position
(set-frame-position frame (pcase (eglot-doc--window-side) ; x position (set-frame-position frame (pcase (eglot-doc--window-side) ; x position + a little padding (16)
;; display doc on right ;; display doc on right
('left (- (frame-outer-width main-frame) width)) ('left (- (frame-outer-width main-frame) width 16))
;; display doc on left ;; display doc on left
('right 0)) ('right 16))
;; y position ;; y position + a little padding (16)
0)) 16))
(setq eglot-doc--frame frame))) (setq eglot-doc--frame frame)))
;;;;; ElDoc ;;;;; ElDoc