summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorCase Duckworth2021-08-12 21:05:29 -0500
committerCase Duckworth2021-08-12 21:05:29 -0500
commit8d204e6bd7ed6328fa9ab14168e4f4070efe0a93 (patch)
tree58a6810c5e60bf9b71c86c9fd78a7704a3e34563
parentRemove comment (diff)
downloademacs-8d204e6bd7ed6328fa9ab14168e4f4070efe0a93.tar.gz
emacs-8d204e6bd7ed6328fa9ab14168e4f4070efe0a93.zip
Correct simple-modeline--format for olivetti-mode, etc.
-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)