jessieh/eldoc-frame
jessieh/eldoc-frame
1
Fork 0
Code Issues Pull Requests Releases Activity

Support max width/height to be functions

Browse Source
This commit is contained in:
Yuan Fu 2018-12-20 09:27:01 -05:00
parent 112afa1137
commit 1738ccae4c
No known key found for this signature in database
GPG Key ID: 1CF5ECABEC37A901
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
eldoc-box.el
View File

@ -90,11 +90,15 @@ you moved the point to somewhere else (that doesn't have a doc to show)")
(defvar eldoc-box-max-pixel-width 800 (defvar eldoc-box-max-pixel-width 800
"Maximum width of doc childframw in pixel. "Maximum width of doc childframw in pixel.
Consider your machine's screen's resolution when setting this variable.") Consider your machine's screen's resolution when setting this variable.
Set it to a function with no argument
if you want to dynamically change the maximum width.")
(defvar eldoc-box-max-pixel-height 700 (defvar eldoc-box-max-pixel-height 700
"Maximum height of doc childframw in pixel. "Maximum height of doc childframw in pixel.
Consider your machine's screen's resolution when setting this variable.") Consider your machine's screen's resolution when setting this variable.
Set it to a function with no argument
if you want to dynamically change the maximum height.")
;;;;; Function ;;;;; Function
(defvar eldoc-box--frame nil ;; A backstage variable (defvar eldoc-box--frame nil ;; A backstage variable
@ -172,8 +176,9 @@ Checkout `lsp-ui-doc--make-frame', `lsp-ui-doc--move-frame'."
(let* ((size (let* ((size
(window-text-pixel-size (window-text-pixel-size
window nil nil window nil nil
eldoc-box-max-pixel-width (if (functionp eldoc-box-max-pixel-width) (funcall eldoc-box-max-pixel-width) eldoc-box-max-pixel-width)
eldoc-box-max-pixel-height t)) (if (functionp eldoc-box-max-pixel-height) (funcall eldoc-box-max-pixel-height) eldoc-box-max-pixel-height)
t))
(width (car size)) (width (car size))
(height (cdr size)) (height (cdr size))
(width (+ width (frame-char-width frame))) ; add margin (width (+ width (frame-char-width frame))) ; add margin