From ef23d57c6bd134cf071e3940e5ae8c1e3c14a067 Mon Sep 17 00:00:00 2001 From: jao Date: Sat, 11 Oct 2025 00:30:32 +0100 Subject: gnus: better two-pane layout --- custom/jao-custom-gnus.el | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) (limited to 'custom') diff --git a/custom/jao-custom-gnus.el b/custom/jao-custom-gnus.el index b7c0852..dc729ce 100644 --- a/custom/jao-custom-gnus.el +++ b/custom/jao-custom-gnus.el @@ -98,10 +98,14 @@ (summary 0.25 point) (article 1.0))))) - ;; (gnus-add-configuration - ;; `(group (horizontal 1.0 - ;; (group 0.5 point) - ;; ("*notmuch-hello*" 1.0)))) + (gnus-add-configuration + `(group (horizontal 1.0 + (group 0.5 point) + (vertical 1.0 + ("*Org Agenda*" 0.5) + ("inbox.org" 1.0) + ;; ("*notmuch-hello*" 1.0) + )))) (gnus-add-configuration `(message (horizontal 1.0 (message 1.0 point)))) @@ -333,7 +337,8 @@ (let* ((d (if jao-gnus-use-three-panes (+ jao-gnus-groups-width 11) (+ jao-gnus-groups-width 12))) - (w (- (or w (window-width)) d))) + (w (or w (if jao-gnus-use-three-panes (window-width) (frame-width)))) + (w (- w d))) (setq gnus-summary-line-format (format jao-gnus--summary-line-fmt w)))) (add-hook 'gnus-select-group-hook 'jao-gnus--set-summary-line) @@ -650,6 +655,7 @@ (gnus-demon-add-handler 'jao-gnus--scan 5 1)) (defun jao-gnus-remove-demon () + (interactive) (gnus-demon-remove-handler 'jao-gnus--scan)) (jao-gnus-add-demon) -- cgit v1.2.3