[nongnu] elpa/popon d19895f9f9 1/2: New function: popon-x-y-at-posn

[ELPA Syncer]

branch: elpa/popon
commit d19895f9f930eb7edd958cbc4fbc7df7b11b21c4
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    New function: popon-x-y-at-posn
---
 popon.el | 51 ++++++++++++++++++++++++++++++++++-----------------
 1 file changed, 34 insertions(+), 17 deletions(-)

diff --git a/popon.el b/popon.el
index 1b20a23020..37a641402e 100644
--- a/popon.el
+++ b/popon.el
@@ -591,6 +591,39 @@ When FORCE is non-nil, update all overlays."
   "Update popons."
   (popon-update))
 
+;;;###autoload
+(defun popon-x-y-at-posn (posn)
+  "Return the (X, Y) coodinate at position POSN as a cons.
+
+Return nil if a popon can't be shown at position POSN.
+
+NOTE: This uses `posn-at-point', which is slow.  So try to minimize
+calls to this function."
+  (when (and posn (posn-point posn))
+    (let* ((window-start-x-y
+            (if (>= emacs-major-version 29)
+                (posn-col-row (posn-at-point (window-start))
+                              'use-window)
+              (posn-col-row (posn-at-point (window-start)))))
+           (point-x-y
+            (if (>= emacs-major-version 29)
+                (posn-col-row posn 'use-window)
+              (posn-col-row posn)))
+           (x-y (cons (if (and (or (not truncate-lines) word-wrap)
+                               (if truncate-partial-width-windows
+                                   (>= (window-total-width)
+                                       truncate-partial-width-windows)
+                                 t))
+                          (- (car point-x-y) (car window-start-x-y))
+                        (- (save-excursion
+                             (goto-char (posn-point posn))
+                             (current-column))
+                           (window-hscroll)))
+                      (- (cdr point-x-y) (cdr window-start-x-y)))))
+      (when (and (>= (car x-y) 0)
+                 (>= (cdr x-y) 0))
+        x-y))))
+
 ;;;###autoload
 (defun popon-x-y-at-pos (point)
   "Return the (X, Y) coodinate of POINT in selected window as a cons.
@@ -599,23 +632,7 @@ Return nil if POINT is not in visible text area.
 
 NOTE: This uses `posn-at-point', which is slow.  So try to minimize
 calls to this function."
-  (let ((window-start-x-y
-         (if (>= emacs-major-version 29)
-             (posn-col-row (posn-at-point (window-start)) 'use-window)
-           (posn-col-row (posn-at-point (window-start)))))
-        (point-x-y
-         (if (>= emacs-major-version 29)
-             (posn-col-row (posn-at-point point) 'use-window)
-           (posn-col-row (posn-at-point point)))))
-    (cons (if (and (or (not truncate-lines) word-wrap)
-                   (if truncate-partial-width-windows
-                       (>= (window-total-width)
-                           truncate-partial-width-windows)
-                     t))
-              (- (car point-x-y) (car window-start-x-y))
-            (- (save-excursion (goto-char point) (current-column))
-               (window-hscroll)))
-          (- (cdr point-x-y) (cdr window-start-x-y)))))
+  (popon-x-y-at-posn (posn-at-point point)))
 
 ;;;###autoload
 (defun popon-kill-all ()