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

Improve eldoc-box--window-side

Browse Source 
* eldoc-box.el (eldoc-box--window-side): Now it consistently returns
'left' even if the left side is split vertically.
This commit is contained in:
Jeffrey Phillips 2023-05-26 14:00:01 -07:00 committed by Yuan Fu
parent ee7c978887
commit e58ecc4699
No known key found for this signature in database
GPG Key ID: 56E19BC57664A442
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
eldoc-box.el
View File

@ -320,9 +320,13 @@ STR has to be a proper documentation, not empty string, not nil, etc."
"Return the side of the selected window. "Return the side of the selected window.
Symbol ‘left’ if the selected window is on the left, ‘right’ if Symbol ‘left’ if the selected window is on the left, ‘right’ if
on the right. Return ‘left’ if there is only one window." on the right. Return ‘left’ if there is only one window."
(let ((left-window (if tab-bar-mode ;; Get the window at point (x, y), where x = 0, y = the y coordinate
(window-at-x-y 5 (+ 5 (tab-bar-height nil t))) ;; of point. If this window is the selected window, the selected
(window-at 0 0)))) ;; window is on the left, otherwise the selected window is on the
;; right.
(let* ((y (cdr (posn-x-y (posn-at-point))))
(top (nth 1 (window-absolute-pixel-edges (selected-window))))
(left-window (window-at-x-y 0 (+ y top))))
(if (eq left-window (selected-window)) (if (eq left-window (selected-window))
'left 'left
'right))) 'right)))