branch: externals/olivetti
commit 0653b0731250e5145f797d1b1e0398cff57a8e11
Author: Paul Rankin <he...@paulwrankin.com>
Commit: Paul Rankin <he...@paulwrankin.com>
Make olivetti-set-environment act on the list of all buffer windows
---
olivetti.el | 27 +++++++++++++++++----------
1 file changed, 17 insertions(+), 10 deletions(-)
diff --git a/olivetti.el b/olivetti.el
index 91e94ce..3fa4856 100644
--- a/olivetti.el
+++ b/olivetti.el
@@ -188,16 +188,23 @@ fraction of the window width."
(message "Text body width set to %s" olivetti-body-width))
(defun olivetti-set-environment ()
- "Set text body width to `olivetti-body-width' with relative margins."
- (let* ((n (olivetti-safe-width (if (integerp olivetti-body-width)
- (olivetti-scale-width olivetti-body-width)
- olivetti-body-width)))
- (width (cond ((integerp n) n)
- ((floatp n) (* (window-total-width) n))))
- (margin (max (round (/ (- (window-total-width) width)
- 2))
- 0)))
- (set-window-margins (selected-window) margin margin)))
+ "Set text body width to `olivetti-body-width' with relative margins.
+Cycle through all windows displaying the current buffer, first
+finding the `olivetti-safe-width' to which to set
+`olivetti-body-width', then find the appropriate margin size
+relative to each window. Finally set the window margins, taking
+care that the maximum size is 0."
+ (dolist (window (get-buffer-window-list (current-buffer) nil t))
+ (let* ((n (olivetti-safe-width (if (integerp olivetti-body-width)
+ (olivetti-scale-width
olivetti-body-width)
+ olivetti-body-width)))
+ (width (cond ((integerp n) n)
+ ((floatp n) (* (window-total-width window)
+ n))))
+ (margin (max (round (/ (- (window-total-width window) width)
+ 2))
+ 0)))
+ (set-window-margins window margin margin))))
(defun olivetti-toggle-hide-mode-line ()
"Toggle the visibility of the mode-line.
