From: Pascal Quesseveur <pquessev@gmail.com>
To: help-gnu-emacs@gnu.org
Subject: Re: Frame shifted upwards upon changing font size
Date: Thu, 15 Sep 2022 17:09:24 +0200 [thread overview]
Message-ID: <82r10cad3v.fsf@gmail.com> (raw)
In-Reply-To: bSqlrSxpaTRbQcmUfu80logbD_sNLD00IpB-uCFtJLUswlDwGyIiAtRp53R6uu6K2jc0L99jCVv0OOalJW_qALS18nD8zFOvnw3HExdJg1E=@proton.me
FWIW I have defined those functions to position a frame in case of
multiple monitors.
--8<---------------cut here---------------start------------->8---
(defun qsr/move-frame-pos (frame pos &optional xoffset yoffset)
"Move FRAME at POS (x . y) and apply XOFFSET to x coordinate and
YOFFSET to y coordinate."
(let* ((left (car pos))
(top (cdr pos))
(width (frame-outer-width frame))
(height (frame-outer-height frame))
(monitor-workarea
(cdr (assq 'workarea (frame-monitor-attributes frame))))
nleft ntop)
(if (and monitor-workarea (< left 0))
(setq nleft (- (+ left width xoffset) (nth 2 monitor-workarea)))
(setq nleft (+ left xoffset)))
(if (and monitor-workarea (< top 0))
(setq ntop (- (+ top height yoffset) (nth 3 monitor-workarea)))
(setq ntop (+ top yoffset)))
(set-frame-position frame nleft ntop)
frame))
(defun qsr/move-current-frame-offset()
"Move selected frame by offset (32 24)."
(interactive)
(qsr/move-frame-pos (selected-frame) (frame-position) 32 24))
--8<---------------cut here---------------end--------------->8---
HTH
--
Pascal Quesseveur
pquessev@gmail.com
next prev parent reply other threads:[~2022-09-15 15:09 UTC|newest]
Thread overview: 26+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-09-13 4:27 Frame shifted upwards upon changing font size uzibalqa
2022-09-13 11:29 ` Eli Zaretskii
2022-09-13 12:10 ` uzibalqa
2022-09-13 12:25 ` uzibalqa
2022-09-13 13:22 ` Gregory Heytings
2022-09-13 13:45 ` uzibalqa
2022-09-13 13:53 ` Gregory Heytings
2022-09-13 13:57 ` uzibalqa
2022-09-13 15:28 ` Gregory Heytings
2022-09-13 21:07 ` uzibalqa
2022-09-14 10:10 ` Robert Pluim
2022-09-14 15:09 ` uzibalqa
2022-09-15 7:17 ` Robert Pluim
2022-09-15 11:43 ` uzibalqa
2022-09-15 12:25 ` Robert Pluim
2022-09-15 13:38 ` Po Lu
2022-09-15 15:09 ` Pascal Quesseveur [this message]
2022-09-15 16:07 ` Yuri Khan
2022-09-15 16:27 ` Pascal Quesseveur
2022-09-14 10:30 ` Po Lu
2022-09-14 15:07 ` uzibalqa
2022-09-14 15:21 ` Christopher Dimech
2022-09-13 12:29 ` Eli Zaretskii
2022-09-13 12:40 ` uzibalqa
2022-09-13 13:03 ` Eli Zaretskii
2022-09-13 13:15 ` uzibalqa
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=82r10cad3v.fsf@gmail.com \
--to=pquessev@gmail.com \
--cc=help-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.