From: Emanuel Berg via Users list for the GNU Emacs text editor <help-gnu-emacs@gnu.org>
To: help-gnu-emacs@gnu.org
Subject: Re: How to set margins of buffer when window changes?
Date: Wed, 08 Sep 2021 21:41:35 +0200 [thread overview]
Message-ID: <8735qeyhw0.fsf@zoho.eu> (raw)
In-Reply-To: 877dfqyiir.fsf@zoho.eu
> (when width
> (fill-column) )
Heh, I'm completely confused today, you will have to read what
I *think*, not what I type ... it should be `or'!
(or width fill-column)
Anyway here is the complete, fixed function. I don't know if
the computation is correct (I didn't change that) but it is
a good starting point ...
Note that I renamed it!
(defun center-text-with-margins (&optional window width)
(let ((win (or window (selected-window)))
(wid (or width fill-column) ))
(let*((space (max 0 (- (window-total-width) wid)))
(left (floor (/ space 2)))
(right (- space left)) )
(set-window-margins win left right)
(set-window-buffer win (current-buffer)) )))
--
underground experts united
https://dataswamp.org/~incal
prev parent reply other threads:[~2021-09-08 19:41 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2021-09-08 17:12 How to set margins of buffer when window changes? edgar
2021-09-08 19:11 ` Joost Kremers
2021-09-08 20:57 ` edgar
2021-09-08 19:17 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-09-08 19:27 ` Emanuel Berg via Users list for the GNU Emacs text editor
2021-09-08 19:41 ` Emanuel Berg via Users list for the GNU Emacs text editor [this message]
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=8735qeyhw0.fsf@zoho.eu \
--to=help-gnu-emacs@gnu.org \
--cc=moasenwood@zoho.eu \
/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.