Re: Display-relative coordinates

[martin rudalics <rudalics@gmx.at>]

 >> I've been fiddling a bit with test code like this, but haven't
 >> really found anything reasonable yet:
 >
 >> ;; Try to get screen-relative X, Y (pixels) for current point
 >> (let* ((posn-at-pt  (posn-at-point))
 >>         (x-y         (and posn-at-pt  (posn-x-y posn-at-pt)))
 >>         (win-edges   (and x-y  (window-inside-absolute-pixel-edges)))
 >>          (x           (and x-y  (+ (car x-y) (car win-edges))))
 >>          (y           (and x-y  (+ (cdr x-y) (cadr win-edges))))
 >>          (y           (and y  (top-fudge-pixels y))))
 >>    ...)
 >
 >> (defun top-fudge-pixels (y)
 >>    (let ((y2  y))
 >>      (when tool-bar-mode (setq y2  (+ 40 tp)))
 >>      (when menu-bar-mode (setq y2  (+ 25 tp)))
 >>      (setq y2  (+ y2 28))  ; Frame title bar
 >>      y2))
 >
 > What are the problems you see with the above (except that 'tp' is a
 > void variable)?  It looks OK to me, modulo the kludges in
 > top-fudge-pixels (why not use frame-geometry, which exists for that
 > purpose?).

FWIW ‘window-inside-absolute-pixel-edges’ didn't work on Windows before
Emacs 25.  On Emacs 25 ‘window-absolute-pixel-position’ is all that's
needed.

martin