diff options
| author | Case Duckworth | 2021-08-12 21:05:29 -0500 |
|---|---|---|
| committer | Case Duckworth | 2021-08-12 21:05:29 -0500 |
| commit | 8d204e6bd7ed6328fa9ab14168e4f4070efe0a93 (patch) | |
| tree | 58a6810c5e60bf9b71c86c9fd78a7704a3e34563 | |
| parent | Remove comment (diff) | |
| download | emacs-8d204e6bd7ed6328fa9ab14168e4f4070efe0a93.tar.gz emacs-8d204e6bd7ed6328fa9ab14168e4f4070efe0a93.zip | |
Correct simple-modeline--format for olivetti-mode, etc.
| -rw-r--r-- | init.el | 17 |
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) |