summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el17
1 files changed, 17 insertions, 0 deletions
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'."
1400 acdw-modeline/minions 1400 acdw-modeline/minions
1401 acdw-modeline/narrowed 1401 acdw-modeline/narrowed
1402 simple-modeline-segment-major-mode))) 1402 simple-modeline-segment-major-mode)))
1403
1404 ;; I've put in a pull request to add the (- 0 right-margin) bit here.
1405 (advice-add 'simple-modeline--format :override
1406 (defun simple-modeline@format (lefts rights)
1407 (let* ((left (simple-modeline--format-segments lefts))
1408 (right (simple-modeline--format-segments rights))
1409 (reserve (length right)))
1410 (concat
1411 left
1412 (propertize " "
1413 'display `((space :align-to
1414 (- right
1415 (- 0 right-margin)
1416 ,reserve)))
1417 'face '(:inherit simple-modeline-space))
1418 right))))
1419
1403 (simple-modeline-mode +1)) 1420 (simple-modeline-mode +1))
1404 1421
1405(setup (:straight sly) 1422(setup (:straight sly)