1 files changed, 17 insertions, 0 deletions

@@ -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)