From 1688ee78986af9f069da864779db7cdf4f707b7d Mon Sep 17 00:00:00 2001 From: Kévin Le Gouguec Date: Sat, 1 Oct 2022 11:55:29 +0200 Subject: Use my/centered-mode instead of relying on Gnus layouts Lots of commands in Gnus buffers try to reinstate the setup defined in gnus-buffer-configuration, so when eg drafting a message with the original article displayed on the side, and using P or N to move around the thread, there ends up being some friction in window management. So stop using the Group buffer as a way to left-pad articles; it doesn't even look good on half-width frames anyway. --- .emacs | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) (limited to '.emacs') diff --git a/.emacs b/.emacs index ed70f21..75662f1 100644 --- a/.emacs +++ b/.emacs @@ -126,6 +126,7 @@ (message "changed from %s to %s" old-width new-width))) (defvar-local my/centered-width 'fill-column) +(defvar-local my/centered-set-right-margin nil) (define-minor-mode my/centered-mode "Update margins to keep content centered." @@ -150,11 +151,12 @@ (adjustable-width (- (window-total-width window) (+ (fringe-columns 'left) (fringe-columns 'right)))) - (target-margin + (left-margin (when (> adjustable-width target-body-width) - (/ (- adjustable-width target-body-width) 2)))) - ;; Only set left margin, so that long lines are not truncated. - (set-window-margins window target-margin)))) + (/ (- adjustable-width target-body-width) 2))) + (right-margin (and my/centered-set-right-margin + left-margin))) + (set-window-margins window left-margin right-margin)))) (defun my/kill (stuff) (kill-new stuff) -- cgit v1.2.3