From 8d204e6bd7ed6328fa9ab14168e4f4070efe0a93 Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 12 Aug 2021 21:05:29 -0500
Subject: Correct simple-modeline--format for olivetti-mode, etc.

---
 init.el | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

diff --git a/init.el b/init.el
index 2e47be3..7befda5 100644
--- a/init.el
+++ b/init.el
@@ -1400,6 +1400,23 @@ if ripgrep is installed, otherwise `consult-grep'."
                                acdw-modeline/minions
                                acdw-modeline/narrowed
                                simple-modeline-segment-major-mode)))
+
+  ;; I've put in a pull request to add the (- 0 right-margin) bit here.
+  (advice-add 'simple-modeline--format :override
+              (defun simple-modeline@format (lefts rights)
+                (let* ((left (simple-modeline--format-segments lefts))
+                       (right (simple-modeline--format-segments rights))
+                       (reserve (length right)))
+                  (concat
+                   left
+                   (propertize " "
+                               'display `((space :align-to
+                                                 (- right
+                                                    (- 0 right-margin)
+                                                    ,reserve)))
+                               'face '(:inherit simple-modeline-space))
+                   right))))
+  
   (simple-modeline-mode +1))
 
 (setup (:straight sly)
-- 
cgit 1.4.1-21-gabe81